■ Excel/ㅡExcel VBA Code
엑셀 VBA 셀 각각의 값 변경 (102 → 1-2)
with seok
2022. 5. 18. 07:31
| 잔머리JR 님께 도움을 받음 |
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Sub CH_Class_NM_zerodasi()
Dim rngK As Range
For Each rngK In Selection
rngK = "'" & Left(rngK, 1) & "-" & Right(rngK, 1)
Next
'참고 실패한 코드
'Dim Selec_Val
'Dim Selec_Count As Integer
'Dim i As Integer
'
' Selec_Count = Selection.Count
'
' For i = 1 To Selec_Count
' Selec_Val = Selection.Areas(i).Value
' Selection.Areas(i).Value = "'" & (Left(Selec_Val, 1) & "-" & Right(Selec_Val, 1))
' Next
End Sub
|
cs |
728x90