av8d

¦^´_ 10# quickfixer


   ÁÂÁ«e½ú¡A³£­â±á1ÂI¤F¡A«e½ú¤£Ã㨯³Ò¡A¯u¬O«Ü·PÁ±z¡C
   ¥i¥H¨Ï¥Î¡A¨S°ÝÃD¡A¨ü¯q¨}¦h¡A¾Ç²ß¤F³\¦h¥¼´¿ª¾¹Dªºª¾ÃÑ»â°ì¡C

av8d

¦^´_ 10# quickfixer

«e½ú±z¦n¡A³o®É´£°Ý±z¥i¯àºÎ¤F¡Aµ¥±z¦³ªÅ¦A¬ã¨s¡A
§Ú´M§ä¤F³\¤[¡A¤£ª¾¬O§_¦³³o¥\¯à¡C

­pµe³z¹LComboBox1_Change¥h½Õ¾ã³Q¿ï¨ú®ÉªºÃC¦âÅܧó¡A¦³¨Ï¥ÎPublic¤½¶}Åý¨âÃä³£¯à¨Ï¥Î¡A
¤å¦r±Ô­z¥i¯à¤£°÷¸Ô²Ó¡Aªþ¤Wªþ¥ó¡A½Ð«e½ú¹L¥Ø¡AÁÂÁ¡I

°ÝÃD©µ¦ù2.rar (40.65 KB)

¤U¸ü¦¸¼Æ: 5

2021-9-9 01:40

samwang

¦^´_ 12# av8d


¦pªþ¥ó½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

av8d

¦^´_ 13# samwang

ÁÂÁ«e½ú©âªÅ¸Ñ´b¡A­ì¨Ó¬O¨Ï¥Î¼Ò²Õªº¤è¦¡¡A¨ü¯q¨}¦h¡AÁÂÁ±z¤£»·¤d¨½ªºÀ°§U¡C

samwang

¦^´_ 14# av8d

¤£¦n·N«ä¡A§ó·s¤@¤U±z­ì¨Óªºµ{¦¡½Xªº¤@¨Ç¦a¤è¦p¤U¬õ¦r¡A¤£ª¾¬O§_§ó²Å¦X±z»Ý¨D? ½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Public Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xA As Range, xR As Range
Call ÃC¦â
Set xA = [A4:G1000]
If Target.Column = 3 Then
    'Set xA = [A4:G1000]
    xA.Interior.Pattern = 0
    If Intersect(xA, Target) Is Nothing Then Exit Sub
    For Each xR In xA.Rows
        If Not Intersect(xR, Target) Is Nothing Then
            If Cells(xR.Row, 3) <> "" Then
                xR.Interior.Color = GBY
            Else
                Cells(xR.Row, 3).Interior.Color = GBY
            End If
        End If
    Next
Else
    xA.Interior.Pattern = 0
End If
End Sub

quickfixer

¦^´_ 14# av8d


¤£¬Oªº,¸ò¼Ò²ÕµLÃö,¬O§A·d¿ù¤F
Public Sub,Private Sub¤£¬O®³¨Ó¶ÇÅܼÆ
samwang¦³À°§A­×¥¿µ{¦¡¤F,¥u¬O§â¤@³¡¥÷·h¨ì¼Ò²Õ

§A#12ªºÀÉ®×,¤£¥Î¼Ò²Õ,§ï2¦æ´N¥¿½T¤F
²Ä¤@¦æ¦b ComboBox1_Change()¤W­±,¥[¤W
Public GBY
²Ä¤G¦æ§R±¼Worksheet_SelectionChange­«ÂЩw¸qªºgby
§R±¼³o­ÓGBY As Variant

av8d

¦^´_ 15# samwang
¦^´_ 16# quickfixer

¨ü¯q¨}¦h¡A«e½ú«á¨Ó§Ú§ï¼g«á¨S°ÝÃD¡A½Ð°Ý¯à§_¦b²K¥[¤å¦r®É¡A¤]¸Ó®æ²K¥[ÃC¦â¡H
¥Ø«e§Ú¥u¯à°µ¨ì³oµ{«×¦ý¬O¤ñ¸û§Æ±æ¦b¥´¶}«á¯à¤@¥Ø¤FµM¡Aºô¤W¬d¤F³\¤[¡A³£¨S§ä¨ì¡C
°ÝÃD©µ¦ù3.rar (43.27 KB)

¤U¸ü¦¸¼Æ: 3

2021-9-29 19:59

«e½ú¤j·§ªº·N«ä¤j·§¬O¦b³o¸Ì¥[¤J¦U§Oªº­I´ºÃC¦âªº·N«ä

1. Private Sub Workbook_Open()
   
2.     With Sheets("§Úªºª¾ÃÑ®w").ComboBox1
   
3.         .AddItem "ºñ"
   
4.         .AddItem "ÂÅ"
   
5.         .AddItem "¶À"
   
6.     End With
   
7. End Sub

½Æ»s¥N½X

samwang

¦^´_ 17# av8d


¥\¯à¥¿±`¡A¤£ª¾¹D±zªº°ÝÃD¦b­þ¸Ì? ÁÂÁÂ

av8d

¦^´_ 18# samwang


    ·PÁ«e½ú©âªÅÆ[¬Ý¡A§Ú·Q¸ß°Ý¤@¤U¡C
    °£¤F¯à¹w¥ý±N¤å¦r²K¥[¥~¡A¯à§_¦b¦U¤å¦r­I´º¤]²K¥[ÃC¦â¡H
    ÁÙ¬O»¡¨S¦³³o¥\¯à¡A§Ú¥Ø«e¬d¸ßµ²ªG¥u¦³¦bUserForm¤W¤~¯à°µ¡C

samwang

¦^´_ 17# av8d


½Ð°Ý¯à§_¦b²K¥[¤å¦r®É¡A¤]¸Ó®æ²K¥[ÃC¦â¡H
>> ¸Ó®æ²K¥[ÃC¦â³o­Ó¦b13#À³¸Ó´N¬O§A­nªº¡A¥t¥~¥Î§A´£¨ÑªºÀɮפw­×§ï§¹¦¨¦pªþ¥ó¡A½Ð½T»{¬O§_±zªº»Ý¨D¡AÁÂÁÂ