GBKEE

¦^´_ 3# ayubbs

¤U¸ü (10.53 KB)

2013-8-4 17:15

¦p¹Ï ©Ôªø¥¦´N¨S¦³¿ù»~¤F(¬°¦ó·|¦p¦¹§Ú¤]¤£ª¾¹D)

©Î­×§ïµ{¦¡½X

1. rivate Sub cbDel_Click()
   
2.     Dim i As Integer
   
3.     'Application.EnableEvents = False  '³o¹ï±±¨î¶µ¨S¦³§@¥Î
   
4.     With lbName
   
5.         i = .ListIndex
   
6.         If i = -1 Then Exit Sub
   
7.         Selection.Delete
   
8.         If .ListIndex + 1 = .ListCount Then .Value = .ListIndex - 1
   
9.         If .ListCount >= 1 Then .RemoveItem (i)
   
10.     End With
    
11.    'Application.EnableEvents = True
    
12.    ' Call lbName_Change
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# ayubbs
¤Þ¥ÎTextBox¤º¼Æ¾Ú¬d´M¨ìbb.xlsÀɤº¸Óµ§¸ê®Æ©Ò¦b¦C±N¨ä¸Ó¦C§t¥H¤U¦C¦Û°Ê¥þ¼Æ
¸Óµ§¸ê®Æ¦b­þ¤@Äæ (AÄæ©ÎBÄæ  ©Î...)
½Ð¤W¶Ç bb.xls ªº½d¥»,¦n¤F¸Ñ¤§.

GBKEE

¦^´_ 7# ayubbs
Sheet1«Ø¤@CommandButton

1. Private Sub CommandButton1_Click()
   
2.     UserForm1.Show
   
3. End Sub

½Æ»s¥N½X

¤U¸ü (20.89 KB)

2013-8-6 17:27

1. Option Explicit
   
2. Dim WB As Workbook, Rng As Range
   
3. Private Sub CommandButton1_Click()
   
4.     If Not Rng Is Nothing Then
   
5.         With Rng.Parent
   
6.             Set Rng = .Range(Rng.Offset(1), Rng.Offset(1).End(xlDown))
   
7.             Rng.EntireRow.Delete
   
8.         End With
   
9.     End If
   
10.         CommandButton1.Enabled = False
    
11. End Sub
    
12. Private Sub TextBox1_Change()
    
13.     CommandButton1.Enabled = False
    
14.     Set Rng = WB.Sheets("©ú²Óªí").Range("C:C").Find(TextBox1, LookAt:=xlWhole)
    
15.     If Not Rng Is Nothing Then CommandButton1.Enabled = True
    
16. End Sub
    
17. 
    
18. Private Sub UserForm_Initialize()
    
19.     CommandButton1.Enabled = False
    
20.   ' Set WB = Workbooks.Open("D:\§Aªº¥Ø¿ý¸ê®Æ§¨\BB.XLS")   '¦p BB.XLS ¨S¶}±Ò¥Î¦¹µ{¦¡½X ¶}±Ò
    
21. End Sub
    
22. 
    
23. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
24.    '  WB.Close True                                        ¦p BB.XLS ¤£¬O¥Îµ{¦¡½X¶}±Òªº ¤£­n¥Î¦¹µ{§Ç
    
25. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# ayubbs
¸ê®Æªº±Æ§Ç:¥i¿ý»s«á,®M¨ì
Private Sub UserForm_Initialize()
   '¿ý»s ....
End Sub