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

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. עזרה | בהחלפה מהירה בוורד

עזרה | בהחלפה מהירה בוורד

מתוזמן נעוץ נעול הועבר תוכנה
5 פוסטים 2 כותבים 181 צפיות 2 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • הללוהוה מנותק
    הללוהוה מנותק
    הללוהו
    כתב ב נערך לאחרונה על ידי
    #1

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

    אורייא תגובה 1 תגובה אחרונה
    1
    • הללוהוה הללוהו

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

      אורייא מנותק
      אורייא מנותק
      אוריי
      כתב ב נערך לאחרונה על ידי אוריי
      #2

      @הללוהו
      תשתמש עם זה

      Sub MultipleReplacement()
          'GET DATA FROM EXCEL
          Dim xlApp As Object
          Dim xlBook As Object
          
          Const strWorkBookName As String = "C:\Users\User\Documents\uri.xlsx"
              On Error Resume Next
                  Set xlApp = GetObject(, "Excel.Application")
                      If Err Then
                          Set xlApp = CreateObject("Excel.Application")
                      End If
              On Error GoTo 0
              
              Set xlBook = xlApp.Workbooks.Open(FileName:=strWorkBookName)
          
              xlApp.Visible = False
       
          Dim w
          w = 1
          Do While xlApp.ActiveSheet.range("a" & w) <> ""
          
              strArray = xlApp.ActiveSheet.range("A" & w).Value
              Selection.Find.ClearFormatting
              Selection.Find.Replacement.ClearFormatting
              With Selection.Find
                  .text = xlApp.ActiveSheet.range("A" & w).Value
                  .Replacement.text = xlApp.ActiveSheet.range("B" & w).Value
                  .Forward = True
                  .Wrap = wdFindContinue
                  .MatchWildcards = True
              End With
              Selection.Find.Execute Replace:=wdReplaceAll
      
          w = w + 1
          Loop
          Set xlBook = Nothing
          xlApp.Quit
          Set xlApp = Nothing
         
      End Sub
      

      וכמובן לא לשכוח להחליף את הנתיב בשורה 6
      בהצלחה

      ניתן לפנות אלי גם ב al0548446188@gmail.com
      ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

      הללוהוה תגובה 1 תגובה אחרונה
      3
      • אורייא אוריי

        @הללוהו
        תשתמש עם זה

        Sub MultipleReplacement()
            'GET DATA FROM EXCEL
            Dim xlApp As Object
            Dim xlBook As Object
            
            Const strWorkBookName As String = "C:\Users\User\Documents\uri.xlsx"
                On Error Resume Next
                    Set xlApp = GetObject(, "Excel.Application")
                        If Err Then
                            Set xlApp = CreateObject("Excel.Application")
                        End If
                On Error GoTo 0
                
                Set xlBook = xlApp.Workbooks.Open(FileName:=strWorkBookName)
            
                xlApp.Visible = False
         
            Dim w
            w = 1
            Do While xlApp.ActiveSheet.range("a" & w) <> ""
            
                strArray = xlApp.ActiveSheet.range("A" & w).Value
                Selection.Find.ClearFormatting
                Selection.Find.Replacement.ClearFormatting
                With Selection.Find
                    .text = xlApp.ActiveSheet.range("A" & w).Value
                    .Replacement.text = xlApp.ActiveSheet.range("B" & w).Value
                    .Forward = True
                    .Wrap = wdFindContinue
                    .MatchWildcards = True
                End With
                Selection.Find.Execute Replace:=wdReplaceAll
        
            w = w + 1
            Loop
            Set xlBook = Nothing
            xlApp.Quit
            Set xlApp = Nothing
           
        End Sub
        

        וכמובן לא לשכוח להחליף את הנתיב בשורה 6
        בהצלחה

        הללוהוה מנותק
        הללוהוה מנותק
        הללוהו
        כתב ב נערך לאחרונה על ידי
        #3

        @אוריי

        אין עליך!!!!!!!
        עובד פצצה!

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

        אורייא תגובה 1 תגובה אחרונה
        1
        • הללוהוה הללוהו

          @אוריי

          אין עליך!!!!!!!
          עובד פצצה!

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

          אורייא מנותק
          אורייא מנותק
          אוריי
          כתב ב נערך לאחרונה על ידי
          #4

          האם זה מוגדר כ"השתמש בתויים כללי" שאוכל להכניס שם גם מהדברים הנ"ל של סוגריים וכדו'?

          כן.

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

          זה נראה לי קצת מסובך.
          וחוצמזה מה תרויח?? הכי פשוט לכתוב באקסל

          ניתן לפנות אלי גם ב al0548446188@gmail.com
          ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

          הללוהוה תגובה 1 תגובה אחרונה
          1
          • אורייא אוריי

            האם זה מוגדר כ"השתמש בתויים כללי" שאוכל להכניס שם גם מהדברים הנ"ל של סוגריים וכדו'?

            כן.

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

            זה נראה לי קצת מסובך.
            וחוצמזה מה תרויח?? הכי פשוט לכתוב באקסל

            הללוהוה מנותק
            הללוהוה מנותק
            הללוהו
            כתב ב נערך לאחרונה על ידי
            #5

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

            תגובה 1 תגובה אחרונה
            0
            תגובה
            • תגובה כנושא
            התחברו כדי לפרסם תגובה
            • מהישן לחדש
            • מהחדש לישן
            • הכי הרבה הצבעות


            בא תתחבר לדף היומי!
            • התחברות

            • אין לך חשבון עדיין? הרשמה

            • התחברו או הירשמו כדי לחפש.
            • פוסט ראשון
              פוסט אחרון
            0
            • דף הבית
            • קטגוריות
            • פוסטים אחרונים
            • משתמשים
            • חיפוש
            • חוקי הפורום