로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2013.05.27 13:54
파이스님..
엑셀의 기본 기능에 그런 기능을 본 기억은 없네요..
아무래도 VBA로 카운트를 해야할 것 같아서 간단히 만들어보았습니다.
'### 숫자와 수식을 제외한 텍스트 셀을 카운트하는 프로시저.
'### Created by abyul.com 2013.05.27
Sub abCountTextInWB()
Dim lCntCells As Long
Dim lCntChar As Long
Dim ws As Worksheet
Dim rTarget As Range, c As Range
For Each ws In ActiveWorkbook.Worksheets
Set rTarget = ws.UsedRange
On Error Resume Next
Set rTarget = rTarget.SpecialCells(xlCellTypeConstants, 2)
If Err.Number <> 1004 Then
For Each c In rTarget
lCntCells = lCntCells + 1
lCntChar = lCntChar + Len(c)
Next c
Else
On Error GoTo 0
End If
Next ws
MsgBox "The count of cells is " & Format(lCntCells, "#,###") & vbNewLine & _
"The count of characters is " & Format(lCntChar, "#,###")
End Sub
위 코드를 복사한 다음..
Alt+F11눌러 VBE창을 띄우고..
메뉴에서 삽입 > 모듈하시고.. 복사한 코드를 붙여넣으세요..
그런 다음.. Alt+F11눌러서 엑셀로 돌아오시고..
Alt+F8을 눌러 매크로 실행창을 띄우시고..
"abCountTextInWB"를 선택하고.. 실행을 누르시면 아래와 같은 메시지로 결과를 알려줍니다.
도움이 되셨기를..
새 창으로
선택한 기호
파이스님..
엑셀의 기본 기능에 그런 기능을 본 기억은 없네요..
아무래도 VBA로 카운트를 해야할 것 같아서 간단히 만들어보았습니다.
'### 숫자와 수식을 제외한 텍스트 셀을 카운트하는 프로시저.
'### Created by abyul.com 2013.05.27
Sub abCountTextInWB()
Dim lCntCells As Long
Dim lCntChar As Long
Dim ws As Worksheet
Dim rTarget As Range, c As Range
For Each ws In ActiveWorkbook.Worksheets
Set rTarget = ws.UsedRange
On Error Resume Next
Set rTarget = rTarget.SpecialCells(xlCellTypeConstants, 2)
If Err.Number <> 1004 Then
For Each c In rTarget
lCntCells = lCntCells + 1
lCntChar = lCntChar + Len(c)
Next c
Else
On Error GoTo 0
End If
Next ws
MsgBox "The count of cells is " & Format(lCntCells, "#,###") & vbNewLine & _
"The count of characters is " & Format(lCntChar, "#,###")
End Sub
위 코드를 복사한 다음..
Alt+F11눌러 VBE창을 띄우고..
메뉴에서 삽입 > 모듈하시고.. 복사한 코드를 붙여넣으세요..
그런 다음.. Alt+F11눌러서 엑셀로 돌아오시고..
Alt+F8을 눌러 매크로 실행창을 띄우시고..
"abCountTextInWB"를 선택하고.. 실행을 누르시면 아래와 같은 메시지로 결과를 알려줍니다.
도움이 되셨기를..