½Ð°Ý§Ú³oVBAþ¸Ì¦³°ÝÃD¡H¬°¤°»ò·|µLªk¥X²{ 424 µLªk§ä¨ìª«¥ó©O?
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 17
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2024-3-12
|
½Ð°Ý§Ú³oVBAþ¸Ì¦³°ÝÃD¡H¬°¤°»ò·|µLªk¥X²{ 424 µLªk§ä¨ìª«¥ó©O?
½Ð°Ý¦U¦ì«e½ú¥ý¶i
¦p¦óÅý³oÀÉ®×
¯à¦Û°Ê¸õ¥X¦h±i¹Ï¤ù¤Î¹ïÀ³¸ê®Æ)-^¤åª©-02.rar (341.33 KB)
¥i¥H¹³¥kÃä³oÀɮ׶}±Ò¹ÏÀÉ©O?
20180611 VBA Ū¨ú¹Ï¤ù v.02.zip (43.52 KB)
¥kÃ䪺ÀÉ®× ¹Ï¤ù¦p¤U¡G
½Ð°Ý§Ú³oVBAþ¸Ì¦³°ÝÃD¡H¬°¤°»ò·|µLªk¥X²{ 424 µLªk§ä¨ìª«¥ó©O?
Private Sub ComboBox1_Change()
Dim a As Range
Application.ScreenUpdating = False
With Database
Set a = .Columns("E").Find(ComboBox1, lookat:=xlWhole)
Label1.Caption = a.Offset(, 1)
a.Offset(, 1).CopyPicture '½Æ»s¦¨¹Ï¤ù a.Offset(, 1). 1¬°¶Ç¦^¤W1¦æµ{¦¡ a = .Columns("E").«á1®æÀx¦s®æªº¹Ï¤ù
With .ChartObjects.Add(1, 1, a.Offset(, 2).Width, a.Offset(, 2).Height) '·s¼W¹Ïªí
.Chart.Paste '¶K¤W¹Ï¤ù
.Chart.Export "D:\temp.jpg" '¶×¥X¹Ïªí¡A¼È¦s¹Ï¤ù
.Delete '§R°£¹Ïªí
End With
Image1.Picture = LoadPicture("D:\temp.jpg") 'ªí³æÅã¥Ü¹Ï¤ù
Kill "D:\temp.jpg" '§R°£¼È¦s¹Ï¤ù
End With
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
Dim a As Range
Set d = CreateObject("Scripting.Dictionary")
With Database
For Each a In .Range(.[E2], .[E2].End(xlDown))
d(a.Value) = ""
Next
End With
ComboBox1.List = d.keys
End Sub
-------------------------------------------------------------------
ÁÂÁ¦U¦ì |
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 17
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2024-3-12
|
¦^´_ 2# GBKEE
ÁÂÁ G ¶W¯Åª©¥Dªº¦^ÂСA¥Ø«eµo²{³Ì«án¥[ End Function ´N¥i¥HRun¤F¡A¨ä¥LÁÙ¦b¬ã¨s¤¤¡A¶W¯Å·PÁ±zªºÀ°¦£¡C |
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 17
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2024-3-12
|
¦^´_ jeffrey628litw
¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2018-6-13 08:26
½Ð°Ý§Ú·Qn«öDisplay Photo«ö¶s«á¡A
¤U©Ô¿ï³æ Player Name
¿ïMchael Jordan «á¥i¥H¥X²{
Image1¡G¬°F2¹Ï®×
Image2¬°F3¹Ï®×
Ãþ¦üEBAY ¿z¿ï§¹¦³°}¦C¹Ïªí¡AÃþ¦ü¤U¹Ï
Àɮצb¶³ºÝ http://webhd.xuite.net/_oops/jeffrey628litw/c6x |
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 17
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2024-3-12
|
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 17
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2024-3-12
|
¦^´_ 7# GBKEE
G¤j ¶W¯Åª©¥D±z¦n¡A§Ú¬Ý±z¤w¸g¦³±N§Ú°ÝÃD1¸Ñ¨M¤F¡A¥t¥~nµ{¦¡¤¤»¡©ún·s¼W Lable4 §Ú¤]·s¼W¤F¡A
°ÝÃD2©M3ÁÙ¨S¸Ñ¨M¡A
±µ¤U¨Ó¡A
µ{¦¡ªºÅÞ¿è¬On¨Ì¾Ú¼´¥XªºLable4 ¦pªGµ²ªG¦PLable1ªº¦r¦ê¡A«h¼´¥X¹Ï¤ù¡A§_«h¼´¥XNullªº¹Ï¤ù¶Ü?
¬O³o¼Ëªº¸Ü½Ð°Ýn¦p¦ó¼g©O? ¦]¬°§Ú¹ï©óVBA¹ê¦b´X¥G§¹¥þ¤£¤F¸Ñ¡A¯à§_½Ð±zÀ°¦£¤@ÂI¤@ÂI¸Ñµ¹§Ú¬Ý¡A§ÚºCºC¾Ç©O?
ÁÂÁ±z¡C
Àɮצb¶³ºÝ¡Ghttp://webhd.xuite.net/_oops/jeffrey628litw/wyh |
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 17
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2024-3-12
|
¦^´_ 9# GBKEE
G¤j ª©¥D±z¦n¡G§Ú¬Ý¤F°ÝÃD3¤]¸Ñ¨M¤F¡A³Ñ¤U°ÝÃD2¡A³oÅÞ¿è¬On¼g
·íLable1 And Lable4 ¤£¬°ªÅ®É¥B¤£¬Û¦P¡A«hÅã¥Ü2±i¹Ï¤ù¨ìImage1 ©MImage4¡A
§_«h ·íLable1¤£µ¥©ó Label4¡A«hÅã¥ÜImage1 ¥B Image4¬°ªÅ
§_«h ·íLabel1µ¥©óªÅ¡ALable4¤£µ¥©óªÅ¡A«hÅã¥ÜImage1¬°ªÅ ¥BÅã¥Ü Image4ªº¹Ï¤ù
¬O³o¼Ë¤l¶Ü? ¬Oªº¸Üµ{¦¡n«ç»ò¼g©O?¦A½Ð±z½ç±Ð¡AÁÂÁ¡C
¶³ºÝÀɮסGhttp://webhd.xuite.net/_oops/jeffrey628litw/gdn |
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 17
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2024-3-12
|
¦^´_ 11# GBKEE
G¤j ª©¥D±z¦n¡G¹ï©ó°ÝÃD2 §Ú¦³·Ó±z»¡ªº±Nþ¤@¬qµ{¦¡ÁôÂôN¤£·|±N¨S¦³ªº¸ê®Æ¹ïÀ³ªº¹Ï¤ù¡A¼´¥X¤U¤@±i¹Ï¤ù¤F¡C
¬O§Ú¤§«e¨S¦³¸ò±z»¡²M·¡¡C
³o¼Ë´N¥þ³¡¸Ñ¨M¤F§Úªº°ÝÃD¤F¡A«Ü·PÁ±z³o»ò¦³@¤ß¦a¦^ÂЧڪº°ÝÃD¡A¦A¦¸·PÁ±z¡C |
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 17
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2024-3-12
|
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 17
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2024-3-12
|
¦^´_ 13# jeffrey628litw
³oÓ°ÝÃD¤U±¼g¿ù¡AÀ³¸Ó¬O
2.·QnÅã¥Ü¹Ï¤ù¸ê®Æ¡A¥H«K¶W³sµ²¨ìDatabase ¤u§@ªí¡A(¤£ª¾¬O§_¥ÎTextbox¡A¬Oªº¸Ün¦p¦ó¼gVBA©O?)
1.§Æ±æ±N¤u§@ªíDatabase ¸Ì±±NEÄæ¹ïÀ³BÄ檺¸ê®Æ¼´¥X¨Ó¡A
¨ìTextbox¡A
¨Ò¦pE3¼´¥XB3¨ìTextbox1
2.µM«áÅýTextboxªº¤å¦r¶W³sµ²¨ì¤u§@ªí Database
|
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 17
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2024-3-12
|
¦^´_ 15# GBKEE
G¤j ª©¥D±z¦n¡G¥X²{¤U±ªº±¡ªp¡A§Ú¬d¤£¨ì¦p¦ó¸Ñ?
|
|
|
|
|
|
|