GBKEE

¦^´_ 1# basarasy
Sheetª«¥óªº¤º«ØIJ°Ê¨Æ¥ó

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address(0, 0) = A1 And Target = 1 Then
   
3.         ¥¨¶°A
   
4.      ElseIf Target.Address(0, 0) = A1 And Target = 2 Then
   
5.         ¥¨¶°B
   
6.     End If
   
7. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# basarasy
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim  U5 As $    '©w¸qÅܼƬ°¦r¦ê«¬ºA
U5="U5"          'µ¹ÅܼƤ@­Ó¦r¦ê
If Target.Address(0, 0) = U5 And Target = 1 Then
'
'

GBKEE

¦^´_ 7# basarasy
«ç¤£¯à¥Î ½Ð²î¤WÀÉ®×