עזרה הדדית - VBA excel

@הרב-יעקב-ישראל כתב בשיתוף | הכתבה קולית בוורד זמינה בעברית!:

מראש כתבתי שזה לא בציניות, (אלא כדי לא להספים את הפורום).

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

@3157686 אני חושב שהקודים שם לא נכונים
אם יש למישהו קוד מוכן אני ישמח לקבל

@ישעיהו-כץ כתב בבקשת מידע | איך לעבור לתא מסוים ע"י הקלטת מאקרו?:

selecte

תיקון: select

@שמואל-ש כמדומני אפשרי באופציה "תיבת רשימה"

@פלורידה ב"משלים לוורד" אחד המאקרויים שם, יודע לקרוא את הריווח שאחר הפיסקה המסומנת, ואז יכול להגדיל אותו בנק' אחת, וכמובן המאקרו הזה חסום כמו כל המשלים לוורד. חיפשתי בVBA פקודה שמתאימה לעשות את זה ולא מצאתי, האם אתה יכול לעזור בזה?
תודה!

@חיים-חי אם חשוב לך לדעת, עדכנתי את הקוד ותיקנתי את הודעת השגיאה שצצה כל פעם שבאים לסגור בלי לשמור מסמך חדש...

יום טוב ול"ג שמח!!!

@dmp לא עוזר.
בא נגיד אני פותח מאקרו חדש ומכניס את הטקסט הבא זה טוב?

Sub מספרים_לאותיות()
'
' Macro4 Macro
'
'
start:
With Selection.Find
.ClearFormatting
.Execute findText:="[0-9]{1,}", MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue
If .Found = True Then
S = ""

MyArray = Array(400, 300, 200, 100, 90, 80, 70, 60, 50, 40, 30, 20, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
MyaArray = Array("ת", "ש", "ר", "ק", "צ", "פ", "ע", "ס", "נ", "מ", "ל", "כ", _
"י", "ט", "ח", "ז", "ו", "ה", "ד", "ג", "ב", "א")
V = Val(Selection)
Do While V > 0
If V = 15 Or V = 16 Then
S = S & "ט"
V = V - 9
End If
For i = 0 To UBound(MyArray)
If V >= MyArray(i) Then
S = S & MyaArray(i)
V = V - MyArray(i)
Exit For
End If
Next i
Loop

If S = "רצח" Then S = "רחצ"
If S = "רע" Then S = "ער"
If S = "רעב" Then S = "ערב"
If S = "שד" Then S = "דש"
If S = "שמד" Then S = "שדמ"
If S = "תשמד" Then S = "תדשם"
If S = "רעה" Then S = "ערה"
If S = "רעד" Then S = "עדר"

If Len(S) = 1 Then
S = S & "'"
Else
S = Left(S, (Len(S) - 1)) & Chr(34) & Right(S, 1)
End If

Selection = S

GoTo start
End If
End With

@מגדלים

"בראשית _ שמות"

וכו'
דהיינו רווח ואחריו_

@dmp אמר בעזרה | איך אני מכניס במאקרו שיעתיק הרבה מלל בווארד:

תקצר את הטקסט לכמה שורות ובסוף כל שורה תוסיף רווח ואחריו _

אם תוכל להסביר יותר מה זה ואיך עושים אותו וכו'

@מגדלים לכאורה בסוף פיסקה זה לא יזהה את המילה (כי הוא מחפש מילה כולל הרווח שאחריה),
ועל כן מומלץ להוסיף לפני זה קוד שמחליף סימון פיסקה לרווח וסימון פיסקה, ואח"כ את הלולאה הנ"ל, ובסוף קוד של החלפה הפוכה (סימון פיסקה ורווח לסימון פיסקה בלבד).

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

@מגדלים הצלחתי!!!

Dim MyRange As Range Set MyRange = ActiveDocument.Range(Selection.Start - 1, Selection.Start) If MyRange.Text = Chr(13) Or MyRange.Text = " " Then Set MyRange = ActiveDocument.Range(Selection.Start - 1, Selection.End) MyRange.Select End If

להוסיף ממש בהתחלה (בשורה 2)👍

@מלאכת-מחשבת אנסה על רגל אחת...
הפונקציה MsgBox מציגה למשתמש תיבת הודעה ומחזירה את הערך שהמשתמש בחר,
ניתן לשמור את הערך בתוך משתנה ולהשתמש בו על מנת להחליט על המשך פעילות המאקרו.
לפונקציה יש מספר ארגומנטים שיש להזין, הראשון הינו הכרחי והוא הטקסט שיופיע בתיבת ההודעה. השני הינו סגנון תיבת ההודעה כמו סוג הכפתורים, עיצוב אזהרה/שאלה/מידע, מימין לשמאל או להיפך וכדו', ניתן לראות את כל האפשרויות בקישור שהבאתי לעיל, (במקרה שלא נבחר סגנון יופיע ברירת המחדל עם כפתור אישור בלבד). השלישי הינו כותרת ההודעה (אופציונלי).
לאחר מכן יש להשתמש ב"משפטי התנאים" של visual basic כדי להחליט מה לעשות עם מה שהמשתמש בחר, (שזה כמובן נושא בפני עצמו), וכן לפעמים יש להשתמש ב goto כדי לדלג למקום אחר, וכמו בדוגמא שהבאתי לעיל.
ואידך זיל גמור...