רוטר - עזרה באקסל VB

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"עזרה באקסל VB"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #10729	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 10729

EPTiso
חבר מתאריך 24.3.02
2793 הודעות, דרג אמינות חבר זה

08:36 06.06.12

עזרה באקסל VB

שלום אבקש את עזרתכם
אני צריך ליצור 3 כפתורי סינון שלכל אחד ערך שונה
השימוש ב AUTOFILTER לא מספק.
כל כפתור (command button) יסנן ערך שונה
1) הערך New
2) הערך Repair
3) שיציג חזרה הכל
מצ"ב קובץ מצורף
תודה רבה לעוזרים

לשנות סיומת ל XLS
https://rotter.name/User_files/nor/4fceec5058f30773.txt

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
למה AutoFilter לא עובד? דוגמא:	Ice Cold	06.06.12 11:22	1
תודה אבל..	EPTiso	06.06.12 14:30	2
כעת איך יוצרים..	EPTiso	18.06.12 18:31	3
לא כ''כ הבנתי מה אתה מנסה לעשות	MrSus	18.06.12 18:54	4
העלתי דוגמא	EPTiso	18.06.12 20:49	5
אז ככה	MrSus	19.06.12 15:32	6
וואו תודה! רק כמה שאלות	EPTiso	19.06.12 18:22	7
בעיקרון	MrSus	19.06.12 20:48	8
תודה ענקית עזרת לי מאוד!!! שאפו אחי	EPTiso	23.06.12 09:45	9

Ice Cold

חבר מתאריך 3.8.02
28041 הודעות, 19 פידבק, 36 נקודות

11:22 06.06.12

1. למה AutoFilter לא עובד? דוגמא:
בתגובה להודעה מספר 0

Sub FilterNew()
With Sheet1
.Range("B2:D20").AutoFilter
.Range("B2:D20").AutoFilter Field:=1, Criteria1:="New"
End With
End Sub
Sub FilterRepair()
With Sheet1
.Range("B2:D20").AutoFilter
.Range("B2:D20").AutoFilter Field:=1, Criteria1:="Repair"
End With
End Sub
Sub ClearFilter()
With Sheet1
.Range("B2:D20").Select
Selection.AutoFilter
End With
End Sub

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

EPTiso
חבר מתאריך 24.3.02
2793 הודעות, דרג אמינות חבר זה

14:30 06.06.12

2. תודה אבל..
בתגובה להודעה מספר 1

קישרתי לכל לחצן את המודול שלו
הבעיה היא בלחצן Repair
הוא בכל זאת מראה לי שורה אחת מתוך ה New (את הראשונה)

יש פתרון לזה?
והאם יש אופציה שכשאני מבצע את הסינון
הוא לא יראה את הAutoFilter אלא רק את הנתונים עצמם

תודה על העזרה

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

EPTiso
חבר מתאריך 24.3.02
2793 הודעות, דרג אמינות חבר זה

18:31 18.06.12

3. כעת איך יוצרים..
בתגובה להודעה מספר 2

פילטר נוסף לתוך כל פילטר שבנינו?
ברצוני שהוא ייוצג על ידי CHECKBOX

תודה מראש

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

MrSus
חבר מתאריך 8.5.09
1801 הודעות, דרג אמינות חבר זה

18:54 18.06.12

4. לא כ''כ הבנתי מה אתה מנסה לעשות
בתגובה להודעה מספר 3

פילטר לתוך פילטר?
נניח שסיננת לפי אחד הפרמטרים, למשל New, מה היית רוצה שיהיה עכשיו?

ובכל מקרה, הסיבה שאתה רואה את השורה הראשונה כל הזמן כשאתה מסנן, זה בגלל שאין לך כותרת, אז האקסל לוקח את השורה הראשונה שאינה ריקה בתור הכותרת ולכן היא תמיד נשארת.

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

EPTiso
חבר מתאריך 24.3.02
2793 הודעות, דרג אמינות חבר זה

20:49 18.06.12

5. העלתי דוגמא
בתגובה להודעה מספר 4

אתה רואה את 3 ה CHECKBOX למטה
אני רוצה שלאחר שאני בוחר NEW לדוגמא לפי איך ש ICE COLD בנה
אני יוכל להמשיך לסנן עם ה CHECKBOX
ואם יש אופציה בבחירה מרובה כלומר לדוגמא:
NEW ואז כל מה שטופל ומה שמעוכב

תודה אחי
לשנות סיומת ל .xls
https://rotter.name/User_files/nor/4fdf69e7405cafef.txt

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

MrSus
חבר מתאריך 8.5.09
1801 הודעות, דרג אמינות חבר זה

15:32 19.06.12

6. אז ככה
בתגובה להודעה מספר 5

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

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

EPTiso
חבר מתאריך 24.3.02
2793 הודעות, דרג אמינות חבר זה

18:22 19.06.12

7. וואו תודה! רק כמה שאלות
בתגובה להודעה מספר 6

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

תודה תודה תודה!
באמת תודה

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

MrSus
חבר מתאריך 8.5.09
1801 הודעות, דרג אמינות חבר זה

20:48 19.06.12

8. בעיקרון
בתגובה להודעה מספר 7

בעייתי להוסיף עמודות, כי הגדרנו את הסינון האוטומטי של "סטטוס טיפול" להיות על עמודה מספר 4, ככה שאם אתה הולך להוסיף עמודות והיא כבר לא תיהיה העמודה הרביעית, זה ידפוק את העניין של הסינון הזה.. (אם היא תשאר העמודה הרביעית, זה כנראה יעבוד, אתה מוזמן לנסות).
שורות אתה כמובן יכול להוסיף כרצונך.
דבר נוסף, אין בעיה להזיז את הכפתורים, אתה צריך להוסיף את הסרגל כלים של "ארגז כלים של פקדים", וללחוץ על הלחצן של הסרגל עם העיפרון.. אתה צריך להכנס למצב עריכה כדי שתוכל להזיז את הכפתורים ולא ללחוץ עליהם..
הטבלה מוגדרת באמצעות שם דינמי. אם אתה עובד עם אקסל 2003 כמו שחשבתי, אז זה נמצא בתפריט הוספה-> שם -> הגדרה
אבל קח בחשבון שזה שם דימני, כלומר זה שם שמוגדר באמצעות נוסחא, ואם אתה לא מכיר אתה עשוי להסתבך..

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

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

EPTiso
חבר מתאריך 24.3.02
2793 הודעות, דרג אמינות חבר זה

09:45 23.06.12

9. תודה ענקית עזרת לי מאוד!!! שאפו אחי
בתגובה להודעה מספר 8

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד