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

[µo°Ý] ¤U©Ô¿ï³æ¼Ò½k·j´M«á¬Û¦P¦WºÙ¤£¦P­È¤§§x´b...

¦^´_ 10# samwang

·PÁ±zªº¦^ÂÐ
©Ò´£¨Ñ¤§¤è¦¡¦³¸Õ¹L...µ§¼Æ·U¦h®É·|³y¦¨©Ò­z¶°é°é°ÝÃD

TOP

¦^´_  samwang

·PÁ±zªº¦^ÂÐ
©Ò´£¨Ñ¤§¤è¦¡¦³¸Õ¹L...µ§¼Æ·U¦h®É·|³y¦¨©Ò­z¶°é°é°ÝÃD
cypd µoªí©ó 2022-7-23 09:18


10¼Ó¤è¦¡¬O¥Î¤º«Ø¡A§Aªº11¼Ó¤è¦¡¬O¥Î¤½¦¡¡A©Ò¥H¦³¥i¯à·|¤ñ¸ûºC
½Ð¦b½T»{¬Ý¬Ý¡AÁÂÁÂ

TOP

¦^´_ 11# cypd

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr, xD, C%, T$, m&, i&
If Target.Column = 3 Then C = 3
If Target.Column = 4 Then C = 4
Set xD = CreateObject("Scripting.Dictionary")
With Sheets("«È¤á°ò¥»¸ê®Æ")
    Arr = .Range(.Cells(1, C), .Cells(Rows.Count, C).End(3))
    .Range(.Cells(1, C), .Cells(Rows.Count, C).End(3)).Font.ColorIndex = 0
    .Range(.Cells(1, C), .Cells(Rows.Count, C).End(3)).Interior.ColorIndex = 0
    For i = 1 To UBound(Arr)
        T = Arr(i, 1)
        If xD.Exists(T) Then
            m = xD(T)
            Cells(m, C).Font.ColorIndex = 3
            Cells(m, C).Interior.ColorIndex = 36
            Cells(i, C).Font.ColorIndex = 3
            Cells(i, C).Interior.ColorIndex = 36
        End If
        xD(T) = i
    Next
End With
End Sub

TOP

¦^´_ 13# samwang
¤Ó·PÁ±z¤F...samwang

³t«×¤è­±°ÝÃD¤w OK
¸g´ú¸Õ¥t¦³°ÝÃD¥X²{¦p¤U
­Y¬O C ©Î D Äæ¥X²{¬Û¦P¼Æ¾Ú®É...§R°£¤U¦C¼Æ¾Ú¤§«áÀx¦s®æ·|¦³¶ñº¡¤§¦â±m¦s¦b ???



TOP

¦^´_  samwang
¤Ó·PÁ±z¤F...samwang

³t«×¤è­±°ÝÃD¤w OK
¸g´ú¸Õ¥t¦³°ÝÃD¥X²{¦p¤U
­Y¬O C ©Î D Äæ¥X²{ ...
cypd µoªí©ó 2022-7-24 11:33


­×§ï¦p¤U²¾°£.End(3)¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
With Sheets("«È¤á°ò¥»¸ê®Æ")
    Arr = .Range(.Cells(1, C), .Cells(Rows.Count, C).End(3))
    .Range(.Cells(1, C), .Cells(Rows.Count, C)).Font.ColorIndex = 0
    .Range(.Cells(1, C), .Cells(Rows.Count, C)).Interior.ColorIndex = 0

TOP

¦^´_ 15# samwang

¤Ó·PÁ±z¤F...samwang

C ©Î D Äæ¥X²{¬Û¦P¼Æ¾Ú®É...§R°£¤U¦C¼Æ¾Ú¤§«áÀx¦s®æ·|¦³¶ñº¡¤§¦â±m¦s¦b(¤w¸Ñ¨M©Ò­z°ÝÃD  ^^)



¸Ó¤u§@ªí¦]¦³¬ÛÃö¤§¤½¦¡¹Bºâ¡A¬°½T«O»~§R³y¦¨¸ê®Æ¿ù»~...³]¦³  [«OÅ@¤u§@ªí]
¦]«OÅ@¤u§@ªí¤§Ãö«Y³y¦¨...°õ¦æ¶¥¬q¿ù»~ "1004"
¦A«×³Â·Ð±z­×¥¿...·P®¦  ^^

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2022-7-25 07:47 ½s¿è
¦^´_  samwang

¤Ó·PÁ±z¤F...samwang

C ©Î D Äæ¥X²{¬Û¦P¼Æ¾Ú®É...§R°£¤U¦C¼Æ¾Ú¤§«áÀx¦s®æ·|¦³¶ñº¡¤§ ...
cypd µoªí©ó 2022-7-24 20:23


½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr, xD, C%, T$, m&, i&
If Target.Column = 3 Then C = 3
If Target.Column = 4 Then C = 4
If C = 0 Then Exit Sub
Set xD = CreateObject("Scripting.Dictionary")
With Sheets("«È¤á°ò¥»¸ê®Æ")
    .Unprotect Password:="1234"  '¸Ñ«OÅ@¡A±K½X¦Û¦æ­×§ï
     Arr = .Range(.Cells(1, C), .Cells(Rows.Count, C).End(3))
     .Range(.Cells(1, C), .Cells(Rows.Count, C)).Font.ColorIndex = 0
     .Range(.Cells(1, C), .Cells(Rows.Count, C)).Interior.ColorIndex = 0
     For i = 1 To UBound(Arr)
         T = Arr(i, 1)
         If xD.Exists(T) Then
             m = xD(T)
             .Cells(m, C).Font.ColorIndex = 3
             .Cells(m, C).Interior.ColorIndex = 36
             .Cells(i, C).Font.ColorIndex = 3
             .Cells(i, C).Interior.ColorIndex = 36
         End If
         xD(T) = i
     Next
    .Unprotect Password:="1234"  '«OÅ@¡A±K½X¦Û¦æ­×§ï
End With
End Sub

TOP

¦^´_ 17# samwang

¤Ó¯«¤F·PÁ±z¤F...samwang
©Ò¹J¤§°ÝÃD²~ÀV¤j­P¤wÀò±o¸Ñ¨M¡K^^·P®¦
¥t¥~
.Unprotect Password:="1234"  '«OÅ@¡A±K½X¦Û¦æ­×§ï(¦h¤F Un µLªk¶i¦æ«OÅ@)
¤w§R°£ Un¡K´ú¸Õ OK

TOP

¦^´_ 18# cypd

¥t¥~
.Unprotect Password:="1234"  '«OÅ@¡A±K½X¦Û¦æ­×§ï(¦h¤F Un µLªk¶i¦æ«OÅ@)
¤w§R°£ Un¡K´ú¸Õ OK

>> ¤£¦n·N«ä¡A¨S¦³§ó·s¨ì¡A¦p±z­×§ïUN­n§R°£¡AÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ cypd ©ó 2022-7-26 15:16 ½s¿è

¦^´_ 19# samwang

·Ð°Ý  samwang...
Ãö©ó¤W­z VBA §@°Ê¤§«á©Ò²£¥Í¬ÛÃöºÃ°Ý ?

VBA¤½¦¡§@°Ê«á
­Y C Ä榳·s¼Æ¾Ú¿é¤J®É·|³y¦¨ C1 ©³¦â¤£¨£
­Y D Ä榳·s¼Æ¾Ú¿é¤J®É·|³y¦¨ D1 ©³¦â¤£¨£

­ì«OÅ@¤u§@ªí¤º¤§³]©w¥¢®Ä
(¦Û¦æ³]©w¦C®æ¦¡¤Î¨Ï¥Î¦Û°Ê¿z¿ïµLªk¨Ï¥Î...«ì´_¹w³]­È)




0726.rar (147.23 KB)

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD