VBA - excel

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

• ---

• מדריכים - VBA excel

  2 נושאים

  6 פוסטים

  N

  שני קורסים בעברית לשפת תכנות של מיקרוסופט אופיס - VBA משירות התעסוקה הישראלי. excel.kova.

  קישור לתיקייה בדרייב עם שני הקורסים.
  קישור להורדה ישירה לקורס שירות התעסוקה הישראלי.
  קישור להורדה ישירה לקורס excel.kova.

  אני מעלה זאת לאור ביקוש, לעזרה עם פקודות מאקרו במיקרוסופט אופיס.
  קרדיט ל @מגדלים שאיתר איחסון בדרייב לזה.

• עזרה הדדית - VBA excel

  40 נושאים

  445 פוסטים

  א

  @יעקב-ש

  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

  מרובי בוט