½Ð°Ý(°õ¦æ¶¥¬q¿ù»~ 75)°ÝÃD
- ©«¤l
- 49
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- IE8
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-10-10
- ³Ì«áµn¿ý
- 2014-5-10
|
½Ð°Ý(°õ¦æ¶¥¬q¿ù»~ 75)°ÝÃD
¤u§@ªí¤W¦³¼ÆÓ«ö¶s¡A¥i¥H°õ¦æ¦U¦Ûªí³æ
¶}±ÒÀɮ׫á¶i¤J°õ¦æ¡A¨CÓ«ö¶s¤Îªí³æ³£¥i¥¿±`°õ¦æ
¦pªG¼Æ¤ÀÄÁ³£µL°õ¦æ¥ô¦ó°Ê§@«á¡A¦A«ö¬Y¨Ç«ö¶s
´N·|µo¥Í(°õ¦æ¶¥¬q¿ù»~ 75)µøµ¡
½Ð°Ý¤£ª¾¹D¦³¨S¦³¤H¹J¨ì¹L
©Î¬Oª¾¹D¦p¦ó³B²z
ÁÂÁÂ |
|
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- IE8
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-10-10
- ³Ì«áµn¿ý
- 2014-5-10
|
¥Ø«e¦n¹³¥u¦³¤@¥xµo¥Í¡A±N¦A¦h´ú´X¥x¹q¸£¸Õ¸Õ |
|
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- IE8
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-10-10
- ³Ì«áµn¿ý
- 2014-5-10
|
|
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- IE8
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-10-10
- ³Ì«áµn¿ý
- 2014-5-10
|
³o¬O³Ì·s´ú¸Õµ²ªG¡A¤w¦³¦h¥x¹q¸£µo¥Í
¥t¥~¸É¥R¡G
1.¶À¦â³¡¤À¬O¥X°ÝÃDªºµ{¦¡½X
2.¥X²{(¸ô®|©ÎÀɮצs¨ú¿ù»~)µøµ¡¡A¬O¦]¬°§ÚÂI¿ï¤F¥ªÃäµøµ¡¤ºªº(¤u§@®É¼Æ¿é¤Jªí³æ2)ªºµ²ªG
3.¥ªÃäµøµ¡¤ºªº(¤u¦a°ò¥»¸ê®Æªí³æ)¥iÂI¿ï
4.¥ªÃäµøµ¡¤ºªº(¤u§@®É¼Æ¿é¤Jªí³æ)ÂI¿ï«á·|¥X²{¡A(¸ô®|©ÎÀɮצs¨ú¿ù»~)µøµ¡
5.Ãö³¬Àɮ׫á¡A¦A«·s¶}±Ò¡Aµ{¦¡ÁÙ¬O¥i¥H¥¿±`¹B§@¡C
6.¤°»ò®ÉÔ·|µo¥Í©O¡H>>¨Ï¥ÎªÌ¶}±ÒÀɮ׫á¼Æ¤ÀÄÁor¤Q´X¤ÀÄÁ¤º¥¼¨Ï¥ÎÁä½L¤Î·Æ¹«´N·|µo¥Í
¦A³Â·Ð¦U¦ì¤j¤j¸Ñ´b¤F
ÁÂÁÂ
|
|
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- IE8
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-10-10
- ³Ì«áµn¿ý
- 2014-5-10
|
¤£¦n·N«ä¡A³o¬Oµ{¦¡½X¡A¤£¾å±o°÷¤£°÷
¥t¥~¸É¥R¡G
1.¨Ã¤£¬O¨C¥x¹q¸£³£·|µo¥Í
2.¨C¥x¹q¸£¦w¸Ëªº³nÅé³£®t¤£¦h¡A¤]¦³è¸Ë¦nªº
3.¿Ã¹õ«OÅ@¼Ò¦¡¤wÃö³¬¡A¹q·½³]©w¤@ª½¶}±Ò
Private Sub ¤u§@®É¼Æ¿é¤J2_Click()
Call ¤u§@®É¼Æ¿é¤Jªí³æ2_³]©w
¤u§@®É¼Æ¿é¤Jªí³æ2.Show
End Sub
Sub ¤u§@®É¼Æ¿é¤Jªí³æ2_³]©w()
Dim IA As Integer '¾ã¼Æ -32,768~32767
¤u§@®É¼Æ¿é¤Jªí³æ2.¦~¤ë¿ï³æ°Ï.Clear
For IA = Sheets("TEMP").Range("F9").Value To 11 Step -1
¤u§@®É¼Æ¿é¤Jªí³æ2.¦~¤ë¿ï³æ°Ï.AddItem Sheets("TEMP").Range("F" & IA).Value
Next IA
¤u§@®É¼Æ¿é¤Jªí³æ2.¦~¤ë¿ï³æ°Ï.ListIndex = 0
Call §ó·sTEMPû¤u¸ê®Æ
¤u§@®É¼Æ¿é¤Jªí³æ2.û¤u½s¸¹.Clear
With ¤u§@®É¼Æ¿é¤Jªí³æ2.û¤u½s¸¹
.Clear
'.ColumnCount = MYRS.Fields.Count - 1
.ColumnCount = 2
.ColumnWidths = "1.5cm;3cm"
For IA = 11 To Sheets("TEMP").Range("I9").Value
.AddItem
.List(IA - 11, 0) = Sheets("TEMP").Range("I" & IA).Value
.List(IA - 11, 1) = Sheets("TEMP").Range("J" & IA).Value
Next IA
End With
§ó·sTEMP¤u¦a¸ê®Æ
With ¤u§@®É¼Æ¿é¤Jªí³æ2.¤u¦a¿ï³æ
.Clear
'.ColumnCount = MYRS.Fields.Count - 1
.ColumnCount = 2
.ColumnWidths = "1.5cm;3cm"
For IA = 11 To Sheets("TEMP").Range("R9").Value
.AddItem
.List(IA - 11, 0) = Sheets("TEMP").Range("R" & IA).Value
.List(IA - 11, 1) = Sheets("TEMP").Range("S" & IA).Value
Next IA
End With
¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.Clear
¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¤éA"
¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¤éB"
¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¤W¤È"
¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¤U¤È"
¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¥[A"
¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¥[B"
¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.AddItem "¥[¯Z"
¤u§@®É¼Æ¿é¤Jªí³æ2.®É¬q.ListIndex = 0
With ¤u§@®É¼Æ¿é¤Jªí³æ2.°_©l®É¤À
.Clear
.AddItem "0000"
.AddItem "0030"
.AddItem "0100"
.AddItem "0130"
.AddItem "0200"
.AddItem "0230"
.AddItem "0300"
.AddItem "0330"
.AddItem "0400"
.AddItem "0430"
.AddItem "0500"
.AddItem "0530"
.AddItem "0600"
.AddItem "0630"
.AddItem "0700"
.AddItem "0730"
.AddItem "0800"
.AddItem "0830"
.AddItem "0900"
.AddItem "0930"
.AddItem "1000"
.AddItem "1030"
.AddItem "1100"
.AddItem "1130"
.AddItem "1200"
.AddItem "1230"
.AddItem "1300"
.AddItem "1330"
.AddItem "1400"
.AddItem "1430"
.AddItem "1500"
.AddItem "1530"
.AddItem "1600"
.AddItem "1630"
.AddItem "1700"
.AddItem "1730"
.AddItem "1800"
.AddItem "1830"
.AddItem "1900"
.AddItem "1930"
.AddItem "2000"
.AddItem "2030"
.AddItem "2100"
.AddItem "2130"
.AddItem "2200"
.AddItem "2230"
.AddItem "2300"
.AddItem "2330"
.AddItem "2400"
End With
¤u§@®É¼Æ¿é¤Jªí³æ2.°_©l®É¤À.ListIndex = 16
With ¤u§@®É¼Æ¿é¤Jªí³æ2.²×¤î®É¤À
.Clear
.AddItem "0000"
.AddItem "0030"
.AddItem "0100"
.AddItem "0130"
.AddItem "0200"
.AddItem "0230"
.AddItem "0300"
.AddItem "0330"
.AddItem "0400"
.AddItem "0430"
.AddItem "0500"
.AddItem "0530"
.AddItem "0600"
.AddItem "0630"
.AddItem "0700"
.AddItem "0730"
.AddItem "0800"
.AddItem "0830"
.AddItem "0900"
.AddItem "0930"
.AddItem "1000"
.AddItem "1030"
.AddItem "1100"
.AddItem "1130"
.AddItem "1200"
.AddItem "1230"
.AddItem "1300"
.AddItem "1330"
.AddItem "1400"
.AddItem "1430"
.AddItem "1500"
.AddItem "1530"
.AddItem "1600"
.AddItem "1630"
.AddItem "1700"
.AddItem "1730"
.AddItem "1800"
.AddItem "1830"
.AddItem "1900"
.AddItem "1930"
.AddItem "2000"
.AddItem "2030"
.AddItem "2100"
.AddItem "2130"
.AddItem "2200"
.AddItem "2230"
.AddItem "2300"
.AddItem "2330"
.AddItem "2400"
End With
¤u§@®É¼Æ¿é¤Jªí³æ2.²×¤î®É¤À.ListIndex = 35
¤u§@®É¼Æ¿é¤Jªí³æ2.®É¼Æ.Value = 8
End Sub |
|
|
|
|
|
|
- ©«¤l
- 172
- ¥DÃD
- 39
- ºëµØ
- 20
- ¿n¤À
- 177
- ÂI¦W
- 0
- §@·~¨t²Î
- Microsoft Windows XP
- ³nÅ骩¥»
- Microsoft Office 2003
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2023-3-19
|
¥»©«³Ì«á¥Ñ Min ©ó 2010-11-9 20:18 ½s¿è
"¤u§@®É¼Æ¿é¤Jªí³æ2.¦~¤ë¿ï³æ°Ï.Clear" ¥X¿ù
¨º§Aªº"¦~¤ë¿ï³æ°Ï" ¬OSheet¶Ü? ÁÙ¬Oobject? ....
Àˬd¤@¤U"¦~¤ë¿ï³æ°Ï"§a~ |
|
Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I
Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- IE8
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-10-10
- ³Ì«áµn¿ý
- 2014-5-10
|
¤u§@®É¼Æ¿é¤Jªí³æ2 ¬O UserForm
¦~¤ë¿ï³æ°Ï ¬O ComboBox
·Pı¤W¤£¹³¬Oµ{¦¡½XªºÃö«Y
¦p¬Oµ{¦¡½XªºÃö«Y¦p¦ó¸ÑÄÀ¥H¤U´XÓºÃÂI¡F
1.¬Û¦Pµ{¦¡¬°¦ó¦³¨Ç¹q¸£¥i°õ¦æ¨S¦³°ÝÃD
2.§Úı±o³Ì¤jºÃÂI¬O5¼Óªº¹Ï¡A¨ä¤¤ªº¡A¥X²{(¸ô®|©ÎÀɮצs¨ú¿ù»~)µøµ¡¡A¬O¦]¬°§ÚÂI¿ï¤F¥ªÃäµøµ¡¤ºªº(¤u§@®É¼Æ¿é¤Jªí³æ2)ªºµ²ªG
¬°¦ó§ÚÂI¿ï¤F¥ªÃäµøµ¡¤ºªº(¤u§@®É¼Æ¿é¤Jªí³æ2)¡A½T¥X²{(¸ô®|©ÎÀɮצs¨ú¿ù»~)µøµ¡¡A³oÀ³¸Ó¸òµ{¦¡½X¨S¦³Ãö«Yªü(PS.ÀÉ®×Ãö³¬«á¦A¶}±Ò´N¥i¥H¶i¤J(¤u§@®É¼Æ¿é¤Jªí³æ2))¡A¯u©_©Ç
µ{¦¡½X¿ù»~À³¸Ó¤£·|³o¼Ë§a¡H |
|
|
|
|
|
|