Discussion:
מעבר בין גליונות על ידי לחצן מאקרו
(too old to reply)
4u
2005-08-03 01:30:01 UTC
Permalink
באיזה פקודת מאקרו עלי להשתמש לצורך מעבר בין גליונות של אקסל עלי ידי כפתור..
מיכאל (מיקי) אבידן
2005-08-03 07:41:02 UTC
Permalink
בדוק את הצעתי, בקובץ, בקישור שלהלן:
http://www.mabat3.co.il/phpBB/uploads/9UhiXgH8rf.xls
*** תיתכן השהייה מסויימת עד לטעינתו !
*** אם זה לא בדיוק מה שהתכוונת אלי - נסה לאמץ את קוד המקרו ושנה אותו כך
שיתאים לצרכיך.
והמשך/י, נא, לקרוא את השורה הבאה:
----------------
אם תגובתי עזרה לחץ/י, נא, על ''כן'' בפס שבתחתית חלון זה !
---------------
מיכאל אבידן
מנהל פורום ''אופיס'' ב''תפוז''
http://forums.tapuz.co.il/office
Post by 4u
באיזה פקודת מאקרו עלי להשתמש לצורך מעבר בין גליונות של אקסל עלי ידי כפתור..
4u
2005-08-03 18:21:02 UTC
Permalink
הקישור ששלחת לי לא עובד אם תוכל לשלוח לי קישור חדש אני אשמח....
תודה מראש 4u (אני יודע שזה לא קשור אבל אני בארהב)...
Post by מיכאל (מיקי) אבידן
http://www.mabat3.co.il/phpBB/uploads/9UhiXgH8rf.xls
*** תיתכן השהייה מסויימת עד לטעינתו !
*** אם זה לא בדיוק מה שהתכוונת אלי - נסה לאמץ את קוד המקרו ושנה אותו כך
שיתאים לצרכיך.
----------------
אם תגובתי עזרה לחץ/י, נא, על ''כן'' בפס שבתחתית חלון זה !
---------------
מיכאל אבידן
מנהל פורום ''אופיס'' ב''תפוז''
http://forums.tapuz.co.il/office
Post by 4u
באיזה פקודת מאקרו עלי להשתמש לצורך מעבר בין גליונות של אקסל עלי ידי כפתור..
מיכאל (מיקי) אבידן
2005-08-03 20:30:03 UTC
Permalink
מצטער, הקישור אכן 'שבור'.
לפני שאציג לך קישור חדש - בדוק או שמור "לעת צרה" גם את הקוד שלהלן - המאפשר
לך, בקבצים בעלים מאות(!) גיליונות להציג חלון InputBox, להקליד בו את שם
הגיליון והקלקה על אישור מעבירה אותך ישירות לגיליון:
()Sub Micky
On Error GoTo ER
Sheets(InputBox("Type Sheets Name and Click OK")).Select
End
ER: If MsgBox("No such Sheet. Try again ?", vbYesNo) = 6 Then Run "Micky"
End Sub
====================
הנה גם הקישור, ממנו תוכל להוריד את הקובץ ההוא
http://users.tapuz.co.il/office/Excel/Files/CHOOSE_SHEETS_VALIDATION_CELL_MACRO1.xls
וכעת לא נותר לך לעיין בשורה הבאה ולפעול על פי המתבקש בה.
----------------
אם תגובתי עזרה לחץ/י, נא, על ''כן'' בפס שבתחתית חלון זה !
---------------
מיכאל אבידן
מנהל פורום ''אופיס'' ב''תפוז''
http://forums.tapuz.co.il/office
Post by 4u
הקישור ששלחת לי לא עובד אם תוכל לשלוח לי קישור חדש אני אשמח....
תודה מראש 4u (אני יודע שזה לא קשור אבל אני בארהב)...
Post by 4u
באיזה פקודת מאקרו עלי להשתמש לצורך מעבר בין גליונות של אקסל עלי ידי כפתור..
4u
2005-08-04 03:58:01 UTC
Permalink
תודה על הקישור החדש אבל אני עדיין לא מצליח לחלץ אותו בגלל חתימה דיגיטלית או
איזה שהיא רמת אבטחה מה עלי לעשות?
Post by מיכאל (מיקי) אבידן
מצטער, הקישור אכן 'שבור'.
לפני שאציג לך קישור חדש - בדוק או שמור "לעת צרה" גם את הקוד שלהלן - המאפשר
לך, בקבצים בעלים מאות(!) גיליונות להציג חלון InputBox, להקליד בו את שם
()Sub Micky
On Error GoTo ER
Sheets(InputBox("Type Sheets Name and Click OK")).Select
End
ER: If MsgBox("No such Sheet. Try again ?", vbYesNo) = 6 Then Run "Micky"
End Sub
====================
http://users.tapuz.co.il/office/Excel/Files/CHOOSE_SHEETS_VALIDATION_CELL_MACRO1.xls
וכעת לא נותר לך לעיין בשורה הבאה ולפעול על פי המתבקש בה.
----------------
אם תגובתי עזרה לחץ/י, נא, על ''כן'' בפס שבתחתית חלון זה !
---------------
מיכאל אבידן
מנהל פורום ''אופיס'' ב''תפוז''
http://forums.tapuz.co.il/office
Post by 4u
הקישור ששלחת לי לא עובד אם תוכל לשלוח לי קישור חדש אני אשמח....
תודה מראש 4u (אני יודע שזה לא קשור אבל אני בארהב)...
Post by 4u
באיזה פקודת מאקרו עלי להשתמש לצורך מעבר בין גליונות של אקסל עלי ידי כפתור..
מיכאל (מיקי) אבידן
2005-08-04 08:09:05 UTC
Permalink
שלח לי מייל ואצרף לך, ב-REPLY, את הקובץ.
כתובת המייל שלי: micky-***@tapuz.co.il
בשורת הנושא הקלד בעברית(!): הודעה מאת 4U.
מיכאל אבידן
מנהל פורום ''אופיס'' ב''תפוז''
http://forums.tapuz.co.il/office
Post by 4u
תודה על הקישור החדש אבל אני עדיין לא מצליח לחלץ אותו בגלל חתימה דיגיטלית או
איזה שהיא רמת אבטחה מה עלי לעשות?
Post by מיכאל (מיקי) אבידן
מצטער, הקישור אכן 'שבור'.
לפני שאציג לך קישור חדש - בדוק או שמור "לעת צרה" גם את הקוד שלהלן - המאפשר
לך, בקבצים בעלים מאות(!) גיליונות להציג חלון InputBox, להקליד בו את שם
()Sub Micky
On Error GoTo ER
Sheets(InputBox("Type Sheets Name and Click OK")).Select
End
ER: If MsgBox("No such Sheet. Try again ?", vbYesNo) = 6 Then Run "Micky"
End Sub
====================
http://users.tapuz.co.il/office/Excel/Files/CHOOSE_SHEETS_VALIDATION_CELL_MACRO1.xls
וכעת לא נותר לך לעיין בשורה הבאה ולפעול על פי המתבקש בה.
----------------
אם תגובתי עזרה לחץ/י, נא, על ''כן'' בפס שבתחתית חלון זה !
---------------
מיכאל אבידן
מנהל פורום ''אופיס'' ב''תפוז''
http://forums.tapuz.co.il/office
Post by 4u
הקישור ששלחת לי לא עובד אם תוכל לשלוח לי קישור חדש אני אשמח....
תודה מראש 4u (אני יודע שזה לא קשור אבל אני בארהב)...
Post by 4u
באיזה פקודת מאקרו עלי להשתמש לצורך מעבר בין גליונות של אקסל עלי ידי כפתור..
Loading...