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

[µo°Ý] button¸ó¤éÅã¥Ü

[µo°Ý] button¸ó¤éÅã¥Ü

½Ð±Ð½×¾Âªº¤j¤j­Ì
¦]¬°¤½¥q³Ìªñ¨Ó¤F«Ü¦h·s¤H¡A©Ò¥H³æ¦ì±N¼´¨ú¸ê®Æªº¤u§@¥æµ¹¦Ñ³¾³B²z
¥i¯à¬O¦]¬°¦Ñ³¾¹ïExcelªº¾Þ§@¤£¼ô¡AÁ`¬O«ö¿ùbutton
¥DºÞ¸ß°Ý¬O§_¦³¿ìªk±±¨îbuttonªºÁôÂÃ

¥H¤U¬O§Ú¼gªº±ø¥ó+»yªk
¦­¯Zªº«ö¶s¡G08:00Åã¥Ü¡A20:00ÁôÂÃ
©]¯Zªº«ö¶s¡G20:00Åã¥Ü¡A08:00ÁôÂÃ
¦­¯Zªº«ö¶s°õ¦æ§¹«áÁôÂð_¨Ó
¦]¬°morning button°õ¦æ«áÁôÂáA¦pªG®É¶¡¥¼¶W¹L20:00®É¦A¶}±ÒÀÉ®×morning button´N·|¦A¥X²{
©Ò¥H§Ú¦³¼g¤@¬q§PÂ_¡A¦pªGmorning button¬OÁôÂ꺪¬ºA´N¸õ¥X
¬°¤F«OÃÒ©ú¤Ñ08:00 morning button¯à¥¿±`Åã¥Ü¡A§Ú¤S¼g¤F¤@¬q
¦pªGnow>=DateSerial(Year(Date), Month(Date), Day(Date) + 1) + Åã¥Ü®É¶¡¡Amorning button´NÅã¥Ü
¨ì¤F¹j¤Ñµo²{morning button¨S¦³Åã¥Ü¡A½Ð¨D½×¾Âªº¤j¯«­ÌÀ°¦£¸Ñ´b¡A·PÁÂ



buttonª¬ºA§ïÅÜ.zip (48.65 KB)

Private Sub Workbook_Open()
Dim Chk%, HR
HR = Hour(Time)
If HR >= 8 And HR < 20 Then Chk = 1
Sheets("¤u§@ªí1").Shapes("Button 3").Visible = (Chk = 1)
Sheets("¤u§@ªí1").Shapes("Button 1").Visible = (Chk = 0)
End Sub

¥t¥~//«O¥þ°µªk
¨â­Ó«ö¶s¥²¶·¨Ì·í«e®É¶¡§PÂ_...«D³\¥i®É¶¡¤£¥i°õ¦æ

TOP

¼ÒÀÀ±¡¹Ò//
Xl0000090.rar (19.19 KB)

TOP

¦^´_ 3# ­ã´£³¡ªL

«D±`·PÁ­㴣³¡ªL¤j¤jªº¸Ñ´b

¤p§Ì¬ã¨s¤@¤U¤j¤jªº¼gªk
¦³ÂI¬Ý¤£¤ÓÀ´

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD