ªð¦^¦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

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 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

¦^´_ 3# ¼B¤j­G

¦³ªÅ¸Õ¸Õ¬Ý¬O¤£¬O§A­nªºµ²ªG·PÁÂ
  1. Public Sub ÃC¦â¤ñ¹ï½m²ß()

  2. For X = 1 To 2
  3.     For Y = 3 To 7
  4.     If Cells(X, 1).Interior.Color = Cells(Y, 1).Interior.Color Then
  5.         If Cells(X, 1).Font.Color = Cells(Y, 1).Font.Color Then
  6.            Cells(Y, 1).Interior.Color = RGB(160, 250, 120)
  7.         End If
  8.     End If
  9.     Next Y
  10. Next X

  11. End Sub
½Æ»s¥N½X
0408.rar (10.42 KB)

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

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-10 23:06 ½s¿è

¦^´_ 8# ¼B¤j­G
¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý ³o¼Ë¦æ¤£¦æ ·PÁÂ
  1. Public Sub §PÂ_ÃC¦â½m²ß()

  2. Set xD = CreateObject("Scripting.Dictionary")

  3. For I = 1 To 4
  4.     For Y = 1 To Len(Cells(I, 1))
  5.         E = E & Cells(I, 1).Characters(Y, 1).Font.ColorIndex
  6.     Next Y
  7.     xD(E) = Trim(xD(E) & " " & I)
  8.     E = ""
  9. Next I

  10. For Each D In xD
  11.     SP = Split(xD(D), " ")
  12.     If UBound(SP) < 1 Then
  13.         Cells(xD(D), 1).Select
  14.     End If
  15. Next D

  16. End Sub
½Æ»s¥N½X
0410.rar (6.31 KB)

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

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD