ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤@­Óªí³æ¿é¤J°ÝÃD½Ð¨ó§U,

¥»©«³Ì«á¥Ñ ©P¤j°¶ ©ó 2018-6-3 15:07 ½s¿è

¦^´_ 7# Hsieh
Hsiehª©¤j¡A¦n
¥ý¦æÁ¹Lª©¤j
¤p§Ì·Q­×§ï³oªí³æ, ¦ý¥\¤O²L, ½Ð¨ó§U, ÁÂÁÂ!!
¤º¦³©ú²Ó»¡©ú,

bb.zip (30.21 KB)

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 12# Hsieh
·PÁª©¤j,
¦A¦¸¨ó§U,
¯¬Ä@°·±d

TOP

¥»©«³Ì«á¥Ñ ©P¤j°¶ ©ó 2018-9-9 10:59 ½s¿è

¦^´_ 12# Hsieh
Hsiehª©¤j,¦­±á
·PÁ¦­«e¦^À³³o½gµo°Ý, ¦Ó³oµ{¦¡¤w¥Î¤F¤@¬q®É¶¡, ª©¤j³oµ{¦¡½X¤¤¥i§_¥[¤J¸ê®Æ¿é¤J¦Z¦Û¦æ±Æ§Ç®ÄªX, §Æ±æ¦A±o¨ìª©¤j¦^À³..
ÁÂÁÂ!!¯¬©P¤é§Ö¼Ö,,

ss.rar (27.28 KB)

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD