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

[µo°Ý] Ãö©óÄæ¦ì¦rÅéÃC¦â®t²§ªº§PÂ_?

[µo°Ý] Ãö©óÄæ¦ì¦rÅéÃC¦â®t²§ªº§PÂ_?

Hello, ¦U¦ì¤j¤j

   ©êºp, ¤½¥qµLªk¤W¶Çªþ¥ó»P¹Ï¤ù!!
   ¦p¤Uµ{¦¡¬q©Ò¥Ü, §Ú¦³¤G­ÓÄæ¦ì, »Ý­n§P§O¨ä¤º®e¦rÅ馳µLÅܧóÃC¦â, ¦ý¨C¤@­Ó¦r³£¥h§PÂ_ªº¸Ü, ·|«Ü®e©ö³y¦¨¨t²Î°õ¦æªº®É¶¡Åܪø.
   ¦ý~¥ç¦pµ{¦¡¬q¤¤ªºµù¸Ñ, ±N¨äEnable ªº¸Ü, «o¥u¯à§PÂ_¾ã­ÓÄæ¦ìªº¦rÅéÃC¦â,
   ©Ò¥H¤£ª¾¦³¦ó¤è¦¡¥i¥H¥ý¦æ°µÄæ¦ì¹ïÄæ¦ìªºÃC¦â§P§O, ¦A¶i¦Ó¹ïÃC¦â¦³²§ªºÄæ¦ì, ¦A¶i¦æ¦r»P¦rªº½T»{?

Thanks ~




Sub FntColorChk()

    Dim r As Integer, i As Integer, j As Integer
    Dim f As Boolean
    Dim d1 As Date, d2 As Date


    r = ActiveSheet.Cells(65536, 2).End(xlUp).Row
    Range("E2:H1000").ClearContents
    d1 = Now()
   
    Application.ScreenUpdating = False
   
    For i = 2 To r Step 1
        f = True
        d2 = Now()
        DoEvents
''        If Cells(i, 2).Font.Color <> Cells(i, 3).Font.Color Or _
''           Cells(i, 2).Font.ColorIndex <> Cells(i, 3).Font.ColorIndex Then

           For j = 1 To Len(Cells(i, 2).Value) Step 1
               If Cells(i, 2).Characters(Start:=j, Length:=1).Font.ColorIndex <> Cells(i, 3).Characters(Start:=j, Length:=1).Font.ColorIndex Then
                  f = False
                  Exit For
               End If
           Next j
''        End If
        Cells(i, 6).Value = Format((Now() - d2) * 24 * 60 * 60, "0.000")
        If f = False Then
           Cells(i, 5).Value = "Change"
        End If
        Cells(i, 7).Value = DatePart("s", Now() - d1)
    Next i
   
    Application.ScreenUpdating = True
    MsgBox "Finish ..."
   
End Sub
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

¦^´_ 2# hcm19522
Hello, hcm19522¤j

³o­Ó³sµ²¬O°w¹ïÄæ¦ìªº©³¦â°µ§P§O.
¦Ó§Úªº°ÝÃD¬O¦rÅéÃC¦â, ¦Ó¥B¬O¦P¤@Äæ¦ì¸Ì¦³2ºØ¥H¤W¤£¦PÃC¦â®É,
¦pªG¥t¤@Äæ¦ìªºÃC¦â¦ì¸m¬Û¦Pªº¸Ü, ¥ç¤£»Ý°µ³v¦rªºÃC¦â¤ñ¹ï.

Thanks ~
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

¦^´_ 4# °a¤ªºµ
Hello, °a¤ªºµ¤j

ÁÂÁ§Aªº¦^ÂСA¦ý¤´¤£¬O§Ú©Ò»Ý­nªº°ÝÃD¡C
¦]§Aªº¤è¦¡¡A©M§Úµù¸Ñªºµ{¦¡¬q¬O¤@¼Ëªº¡C
³o­Ó¤è¦¡¥u¯à§PÂ_¦P¤@­Ócell¸Ì¡A¨ä¦rÃC¦â¬Ò³£¬O¤@¼Ëªº±¡ªp¡C¦pªG¦P¤@­Ócell¸Ì¡A¦³¤GºØ¥H¤WªºÃC¦â´NµLªk§P§O¤F¡I¦Ó¨Ï¥Îbit by bit check, «Ü®e©ö³y¦¨¤U¤@­Órowªº©µ¿ð¡CAnyway, ¦A½Ð¤j¤j¨ó§U¡A¥i¦³¤èªk¡HThanks.
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

¥»©«³Ì«á¥Ñ ¼B¤j­G ©ó 2021-4-9 09:28 ½s¿è

Á`©ó±Nªþ¹Ï¤ù©ñ¤W¨Ó¤F¡I
  1. [img][/img]
½Æ»s¥N½X
[attach]33175[/attach]
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

[attach]33175[/attach]
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

¦n¹³ÁÙ¬OµLªkªþ¥ó¹Ï¤ù, «ö½T»{¤§«á, ºô­¶´NÅܱo¤@¤ùªÅ¥Õ¤F!
«áÄò¦A¬Ý, ´N¥u³Ñ¤@¦êªþ¥ó¥N½X.....>_<......
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

Hello, °a¤ªºµ¤j

ÁÂÁ±zªºÀ°¦£.
¦ý³o­Ó¤è¦¡¤]¥u¬O°O¿ý¤@­Ócell¸Ìªº¦rÅé¦ó¦ì¸mªºÃC¦â¦³²§¦Ó¤w,
§Ú­nªº¥u¤G­Ócell¸Ì, ¬Û¦Pªº¦r¼Æ, ¦ý¬Y¨Ç¦ì¸mªº¦rÅéÃC¦â, ¤G­Ócell¬O¦³Åܲ§ªº.
¦³¤°»ò¤è¦¡¥i¥H¤£»Ý­n¤@­Ó¤@­Ó¦r¥h, ¤G­Ócellªº¤ñ¹ï?
¦Ó¬O¥i¥H¥ý°µ¤G­ÓcellªºÃC¦â¬O§_¤@­P? ¦b¤£¤@­P®É, ¤~¶i¦æ¦rÀW¦ì¸mªº´M§ä,
¦]¬°¥u­n¤@¶i¤J¨ìCharactersªº¤ñ¹ï, «Ü®e©ö³y¦¨¨t²Î°õ¦æÅܺC.
Thanks ~

ps. ¹Ï¤ù­n«ç»òªþ¥[?  ¦]¬°¨C¦¸¤W¶Ç§¹¹Ï¤ù, «ö½T»{¤§«á, ºô­¶´NÅܱo¤@¤ùªÅ¥Õ¤F!
«áÄò¦A¬Ý, ´N¥u³Ñ¤@¦êªþ¥ó¥N½X!!
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

Hello, °a¤ªºµ¤j

¦A¬Ý¬Ý¯à§_¤W¶Ç?
¦pªþ¥ó©Ò¥Ü, ¤G­Ócellªº¦rÅéÃC¦â¤ñ¸û,
¥i¦³¤°»ò«ü¥O¥i¥H¤£°µ¤@­Ó¦r¤@­Ó¦rªºÃC¦â¤ñ¹ï?
¦]¬°¤£ª¾¬°»ò¤°»ò, ¦pªG°µ¤@­Ó¦r¤@­Ó¦rªº¤ñ¹ï,
«Ü®e©ö³y¦¨¤U¤@­Órowªº¨t²Î°õ¦æ®É¶¡ÅܺC!!

FntColorChk.rar (15.64 KB)
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

Program example.


FntColorChk.rar (15.64 KB)
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

Hello, °a¤ªºµ¤j

©êºp! §Ú¥¼¦b±zªºªþ¥ó¸Ì, ¬Ý¨ì¥ô¦óªºµ{¦¡¬q. Thanks ~
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD