VBA

[אלוורדו]

VBA

אם אני רוצה לדלג על חלקו הראשון של קוד, ולהריץ רק את סופו...
אני לוחץ F8 ואז גורר את החץ הצהוב כל הדרך למטה... זה ממש עינוי.
היש דרך אלגנטית ?
7/2010

 

[iyyi]

תוסיף באופן זמני הערות לשורות עליהן אתה מדלג, ותסיר לאחר מכן

 

[אלוורדו]

תודה, זה פתרון לקוד קצר.

עלה בדעתי להשתמש ב GoTo , זמנית , וזה עובד יפה.
וברשותך, אני מנסה לכתוב פורמולה פשוטה! ב VBA וזה מסתבך לי. גם לא יכול להקליט כי הארגומנטים משתנים (ובכלל הוא תמיד נותן בסטייל R1C1...).
אני רוצה לכתוב בתא מסוים (נניח ב- B790) את הנוסחה A500=
כאשר בתא A500 מאוחסן הערך 10.
ו- 500 הוא משתנה, והוא שמור בזכרון בשם Lr .
(זו כמובן, דוגמה, רק להבין את העקרון/הטעות)

כשאני רושם
"Range("B790").Formula = "=A & Lr
אני לא מקבל 10 אלא מחרוזת.
אני מעונין בנוסחה שתתן את התוצאה 10, וכאשר אני אעמוד על התא - יוצג בשורת הנוסחאות : A500=

 

[מיכאל אבידן]

ואולי הקוד סתם ארוך מידי . . .

את ה'תג' (גרש ההערה) לא מוסיפים שורה שורה.

מסמנים את כל הקטע הרלוונטי ומקליקים על הצלמית המוסיפה את ה'גרש' לכל השורות שסומנו.

הקוד, שחיפשת - ושהוצג כאן מאות, אם לא אלפי, פעמים בעבר, - הוא:

LR = Cells(Rows.Count, 1).End(xlUp).Row
[B790].Formula = "=A" & LR

 

[אלוורדו]

תודה רבה

כמה

פשוט... הצלת אותי.
והגרש - באמת לא הבנתי איך iyyi מציע פתרון כזה...להקליד גרש שורה אחר שורה...
תודה.

 

[מיכאל אבידן]

לא ראיתי שהוצע לך (ציטוט) "להקליד גרש שורה אחר שורה...".

 

[אלוורדו]

נכון, מחילה כך זה הובן על ידי, לא הכרתי אופציה אחרת..

 

[makiko]

ככה אני מריץ קוד מהאמצע:

לחץ F8 פעם אחת: השורה הראשונה של הקוד תבוצע.

קליק ימני על שורת הקוד הרצויה ובחר Set next Statement, ואז השורה שבחרת תודגש בצהוב, להמשך הריצה.

אגב, מיכאל, איפה נמצאת הצלמית של ה'גרש'? לא מצאתי אצלי (אופיס 365)

 

[מיכאל אבידן]

האם הסגרל Edit מוצג אצלך בעורך המקרואים

. . .

 

[makiko]

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

אגב, רק עכשיו קיבלתי מייל שקיבלתי תגובה מלפני חודש...

 

[lj101]

תוסיף

goto there

קטע קוד שצריך לדלג עליו

there: