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

¤@­Ó½ÆÂøªºªí³æ°ÝÃD

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

ª½±µ±Æ§Ç§Y¥i
  1. Private Sub Label1_Click() '·s¼W¸ê®Æ
  2. Dim Ar(), A As Range, B As Range, C As Range
  3. Set C = Sheet1.[A:A].Find(TextBox1.Text, lookat:=xlWhole)
  4. If Not C Is Nothing Then MsgBox ("¾Ç¸¹­«½Æ¡A½Ð­«·sÀˬd"): Exit Sub
  5. fd = ThisWorkbook.Path & "\"
  6. If Dir(fd & "Temp.bmp") <> "" Then Kill fd & "Temp.bmp"
  7. SavePicture Image1.Picture, fd & "Temp.bmp"
  8. obs = Array("TextBox1", "TextBox2", "TextBox3", "TextBox4", "TextBox5", "TextBox6", "ComboBox1", "TextBox7", "TextBox8", "TextBox9", "TextBox10", "TextBox11", "ComboBox2")

  9. For i = 0 To 12
  10.      ReDim Preserve Ar(i)
  11.      Ar(i) = Controls(obs(i)).Text
  12. Next
  13. With Sheet1
  14.    Set A = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
  15.    A.RowHeight = 79.8
  16.    Set B = A.Offset(, 13)
  17.    A.Resize(, 13) = Ar
  18.    .Shapes.AddPicture fd & "Temp.bmp", msoFalse, msoCTrue, B.Left, B.Top, B.Width, B.Height
  19.     .Range("A3").CurrentRegion.Sort key1:=.[A4], header:=xlYes  '±Æ§Ç
  20. End With
  21. Unload Me: UserForm1.Show
  22. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 11# Hsieh
ÁÂÁÂhsiehª©¤j,
¿é¤J¥i¦Û¦æ±Æ§Ç, ¦ý¹Ï¤ù¥ç±Ʃó³Ì§À, ¤£¯à¸ò¸ê®Æ¾ã¦CÅã¥Ü©ó´¡¤J±Æ§Ç¤§Äæ¦ì. ½Ð¤j¤j±Ð¾É, ÁÂÁÂ!!

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-8-7 00:13 ½s¿è

¦^´_ 12# ©P¤j°¶
¹Ï¤ù®æ¦¡ªº¹w³]­È¬O¤j¤p¦ì¸mÀHÀx¦s®æ¦ÓÅÜ

    play.gif
¬°½T«O¹Ï¤ù·|ÀHÀx¦s®æ²¾°Ê
  1. Private Sub Label1_Click() '·s¼W¸ê®Æ
  2. Dim Ar(), A As Range, B As Range, C As Range, MyPic As Shape
  3. Set C = Sheet1.[A:A].Find(TextBox1.Text, lookat:=xlWhole)
  4. If Not C Is Nothing Then MsgBox ("¾Ç¸¹­«½Æ¡A½Ð­«·sÀˬd"): Exit Sub
  5. fd = ThisWorkbook.Path & "\"
  6. If Dir(fd & "Temp.bmp") <> "" Then Kill fd & "Temp.bmp"
  7. SavePicture Image1.Picture, fd & "Temp.bmp"
  8. obs = Array("TextBox1", "TextBox2", "TextBox3", "TextBox4", "TextBox5", "TextBox6", "ComboBox1", "TextBox7", "TextBox8", "TextBox9", "TextBox10", "TextBox11", "ComboBox2")

  9. For i = 0 To 12
  10.      ReDim Preserve Ar(i)
  11.      Ar(i) = Controls(obs(i)).Text
  12. Next
  13. With Sheet1
  14.    Set A = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
  15.    A.RowHeight = 79.8
  16.    Set B = A.Offset(, 13)
  17.    A.Resize(, 13) = Ar
  18.    Set MyPic = .Shapes.AddPicture(fd & "Temp.bmp", msoFalse, msoCTrue, B.Left, B.Top, B.Width, B.Height)
  19.    MyPic.Placement = xlMoveAndSize  '³]©w¹Ï¤ù¤j¤p¦ì¸mÀHÀx¦s®æ§ïÅÜ
  20.    .Range("A3").CurrentRegion.Sort key1:=.[A4], header:=xlYes  '±Æ§Ç
  21. End With
  22. Unload Me: UserForm1.Show
  23. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 13# Hsieh
¥ý¦æ°J¤ß«åÁÂÁÂHSIEHª©¤j¤j, ¤p§Ì§âµ{¦¡¦A¶K¤W, ±Æ§Ç¬O¥i¥H, ¦ý¤W¶Ç¹Ï¤ù¨ÌµM¬O¶Ç°e¦Ü³Ì§À, ¯uªº¤£©ú, ³Ò·Ð¤j¤j, ¬O§_¤p§Ì¶·­nª`·N¬Y¨Ç±¡ªp, ¦pÄݩʵ¥. ÁÂÁÂÁÂ!

TOP

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

§Ú´ú¸Õ¬O¨S°ÝÃD¡A¦³°Êµe¬°ÃÒ
¦Ü©ó§AÁÙ¦³°ÝÃD¦s¦b¡A¤£§«¤W¶Ç±zªºÀɮ׬ݬÝ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 15# Hsieh
§Úªº³n¥ó¹³¬O¦³°ÝÃD, À£ÁYÀɤ£¹L1mb, ®æ¦¡¬OWinRAR À£ÁYÀÉ (.rar), ¦ý³º¤£¯à¤W¶Ç, ¸Õ¹L¥Î°Êµe¿ý¨î¤W¶Ç, ¿ý¤F¦ý¨S¦³°ÊºA, ¬O¦ó­ì¦],
µy«á¦A§âÀɮפW¶Ç, §Æ±æ¨ì®É¯à±o¨ì¤j¤j±Ð¾É, ÁÂÁÂÁÂ!

TOP

¦^´_ 15# Hsieh
hsiehª©¤j¦n,
²×©ó¥i¥H§âÀɮפW¶Ç, Àµ½Ð¤j¤j´ú¸Õ¬°¦ó¹Ï¤ù¤£¯à±Æ§Ç°ÝÃD, ÁÂÁÂÁÂ!
bb.rar (972.85 KB)

TOP

¦^´_ 17# ©P¤j°¶
§Ú´ú¸Õ¨S°ÝÃD
¬O§_§A¨Sª`·N¨ì·|¦Û°Ê½s¸¹ªº°ÝÃD©Ò¾É­P©O?
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 18# Hsieh
hsiehª©¤j¦n:
¬Ý¨£ª©¤j¿é¤J¨Ã¨S¦³¤£§´³B, ¦ý¤p§Ìªº¿é¤J´N¤£¦¨¥\, ±Æ§Çªº½T¨S¦³°ÝÃD, °ÝÃD¬O¹Ï¤ù¤£«ö±Æ§Ç´¡¤JÀx¦s®æ,
§Ú¤]´¿¯d·N¨ì¦Û°Ê½s¸¹°ÝÃD, ¤j¤j¥i§_­×§ï¦¨¨S¦³¦Û°Ê½s¸¹, ¨ä¹ê§Ú¿é¤Jªº½s¸¹¬O¨S¦³©T©w, ¦p
a001-01
b001-01
111-000-001
111-000-002
½Ð¤j¤j¨ó§U­×§ï¬°¨S¦³¦Û°Ê½s¸¹µ{¦¡,
ÁÂÁÂ!!

TOP

¦^´_ 19# ©P¤j°¶
¦Û°Ê½s¸¹¬O¦bªí³æªì©l¤Æªº¨Æ¥ó¤¤¡A§A­n¸ÕµÛ¥h¤F¸Ñ­×§ï
¦Ü©ó¹Ï¤ù¬O§_¥i¥H±Æ§Ç
¤â°Ê±Æ§Ç¬Ý¬Ý´Nª¾¹D¤F
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD