ComboBox¿ï¦n¤å¦r«á¡AÄæ¦ì¨SªF¦è
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
ComboBox¿ï¦n¤å¦r«á¡AÄæ¦ì¨SªF¦è
¥»©«³Ì«á¥Ñ Jared ©ó 2013-2-25 16:26 ½s¿è
¦U¦ì¤j¤j¦n
¤p§Ì§Ú¤é«e¬ã¨s¢ä¢Ð¢Ï¥Îªk
¦ýµ{¦¡¼gªkÁÙ¬O¦³¨Ç¤£©ú¥Õ
¥Ø«e¹J¨ìªº°ÝÃD¬O
¥Î·N¬Onªí³æ¥Î¤U©Ô¦¡¿ï³æ¿ï¾Ü§¹¦~¤ë¤é«á
¶Ç¦^Sheetªº¬YÓÄæ¦ì
¦ý¬O§Úªºµ{¦¡Åܦ¨ªì©lÈÅã¥Ü¬OªÅ¥Õ¡AÁÙ¥i¥H¶ñ¼g¡]¥¿±`¬O¦³¹w³]È¡A¨Ã¥BµLªk°µ×§ïªº°Ê§@¡^
ÁöµM¤U©Ô¦¡¿ï³æ¤w¸g¿ï¦n¤å¦r
¥i¬O¶Ç¦^Sheet«á¬OªÅ¥Õ¨SªF¦è
¥H¤U¬O§Ú¥Ø«e¼gªº
³Â·Ð¦U¦ì¤j¤j¯àÀ°§Ú¸Ñ´b
·P¿E¤£ºÉ!!!:dizzy:
¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð
Private Sub CommandButton1_Click()
Call test2
End Sub
¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð
Sub test2()
Dim X
a1 = test.Box1.Value '¦~
a2 = test.Box2.Value '¤ë
a3 = test.Box3.Value '¤é
X = ("a1") & (".") & "a2" & (".") & "a3"
If Application.CountBlank([C5:C99]) = 0 Then Range("C100") = X: Exit Sub
For Each a In [C5:C99]
If a = "" Then
a.Value = X
Exit For
End If
Next
End Sub |
|
Jared
|
|
|
|
|
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¦^´_ 11# Hsieh
·PÁ¤j¤jªº¨ó§U
¦ý¬O§Ú¤£©ú¥Õªº¬O
°õ¦æ³o¦æµ{¦¡
If Val(ComboBox1) > 0 And Val(ComboBox2) > 0 Then
´N¥X²{
¤£ª¾¹D¬O¤°»ò°ÝÃD¡Ö"¡Õ |
|
Jared
|
|
|
|
|
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¦^´_ 12# mark15jill
ÁÙ¨S¦³...>"<
ÁÙ¦b§ä´M¨ä¥L¿ìªk |
|
Jared
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í![Rank: 3](images/default/star_level2.gif) ![Rank: 3](images/default/star_level1.gif)
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¦^´_ 10# Jared
¤£·|°Õ£¾£¾
¥u¬O§Ú¤ñ¸ûÂû±C¦Ó¤w..
¸Ü»¡ ±zªº°ÝÃD¦³¸Ñ¨M¤F¶Ü? |
|
¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~
¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk
¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM
|
|
|
|
|
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¦^´_ 8# mark15jill
©êºp>"<
§Æ±æ¨S¦³³y¦¨¥ô¦ó¤Hªº§xÂZ |
|
Jared
|
|
|
|
|
- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¦^´_ 6# Hsieh
´ú¸ÕÀÉ.zip (23.54 KB)
©êºp! §¨±aÀɮצpªþ¥ó
DateSerial ªº»yªk¬O±N¿ï³æªº¼Æ¦r§PÂ_¬°¤é´Á
¦ý¬O¿ï³æ¿ï¾Üªº¼ÆÈ«oµLªk§ì¨ì
¨C«ö¤@¦¸Button±N¸ê®Æ°e¥X
¼ÆÈ´N¦b¿ï³æ¸ÌÀY½Æ»s¤@¦¸
¤£¾å±oì¦]¬°¦ó
ÁٽФj¤j¸Ñ´b
·P¿E¤£ºÉ!! >"< |
|
Jared
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í![Rank: 3](images/default/star_level2.gif) ![Rank: 3](images/default/star_level1.gif)
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¥t¥~¡A³o°ÝÃDÀ³¸Ó¬OÄÝ©óµ{¦¡°Ï¶ô§a... «ç¶]¨ì¤@¯ë°Ï == |
|
¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~
¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk
¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í![Rank: 3](images/default/star_level2.gif) ![Rank: 3](images/default/star_level1.gif)
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
ÁÂÁ¤j¤jªº¨ó§U
²×©ó¥i¥H¦^¶Ç¤U©Ô¦¡¿ï³æªº°T®§
¦ý¬O¤£¾å±o¬°¤°»ò
쥻©R¦Wªº¤U©Ô¦¡¿ï³æ¬°¡yBox1¡z
Shee ...
Jared µoªí©ó 2013-2-27 10:13 ![](https://forum.twbts.com/images/common/back.gif)
²×©ó¥i¥H¦^¶Ç¤U©Ô¦¡¿ï³æªº°T®§
¦ý¬O¤£¾å±o¬°¤°»ò
쥻©R¦Wªº¤U©Ô¦¡¿ï³æ¬°¡yBox1¡z
Sheet1.[A100] = DateSerial(Box1, Box2, Box3)
·|¥X²{§ä¤£¨ì¦¨ûªºÄµ§iµøµ¡
³oÂI¡A§A¦b«Å§i®É¡A¦³µL±N Box1«Å§i¦¨ ComboBox1
¦pªG¨S¦³¡A·íµM§ä¤£¨ì..
n§ï¬°ComboBox3 ªº¦WºÙ¤~¨S¦³¥X¿ù
¦ý¬O§Ú쥻³]©wn±N³o¤TÓÄæ¦ìªº¼ÆÈ
¤À§O¬°¦~¤ë¤é
³£¶Ç¨ìÄæ¦ì®ÉÅܦ¨§¹¾ã¤é´Á[¨Ò¦p¡G2013/02/28]
¦ý¶Ç¨ìA1®É¡A¤@«ßÅã¥Ü1999/11/30(¦p¹Ï)
¤£¾å±o¬°¤°»ò
³oÂI¡AMS Office ªº®É¶¡¹w³]È쥻´N¤£¬O·Ó¥¿±`ªº®É¶¡¹w³]
°£«D¥t¥~³]©w¡Aºô¸ô¤W¦³¤èªk |
|
¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~
¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk
¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM
|
|
|
|
|