ספירת תווים באקסל

[אביב בגליל]

איך אפשר לספור ביטים באקסל באופן אוטומטי ? כמו למשל ספירת מילים בוורד
אם מישהו יודע אשמח שיענה
בברכה

[מיכאל אבידן]

שלום,
נסה בעזרת קוד המקרו שלהלן:
()Sub Chars_Words_Count
For Each CL In ActiveSheet.UsedRange.Cells
(Str1 = Application.WorksheetFunction.Trim(CL.Text
Counter = 0
If Str1 <> "" Then
(("" ," " ,(Count_Chr = Len(Replace(Str1
Count_Spc = Len(Str1) - Count_Chr
CC = CC + Count_Chr
CS = CS + Count_Spc + 1
End If
Next
MsgBox "Total Characters: " & CC
MsgBox "Total Words: " & CS
End Sub
והמשך/י, נא, לקרוא את השורה הבאה:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
אם תגובתי עזרה לחץ/י, בבקשה, על "כן" בפס הירקרק בתוך תגובה זו !
-----------------------------------------------------------
ערב טוב,
מיכאל אבידן
מנהל פורום 'אופיס' ב'תפוז'
http://forums.tapuz.co.il/office
----------------------------------

Post by אביב בגליל
איך אפשר לספור ביטים באקסל באופן אוטומטי ? כמו למשל ספירת מילים בוורד
אם מישהו יודע אשמח שיענה
בברכה