דילוג לתוכן

אקסל

375 נושאים 3.2k פוסטים

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


  • 9 נושאים
    63 פוסטים
    צ
    @א-א-א אחרי השינוי לזיפ, לא נותן לפתוח. [image: 1686773759603-e3d9a09d-bcbe-4e73-86cc-43e9c8815921-image.png]
  • 324 נושאים
    3k פוסטים
    אורייא
    @תלת-פאזי כתב בבירור | סינון תאים המכילים שני תנאים: חסום לי.... Spoiler איך עושים סינון לכל התאים שמכילים את שני התנאים לדוגמה: תאים המכילים שני גרשיים (" + " ) לאו דווקא שהם צמודים [אלא אפילו כשיש עוד תווים באמצע] כגון: רש"י ר"ת ב"ב מ"ע שליט"א ז"ל CodeGPT said: אם אתה רוצה לסנן תאים שמכילים שני מופעים של גרשיים (או כל תו אחר), גם אם יש תווים ביניהם, אפשר לעשות זאת בכמה דרכים — תלוי באיזו תוכנה אתה עובד (Excel / Google Sheets / קוד). נניח שאתה עובד ב־Excel, הנה הדרך: דרך 1: שימוש בפונקציית נוסחה אם בעמודה A יש את הנתונים שלך, בעמודה B תוכל לכתוב: =IF(LEN(A1)-LEN(SUBSTITUTE(A1,"""",""))>=2, "כן", "לא") הסבר: LEN(A1) — סופר את כל התווים בתא. SUBSTITUTE(A1,"""","") — מסיר את כל הגרשיים. ההפרש ביניהם אומר כמה גרשיים יש. אם יש 2 או יותר — הפונקציה מחזירה "כן". אחר כך אפשר לסנן לפי הערך “כן”. דרך 2: סינון ישיר עם נוסחה ב־Google Sheets ב־Google Sheets ניתן להחזיר רק את התאים הרלוונטיים: =FILTER(A1:A, LEN(A1:A)-LEN(SUBSTITUTE(A1:A,"""",""))>=2) זה יחזיר רק את השורות שמכילות לפחות שני גרשיים. האם תרצה שאכתוב גם נוסחה שמחפשת דווקא שני גרשיים בלבד (לא יותר)?
  • הדרכה ועזרה לשפה המתה 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 מרובי בוט