이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 176
안녕하세요. 아별님.오랜만에 질문 드리게 되었습니다. 그간 강녕하셨는지요? 저는 잘 지내고 있습니다.
오늘은 엑셀파일안의 '총글자수'를 세는 방법에 대하여 질문을 드리고자 합니다.
-배경상황은 이렇습니다.-어떤 소프트웨어를 수출하고자 하는데, 이 제품내의 모든 텍스트는 당연히 해당국가에 맞게 번역을 해야합니다.(이 텍스트는 엑셀파일에서 관리되고 있습니다.)그래서 바이어는 ' 번역분량은 몇만자 정도 되나요? 30만? 50만?' 이렇게 물어왔고,저는 " 음...그건..음.. 가서 좀 세보고 이메일로 알려 드리죠..." 라고 대답을 하는 상황인 것입니다.
그래서 돌아와서 해당 자료를 관리하는 분께 자료를 받아보니...
아래와 같이 시트는 수십개에,시트 하나에 수많은 행과 열들!!! 으아악.
저는 방법을 강구해보기 시작 했습니다.
1. 워드의 그기능(?) 찾아보기
이런 기능이 있다면 얼마나 좋을까요?하지만 워드와 엑셀은 같은 리본메뉴를 공유하면서도 얄밉게도 그 항목은 없더군요 ㅠ.ㅠ. 패스
2. 텍스트로 저장한뒤 외부솔루션에 붙이기
엑셀은 탭으로분류된 txt 문서로 변환하여 저장이 가능하지 않습니까?이렇게 붙인다음에 그 유명한 글자수세기의 정석 '사람인 글자수세기 시스템' 에 붙이면간단하게 해결이 될 것으로 생각하였으나, 아뿔사'여러개의 시트로 구분된 문서는 txt로 저장하실 수 없습니다!' 라는 메시지가...
음 그래서 질문내용으로는 1) 엑셀파일하나에 있는 총 글자수의 개수를 세는 방법이 궁금한 상황입니다.더 나아가서는 아무래도 왼쪽의 숫자와 같은 인덱스 부분은 세계공통어인 아라비아어다보니아무래도 번역 미대상이지 않겠습니까? 따라서...2) 엑셀파일하나에 있는 총 글자수(숫자는 제외)의 개수를 세는 방법이 알고 싶습니다.
P.S : 밑에 화면정도에서 지원기능이 있을것도 같았는데 없네요 ㅠ.ㅠ. 어쩔수 없이 수식이나 VBA를 써야한느 것일까요?
오늘은 엑셀파일안의 '총글자수'를 세는 방법에 대하여 질문을 드리고자 합니다.
-배경상황은 이렇습니다.-어떤 소프트웨어를 수출하고자 하는데, 이 제품내의 모든 텍스트는 당연히 해당국가에 맞게 번역을 해야합니다.(이 텍스트는 엑셀파일에서 관리되고 있습니다.)그래서 바이어는 ' 번역분량은 몇만자 정도 되나요? 30만? 50만?' 이렇게 물어왔고,저는 " 음...그건..음.. 가서 좀 세보고 이메일로 알려 드리죠..." 라고 대답을 하는 상황인 것입니다.
그래서 돌아와서 해당 자료를 관리하는 분께 자료를 받아보니...
아래와 같이 시트는 수십개에,시트 하나에 수많은 행과 열들!!! 으아악.
저는 방법을 강구해보기 시작 했습니다.
1. 워드의 그기능(?) 찾아보기
이런 기능이 있다면 얼마나 좋을까요?하지만 워드와 엑셀은 같은 리본메뉴를 공유하면서도 얄밉게도 그 항목은 없더군요 ㅠ.ㅠ. 패스
2. 텍스트로 저장한뒤 외부솔루션에 붙이기
엑셀은 탭으로분류된 txt 문서로 변환하여 저장이 가능하지 않습니까?이렇게 붙인다음에 그 유명한 글자수세기의 정석 '사람인 글자수세기 시스템' 에 붙이면간단하게 해결이 될 것으로 생각하였으나, 아뿔사'여러개의 시트로 구분된 문서는 txt로 저장하실 수 없습니다!' 라는 메시지가...
음 그래서 질문내용으로는 1) 엑셀파일하나에 있는 총 글자수의 개수를 세는 방법이 궁금한 상황입니다.더 나아가서는 아무래도 왼쪽의 숫자와 같은 인덱스 부분은 세계공통어인 아라비아어다보니아무래도 번역 미대상이지 않겠습니까? 따라서...2) 엑셀파일하나에 있는 총 글자수(숫자는 제외)의 개수를 세는 방법이 알고 싶습니다.
P.S : 밑에 화면정도에서 지원기능이 있을것도 같았는데 없네요 ㅠ.ㅠ. 어쩔수 없이 수식이나 VBA를 써야한느 것일까요?
파이스님..
엑셀의 기본 기능에 그런 기능을 본 기억은 없네요..
아무래도 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"를 선택하고.. 실행을 누르시면 아래와 같은 메시지로 결과를 알려줍니다.
도움이 되셨기를..