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

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

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

עזרה לקוד באקסל

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

    אני מחפש קוד מאקרו לאקסל שיהפוך את כל התאים לקישורים להטקסט או לפי מה שיזהה כקישור

    OdedDvirO תגובה 1 תגובה אחרונה
    0
    • הערשה הערש

      אני מחפש קוד מאקרו לאקסל שיהפוך את כל התאים לקישורים להטקסט או לפי מה שיזהה כקישור

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

      @הערש אמר בעזרה לקוד באקסל:

      שיהפוך את כל התאים לקישורים להטקסט או לפי מה שיזהה כקישור

      לא הבנתי מה רצונך. האם תוכל לתת דוגמא?

      תגובה 1 תגובה אחרונה
      0
      • הערשה מנותק
        הערשה מנותק
        הערש
        כתב ב נערך לאחרונה על ידי הערש
        #3

        @OdedDvir אמר בעזרה לקוד באקסל:

        לא הבנתי מה רצונך. האם תוכל לתת דוגמא?

        אני משתמש עם CONCATENATE ואני צריך שהתוצאה יהיה קישור ואני לא יכול להשתמש עם HYPERLINK כי זה חורג ממגבלת 256 תווים אני רוצה לכתוב קוד מאקרו שיהפוך את כל הטקסט בגיליון לקישורים או לפי מה שיזהה כקישור.

        אורייא תגובה 1 תגובה אחרונה
        0
        • הערשה הערש

          @OdedDvir אמר בעזרה לקוד באקסל:

          לא הבנתי מה רצונך. האם תוכל לתת דוגמא?

          אני משתמש עם CONCATENATE ואני צריך שהתוצאה יהיה קישור ואני לא יכול להשתמש עם HYPERLINK כי זה חורג ממגבלת 256 תווים אני רוצה לכתוב קוד מאקרו שיהפוך את כל הטקסט בגיליון לקישורים או לפי מה שיזהה כקישור.

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

          @הערש

          @OdedDvir אמר בעזרה לקוד באקסל:

          האם תוכל לתת דוגמא?

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

          הערשה תגובה 1 תגובה אחרונה
          0
          • אורייא אוריי

            @הערש

            @OdedDvir אמר בעזרה לקוד באקסל:

            האם תוכל לתת דוגמא?

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

            @אוריי

            האם תוכל לתת דוגמא?

            יש לי טקסט ארוך שצריך להיות קישור ואני לא יכול להשתמש עם HYPERLINK כי זה יותר מ-256 תווים האם יש פתרון להפוך את זה לקישור ע"י קוד או קומבינה אחרת.

            אורייא תגובה 1 תגובה אחרונה
            0
            • הערשה הערש

              @אוריי

              האם תוכל לתת דוגמא?

              יש לי טקסט ארוך שצריך להיות קישור ואני לא יכול להשתמש עם HYPERLINK כי זה יותר מ-256 תווים האם יש פתרון להפוך את זה לקישור ע"י קוד או קומבינה אחרת.

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

              @הערש
              לא נראה לי שיש אפשרות ע"י קוד
              הקוד יחזיר לך שגיאה

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

              תגובה 1 תגובה אחרונה
              0
              • הערשה מנותק
                הערשה מנותק
                הערש
                כתב ב נערך לאחרונה על ידי
                #7

                האם יש פתרון אחר

                תגובה 1 תגובה אחרונה
                0
                • הערשה מנותק
                  הערשה מנותק
                  הערש
                  כתב ב נערך לאחרונה על ידי
                  #8

                  מצאתי

                  Private Sub Worksheet_SelectionChange _
                    (ByVal Target As Range)
                  Dim selPF As PivotField
                  Dim strField As String
                  Dim strAdd As String
                  Dim myVal As String
                  strField = "Site"
                  
                  On Error Resume Next
                  Set selPF = Target.PivotField
                  If Not selPF Is Nothing And _
                      selPF.Name = strField Then
                    myVal = Target.Value
                    If InStr(1, myVal, "@") > 0 Then
                      strAdd = "mailto:"
                    End If
                    ThisWorkbook.FollowHyperlink _
                      Address:=strAdd & myVal, _
                      NewWindow:=True
                  End If
                  
                  End Sub
                  

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

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

                    מצאתי

                    Private Sub Worksheet_SelectionChange _
                      (ByVal Target As Range)
                    Dim selPF As PivotField
                    Dim strField As String
                    Dim strAdd As String
                    Dim myVal As String
                    strField = "Site"
                    
                    On Error Resume Next
                    Set selPF = Target.PivotField
                    If Not selPF Is Nothing And _
                        selPF.Name = strField Then
                      myVal = Target.Value
                      If InStr(1, myVal, "@") > 0 Then
                        strAdd = "mailto:"
                      End If
                      ThisWorkbook.FollowHyperlink _
                        Address:=strAdd & myVal, _
                        NewWindow:=True
                    End If
                    
                    End Sub
                    

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

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

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

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

                    תגובה 1 תגובה אחרונה
                    0
                    • הערשה מנותק
                      הערשה מנותק
                      הערש
                      כתב ב נערך לאחרונה על ידי
                      #10

                      עובד מצוין

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

                        עובד מצוין

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

                        @הערש
                        מעניין..
                        כאשר אני עשיתי אימות נתונים עם קוד vba כאשר באימות נתונים היה יותר מ 255 תווים האקסל לא רצה לשמור את זה..

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

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


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

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

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