Hsieh

¦^´_ 1# skyutm

¤U¸ü (240.3 KB)

2012-9-13 23:07

UserForm1¼Ò²Õ

1. Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   
2.   a1 = ListBox1.Value
   
3.   ActiveCell = IIf(ActiveCell = "", a1, ActiveCell & "¡B" & a1)
   
4. End Sub
   
5. 
   
6. Private Sub UserForm_Initialize()
   
7.   With ListBox1
   
8.   .AddItem "«~¾Ç­ÝÀu"
   
9.     .AddItem "¤Í·R¦P¾Ç"
   
10.       .AddItem "«æ¤½¦n¸q"
    
11.         .AddItem "¥Í©ÊÃi´²"
    
12.   End With
    
13. End Sub

½Æ»s¥N½X

µû»y¤u§@ªí¼Ò²Õ

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Column = 3 And Target.Count = 1 Then UserForm1.Show 0
   
3. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 4# skyutm

«ç¼Ë·Q¥X³o¼Ëªº»yªk?
³o°ÝÃDÀ³¸Ó¬O¨C­Ó¼gµ{¦¡ªº¤H³£¦³¤£¦Pªº«ä¦Ò¤è¦V
¥u¬O­n¼g¥X¯à°÷¹F¨ì¥Øªºªº»yªk³q±`¤£¥u¤@ºØ
´N¬Ý­Ó¤H¹ïVBA¨ç¼Æ»P¦UºØ¤èªkªº»{ÃѦh¹è¦Ó²§
³q±`¹ï©ó§PÂ_¦¡ªº¼gªk§Ú«Øij¤f»y¤Æªº¤è¦¡¨Ó¸ÑŪ
§â¤f»y¸ÜÂনEXCEL©Ò¯à±µ¨üªºVBA»y¨¥´N¥i¹F¦¨¥Øªº
¥H¥»ÃD¬°¨Ò¡A¼Ó¥D­ì¥»¦bCÄæ³]©wµ{±Ò°Êªí³æªº¤è¦¡
³o­nÅý¤u§@ªí§ä¨ì¼g¤Jªº¥Ø¼ÐÀx¦s®æ·|¦³§xÃø
¦]¬°­YCÄæ³]¸m«Ü¦h«ö¶s¡A¨º»ò«ö¤U«ö¶s«áªºÀx¦s®æ­n¦p¦ó©w¦ì?¤S·|²£¥Í°ÝÃD
©Ò¥H§Q¥ÎWorkSheetªºSelection_Change¨Æ¥ó´N¯à½T©w¿é¤J¥Ø¼Ð¦ì¸m´N¬O§@¥Î¤¤ªºÀx¦s®æ

¦Ü©ó²Ä¤G­Ó°ÝÃD«h¥i¥H±N¨C­Ó­n·í¦¨¿é¤JªºListBox³]¸mµ{ª«¥óÃþ§O¨Ó¾Þ§@§Y¥i¹F¦¨

Hsieh

¦^´_ 6# skyutm
ª«¥óÃþ§OªºÀ³¥Î¬O±N¦P¤@©Ê½èªºª«¥óÂkÃþ¡A¨Ï¨ä¯à¦@¦P°õ¦æµ{¦¡
¤u§@ªí¼Ò²Õ

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Column = 3 And Target.Count = 1 Then UserForm1.Show 0
   
3. End Sub

½Æ»s¥N½X

UserForm1¼Ò²Õ

1. Private Sub UserForm_Initialize()
   
2. With ListBox1
   
3.   .AddItem "²¤¦³¶i¨B"
   
4.     .AddItem "§V¤O¤£¨¬"
   
5.       .AddItem "¾Ç·~ºë¶i"
   
6.         .AddItem "Ä~Äò¥[±j"
   
7.         Set Obs(0).MyList = ListBox1
   
8. End With
   
9. With ListBox2
   
10.   .AddItem "«~¾Ç­ÝÀu"
    
11.     .AddItem "¤Í·R¦P¾Ç"
    
12.       .AddItem "«æ¤½¦n¸q"
    
13.         .AddItem "¥Í©ÊÃi´²"
    
14.         Set Obs(1).MyList = ListBox2
    
15. End With
    
16. End Sub

½Æ»s¥N½X

ª«¥óÃþ§O¼Ò²Õ(´¡¤J)

1. Public WithEvents MyList As MSForms.ListBox
   
2. Private Sub MyList_Click()
   
3. ActiveCell = IIf(ActiveCell = "", MyList, ActiveCell & "¡B" & MyList)
   
4. n = IIf(MyList.Name = "ListBox1", "ListBox2", "ListBox1")
   
5. If UserForm1.Controls(n).ListIndex <> -1 Then UserForm1.Controls(n).Selected(UserForm1.Controls(n).ListIndex) = False
   
6. End Sub

½Æ»s¥N½X

ª«¥óÃþ§OÀ³¥Î.rar (12.93 KB)

¤U¸ü¦¸¼Æ: 18

2012-9-15 23:28

¤U¸ü (260.33 KB)

2012-9-15 23:30