Àx¦s®æRUN¥¨¶°°ÝÃD

basarasy

½Ð°Ý ¥i¥HSET ·íA1¬O1 ®É ´N·|¦Û°Ê RUN  ¥¨¶°A,·íA1¬O2 ®É ´N·|¦Û°Ê RUN  ¥¨¶°B¶Ü?

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

basarasy

¦^´_ 2# GBKEE

ÁÂÁÂGBKEE ª©¥D.
½Ð°Ý¦³¤°»ò¦nªºexcel®Ñ±Ð³o¨Ç¤ñ¸û²`¤Jªº½X?

oobird

³o¨Ç¥u¬O¤ñ¸û°ò¦ªº»yªk¡A¼ô½m«á´N¯àÆF¬¡¹B¥Î¡C
²`¤JÂIªº®Ñ¤]«Ü¦h¡A¦ý§Ú¤]¬Ý¤£À´¡I¤£«Øij§A«æµÛ¶R¡C

basarasy

¦^´_ 4# oobird

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. 
   
3. 
   
4.    If Target.Address(0, 0) = U5 And Target = 1 Then
   
5. 
   
6.         MYIC1
   
7.         
   
8.      ElseIf Target.Address(0, 0) = U5 And Target = 2 Then
   
9.      
   
10.         MYIC2
    
11. 
    
12.        ElseIf Target.Address(0, 0) = U6 And Target = 3 Then
    
13.       
    
14.         MYIC3
    
15. 
    
16.          ElseIf Target.Address(0, 0) = U5 And Target = 4 Then
    
17.          
    
18.         MYIC4
    
19. 
    
20.          ElseIf Target.Address(0, 0) = U5 And Target = 5 Then
    
21.          
    
22.         MYIC5
    
23. 
    
24.          ElseIf Target.Address(0, 0) = U5 And Target = 6 Then
    
25.          
    
26.         MYIC6
    
27. 
    
28.          ElseIf Target.Address(0, 0) = U5 And Target = 7 Then
    
29.          
    
30.         MYIC7
    
31. 
    
32.          ElseIf Target.Address(0, 0) = U5 And Target = 8 Then
    
33.          
    
34.         MYIC8
    
35. 
    
36.          ElseIf Target.Address(0, 0) = U5 And Target = 9 Then
    
37.          
    
38.         MYIC9
    
39. 
    
40.          ElseIf Target.Address(0, 0) = U5 And Target = 10 Then
    
41.          
    
42.         MYIC10
    
43.         
    
44.     End If
    
45.     End Sub

½Æ»s¥N½X

§Ú§ï¦¨³o­Ó,¦ý¤£¯àrun.   u5¬O¤U©Ô²M³æ¦³ 1-10 . ·íu5=4®É·|¦Û°Êrun  MYIC4.

§Ú¶R¤F2¥»vba³£¨S¦³±Ð³o¤@¨Ç½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
'
'

basarasy

¦^´_ 6# GBKEE


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim  U5 As string   
U5="U5"         
If Target.Address(0, 0) = U5 And Target = 1 Then
'

ÁÙ¬O¤£¯à¥Î><

GBKEE

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

oobird

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.address = [U5].address Then
   
3.         Select Case Target
   
4.         Case 1: MYIC1
   
5.         Case 2: MYIC2
   
6.         Case 3: MYIC3
   
7.         Case 4: MYIC4
   
8.         End Select
   
9.     End If
   
10. End Sub

½Æ»s¥N½X

basarasy

ÁÂÁÂoobird¤j¤j.
³o­Ó¥i¥H¥Î¨ì.