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

¤@­Óªí³æ½Ð¨D¨ó§U

¤@­Óªí³æ½Ð¨D¨ó§U

¤j¤j­Ì, ¤p§Ì¦³¤@­Óªí³æ½Ð¨D¨ó§U, ¤W¶ÇÀɤ¤¦³»¡©ú, ¥ý¦æÁ¹L¤j¤j­Ì,
Book1.rar (11.67 KB)

  1. Private Sub Label1_Click()
  2. Set a = Columns("A:A").Find(TextBox1.Text, lookat:=xlWhole)
  3. If a Is Nothing Then r = [A65536].End(xlUp).Row + 1 Else r = a.Row
  4. For i = 1 To 9
  5.    Cells(r, i) = Controls("TextBox" & i).Text
  6. Next
  7. End Sub

  8. Private Sub Label2_Click()
  9. Set a = Columns("A:A").Find(TextBox1.Text, lookat:=xlWhole)
  10. If a Is Nothing Then r = [A65536].End(xlUp).Row + 1 Else r = a.Row
  11. For i = 1 To 9
  12.    Cells(r, i) = Controls("TextBox" & i).Text
  13. Next

  14. End Sub

  15. Private Sub Label3_Click()
  16. ThisWorkbook.Save
  17. End Sub

  18. Private Sub Label4_Click()
  19. ScrollBar1.Value = Application.Max(ScrollBar1.Value - 1, ScrollBar1.Min)
  20. End Sub

  21. Private Sub Label5_Click()
  22. ScrollBar1.Value = Application.Min(ScrollBar1.Value + 1, ScrollBar1.Max)
  23. If ScrollBar1.Value = ScrollBar1.Max Then ScrollBar1.Max = ScrollBar1.Max + 1
  24. End Sub

  25. Private Sub ScrollBar1_Change()
  26. r = ScrollBar1.Value
  27. For i = 1 To 9
  28. Controls("TextBox" & i) = Cells(r, i).Value
  29. Next
  30. End Sub

  31. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  32. Set a = Columns("A:A").Find(TextBox1.Text, lookat:=xlWhole)
  33. If Not a Is Nothing Then
  34. MsgBox "¾Ç¸¹­«½Æ"
  35. With TextBox1
  36. Cancel = True
  37. End With
  38. End If
  39. End Sub

  40. Private Sub UserForm_Initialize()
  41. r = [A65536].End(xlUp).Row
  42. With ScrollBar1
  43. .Min = 3
  44. .Max = r + 1
  45. End With
  46. End Sub
½Æ»s¥N½X
¦^´_ 1# ©P¤j°¶
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

b]¦^´_ 2# Hsieh

ÁÂÁª©¤j, °J¤ß·PÁÂ, ¥i¥H¹B¥Î, ¦ý­×§ï¸ê®Æ¦n¹³¤£¯à­×§ï, ¥tª©¤j, ­Y¼W³]¤@§R°£«ö¶s¥i¥H»ò.
hh.rar (12.36 KB)

TOP

¦^´_ 3# ©P¤j°¶
¼W¥[¤@­Ó§R°£µ{§Ç
  1. Private Sub Label15_Click()
  2. Set a = Columns("A:A").Find(TextBox1.Text, lookat:=xlWhole)
  3. If Not a Is Nothing Then a.Resize(, 9).Delete xlShiftUp
  4. End Sub
½Æ»s¥N½X
­n§R°£©Î­×§ï³£½Ð¨Ï¥Î¤W¤@µ§¡B¤U¤@µ§©Î±²¶bÅý¾Ç¸¹¬°ªÅ¥Õ«á¦A¿é¤J
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh
ª©¤j, ¦­±á
§R°£¨S¦³°ÝÃD, ¦ý­×§ï¨Ï¥Î¤W¤@µ§©Î¤Uµ§±²¶b¨ìªÅ¥Õ³B®É, ¿é¤J¾Ç¸¹, ¸Ó¦C¾Ç¸¹¸ê®Æ²MªÅ, ³Ñ¤U½s¸¹, ¥Î®a«K¦bªÅ¥ÕÄæ³B­×§ï, ¦ý¨Sªk¿é¤J, ¥²¶·§â¸Ó¦C¸ê®Æ¥þ³¡§R, ­«·s¿é¤J,
¥i§_³]©w, ¥Î®a¥Î¤W¤@µ§©Î¤Uµ§±²¶b¨ìªÅ¥Õ³B®É, «ö­×§ï, ¿é¤J¾Ç¸¹, ¸Ó¦C¸ê®ÆÅã¥Ü, ¥Î®aÀH·N­×§ïÄæ¦ì«á¦sÀÉ,
Á¹Lª©¤j

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-2-13 13:16 ½s¿è

¦^´_ 5# ©P¤j°¶
¨t²Îªºªºªí³æ
  1. Sub Ex()
  2.     With ActiveSheet
  3.         .UsedRange.Name = "DATABASE"
  4.         If [DATABASE].Rows.Count = 1 Then [DATABASE].Resize(2).Name = "DATABASE"
  5.         .ShowDataForm
  6.     End With
  7.     Names("DATABASE").Delete
  8. End Sub
½Æ»s¥N½X
ªí³æ.rar (11.41 KB)

TOP

¦^´_ 6# GBKEE
ÁÂÁÂ两¦ìª©¤j¦^À³, ¯¬Ä@°·±d, §Ö¼Ö..

TOP

¦^´_ 6# GBKEE


½Ð°Ýªí³æ¬O«ç»ò³]©wªº
¥i¥H±Ð¾Ç¤@¤U¶Ü
ÁÂÁÂ
Tony

TOP

¦^´_ 8# tonycho33
1  ¿ï©w¸ê®Æ½d³ò¤ºªº¥ô¤@Àx¦s®æ
2 «ü¥O:  ¤u¨ã->¸ê®Æ->ªí³æ
3 «ö¤U½T©w
ªí³æ´N¥X²{

TOP

¦^´_ 6# GBKEE

ª©¤j, ¦n
¥[¤Jµ{¦¡§âexcelªí³æ¥s¥X, ¤p©f¯u¬O¨S¦³·Q¹L, ½Ð±Ðª©¤j, ªí³æ¤¤ªº¦rÅé´N¥i§_¥Îµ{¦¡§â¨äÅܤj...ÁÂÁÂ!!¯¬§Ö¼Ö..

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD