רשימה נפתחת במשתנה

ארי4791 · 8/8/19

אני ורצה לעשות משתנה עם פרמטר וכשכותבים אותו יפתח רשימה של כמה אפשרויות מה לבחור (כמו בפונקציה למשל MsgBox שאפשר לבחור סוג הודעה).
יש איך לבנות דבר כזה?
תודה רבה מאוד

moishy · 8/8/19

מה זה משתנה עם פרמטר?

ארי4791 · 8/8/19

סליחה
פונקציה עם פרמטר

moishy · 8/8/19

התכונה שאתה מחפש נקרא Intellisense.
באקסס לא ניתן להוסיף אותו לפונקציות שלך בכלל ובאקסל אי אפשר בצורה מלאה, אבל אפשר באופן חלקי (Application.MacroOptions).

אפר · 8/8/19

כמדומני שניתן לבנות באופן פרטני ע"י טופס שיפתח בתור "דו שיח" (Dialog)
וקוד שירוץ בפתיחה

אפר · 8/8/19

מצו"ב
עובד בשאילתא רק ע"י פרמטר והכנסה במאקרו או בטופס לפרמטר בדומה לMsgBox או InputBox
בפרמטר הראשון בשאילתא מכניסים רשימת ערכים לשני עמודות לדוג'

קוד:

"1;אפשרות 1;2;אפשרות 2; וכו'

הפרמטרים השני והשלישי אינם חובה ומחליפים את הכותרות
הפונקציה מחזירה מספר LONG

כמובן שניתן לפתח ולשפר כיד הדמיון והזמן הטובה

אפר · 8/8/19

סליחה לא שמתי לב שלא עלה
שיפרתי עוד
פרמטרים:
1-מקור הרשימה
2-כיתוב החלון
3-כיתוב תוית הרשימה
4-ביטול/החזרת לחצן הסגירה -ב"מ מבוטל
5-מספר העמודות ברירת המחדל 2
6-האם העמודה הראשונה גלויה ב"מ לא
7-סוג תוצאה - "0" = מספר, "א" = טקסט - ב"מ מספר

שטארק · 9/8/19

לא כ"כ הבנתי מה אני אמור לראות בקובץ ששלחת, הטופס ריק...

ארי4791 · 9/8/19

אני לא בטוח שהובנתי כמו שצריך
אני רוצה לכתוב בVBA פונקציה לבדוק אם טבלה מסוימת קיימת, הקוד הוא:

קוד:

Function ObjectExists(ObjectName As String, ObjectType As Long) As Boolean

ואני רוצה שכשכותבים את הקוד אז בפרמטר ObjectType יהיה רשימה של אופציות (1 זה טבלה, 5 זה שאילתה וכדו').
כמו בתמונה המצורפת

יש איך לעשות זאת?
תודה.

moishy · 9/8/19

נכתב ע"י ארי4791:
אני לא בטוח שהובנתי כמו שצריך
אני רוצה לכתוב בVBA פונקציה לבדוק אם טבלה מסוימת קיימת, הקוד הוא:

קוד:

Function ObjectExists(ObjectName As String, ObjectType As Long) As Boolean

ואני רוצה שכשכותבים את הקוד אז בפרמטר ObjectType יהיה רשימה של אופציות (1 זה טבלה, 5 זה שאילתה וכדו').
כמו בתמונה המצורפת
צפה בקובץ המצורף 523975
יש איך לעשות זאת?
תודה.

הובנת, לפחות על ידי.
וע"ז באה תשובתי הנ"ל.

אפר · 9/8/19

נכתב ע"י שטארק:
לא כ"כ הבנתי מה אני אמור לראות בקובץ ששלחת, הטופס ריק...

תבדוק את המאקרו

ari rm · 13/8/19

בס"ד
@moishy
למה לא?
זה לא טוב?

קוד:

Public Enum nwe1
    vbAAAA = 1
    vbBBBB = 2
    VBGGGG = 3
End Enum

Dim select1 As nwe1

select1 =

תעתיק את זה ותעשה אחרי ה= ctrl+מקש

כמו"כ אפשר להגדיר את הסוג משתנה הזה למשתנה הנמצא בתוך פונקציה
לזה הכוונה?

moishy · 16/8/19

נכתב ע"י ari rm:
בס"ד
@moishy
למה לא?
זה לא טוב?

קוד:

Public Enum nwe1 vbAAAA = 1 vbBBBB = 2 VBGGGG = 3 End Enum Dim select1 As nwe1 select1 =

תעתיק את זה ותעשה אחרי ה= ctrl+מקש

כמו"כ אפשר להגדיר את הסוג משתנה הזה למשתנה הנמצא בתוך פונקציה
לזה הכוונה?

יפה מאוד, אבל גם אם זה יתאים לו, זה יעזור רק אם יש רק פרמטר אחד לפונקציה.
בשורה התחתונה לא ניתן להכניס Intellisense לפונקציות בלי להשתלט על הVBE (יש מספר כלים שהצליחו לעשות את זה (להשתלט לא להכניס Intellisense), אשמח מאוד מאוד לדעת כיצד).

ari rm · 17/8/19

א.

נכתב ע"י moishy:
זה יעזור רק אם יש רק פרמטר אחד לפונקציה.

האם לזה הכוונה או לא?

קוד:

Public Enum nwe1
    vbAAAA = 1
    vbBBBB = 2
    VBGGGG = 3
End Enum
Public Enum nwe2
    vbHHHH = 1
    vbYYYY = 2
    VBOOOO = 3
End Enum
Public Enum nwe3
    vbWWWW = 1
    vbQQQQ = 2
    VBZZZZ = 3
End Enum

Public Function A(select1 As nwe1, select2 As nwe2, select3 As nwe3) As String

End Function

    Dim B As String
B = A(vbBBBB, vbYYYY, vbQQQQ)

ב.