자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb6.0/vba

IT HUB를 찾아주셔서 감사합니다.

vba [vba] 활성화된 엑셀창의 선택한 셀(Selection) / Selection 오류시 / TextBox를 활용한 지정한 영역…

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 4,521회 작성일 22-10-16 18:11

본문

ActiveWindow.ActiveCell 


활용예:)


0c10c0d0f383c338144a996f6c17a753_1665911452_2629.png
 

Private Sub TextBox1_Change()
    Dim T As String, C As Range
    T = Mid(TextBox1, 11)
    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 + 12).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


댓글목록

등록된 댓글이 없습니다.