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

[µo°Ý] ¤£¦P¤u§@ªí¡A¨Ì¤é´Á°Ï¶¡±ø¥ó¥[Á`

[µo°Ý] ¤£¦P¤u§@ªí¡A¨Ì¤é´Á°Ï¶¡±ø¥ó¥[Á`

¤j®a¦n¡A
·Q½Ð°Ý¦p¦ó±N¤£¦P¤u§@ªí¡A¨Ì¤é´Á°Ï¶¡±ø¥ó¥[Á`¡A¬ÛÃö»¡©ú¦p¤U¡G


³o¬O2022¦~1¤ëªº¤u§@ªí¸ê®Æ¡A¦@3µ§¡Aª÷ÃB¦X­p¬O60

(µù¡G2022¦~2¤ë~5¤ëªº¸ê®Æ³£¿W¥ß©ñ¦b¦U¤ëªº¤u§@ªí¸ê®Æ¤¤¡C¦ý¨C­Ó¤ëªºµ§¼Æ¤£¤@©w³£¬O3µ§¡A¨Ò¦p4¡B5¤ëªºµ§¼Æ¬O4µ§¡C)
(µù¡G¥»¨Ò¤w¦³Â²¤Æ¡A¦]¦¹¶È¦C¥Ü5­Ó¤ë¡C)


¦¹¬°¡u·JÁ`¡vªº¤u§@ªí¡C¦b¡u­pºâ´Á¶¡¡v¤â°Ê¶ñ¤J´Á¶¡¡A
¨Ò¡G¡u2022¦~1¤ë~2022¦~3¤ë¡v«h¡A¤½¦¡·|¦Û°Ê§â2022¦~1~3¤ëªº¦X­p¥[Á`°_¨Ó±o¨ì1560
¨Ò¡G¡u2022¦~1¤ë~2022¦~5¤ë¡v«h¡A¤½¦¡·|¦Û°Ê§â2022¦~1~3¤ëªº¦X­p¥[Á`°_¨Ó±o¨ì6360
¨ä¥L¨Ì¦¹Ãþ±À¡F¦Ó­Y¡u2022¦~1¤ë~2022¦~1¤ë¡v¡A«h¬O¶ÈÅã¥Ü2022¦~1¤ëªº¸ê®Æ

³Ì«áªþ¤WªþÀÉ¡G ·s¼W Microsoft Excel ¤u§@ªí.zip (10.86 KB)

·Q½Ð±Ð¤j®a¡A¸Ó¦p¦ó¼g¤½¦¡©O? ¦A³Â·Ð¦U¦ì¤j¤j¡A´£¨ÑÀ°§U¡AÁÂÁ¤j®a¡C

¤j®a¦n¡A
·Q½Ð°Ý¦p¦ó±N¤£¦P¤u§@ªí¡A¨Ì¤é´Á°Ï¶¡±ø¥ó¥[Á`¡A¬ÛÃö»¡©ú¦p¤U¡G


³o¬O2022¦~1¤ëªº¤u§@ªí¸ê®Æ¡A ...
gaishutsusuru µoªí©ó 2022-6-14 22:26


½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

·s¼W Microsoft Excel ¤u§@ªí_0615.zip (21.77 KB)

TOP

¦^´_ 2# samwang

samwang¤j¤j±z¦n¡AÁÂÁ±z´£¨Ñªº¥¨¶°ÀɮסC
¸g´ú¸Õ«á¡A­Y§ï¤F¦~¥÷¡A¦n¹³´N·|¥X¿ù¤F¡C¨Ò¦p¡A­pºâ´Á¶¡§ï¨ì¡u2021¦~1¤ë~2021¦~1¤ë¡v¡A¥¿½Tµ²ªGÀ³¸Ó·|¬O0¡C¦]¬°¤u§@ªíªº¸ê®Æ¬O2022¦~¡C¦ý¤´·|Åã¥Ü60¡C½Ð°Ý¸Ó¦p¦ó­×§ï©O? ÁÂÁ¡C

-----
¥t¥~¡A·Q½Ð±Ð±z¡A¦pªG¨C­Ó¤u§@ªíªºµ§¼Æ³£¬O3µ§¡C¥ç§Y¨C­Ó¤u§@ªíªº¦X­pª÷ÃB³£·|¥X²{¦b¦U¦Û¤u§@ªíªºB6Àx¦s®æ¡C½Ð°Ý³o¼Ë¦³¿ìªk¥Î¼g¤½¦¡ªº¤è¦¡³B²z¶Ü?ÁÂÁ±z¡C

TOP

¦^´_ 3# gaishutsusuru

¸g´ú¸Õ«á¡A­Y§ï¤F¦~¥÷¡A¦n¹³´N·|¥X¿ù¤F¡C¨Ò¦p¡A­pºâ´Á¶¡§ï¨ì¡u2021¦~1¤ë~2021¦~1¤ë¡v¡A¥¿½Tµ²ªGÀ³¸Ó·|¬O0
>> ¤w§ó·s¦pªþ¥ó¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
¤½¦¡§Ú¤£·|¡A»Ý­n¨ä¥L¤j¤jÀ°¦£¸ÑÃD¡AÁÂÁÂ

¤£¦P¤u§@ªí-¤é´Á°Ï¶¡±ø¥ó¥[Á`_0616.zip (25.79 KB)

TOP

¦^´_ 4# samwang

±z¦n¡A¸g¹L´ú¸Õ«á¡A
2022¦~3¤ë~2022¦~5¤ë¡GÀ³¸Ó¬O5700¡A¦Ó«oÅã¥Ü5730
2022¦~1¤ë~2022¦~1¤ë¡GÀ³¸Ó¬O30¡A¦Ó«oÅã¥Ü6390
¡K¡K

¥i¯à­n¦A³Â·Ð±z¨ó§U¬Ý¦p¦ó­×§ï¡AÁÂÁ¡C

(¤½¦¡ªº¸Ü¡A§Ú¦A§ä¬Ý¬Ý¡AÁÂÁ±z)

TOP

¥»©«³Ì«á¥Ñ quickfixer ©ó 2022-6-17 00:15 ½s¿è

¦^´_ 5# gaishutsusuru

¸Õ¸Õ¡A§â#4ªºtotal´«¦¨³o­Ó

    Sub total()
    Dim d1 As Date, d2 As Date, t, sn As String
    d1 = DateValue(Split(Replace(Replace(Sheets("·JÁ`").Range("b1"), "¦~", "/"), "¤ë", ""), "~")(0))
    d2 = DateValue(Split(Replace(Replace(Sheets("·JÁ`").Range("b1"), "¦~", "/"), "¤ë", ""), "~")(1))
    For i = 0 To DateDiff("m", d1, d2)
        sn = Format(DateAdd("m", i, d1), "yyyy¦~m¤ë")
        If checksheet(sn) = True Then
            t = t + Sheets(sn).Cells(Sheets(sn).Cells(Sheets(sn).Rows.Count, 1).End(xlUp).Row, 2)
        End If
    Next i
    Sheets("·JÁ`").Range("B2") = t
End Sub


Function checksheet(sheet_name) As Boolean
    Dim check As Range
    On Error Resume Next
    Set check = Sheets(sheet_name).Range("a1")
    If Err.Number <> 0 Then checksheet = False Else checksheet = True
    On Error GoTo 0
End Function

TOP

¦^´_  samwang

±z¦n¡A¸g¹L´ú¸Õ«á¡A
2022¦~3¤ë~2022¦~5¤ë¡GÀ³¸Ó¬O5700¡A¦Ó«oÅã¥Ü5730
2022¦~1¤ë~2022¦~ ...
gaishutsusuru µoªí©ó 2022-6-16 21:23


¤w§ó·s¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

¤£¦P¤u§@ªí-¤é´Á°Ï¶¡±ø¥ó¥[Á`_0617.zip (26.51 KB)

TOP

¦^´_ 7# samwang

samwang¤j¤j¡A
«D±`ÁÂÁ±z¡A¥Ø«e´ú¸Õ¬O¥i¥H¹B§@ªº^^

TOP

¦^´_ 6# quickfixer

quickfixer¤j¤j¡A

ÁÂÁ±z´£¨Ñªº¥¨¶°½X¡C

TOP

¦^´_ 6# quickfixer

­×¥¿#6,§Ñ¤F¨S¦³Àˬdªº»Ý­n,¥h±¼¤Ffunction,ÁYµuµ{¦¡½X
    Sub total()
    Dim d1 As Date, d2 As Date, t, sn As String
    d1 = DateValue(Split(Replace(Replace(Sheets("·JÁ`").Range("b1"), "¦~", "/"), "¤ë", ""), "~")(0))
    d2 = DateValue(Split(Replace(Replace(Sheets("·JÁ`").Range("b1"), "¦~", "/"), "¤ë", ""), "~")(1))
    On Error Resume Next
    For i = 0 To DateDiff("m", d1, d2)
        sn = Format(DateAdd("m", i, d1), "yyyy¦~m¤ë")
        t = t + Sheets(sn).Cells(Sheets(sn).Cells(Sheets(sn).Rows.Count, 1).End(xlUp).Row, 2)
    Next i
    Sheets("·JÁ`").Range("B2") = t
End Sub

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD