Hsieh

¦^´_ 1# ©P¤j°¶

ªí³æÄæ¦ì¸òªí®æÄæ¦ì¹ï¤£¤W
¤£¶}±Ò¸ê®ÆªíÀɮצp¦ó¥h¼g¤J?³o³¡¤À¥u¯à»¡¬O¦b­I´º¶}±Ò

Hsieh

¦^´_ 6# ©P¤j°¶

¸Õ¸Õ
    ¿é¤JÀÉ®×.zip (20.98 KB)

¤U¸ü¦¸¼Æ: 25

2018-3-28 15:08

Hsieh

¦^´_ 11# ©P¤j°¶

1. Private Sub Label6_Click()
   
2. Application.ScreenUpdating = False
   
3. With Workbooks.Open(ThisWorkbook.Path & "\­û¤u¸ê®Æªí.xlsx")
   
4. If ComboBox1 <> "" Then
   
5.    With .Sheets(ComboBox1.Text)
   
6.      Set Rng = .Columns("A").Find(TextBox1, lookat:=xlWhole)
   
7.      If Rng Is Nothing Then
   
8.         .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4) '¥¼¦³¸ê®Æ¡A·s«Ø
   
9.         Else
   
10.         yn = MsgBox("©m¦W¤w¦s¦b¡A¬O§_Âл\?", vbYesNo)
    
11.            If yn = 6 Then
    
12.               Rng.Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4) 'Âл\­ì¸ê®Æ
    
13.               Else
    
14.               k = Application.CountIf(.Columns("A"), Rng & "*")
    
15.               .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 4) = Array(Rng & k, TextBox2, TextBox3, TextBox4) '·s«Ø¸ê®Æ
    
16.            End If
    
17.     End If
    
18.     End With
    
19.     .Close 1
    
20.     End If
    
21. End With
    
22. End Sub

½Æ»s¥N½X