למומחים באקסל

[moishy]

על בסיס הצעת ידידנו a26955 עם מעט שיפורים (בין השאר אנטר מספיק):

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim strValue As String
    strValue = Target.Value
    
    If Not IsNumeric(strValue) Then Exit Sub
    
    If strValue >= 1 And strValue <= 34 Then
        If MsgBox("האם להחליף את המספר בטקסט?", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbYes Then
            Target = Application.VLookup(Target.Value, Sheets("משפטים").Range("A1:B34"), 2, False)
        End If
    End If
End Sub

 

[ח. שושני]

על בסיס הצעת ידידנו a26955 עם מעט שיפורים (בין השאר אנטר מספיק):

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim strValue As String
    strValue = Target.Value
    
    If Not IsNumeric(strValue) Then Exit Sub
    
    If strValue >= 1 And strValue <= 34 Then
        If MsgBox("האם להחליף את המספר בטקסט?", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbYes Then
            Target = Application.VLookup(Target.Value, Sheets("משפטים").Range("A1:B34"), 2, False)
        End If
    End If
End Sub

איפה שמים את הקוד הזה? ומתי? אחרי הקלדת כל מספר או שאפשר בסוף ההקלדה לבחור את הכל?

אפשר הסבר קצרצר?...
תודה!!

 

[FullTime]

1. להעתיק את הקוד מכאן.
2. ללחוץ באקסל אלט + F11
להיכנס לגליון 2 נתונים בחלון שבצד שמאל
3. בשורה שכתוב עכשיו call macro1
להדביק את ההעתקה..

עכשיו לא תצטרכו להקיש קונטרול ביציאה מתא, זה יעבוד עם אנטר רגיל כמו שמוישי כתב.

    Dim strValue As String
    strValue = Target.Value
    
    If Not IsNumeric(strValue) Then Exit Sub
    
    If strValue >= 1 And strValue <= 200 Then
        If MsgBox("האם להחליף את המספר בטקסט?", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbYes Then
            Target = Application.VLookup(Target.Value, Sheets("משפטים").Range("A1:B200"), 2, False)
        End If
    End If

 

[ח. שושני]

במקום הסברים.

ללחוץ אלט + F11
איפה שמסומן בתמונה הרצו"ב בצהוב להחליף ל 200

כן, רק איפה לשים את הקוד ומתי?
תודה רבה מאד!!

 

[FullTime]

כן, רק איפה לשים את הקוד ומתי?
תודה רבה מאד!!

ערכתי

 

[moishy]

1. ללחוץ אלט (השמאלי)+F11, להדביק את הקוד בחלון שנפתח.
2. לשנות את טווח המשפטים יש לשנות במקום:

Sheets("משפטים").Range("A1:B34")

את שם הגיליון והטווח הרצוייים.
כמו"כ יש לשנות את מספרי השורות בשורה זו:

If strValue >= 1 And strValue <= 34 Then

לשקף את השורות המכילות את המשפטים בפועל.
3. הקוד הנ"ל עובד בעת ההקלדה בלבד (בעצם ביציאה מהתא).
4. ניתן למנוע את השאלה (המטרידה): האם להחליף את המספר בטקסט?
ע"י הסרת השורה המתחילה עם If MsgBox והסרת השורה המתחילה עם End If (הראשונה בלבד)
5. להפעלת הקוד על טווח מסויים לאחר שכבר הוקלדו המספרים, ניתן להשתמש עם הקוד הבא:

Public Sub Demo()

    Dim rng As Range, cell As Range
    Dim strValue As String

    Set rng = Selection.Range

    For Each cell In rng.Cells
        strValue = cell.Value
        
        If Not IsNumeric(strValue) Then Exit Sub
        
        If strValue >= 1 And strValue <= 34 Then
            If MsgBox("האם להחליף את המספר בטקסט?", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbYes Then
                cell.Value = Application.VLookup(Target.Value, Sheets("משפטים").Range("A1:B34"), 2, False)
            End If
        End If
    Next

End Sub

 

[ח. שושני]

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

 

[moishy]

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

במקום לנחש מהם הצרכים שלך, בא נשמע בדיוק מה צריך ונכין קוד מדויק לצרכיך.

 

[ח. שושני]

במקום לנחש מהם הצרכים שלך, בא נשמע בדיוק מה צריך ונכין קוד מדויק לצרכיך.

תודה וסליחה...
שלחתי באישי.

 

[ח. שושני]

תודה לכולם על המאמצים!

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

 

[ח. שושני]

הקפצה כי ערכתי.