ã¨ã¯ã»ã«ï¼¶ï¼¢ï¼¡ã§ããã¤ãã¢ããªã±ã¼ã·ã§ã³ãä½ã£ã¦ããã¨ã ã¨ã¯ã»ã«ï¼¶ï¼¢ï¼¡ã®æ¥ä»å¦çã§æã®æå¾ã®æ¥ã調ã¹ããã¨ã(æ¥ä»ã®æ
å ±ã åå¾ãããã¨ã)ãåºã¦ããã¨æãã¾ãããã¨ãã°ãç¹å®ã«ã»ã«ã«ã æå®ãã¦æã®æ«æ¥ã表示ããããå ´åãªã©ãæã®æ«æ¥ã調ã¹ãã®ã¯ã DateSerialé¢æ°ã使ãã°ãå²ã¨ç°¡åãªè¨è¿°ã§èª¿ã¹ããã¾ãã [è¨è¿°ä¾]ãæã®æå¾ã®æ¥(ææ«)ã調ã¹ãVBAè¨è¿° Sub test() 'å¤æ°ã®å®£è¨ Dim a As Date 'æã®æå¾ã®æ¥ã調ã¹ã a = DateSerial(Year(Now), Month(Now) + 1, 1) - 1 'æå¾ã®æ¥ã表示ãã MsgBox a End Sub [åä½ã¨ããã°ã©ã ã®èª¬æ] VBAããã°ã©ã ã®åä½ã¯åç´ã§ããå®è¡ããã¨ãæã®æå¾ã®æ¥ä»ã表示ãã¾ãã ã¾ããå¤æ°ã宣è¨ãããã®å¤æ°ã«DateSerialé¢æ°ã使ã£ã¦èª¿ã¹ãæ¥ä»ã 代å
¥ã
{{#tags}}- {{label}}
{{/tags}}