Hsieh

¦^´_ 1# hong912
ªí³æ¼Ò²Õ

1. Private Sub CommandButton1_Click()
   
2. Range("C:C").Find("*", , , , , xlPrevious).Offset(, 10) = TextBox1
   
3. Unload Me
   
4. End Sub

½Æ»s¥N½X

¤u§@ªí¼Ò²Õ

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column = 3 And InStr("a1,a5,b1,b5", Target) > 0 Then UserForm1.show
   
3. End Sub

½Æ»s¥N½X