[µo°Ý] ª½¦¡¤é´Á+¬P´Á¤½¦¡¤§ºÃ´b...

cypd

ª½¦¡¤é´Á+¬P´Á¤½¦¡¤§ºÃ´b...

¦p¤U¹Ï©Ò¥Ü

B4¤½¦¡¬°  =IFERROR(IF(WEEKDAY(A4,2)=7,"¤é",WEEKDAY(A4,2)),"")

½Ð°Ý¸Ó¦p¦ó­×¥¿??

¤U¸ü (134.4 KB)

2023-5-4 01:15

1120503.rar (21.09 KB)

¤U¸ü¦¸¼Æ: 12

2023-5-4 01:16

­ã´£³¡ªL

A6//¤é´Á
=IF(MONTH(MAX(A$4:A4)+1)=$AH$2,MAX(A$4:A4)+1,"")

B4//¬P´Á
=RIGHT(TEXT(A4,"aaa"))

cypd

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

·PÁ  ­ã´£³¡ªL¦^ÂÐ

¸g¥N¤J¤½¦¡¹ê´ú...¬P´ÁÅã¥ÜÁÙ¬O¤@¼Ëµ²ªG³á

Office 2010 ª©(win 10)

aer

¦^´_ 3# cypd

A4=DATE($AH$1+1911,$AH$2,1)

­ã´£³¡ªL

¦^´_ 3# cypd


¨Sª`·N¨ì¬O¥Á°ê¦~, +1911

cypd

¦^´_ 4# aer

«D±`·PÁÂ aer ¦^ÂÐ
­ì¨Ó°ÝÃD...¥Á°ê¦~»P¦è¤¸¦~¦³®§®§¬ÛÃö...

¸g¹ê´ú¥H´ú¬O¥¿±`Åã¥ÜµL»~  ^^

cypd

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

·PÁ ­ã´£³¡ªL ...

¤w°Ñ°u  ¥Á°ê¦~, +1911

©Ò´£°ÝÃD¤w­×¥¿§¹¦¨  ^^

Andy2483

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ßVBAªº¤èªk,¾Ç²ß¤è®×¦p¤U:

Option Explicit
Sub TEST_2()
Dim Brr, i&, Y%, M%, D1 As Date, D2 As Date, N%
Y = [AH1] + 1911: M = [AH2]: D1 = Y & "/" & M & "/" & "1"
Y = IIf(M = 12, Y + 1, Y): M = IIf(M = 12, 1, M + 1)
D2 = Y & "/" & M & "/" & "1": D2 = D2 - 1
With [A4:B65]
   .ClearContents: Brr = .Value: .FormatConditions.Delete: .Interior.ColorIndex = xlNone
   For i = 0 To (D2 - D1)
      Brr(i * 2 + 1, 1) = D1 + N: Brr(i * 2 + 1, 2) = Right(Format(D1 + N, "aaa"), 1)
      If InStr("¤»¤é", Brr(i * 2 + 1, 2)) Then Cells(i * 2 + 4, "B").Interior.ColorIndex = 38
      N = N + 1
   Next
   .Value = Brr
End With
End Sub

cypd

¦^´_ 8# Andy2483

«D±`·PÁÂ Andy2483

¹ê´ú¤§«á°õ¦æ¶¶ºZ...·PÁÂ

Andy2483

¦^´_ 9# cypd


    ÁÂÁ«e½ú¦^´_,¤@°_¾Ç²ß
«á¾Ç¤µ¤Ñ½Æ²ß³o©«,¤è®×¾Ç²ß¤ß±oµù¸Ñ¦p¤U,½Ð«e½ú°Ñ¦Ò

Option Explicit
Sub TEST_2()
Dim Brr, i&, Y%, M%, D1 As Date, D2 As Date
'¡ô«Å§iÅܼÆ
Y = [AH1] + 1911: M = [AH2]: D1 = Y & "/" & M & "/" & "1"
'¡ô¥OYÅܼƬO [AH1]Àx¦s®æ­È+1911,
'¥OMÅܼƬO [AH2]Àx¦s®æ­È,
'¥OD1³o¤é´ÁÅܼƬO ¦è¤¸¦~/¤ë/1
Y = IIf(M = 12, Y + 1, Y): M = IIf(M = 12, 1, M + 1)
'¦pªG¤ë¥÷¬O12,´N¥O¦~¤À+1,
'¦pªG¤ë¥÷¬O12,´N¥O¤ë¥÷¬O 1¤ë,§_«h´N±N¤ë¥÷+1,
'³o¬O­n³B¸Ì¸ó¦~¿ë»{12¤ë³Ì«á¤@¤Ñ
D2 = Y & "/" & M & "/" & "1": D2 = D2 - 1
'¡ô¥OD2³o¤é´ÁÅܼƬO ¦è¤¸¦~/¤ë/1 (D2¬O¤U­Ó¤ëªº²Ä1¤Ñ)
'¡ô¥OD2ÅܼƬO¦Û¨­¤é´Áªº«e¤@¤Ñ(¤]´N¬O¤W­Ó¤ëªº³Ì«á¤@¤Ñ)
With [A4:B65]
'¡ô¥H¤U¬OÃö©óÀx¦s®æªºµ{§Ç
   .ClearContents: Brr = .Value
   '¡ô²M°£Àx¦s®æ¤º®e
   .FormatConditions.Delete
   '¡ô§R°£®æ¦¡¤Æ±ø¥ó
   .Interior.ColorIndex = xlNone
   '¡ô¥OÀx¦s®æ©³¦â¬O µL¦â
   For i = 0 To (D2 - D1)
   '¡ô³]¶¶°j°é
      Brr(i * 2 + 1, 1) = D1 + i + 1: Brr(i * 2 + 1, 2) = Right(Format(D1 + i + 1, "aaa"), 1)
      '¡ô¥O¤é´Á»P¬P´Á¼g¤JBrr°}¦C¸Ì
      If InStr("¤»¤é", Brr(i * 2 + 1, 2)) Then Cells(i * 2 + 4, "B").Interior.ColorIndex = 38
      '¡ô¥O§Y±N¬O¬P´Á¤»¤éªºÀx¦s®æ©³¦â¥ýÅܬ°®ç¬õ¦â
   Next
   .Value = Brr
   '¡ô¥OBrr°}¦C­È¼g¤JÀx¦s®æ¤¤
End With
End Sub