תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    חוקי הפורום

    משתנה בשם אובייקט ב VBA

    תוכנה
    3
    4
    86
    טוען פוסטים נוספים
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
    תגובה
    • הגב כנושא
    התחבר בכדי לפרסם תגובה
    נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
    • חנון המרבה
      חנון המרבה נערך לאחרונה על ידי

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

      set i = CheckBox & x
      

      (אני ניסיתי בהמון דרכים וזה לא הלך לי, השאלה אם בכלל כזה אופציה)

      chagold תגובה 1 תגובה אחרונה תגובה ציטוט 0
      • chagold
        chagold @חנון המרבה נערך לאחרונה על ידי

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

        חנון המרבה תגובה 1 תגובה אחרונה תגובה ציטוט 0
        • חנון המרבה
          חנון המרבה @chagold נערך לאחרונה על ידי חנון המרבה

          @chagold אני צריך שהמאקרו תתייחס לאובייקטים:

          • CheckBox1
          • CheckBox2
          • CheckBox3
            וכן הלאה

          אשר נמצאים בuserform, לכן אני רוצה לכתוב לולאה שירוץ מאחד עד שלוש (או עד כמה שצריכים) וכך פקודה אחת יחול על כל (או חלק מ) ה-CheckBox שבטופס.
          אני ניסיתי כתוב בפוסט לעיל וזה לא הלך לי, מקווה שהובנתי.

          clickone תגובה 1 תגובה אחרונה תגובה ציטוט 0
          • clickone
            clickone @חנון המרבה נערך לאחרונה על ידי clickone

            @חנון-המרבה
            זה אפשרי לשנות בקוד ככה:

            set value=Me("ComboBox" & x).Text
            

            ודוגמא:

            Private Sub UserForm_Initialize()
            Dim i As Integer
            For i = 1 To 3
                Me("ComboBox" & i).Text = i
            Next
            
            End Sub
            

            דרך נוספת שבה אני משתמש לפעמים (בגלל מגבלת הVBA שלא לייצר פקדים בזמן ריצה. ב"ה בעולם הדוטנט לא מגיעים לשם....), זה לשים פרמטר מסויים במאפיין Tag ולרוץ על כלל הפקדים בטופס (זה תלוי לאן המקרה שלך הולך. בדוגמא שהבאת ייתכן שיותר נכון להשתמש במספר רציף)
            לדוגמא:

            
            For Each c In Me.Controls
                If c.Tag = "order" Then
                    
                End If
            Next
            

            אין טסט כמו פרודקשן.

            המייל שלי urivpn@gmail.com

            תגובה 1 תגובה אחרונה תגובה ציטוט 7
            • 1 / 1
            • פוסט ראשון
              פוסט אחרון
            בא תתחבר לדף היומי!