EXCEL에 숫자를 입력하면 상수를 자동으로 곱합니다(첫 번째 열은 6, 두 번째 열은 4)

2426 단어 Excel
이 문제는 우리가 VBA로 해결할 수밖에 없다
우선alt+F11을 누르고 매크로 VBA 편집기를 열고 아래 코드를 복사하면 OK
   1:  Private Sub Worksheet_Change(ByVal Target As Range)
   2:      If Not IsNumeric(Target) Then End
   3:      
   4:     ' 

5: If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
'A1과 A10을 원하는 것으로 바꾸면 OK.
   6:      Application.EnableEvents = False
   7:      Target = Target * 6
   8:      Application.EnableEvents = True
   9:      End If
  10:      
  11:      ' 
  12:      If Not Application.Intersect(Target, Range("B1:B10")) Is Nothing Then   
           ' A1 A10 OK 
  13:      Application.EnableEvents = False
  14:      Target = Target * 4
  15:      Application.EnableEvents = True
  16:      End If
  17:      
  18:  End Sub
  19:   

좋은 웹페이지 즐겨찾기