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

[µo°Ý] ·j´M¡B¤ñ¹ï¡A¦A½Æ»s¹L¨Óªº¥\¯à

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


    ·PÁ¤j¤j´£¨Ñ¥t¤@§@ªk
    §Ú·|¦A¸Õ¸Õ¬Ýªº

   ¤µ¤Ñ¤ñ¸û¦³ªÅ¡A§Ú®³¥Õ¯ÈºCºCµe¡A²×©ó·dÀ´ KUBI¤j¤j¬°¤°»ò¯à¤£¥Î §PÂ_¦¡¨Ó°µ¤F
   ¦]¬°Ãþ¦ü¯Á¤Þªº¤è¦¡¡Aµe¤F§Ö30¤ÀÄÁ~ ¸Ñ¶}Á¼¹Î¤F(¶}¤ß~)
   
  ­ì¨Ó´N¬O¥ý§â©Ò¦³ªº°t¹ï¤èªk³£°O¿ý°_¨Ó¦b d ¸Ì­±
   0001+©m¦W  ´N¬O  ¤ý¤p©ú
   0001+¯Z¯Å  ´N¬O XXX
   ¥H¦¹Ãþ±À
  
   ¤§«á¨ìµ²ªG¨ºÃä¡A¦pªG§Ú­nªº¬O0002¡B0003¡AµM«á¼ÐÃD§Ú­nªº¬O©m¦W ¸ò Åé­«
   ¨º»ò0002+©m¦W ¥H¤Î 0002+Åé­« ¥H¤Î 0003+©m¦W  ¥H¤Î 0003+Åé­«
   ³£¥i¥H±q d¸Ì­±¥h§ä¨ì¤W­±¥|­Ó¬Û¹ïÀ³ªº­È
   µM«á¥¿½TÅã¥Ü¥X¨Ó

  ©Ò¥H¤£ºÞ§Úµ²ªG¨ºÃä§ï¦¨­n¥|ºØ¼ÐÃD  ¤ñ¦p©m¦W¡B¯Z¯Å¡B³ß¦n¡BÅé­«
  ©Î¬O¥u§ï¦¨¤TºØ¼ÐÃD
  ¥u­n¾Ç¸¹+¼ÐÃD
  ³£¯à¥¿½T¦a±q d ¸Ì­±¥h¯Á¤Þ¨ì¬Û¹ïÀ³ªº­È
  Ãø©Ç¥i¥H¤£¥Î §PÂ_¦¡
  ¼F®`!!!

  ¥u¬O»¡¦pªG¸ê®Æ¦A§óÃe¤j¤@¨Ç¡A³oºØ¥þ¬ö¿ýªº¤è¦¡¡A·|¤£·|«Ü¯Ó°O¾ÐÅé
  (¦ý¥Ø«e¥H§Ú¨Ï¥Îªº¸ê®Æ¶q¡A³£ÁÙ¬O¨¬¥H¥¿±`¨Ï¥Î)
«¢Åo~¤j®a¦n§r

TOP

­É³o­Ó¥DÃD¦A½Ð°Ý¤@¤U

¤ñ¦p 1¦~2¤ë3¤é  ¸g¹Lµ{¦¡Âà¤Æ  ¥i¥HÅܦ¨ 01¦~02¤ë03¤é
¦ý¬O¦pªG¨Ó·½¥u¦³³Ñ¤U¤ë  ©Î¤é
¸Ó«ç»ò¿ì?  Âà¤Æ«á¦~¤ë³£¿ù¤F



²Ä¤G­Ó°ÝÃD  ²{¦b¬O6¤ë
§Ú¥t¦s·sÀÉ·Q­n¥Î¦~+¤ë+ÀɦW
¤ñ¦p  "10806ÀÉ®×"
108¥i¯àÁÙ¦n¡A´N Mid(year(Date),1,3) ´N±o¨ì¤F
¦ý¬O¤ë´N³Â·Ð¤F
¦pªG1~9¤ë¥u¦³¤@­Ó¼Æ¦r
10~12¤ë¬O¨â­Ó¼Æ¦r
¸Ó«ç»òÅýÀɦW¦Û°Ê¸É0 ©O?

²Ä¤T­Ó°ÝÃD
µM«á¨ä¹ê§Ú·Q­n°µ¨ìªº¬O¥i¥H¦Û°Ê¦s¦¨¤U­Ó¤ëªº
¤ñ¦p²{¦b¬O¤»¤ë¡A¦ý¬O¦s°_¨Ó«o¬O "10807ÀÉ®×" ³o¼Ë

¥H¤W°ÝÃD¦Aµo°Ý¡AÁÂÁÂ


0001.jpg
2019-6-16 01:17


¬¡­¶Ã¯1.rar (16.33 KB)
«¢Åo~¤j®a¦n§r

TOP

¦^´_ 12# iceandy6150


    §Ú¦Û¤v§ä¨ì¸Ñ¨M¤èªk¤F¡A¯u¶}¤ß
¦pªGµ¹ªº¸ê®Æ¡A¬O¦³¦~¦³¤ë¡A¤ñ¦p 1¦~5¤ë³o¼Ë¡A´N¥Î¤@­Ó°µªk
¦pªGµ¹ªº¸ê®Æ¡A¥u¦³¤ë¨S¦³¦~¡A¤ñ¦p9¤ë¡B12¤ë¡A´N¥Î¥t¤@¿ìªk
³o¼Ë´N¯à§ï¦¨§Ú¦Û¤v­nªº 00¦~00¤ë ªº®æ¦¡¤F
  1.   c = .Range("D" & i).Value
  2.   
  3.   If c Like "*¦~*" Then  '¦³¦~¦³¤ë´N¥Î³o­Ó¤è¦¡§ï®æ¦¡

  4.    c = Application.Text(Replace(Replace(c, "¤ë", ":"), "¦~", ":"), "[hh]¦~mm¤ë")

  5.    Else
  6.    
  7.         f = Split(c, "¤ë")  '¦pªG¥u¦³¤ë  §PÂ_¬O¤@¦ì¼Æ(1~9¤ë)ÁÙ¬O¨â¦ì¼Æ(10~12¤ë)
  8.         
  9.         If Len(f(0)) = 1 Then
  10.            c = "00¦~0" & f(0) & "¤ë"
  11.         Else
  12.            c = "00¦~" & f(0) & "¤ë"
  13.         End If

  14.    End If
½Æ»s¥N½X
¬°¤°»ò­n°µ³o­Ó¥\¯à©O
¬O¦]¬°¨Ó·½¸ê®Æ«Ü¤£¤@©w
¦³®É­Ô¬O3¤ë  ¦³®É­Ô11¤ë  ¦³®É­Ô 1¦~5¤ë¡B10¦~11¤ëµ¥µ¥
¦ì¼ÆÅܨÓÅÜ¥h
¥ÎMID«ÜÃø©â¨ú

µM«á¤S­n®M¤W³W«h
¦pªGº¡¥b¦~´N«ç¼Ë«ç¼Ë---> ¥ýºâ¥X¦~¸ê´«ºâ¦¨¤ë¬O´X¤ë  º¡¥b¦~´N¬O¦~¸ê>=6
¦pªGº¡¤@¦~ --> ¦~¸ê>=12
¥Î³o¨Ç±ø¥ó¦A¨Ó°Ï¤À¦U¯Å¶Zªº¤H¸Ó¤U¤°»ò«ü¥O

¥H¤W¤p¤pµo²{¡A¦Û°Ý¦Ûµª
«¢Åo~¤j®a¦n§r

TOP

¦^´_ 13# iceandy6150

¦~¸ê??? ¥i¯à¦³¦p¤U±¡§Î???
1¦~3¤ë5¤é
1¦~5¤ë
1¦~12¤é
5¤ë18¤é
3¤ë
29¤é

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-6-20 11:53 ½s¿è

¦^´_ 12# iceandy6150


²Ä¤G­Ó°ÝÃD  ²{¦b¬O6¤ë
§Ú¥t¦s·sÀÉ·Q­n¥Î¦~+¤ë+ÀɦW
¤ñ¦p  "10806ÀÉ®×"
108¥i¯àÁÙ¦n¡A´N Mid(year(Date),1,3) ´N±o¨ì¤F
¦ý¬O¤ë´N³Â·Ð¤F
¦pªG1~9¤ë¥u¦³¤@­Ó¼Æ¦r
10~12¤ë¬O¨â­Ó¼Æ¦r
¸Ó«ç»òÅýÀɦW¦Û°Ê¸É0 ©O?


¥Î®æ¦¡mm§Y¥i.............¦Û¤v¸Õ¸Õ¬Ý:
MsgBox Application.Text(Now, "m/d")
MsgBox Application.Text(Now, "mm/d"))



²Ä¤T­Ó°ÝÃD
µM«á¨ä¹ê§Ú·Q­n°µ¨ìªº¬O¥i¥H¦Û°Ê¦s¦¨¤U­Ó¤ëªº
¤ñ¦p²{¦b¬O¤»¤ë¡A¦ý¬O¦s°_¨Ó«o¬O "10807ÀÉ®×" ³o¼Ë

¤£¦h»¡.....¦Û¤v¸Õ¬Ý¬Ý:
MsgBox Application.Text(DateSerial(Year(Now), Month(Now) + 1, Day(Now)), "emm")

§AÀ³¸Ó­n¾Çªº¬O¡A¦³Ãö®É¶¡ªº¨ç¼Æ»P®æ¦¡
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 13# iceandy6150


   
¦pªGº¡¥b¦~´N«ç¼Ë«ç¼Ë---> ¥ýºâ¥X¦~¸ê´«ºâ¦¨¤ë¬O´X¤ë  º¡¥b¦~´N¬O¦~¸ê>=6
¦pªGº¡¤@¦~ --> ¦~¸ê>=12
¥Î³o¨Ç±ø¥ó¦A¨Ó°Ï¤À¦U¯Å¶Zªº¤H¸Ó¤U¤°»ò«ü¥O

°Ñ¦Ò¬Ý¬Ý

¤J¾¤é´Á = DateValue("6 / 4 / 2014")    '¦Û¤v³]©w¤J¾¤é´Á
¦~¸ê = Application.Text(Now - ¤J¾¤é´Á, "yy/mm")
MsgBox "±i¤T¦~¸ê¦@" & Split(¦~¸ê, "/")(0) * 12 + Split(¦~¸ê, "/")(1) & "­Ó¤ë"
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

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


    ¦~¸êªº½T¦³¥i¯à¥u¦³¤é ©Î ¦~+¤é  ©Î ¦~+¤ë ©Î¦~¤ë¤é³£¦³
¦ý¬O§Ú³B²zªº¸ê®Æ¡A¬O²Ä¤G¤â
¤]´N¬O¥u¦³­pºâ¨ì¤ë¦Ó¤w

§Ú®³¨ìªº¸ê®Æ­n¹À´N¬O 3¤ë¡B6¤ë¡B11¤ë³o¼Ë
©Î¬O1¦~1¤ë

©Ò¥H¥u³Ñ¤U¨âºØ  ¦~+¤ë  ¡B¥u¦³¤ë
¦ý¬O¦~¡A¤S¦³¤À¬°1¦ì¼Æªº¸ò2¦ì¼Æªº¡A¤ñ¦p3¦~ ¸ò 12¦~
¤ë¤]¬O¤À¬°1¦ì¼Æªº¸ò2¦ì¼Æªº¡A¤ñ¦p4¤ë ¸ò 11¤ë

©Ò¥H§Ú¥u¦n·Q¿ìªk¨Ó³B²z
¤ñ¦p»¡1¦~¥H¤ºªº¤H¡A¼úª÷µo3000¤¸
º¡1¦~6¤ëªºµo4500¤¸

§Ú´N¥ý§â¦UºØ¸ê®Æ¡AÂন00¦~00¤ë
¦A¥ÎMID¥h¨ú¡AVAL()Åܦ¨¥i­pºâªº¼Æ¦r¡AµM«á´N¥i¥H§PÂ_
½Ö¸Óµo3000¤¸¡A½Ö¸Óµo4500¤¸....¥H¦¹Ãþ±À

·PÁ¤j¤j¦^´_³á
«¢Åo~¤j®a¦n§r

TOP

¦^´_ 16# n7822123


    ·PÁ¤j¤jªº¦^ÂÐ
¦]¬°§Ú¤â¤W®³¨ìªº¸ê®Æ¨Ã¨S¦³¨ì¾¤é
¤£µM·Ó¤j¤j³o¼Ë¼g¡A¬O«Ü¤è«K
³o¨Ç¼gªk§Ú³£·|¦sÀÉ
¥H«á­Y¦³¥Î¨ì¡A´N¥i¥H¬£¤W¥Î³õ
·PÁ·PÁÂ
«¢Åo~¤j®a¦n§r

TOP

¦^´_ 13# iceandy6150

Private Sub CommandButton1_Click()
c$ = Replace(Replace(Range("A1"), "¦~", ":"), "¤ë", "")
If IsNumeric(c) Then c = "0:" & c
c = Application.Text(c, "[hh]¦~mm¤ë")
Range("B1") = c
End Sub

======================

TOP

¦^´_ 15# n7822123


Private Sub CommandButton2_Click()
d& = Evaluate("edate(" & CLng(Date) & ", 1)")
ym$ = Format(d, "emm") & "ÀÉ®×"
MsgBox ym
End Sub

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD