עזרה בוורד עזרה בהכנסת שאילה במאקרו

ה

הללוהו ב ו

משתמש מקצוען
נכתב ע"י אפר:
פעולה 1 A=nz(MsgBox("שאלה?", vbQuestion + vbYesNoCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "כותרת"),0) if A=vbyes then פעולה 2
לחצ/י כדי להרחיב...
הוא כותב לי שגיאה במילים אלו : (במקום שכתוב פקודה 1 ו2 האם למחוק לגמרי מילים אלו?)
1626430434762.png
 
אפר

אפר

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

הללוהו ב ו

משתמש מקצוען
נכתב ע"י אפר:
מה שכתוב שם
לחצ/י כדי להרחיב...
אכניס דוגמא של מה שעשיתי ותודיע לי מה לא טוב: זה רק דוגמא של ב' מיני מאקרוים..
קוד: 
Sub Macro1()
'
' Macro1 Macro
'

Dim A As Long
Again:
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 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

A = nz(MsgBox("שאלה?", vbQuestion + vbYesNoCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "כותרת"), 0)
If A = vbYes Then
  
arrFind = Array("בראשית", "שמות", "ויקרא", "במדבר", "דברים")

For f = 0 To UBound(arrFind)
    Selection.Find.Text = "{" & arrFind(f) & "}"
    Selection.Find.Replacement.Text = "(" & arrFind(f) & ")"
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceAll
Next

    If MsgBox("לחזור שוב?", vbQuestion + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "כותרת") = vbYes Then GoTo Again
ElseIf A = vbNo Then
    MsgBox "לא נמצאה פעולה מתאימה", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "שגיאה"
ElseIf A = vbCancel Then
    Exit Sub
Else

   End If
End Sub
 
אפר

אפר

סתם מתעניין...
מנוי פרימיום
נכתב ע"י הללוהו ב ו:
אכניס דוגמא של מה שעשיתי ותודיע לי מה לא טוב: זה רק דוגמא של ב' מיני מאקרוים..
קוד: 
Sub Macro1()
'
' Macro1 Macro
'

Dim A As Long
Again:
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 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

A = nz(MsgBox("שאלה?", vbQuestion + vbYesNoCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "כותרת"), 0)
If A = vbYes Then
 
arrFind = Array("בראשית", "שמות", "ויקרא", "במדבר", "דברים")

For f = 0 To UBound(arrFind)
    Selection.Find.Text = "{" & arrFind(f) & "}"
    Selection.Find.Replacement.Text = "(" & arrFind(f) & ")"
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceAll
Next

    If MsgBox("לחזור שוב?", vbQuestion + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "כותרת") = vbYes Then GoTo Again
ElseIf A = vbNo Then
    MsgBox "לא נמצאה פעולה מתאימה", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "שגיאה"
ElseIf A = vbCancel Then
    Exit Sub
Else

   End If
End Sub
לחצ/י כדי להרחיב...
הכנסת ללופ אינסופי עם ה GOTO START
 
אפר

אפר

סתם מתעניין...
מנוי פרימיום
נכתב ע"י הללוהו ב ו:
אני לא מבין?
אתה יכול להראות לי באיזה שורות להחליף במה?
תודה רבה!
לחצ/י כדי להרחיב...
הSTART חוזר כל הזמן עד מתי?
ותעלה לי צילום מסך כשהוא נתקע מה כתוב ועל איזה שורה הוא נתקע
 
אפר

אפר

סתם מתעניין...
מנוי פרימיום
נכתב ע"י הללוהו ב ו:
הראיתי שם תמונות מסך: אותו שורה גם קופצת כשהורדתי את המספר 2.

צפה בקובץ המצורף 933654
לחצ/י כדי להרחיב...
נכתב ע"י הללוהו ב ו:
הנה:
צפה בקובץ המצורף 933657
לחצ/י כדי להרחיב...
תחליף את
קוד: 
A = nz(MsgBox("שאלה?", vbQuestion + vbYesNoCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "כותרת"), 0)
ב
קוד: 
A = MsgBox("שאלה?", vbQuestion + vbYesNoCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "כותרת")

וזה
קוד: 
Dim A as long
בזה
קוד: 
Dim A
 
ה

הללוהו ב ו

משתמש מקצוען
תודה רבה על כל העזרה מא ועד ת אשמח לשמוע בהמשך עוד וכן אם תוכל לתקן ולבדוק בשאר הדברים תודה רבה
אני אבדוק את מה ששלחת לי שבוע הבא בעזהשי"ת תודה ושבת שלום!!
 
ה

הללוהו ב ו

משתמש מקצוען
נכתב ע"י אפר:
תחליף את
לחצ/י כדי להרחיב...
שמתי לב עכשיו שבהנ"ל ששלחתי לי עם ההגהות שתיקנת כפי שרשום פה למשל ברעיון הנ"ל של החלפה ממספור לאותיות גם אם התשובה שלי תהיה "לא" הוא יבצע את הפעולה ! אם תוכל לבדוק למה ומה אני אמור לתקן... ?
 
אפר

אפר

סתם מתעניין...
מנוי פרימיום
נכתב ע"י הללוהו ב ו:
שמתי לב עכשיו שבהנ"ל ששלחתי לי עם ההגהות שתיקנת כפי שרשום פה למשל ברעיון הנ"ל של החלפה ממספור לאותיות גם אם התשובה שלי תהיה "לא" הוא יבצע את הפעולה ! אם תוכל לבדוק למה ומה אני אמור לתקן... ?
לחצ/י כדי להרחיב...
לא מצליח להבין את כוונתך
צרף את הקטע הרלוונטי
 
ה

הללוהו ב ו

משתמש מקצוען
נכתב ע"י אפר:
צרף את הקטע הרלוונטי
לחצ/י כדי להרחיב...
הנה , הכנסתי שתי פקודות וגם כשאני לוחץ על "לא" כל זמן שאני לא לוחץ על ביטול הוא עושה את הפעולה:
קוד: 
Sub אראה()
'
' Macro1 Macro
'

Dim A
Again:
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 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

A = MsgBox("שאלה?", vbQuestion + vbYesNoCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "כותרת")

If A = vbYes Then
 
 Dim TextFind As String
    TextFind = "" & InputBox("הוספת ~", "הזן את המילה להחלפה")
    If TextFind = "" Then Exit Sub
    Application.DisplayAlerts = wdAlertsNone
    With Selection.Find
        .Text = TextFind
        .Replacement.Text = "~ " & TextFind
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Application.DisplayAlerts = wdAlertsAll

    If MsgBox("לחזור שוב?", vbQuestion + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "כותרת") = vbYes Then GoTo Again
ElseIf A = vbNo Then
    MsgBox "לא נמצאה פעולה מתאימה", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "שגיאה"
ElseIf A = vbCancel Then
    Exit Sub
Else

   End If
End Sub
בשאילה הראשונה.
 
אפר

אפר

סתם מתעניין...
מנוי פרימיום
נכתב ע"י הללוהו ב ו:
הנה , הכנסתי שתי פקודות וגם כשאני לוחץ על "לא" כל זמן שאני לא לוחץ על ביטול הוא עושה את הפעולה:
קוד: 
Sub אראה()
'
' Macro1 Macro
'

Dim A
Again:
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 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

A = MsgBox("שאלה?", vbQuestion + vbYesNoCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "כותרת")

If A = vbYes Then

Dim TextFind As String
    TextFind = "" & InputBox("הוספת ~", "הזן את המילה להחלפה")
    If TextFind = "" Then Exit Sub
    Application.DisplayAlerts = wdAlertsNone
    With Selection.Find
        .Text = TextFind
        .Replacement.Text = "~ " & TextFind
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Application.DisplayAlerts = wdAlertsAll

    If MsgBox("לחזור שוב?", vbQuestion + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "כותרת") = vbYes Then GoTo Again
ElseIf A = vbNo Then
    MsgBox "לא נמצאה פעולה מתאימה", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "שגיאה"
ElseIf A = vbCancel Then
    Exit Sub
Else

   End If
End Sub
בשאילה הראשונה.
לחצ/י כדי להרחיב...
אצלי עובד מעולה
לחצתי לא והוא עובר ללא נמצאה פעולה מתאימה
 
עליך להתחבר או להירשם כדי להשיב כאן.

אולי מעניין אותך גם...

לוח לימודים

מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:

2.04

כ"ג אדר ב'


השקה חגיגית

חדש בפרוג
קורס חדשנות AI ובינה מלאכותית

14 שיעורים מפוצצים תוכן על כלי הAI השונים ליצירת תמונות וויז'ואל, עריכת וידאו ומושן, כתיבה ורעיונות, אפיון ועיצוב אתרים ועוד המון!

ההרשמה נפתחה!

20.03

י' אדר ב'


פתיחת מסלול

עיצוב ואדריכלות פנים

מלגות גבוהות!

26.03

טז' אדר ב'


פתיחת מסלול

מאסטר בשיווק דיגיטלי

מלגות גבוהות!

8.05

ל' ניסן


פתיחת מסלול

אוטומציות עסקיות, בוטים והטמעת מערכות מידע

מלגות גבוהות!

9.05

א' אייר


ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!

אוטומציות עסקיות, בוטים והטמעת מערכות מידע

ההרשמה בעיצומה

28.05

כ' אייר


פתיחת מסלול מורחב:

פיתוח ובניית אתרים

מלגות גבוהות!
לכל מסלולי הלימוד
צ'אט עם יועצת לימודים

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק קכא

א שִׁיר לַמַּעֲלוֹת אֶשָּׂא עֵינַי אֶל הֶהָרִים מֵאַיִן יָבֹא עֶזְרִי:ב עֶזְרִי מֵעִם יְהוָה עֹשֵׂה שָׁמַיִם וָאָרֶץ:ג אַל יִתֵּן לַמּוֹט רַגְלֶךָ אַל יָנוּם שֹׁמְרֶךָ:ד הִנֵּה לֹא יָנוּם וְלֹא יִישָׁן שׁוֹמֵר יִשְׂרָאֵל:ה יְהוָה שֹׁמְרֶךָ יְהוָה צִלְּךָ עַל יַד יְמִינֶךָ:ו יוֹמָם הַשֶּׁמֶשׁ לֹא יַכֶּכָּה וְיָרֵחַ בַּלָּיְלָה:ז יְהוָה יִשְׁמָרְךָ מִכָּל רָע יִשְׁמֹר אֶת נַפְשֶׁךָ:ח יְהוָה יִשְׁמָר צֵאתְךָ וּבוֹאֶךָ מֵעַתָּה וְעַד עוֹלָם:
סמן אחרי הקריאה
לקריאה בפורום
נקרא  16  פעמים
מה זה מנוי פרימיום?
פרסום קמפיין באתר

לוח מודעות

תגיות נפוצות

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