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

[µo°Ý] Excel userformªºDatepickerÂà¨ìspreadsheetªº®æ¦¡°ÝÃD

[µo°Ý] Excel userformªºDatepickerÂà¨ìspreadsheetªº®æ¦¡°ÝÃD

Hello ¦U¦ì¤j¤j¦n,
¥H¤U¬O§ÚÀ³¥Îuserform»Pdtpicker®É¹J¨ìªº°ÝÃD, ½Ð¦n¤ßªº¤j¤jÀ°¦£¸Ñ´b~  ÁÂÁÂ

1. userform¦³´¡¤JdtpickerÂI¿ï¤é´Á,

VBA½X:
Private Sub «È¤á¤ÏÀ³¤é´Á1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)   
End Sub

dtpickerÄݩʪº³]©w¦p¤U:

Äݩʳ]©w2.PNG

2. ±Nuserformªºdtpicker¼g¤JspreadsheetªºVBA½X:
r = Range("D10").End(xlDown).Row + 1
        Cells(r, "I") = «È¤á¤ÏÀ³¤é´Á1.Value

3.°ÝÃD¨Ó¤F:
¼g¤J¨ìspreadsheet«á, ·|¼g¤J ¦~/¤ë/¤é/¤p®É/¤ÀÄÁ.
§Ú¬O·Q­n¥u¼g¤J ¦~/¤ë/¤é, ½Ð°Ý­n«ç»ò­×§ï©O?

ÁÂÁÂ
N/A

¦^´_ 2# a5007185

¥i¦æ!
·P®¦¤j¤j  Æg¹Ä!:D
N/A

TOP

  1. Cells(r, "I") = Format(«È¤á¤ÏÀ³¤é´Á1.Value,"YYYY/MM/DD")
½Æ»s¥N½X
¸Õ¸Õ³o­Ó

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD