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

ComboBox¿ï¦n¤å¦r«á¡AÄæ¦ì¨SªF¦è

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¬O­nªí³æ¥Î¤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:
¿Ã¹õºI¹Ï00030.jpg
2013-2-25 16:26

¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð
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

¦U¦ì¤j¤j¦n
¤p§Ì§Ú¤é«e¬ã¨s¢ä¢Ð¢Ï¥Îªk
¦ýµ{¦¡¼gªkÁÙ¬O¦³¨Ç¤£©ú¥Õ

¥Ø«e¹J¨ìªº°ÝÃD¬O
¥Î·N¬O­nªí³æ¥Î¤U ...
Jared µoªí©ó 2013-2-25 16:25


¤£¤Ó²M·¡­¶­±¤Wªº±¡ªp,
¦ý¬O³o¥y¬O¦³°ÝÃDªº
X = ("a1") & (".") & "a2" & (".") & "a3"
À³¸Ó¬O³o¼Ë
X = a1&"." & a2 & "." & a3
¤£µM­¶­±¤W¥u·|¥[¤W¼g¦º¤Fªº "a1.a2.a3"
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

·PÁ¤j¤jÀ°¦£
¦ý¬O³o¼Ëªº¼gªk
X = a1&"." & a2 & "." & a3
""¤@©w­n¥[¤W()
¤£µM·|§PÂ_³o¬O«D³¯­z¦¡¥X²{¿ù»~

§Ú¥D­nªº°ÝÃD¬O
­n«ç»ò³]©w
¤~¯à±N¤U©Ô¦¡¿ï³æªºªF¦è¦bÂI¿ïBottom«á
±N¸ê®Æ¶Ç¨ì«ü©wÄæ¦ì¤W

·P¿E¤£ºÉ>"<
Jared

TOP

¦^´_ 3# Jared
  1. Private Sub CommandButton1_Click()
  2. Dim A As Range
  3. If Application.CountBlank(Sheet1.Range("A5:A99")) = 0 Then
  4. Sheet1.[A100] = DateSerial(ComboBox1, ComboBox2, ComboBox3)
  5. Else
  6. Set A = [A5]
  7. Do Until A = ""
  8.   Set A = A.Offset(1, 0)
  9. Loop
  10. A.Value = DateSerial(ComboBox1, ComboBox2, ComboBox3)
  11. End If
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ¤j¤jªº¨ó§U
²×©ó¥i¥H¦^¶Ç¤U©Ô¦¡¿ï³æªº°T®§
¦ý¬O¤£¾å±o¬°¤°»ò
­ì¥»©R¦Wªº¤U©Ô¦¡¿ï³æ¬°¡yBox1¡z
Sheet1.[A100] = DateSerial(Box1, Box2, Box3)
·|¥X²{§ä¤£¨ì¦¨­ûªºÄµ§iµøµ¡
­n§ï¬°ComboBox3 ªº¦WºÙ¤~¨S¦³¥X¿ù
¦ý¬O§Ú­ì¥»³]©w­n±N³o¤T­ÓÄæ¦ìªº¼Æ­È
¤À§O¬°¦~¤ë¤é
³£¶Ç¨ìÄæ¦ì®ÉÅܦ¨§¹¾ã¤é´Á[¨Ò¦p¡G2013/02/28]
¦ý¶Ç¨ìA1®É¡A¤@«ßÅã¥Ü1999/11/30(¦p¹Ï)
¤£¾å±o¬°¤°»ò
§Æ±æ¯à¸Ñµª§ÚªººÃ´b
·P¿E¤£ºÉ!!
Jared

TOP

¦^´_ 5# Jared


    ³o¼Ëªº°ÝÃD¡A¨S¦³Àɮ׬O±o¤£¨ìµª®×ªº
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ¤j¤jªº¨ó§U
²×©ó¥i¥H¦^¶Ç¤U©Ô¦¡¿ï³æªº°T®§
¦ý¬O¤£¾å±o¬°¤°»ò
­ì¥»©R¦Wªº¤U©Ô¦¡¿ï³æ¬°¡yBox1¡z
Shee ...
Jared µoªí©ó 2013-2-27 10:13



   
²×©ó¥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§Ú­ì¥»³]©w­n±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

TOP

¥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

TOP

¦^´_ 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¤£ºÉ!! >"<
¿Ã¹õºI¹Ï00042.jpg
¿Ã¹õºI¹Ï00043.jpg
Jared

TOP

¦^´_ 8# mark15jill
©êºp>"<
§Æ±æ¨S¦³³y¦¨¥ô¦ó¤Hªº§xÂZ
Jared

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD