vba [vba] 활성화된 엑셀창의 선택한 셀(Selection) / Selection 오류시 / TextBox를 활용한 지정한 영역…
페이지 정보
본문
ActiveWindow.ActiveCell
활용예:)
Private Sub TextBox1_Change()
Dim T As String, C As Range
T = Mid(TextBox1, 1, 1)
Set C = ActiveWindow.ActiveCell
If Application.Intersect(Range("B3:I20"), C) Is Nothing Then Exit Sub
If Len(C) Then C.Next.Activate: Set C = ActiveWindow.ActiveCell
If Application.Intersect(Range("B3:I20"), C) Is Nothing Then Cells(C.Row + 1, 2).Activate
ActiveWindow.ActiveCell = T
TextBox1.Activate
TextBox1 = Mid(TextBox1, 2)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Application.Intersect(Range("B3:I20"), Target) Is Nothing Then TextBox1.Activate
End Sub
- 이전글[vba] 가위, 바위, 보 게임 22.10.16
- 다음글[vba] [펌] Cells.Count 와 Cells.CountLarge 메서드(method)의 차이 22.10.16
댓글목록
등록된 댓글이 없습니다.