דילוג לתוכן

אקסל

367 נושאים 3.1k פוסטים

קטגוריות משנה


  • 9 נושאים
    63 פוסטים
    צ
    @א-א-א אחרי השינוי לזיפ, לא נותן לפתוח. [image: 1686773759603-e3d9a09d-bcbe-4e73-86cc-43e9c8815921-image.png]
  • 316 נושאים
    3k פוסטים
    ע"ה דכו"עע
    @תלת-פאזי כתב בבקשת מידע | פיצול תאים: @ע-ה-דכו-ע כתב בבקשת מידע | פיצול תאים: האם יש דרך אחרי שאני מחלק כל אחד לתא בפני עצמו, לאחד אותם בחזרה לקבוצות במספר קבוע? אפשר ככה (לגרור את זה על כמה תאים שצריך). =TEXTJOIN(",",TRUE,INDEX($A$1:$Z$1, (COLUMN(A1)-1)*5+1) : INDEX($A$1:$Z$1, (COLUMN(A1)-1)*5+5)) זה עובד יופי, אך רק על 4 תאים הראשונים אח"כ מופיע לי שגיאה: [image: 1754927079517-53f0003e-8b80-4e3f-9944-930ff37ae493-image.png] תעתיק לפה את השגיאה, כי התמונה עדיין חסומה לי בנטפרי. אגב, מה השגיאה שמופיעה לך בנוסחה הראשונה שהבאתי? לדעתי סתם לא הדבקת את זה בדיוק במקום הנכון בהתאם לחוברת שלך, או משהו כזה.
  • הדרכה ועזרה לשפה המתה VBA

    42 451
    42 נושאים
    451 פוסטים
    א
    @יעקב-ש Sub ImportCommentsToTable() Dim wsSource As Worksheet Dim wsDest As Worksheet Dim cmt As Comment Dim rng As Range Dim lastRow As Long Dim destRow As Long Set wsSource = ActiveSheet ' צור גיליון חדש לתוצאות Set wsDest = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) wsDest.Name = "הערות מיובאות" ' כותרות לטבלה wsDest.Range("A1").Value = "מיקום תא" wsDest.Range("B1").Value = "תוכן תא" wsDest.Range("C1").Value = "תוכן הערה" destRow = 2 ' שורה להתחלת הדאטה ' עבור כל התא עם הערה בגיליון המקורי For Each cmt In wsSource.Comments wsDest.Cells(destRow, 1).Value = cmt.Parent.Address(False, False) ' מיקום התא wsDest.Cells(destRow, 2).Value = cmt.Parent.Value ' תוכן התא wsDest.Cells(destRow, 3).Value = cmt.Text ' תוכן ההערה destRow = destRow + 1 Next cmt ' עצב טבלה lastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row wsDest.Range("A1:C" & lastRow).Select wsDest.ListObjects.Add(xlSrcRange, Selection, , xlYes).Name = "CommentsTable" wsDest.ListObjects("CommentsTable").TableStyle = "TableStyleMedium9" MsgBox "ייבוא ההערות הסתיים. נמצאו " & destRow - 2 & " הערות.", vbInformation End Sub מרובי בוט