½Ð°Ý¦p¦óÅý¨ä¥LÄæ¦ì¨Ì·Ó¤µ¤Ñ¤é´ÁÅã¥Ü¤£¦P©³¦â

coafort

½Ð°Ý¦U¦ì¤j¤j
§ÚAO³o­ÓÄæ¦ì¬O¤é´Á
BA³o­ÓÄæ¦ì¬O¼Æ­È
§Ú·QÅý¤µ¤Ñ¤é´ÁªºBA©³¦â¤£¦P
¤ñ¤è
AO3¬O2022/9/20 BA3Äæ¦ì©³¦â¥¿±`
AO4¬O2022/9/21 BA4Äæ¦ì©³¦âÅܦ¨µµ¦â
½Ð°Ý¸Ó¦p¦ó³]­p¡H
¥t¥~½Ð±Ð
¦p¦ó³]­p¥i¥H¥uÁ`­p¤µ¤éBA¼Æ­È
¤ñ¤è
AO3¬O2022/9/20 BA3¼Æ­È4
AO4¬O2022/9/21 BA4¼Æ­È5
AO5¬O2022/9/21 BA5¼Æ­È6
µM«áAB2Åã¥ÜBA4+BA5
ÁÂÁÂ

Andy2483

ÁÂÁ¤j¤j
VB¯uªº«Ü±j
¥u¬O§Ú¹ïVB¯uªº¤@¬¤£³q
coafort µoªí©ó 2022-9-22 14:00

    ¤@°_¾Ç²ß!
«á¾Ç¤]¬O±q¿ý»s¶}©l¾Ç°_ªº,¾Ç10¦~¤F¤~À´¥Ö¤ò!
§V¤O¾Ç²ß,¼Ö¦¹¤£¯h,¶Ô¯à¸É©å!

GOOGLE·j´M:¥¨¶°¿ý»s
´N·|¦³«Ü¦h±Ð¾Ç¼v¤ù

¬ì§Þªº¶i¨B·½©ó´k©Ê
®É¶¡¸Óªá¦b§ó¦³·N¸qªº¨Æ!

coafort

¦^´_  coafort


    ÁÂÁ«e½ú¦^ÂÐ
²©ö»s§@¼ÒÀÀ±¡¹Ò½d¨Ò,½Ð«e½ú´ú¸Õ¬Ý¬Ý
Andy2483 µoªí©ó 2022-9-22 08:37

ÁÂÁ¤j¤j
VB¯uªº«Ü±j
¥u¬O§Ú¹ïVB¯uªº¤@¬¤£³q:Q

coafort

°Ñ¦Ò~~
hcm19522 µoªí©ó 2022-9-22 09:43

ÁÂÁ¤j¤j
¤w¸g¥Î=(AO34-TODAY()=0)
¸Ñ¨M¤FÅã¥Ü°ÝÃD
­pºâ°ÝÃDÁÙ¨S¸Ñ¨M
­pºâ°ÝÃD§Ú¬O¥Î³o­Ó
=SUMPRODUCT((AO3:AO39=TODAY())*BG46:BG82)
¦ý¬O§ÚAOÄæ¦ì¬O¥Î­pºâ¦¡Åã¥Ü¤é´Á
=IF(AS3="","",IF(AO3="",TEXT(TODAY(),"YYYY/mm/dd"),AO3))
¾É­PSUMPRODUCTµLªk§PÂ_
½Ð°Ý¤j¤j¦³¤èªk¶Ü
ÁÂÁÂ

Andy2483

¦^´_ 8# coafort


    ÁÂÁ«e½ú¦^ÂÐ
1.«á½ú¹ï®æ¦¡¤Æ±ø¥ó¤£¼ô,¤u§@ªÅÀÉ¥¿¿n·¥¾Ç²ßVBA
2.«á¾Ç¹B¥ÎIJµo¤è¦¡½d¨Ò¦p¤U
TEST_20220922_1.zip (45.8 KB)

¤U¸ü¦¸¼Æ: 2

2022-9-22 09:52

¤U¸ü (24.01 KB)

2022-9-22 09:51

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. With Target
   
3.    If .Column = [AO3].Column And .Count = 1 And .Row >= 3 Then
   
4.       Call TEST_1
   
5.       
   
6.    End If
   
7. End With
   
8. End Sub

½Æ»s¥N½X

hcm19522

https://blog.xuite.net/hcm19522/twblog/588394112

°Ñ¦Ò~~

coafort

¦^´_ 6# Andy2483

ÁÙ¬O»¡³]©w®æ¦¡¤Æ±ø¥ó
¦³¿ìªk³]©w¤½¦¡
Åý¤µ¤Ñ¤é´Áªº«ü©wÄæ¦ìÅܦâ¡H


ÁÂÁ¤j¤j

coafort

¦^´_  coafort


    ÁÂÁ«e½ú¦^ÂÐ
²©ö»s§@¼ÒÀÀ±¡¹Ò½d¨Ò,½Ð«e½ú´ú¸Õ¬Ý¬Ý
Andy2483 µoªí©ó 2022-9-22 08:37

½Ð°Ý¤j¤j
¥i¥H³]­p¦¨¤£¥Î«ö¿z¿ï
µM«á·|¦Û¤v¿z¿ï¶Ü
ÁÂÁ¤j¤j

Andy2483

¦^´_ 5# coafort


    ÁÂÁ«e½ú¦^ÂÐ
²©ö»s§@¼ÒÀÀ±¡¹Ò½d¨Ò,½Ð«e½ú´ú¸Õ¬Ý¬Ý

¤U¸ü (40.31 KB)

2022-9-22 08:37

TEST_20220922.zip (44.86 KB)

¤U¸ü¦¸¼Æ: 2

2022-9-22 08:34

1. Sub ¶Ã¼Æ§G°}()
   
2. Dim Brr(1 To 1000, 1 To 13), i, E
   
3. Cells.Interior.ColorIndex = xlNone
   
4. Call ²M°£¿z¿ï
   
5. 
   
6. Brr(1, 1) = "¤é´Á"
   
7. Brr(1, 13) = "¤µ¤é¦X­p"
   
8. For i = 2 To UBound(Brr)
   
9.    Brr(i, 1) = "=TODAY() + " & Int(Rnd() * 100) Mod 5
   
10.    Brr(i, 13) = Int(Rnd() * 100)
    
11. Next
    
12. With [AO2].Resize(UBound(Brr), UBound(Brr, 2))
    
13.    .Value = Brr
    
14.    .Value = .Value
    
15. End With
    
16. End Sub
    
17. Sub ¿z¿ï¤µ¤Ñ()
    
18. Call ²M°£¿z¿ï
    
19. 
    
20. If Application.Version >= 12 Then
    
21.    Selection.AutoFilter Field:=41, Criteria1:= _
    
22.         xlFilterToday, Operator:=xlFilterDynamic
    
23.    Else
    
24.       uDATE = Date
    
25.       Selection.AutoFilter Field:=41, Criteria1:=uDATE, Operator:=xlAnd
    
26. End If
    
27. End Sub
    
28. Sub ²M°£¿z¿ï()
    
29. If Sheets(1).AutoFilter Is Nothing Then
    
30.    [A2:BA2].AutoFilter
    
31.    Else
    
32.    If Sheets(1).FilterMode = True Then Sheets(1).ShowAllData
    
33. End If
    
34. End Sub

½Æ»s¥N½X

coafort

¦^´_  coafort
        ÁÂÁ«e½ú¦^ÂÐ
¤W¦Ê¦C¬O¥i¥Hªº
½Ð«e½ú ¸Õ¬Ý¬Ý
Andy2483 µoªí©ó 2022-9-21 19:00

½Ð°Ý¤W¦Ê¦C»Ý­n§ï¤°»ò©O¡H
ÁÂÁ¤j¤j