■ Excel/ㅡExcel VBA Code
엑셀VBA 여러 열을 합집합으로 만들어 한번에 숨김, 열 너비 자동맞춤
with seok
2023. 1. 14. 13:10
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngTest As Range
On Error Resume Next
Set rngTest = Application.Intersect(Me.Range("L8"), Target)
On Error GoTo 0
If Not rngTest Is Nothing Then
반별출력ㅡ기본반나타나기
Range("BH10:CZ10").EntireColumn.AutoFit
Dim rngD As Range
For kk = 1 To 45
If Range("BH10:CZ10").Cells(1, kk) = 7 Then
If rngD Is Nothing Then
Set rngD = Range("BH10:CZ10").Cells(1, kk)
Else
Set rngD = Union(rngD, Range("BH10:CZ10").Cells(1, kk))
End If
Else
End If
Next kk
rngD.EntireColumn.Hidden = True
End If
ActiveWindow.ScrollColumn = 1
End Sub
|
cs |
728x90