תוֹכֶן
באמצעות שליטה ListView עם תיבות על טופס VBA יכול להפוך יישום דינמי יותר על ידי מתן אפשרויות למשתמש. ListView מציג פריטים באמצעות אחת מארבע תצוגות שונות ומסדר אותם בעמודות עם או בלי כותרות של Microsoft Excel. השתמש במאפיין "ListItems.Add" כדי להוסיף פריטים ו "מסומנת" כדי לקבוע אילו פריטים נבחרו על ידי המשתמש.
הוראות
מלא את השלט ListView ב- Excel באמצעות VBA (Hemera Technologies / Photos.com / Getty Images)-
פתח את Microsoft Excel, לחץ על הכרטיסייה "מפתח" ולאחר מכן על "Visual Basic" כדי לפתוח את חלון העריכה VBA.לחץ על "הוספה" בתפריט ולאחר מכן "UserForm" (טופס משתמש) כדי ליצור טופס חדש. לחץ על "כלים", "פקדים נוספים", ובחר את התיבה ליד "Microsoft ListView Control" (Microsoft ListView שליטה) כדי להוסיף שליטה "ListView" חדש לטופס.
-
לחץ לחיצה ימנית על "ListView" שליטה ולאחר מכן על "מאפיינים". גלול מטה את החלון ובחר "נכון" ליד האפשרות "תיבות סימון". לחץ על "CommandButton" בחלונית "ארגז הכלים" ולאחר מכן בטופס כדי להוסיף לחצן חדש. הוסף כפתור נוסף באמצעות אותם שלבים.
-
לחץ פעמיים על "CommandButton1" כדי ליצור אירוע חדש עבור כפתור זה. הוסף את הקוד הבא לפופולרי "ListBox" עם שלושה פריטים:
(1) = "בדוק פריט 2" Me.ListView1.ListItems.Add (3) = "בדוק פריט 3"
-
חזור לטופס ולחץ לחיצה כפולה על "CommandButton2" כדי ליצור אירוע קליקים חדש עבור כפתור זה. הוסף את הקוד הבא כדי לעבור את "ListBox" פריטים ולהציג את הפריטים שנבחרו בחלון "מיידי":
עבור מונה = 1 אל Me.ListView1.ListItems.Count אם Me.ListView1.ListItems.Item (מונה). בדוק לאחר מכן Debug.Print Me.ListView1.ListItems.Item (נגד) .Text End אם הבא
-
חזור לטופס ולחץ על "F5" כדי להפעיל את התוכנית. לאחר מכן לחץ "CommandButton1" כדי לאכלס את "ListView" שליטה ולאחר מכן "CommandButton2" כדי להציג את הפריטים שנבחרו.
מה שאתה צריך
- Microsoft Excel