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

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

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

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

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

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

    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
                      • דף הבית
                      • קטגוריות
                      • פוסטים אחרונים
                      • משתמשים
                      • חיפוש
                      • חוקי הפורום