Number 를 문자(Text)로 한번에 변경
Sub NumToText()
Dim Temp As Double
Dim Selection As Range
Dim rngC as Range
Set Selection = Range([B2], Cells(Rows.Count, "B").End(3)) '//마우스로 지정하려면 앞에 콤마를
'// 마우스가 지정하는 것이 아니라 범위를 직접 지정하고 싶은 경우
'// Cells(Rows.Count, "B").End(3) 은 B열의 값이 들어있는 마지막 셀을 의미함
For Each rngC In Selection '//마우스로 구간 설정한 곳 전부
If Not IsEmpty(rngC.Value) And IsNumeric(rngC.Value) Then '// 빈셀이 아니고 숫자이면
Temp = rngC.Value
rngC.ClearContents
rngC.NumberFormat = "@" '// 텍스트 서식으로
rngC.Value = CStr(Temp)
If Len(rngC.Value) < 13 Then '//바코드가 총 13자리인거 같아서
Select Case Len(rngC.Value)
Case 9: rngC.Value = "0000" & cell.Value
Case 10: rngC.Value = "000" & cell.Value
Case 11: rngC.Value = "00" & cell.Value
Case 12: rngC.Value = "0" & cell.Value
End Select
End If
End If
Next rngC
End Sub
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
| [VBA기초] 빈행 삭제 (4) | 2014.02.06 |
|---|---|
| 복사할 때 글자색도 같이 넣는 방법 (0) | 2014.01.29 |
| [VBA기초] 색상을 이용한 결과값 구하기 (0) | 2014.01.26 |
| [VBA] convert TextNumber to Number (0) | 2014.01.25 |
| [VBA기초] InStr 를 이용한 셀 분리 (2) | 2014.01.19 |
Link2Me