תחומים - פורום חרדי מקצועי

@מחשבות-טובות
יש לי גם תוכנה לבנית קטלוג
עם אפשרות להדפסה + הורדת קובץ מותאם לנדרים פלוס\קהילות
אם תרצה בתשלום סמלי תוכל לפנות למייל שבחתימה

@ב-ל
ככל הנראה
אבל אני לא יודע אם יש אפשרות ואיך
תנסה לשאול איפה שקנית או

@ב-ל
ככל הנראה יש לך בעיה בשסתום ביטחון
תבדוק אם יש לך דבר כזה

(מקווה שתבין מהתמונה למה התכוונתי, לא מצאתי תמונה יותר טובה)

@אדון אמר בייעוץ בבחירת מחשב:

@chagold אמר בייעוץ בבחירת מחשב:

(אא"כ היה לי תוסף שמארגן את הסימניות בקבוצות ואח"כ בלחיצה אני פותח את כל החלונות והכרטיסיות של אותו קבוצה.

כיום זה מובנה בכרום, ללא צורך בתוספים כלשהם.

מה שמובנה היום בכרום לא שומר לאחר סגירת הכרטיסייה או חלון הדפדפן.

@chagold
אתה מחפש דווקא מחשב חדש?

@chagold @מלא
ב"ה הסתדרתי
זה היה קוד שהוא לא כזה נצרך.
והגעתי לאותה התוצאה בצורה שונה.
הרבה תודה על הרצון הטוב לעזור

@chagold אמר בהמשך | לערוך קובץ אקסל ע"י קובץ אקסס:

@אוריי תסמן את השורות שאלתה רוצה לדבג ע"י לחיצה בצד שמאל (בשוליים). אם לא תבין אעלה צילום בל"נ.

נראה לי שלא הבנת מה כתבתי בשורה האחרונה שלי.
בדרך כלל כאשר מתרחשת שגיאה הvba לא מוכן להמשיך להריץ (כי הוא לא מבין מה אתה רוצה ממנו) משא"כ בשגיאה הזו הוא נעצר מקפיץ חלון וכאשר אני ממשיך ע"י לחיצה על f8 או f5 הvba ממשיך להריץ את הקוד הלאה..
מקווה שעכשיו הייתי מובן

ושוב משהו מעצבן שאני נתקל בו זה השגיאה הבאה

בשורה הבאה

אבל משהו מוזר מתרחש שהקוד לא נעצר בעת שמתרחשת שגיאה אלא אם אחרי השגיאה לחצתי f5 או f8 הוא ממשיך את הקוד הלאה.
למי פתרונים??

שוב אני נתקל בשגיאה כאשר אני רוצה להריץ לולאה על האקסל
זה הקוד שכתבתי

 Dim x
 Dim namecolor As String
  For x = 2 To numRow
 namecolor = xl_wks.Range("b" & x).Value
 xl_wks.Range("b" & x & ":c" & x).Select
 
        Select Case namecolor
            Case "ëúåí"
                xl_wks.Selection.Interior.Color = 49407
            Case "öäåá"
                xl_wks.Selection.Interior.Color = 65535
            Case "åøåã"
                xl_wks.Selection.Interior.Color = 13395711
            Case "ñâåì"
                xl_wks.Selection.Interior.Color = 12993165
            Case "éøå÷"
                xl_wks.Selection.Interior.Color = 5287936
            Case "àãåí"
                xl_wks.Selection.Interior.Color = 255
            Case "úëìú"
                xl_wks.Selection.Interior.Color = 16750899
 x = x + 1
 Next

וזה השגיאה שאני מקבל
Compile error:

Next without For

הצלחתי לעלות על הבעיה היה צריך לכתוב כך

xl_app.ActiveSheet.DisplayRightToLeft = True

ולא xl_wks
@מנחם למה בחלק הוא מצריך xl_wks ובחלק מהקודים xl_app ??

תגובה: עזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס

בהמשך לנושא הנ"ל את השלב הראשון עברתי
אמנם אני נתקל בכל מיני שורות קוד שמחזירות שגיאות

1. הקוד הבא לישור האקסל למימין לשמאל

ActiveSheet.DisplayRightToLeft = True

ניסיתי אותו באקסס כך

xl_wks.ActiveSheet.DisplayRightToLeft = True

והוא מחזיר שגיאה

@מלא
תודה רבה הצלחתי לשחרר אותו
וכן להר' @מנחם עזרת לי מאוד הסתדרתי לבנתיים
הכל בא על מקומו בשלום..

@יוסף-חיים-016
ככל הנראה חסר לך הבנה במהותו של פורום.
ואני אסביר

1. פורום נועד לשאול שאלות באופן כללי לכולם ולא למישהו ספציפי.
2. פורום לא נוצר כפלטפורמה לעזרה הדדית אישית וכ"ש שלא ע"ג הפורום.
3. רוב משתמשי הפורום אוהבים לתת עזרה מעל גבי השולחן כדי שאם עוד אחד יהיה לו את אותה התקלה הוא ילמד מהתשובה ולא יצטרכו לכתוב 1000 פעם באישי.
4. פורום לא נועד (בעצמותו) להתיידדות אישית בשום צורה שהיא לצורך זה הסבירו שיש לך מייל ...
5. להסברים נוספים

@יוסף-חיים-016 אמר בלדעתי כדאי לפתוח את האופציה לצ'אטים:

אני לא יפתח מייל בשביל לדבר עם מישהו, ומה שגם במייל יש סכנה רוחנית הרבה יותר גדולה.
ב. אני חושב שגם אתה היית מעדיף צ'אט, הרי אתה יודע כמה זה מועיל ועוזר...

לעומת זאת אם תשאל בפרטי, אתה מתיודד עם אננשים, שומר איתם על קשר טוב,

@יוסף-חיים-016 אתה לא חושב שזה תרתי דסתרי??

אני לא מבין כלל מה הנידון המנהל כאן בפורום @dovid החליט שלפתוח זה הורס את צביון הפורום ואין כבר מקום לדיון.

נ.ב. למה רציתי כי היה לי בסך הכל שאלה על דיוור כולל קובץ מצורף

ורציתי לשאול מישהו ספציפי

@אשרי אני תמה עליך לשאול שאלה קטנה לא פתחת נושא אבל נושא שכבר דנו עליו 1000 פעמים זה כן אפשר לפתוח!!??
דרך אגב כמשתמש כאן בפורום למעלה משנה אני יכול לגלות לך סוד קטן..
שהחברים הצדיקים של הפורום כאן אוהבים לעזור הרבה אפי' על דברים קטנים וגם אתה כמשתמש חדש אין לך ממה להתבייש מלשאול בפורום גם שזה משהו קטן..
ושיהיה לך כאן הרבה בהצלחה..

@מנחם אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

BREK

אין לי כפתור כזה

@מנחם
זה טעות אצלך בקוד מקור
יש פתרון לאקסס קפוא ???

@מנחם
תאמת כרגע יש לי קצת כילאים
אבל אני מעדיף משהו ברור מאשר משהו שלא הצלחתי להבין אותו כלל יתכן וכאשר אני יבין אני ישתמש בקוד הקודם
תכלס זה הקוד המלא

'הגדרת המשתנים עבור אקסל
Dim xl_app As Object, xlwkb As Object, xl_wks As Object
'פתיחת אובייקט מסוג אקסל
Set xl_app = CreateObject("Excel.Application")
'פתיחת הקובץ המבוקש
Set xl_wkb = xl_app.Workbooks.Open(aNeme)
'פתיחת הגליון הרצוי
Set xl_wks = xl_wkb.Sheets(Export)
 
     With xl_wks
        
    .Range("a1").Value = "שם ספר"
    .Range("b1").Value = "צבע"
    .Range("c1").Value = "מדף"
    .Range("d1").Value = "שם מחבר"
    .Range("e1").Value = "סיווג"
    .Range("f1").Value = "הערות"
    
    
    .Application.ActiveWorkbook.Save
    End With
'סגירת האובייקט הנל מסוג אקסל
xlApp.Quit

דרך אגב משום מה האקסס קפא לי לאחר הריצה ועד עכשיו הוא לא רוצה להפשיר
ואני לא רוצה לסגור אותו בכח כי יש לי שם דברים שלא שמרתי

@מנחם
לבנתיים עברתי לקוד שלך הוא נראה הרבה יותר ברור (בשבילי בכל אופן)
תכלס בסגירת הקובץ הוא מחזיר שגיאה כזו

@מנחם
הרבה תודה
זו באמת היתה הבעיה
תכלס התקדמתי עוד
וזה הקוד שיש לי

On Error GoTo doExcelAutomationErr

Dim mySheet As Object
Dim xlApp As Object
Dim strName As String

    strName = aName
    Set xlApp = CreateObject("Excel.Application")
    Set mySheet = xlApp.Workbooks.open(aName).Sheets(1)

    mySheet.SaveAs strName
    xlApp.Visible = False
    Set mySheet = xlApp.Sheets("Export")
    
    With mySheet
        
    Range("a1").Value = "שם ספר"
    Range("b1").Value = "צבע"
    Range("c1").Value = "מדף"
    Range("d1").Value = "שם מחבר"
    Range("e1").Value = "סיווג"
    Range("f1").Value = "הערות"
    
    
    .Application.ActiveWorkbook.Save
    End With
    
    Set mySheet = Nothing
    Set xlApp = Nothing

doExcelAutomationExit:
    Exit Sub

doExcelAutomationErr:
    MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
    Resume doExcelAutomationExit

הקוד עובד מעולה חוץ מזה שיש לי 2 בעיות...
1. בשורה 11 הוא ככל הנראה פותח קובץ חדש והוא מבקש ממני להחליף אותו מה שאני רוצה לבטל עריכה: בסיעתא דשמיא הצלחתי להתגבר על הבעיה הזו.
2. הקוד הזה לא סוגר לי את קובץ האקסל

משתנה aName מכיל את הנתיב של הקובץ