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

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

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

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

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

¦³ªÅÀ°§Ú¬Ý¬Ý³o¼Ë¬O¤£¬O§A­nªºµ²ªG  ÁÂÁÂ
0411.rar (6.3 KB)

TOP

Hello, °a¤ªºµ¤j

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

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-12 21:29 ½s¿è

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

©êºp ÀɮרS¦³¦s¨ìÀÉ >"< ...
¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý ³o­Óµ²ªG¬O¤£¬O§A­nªº  
¦ý¦³¤@­Ó«Ü¤jªº°ÝÃD  ¦pªGÀɮ׫ܤj ·|¶]«D±`ºC..¦]¬°§Úªº°j°é¤Ó¦h¤F ¦Ó¥B¦êÁp¤Ó¦h¦¸..
¤£ª¾¹D¦pªG¥Î ª«¥ó¥[¦r¨å ·|¤£·|¤ñ¸û§Ö ©ÎµÛ ¦³§ó¦nªº¼gªk ¬Ý¬Ý¦³¨S¦³¤j¤j¥i¥HÀ°¦£  ·PÁÂ
  1. Public Sub §PÂ_ÃC¦â½m²ß0412()
  2. Application.ScreenUpdating = False
  3. Set xD = CreateObject("Scripting.Dictionary")

  4. For I = 1 To Cells(1, 1).End(4).Row
  5. E = Cells(I, 1)
  6.     xD(E) = Trim(xD(E) & " " & I) & E
  7. Next I
  8. E = ""

  9. For Each D In xD
  10.     SP = Split(xD(D), " ")
  11.     If UBound(SP) = 0 Then xD.Remove (D): GoTo A01
  12.     For Each S In SP
  13.         If UBound(SP) > 0 Then
  14.             If E <> "" Then xD(E) = Trim(xD(E) & " " & Mid(S, 1, 1))
  15.             E = ""
  16.         End If
  17.     Next S
  18. A01: Next D

  19. For Each D In xD
  20. SP = Split(xD(D), " ")
  21.     For Each S In SP
  22.         For Y = 1 To Len(Cells(Mid(S, 1, 1), 1))
  23.             E = E & Cells(Mid(S, 1, 1), 1).Characters(Y, 1).Font.ColorIndex
  24.         Next Y
  25.         If E <> "" Then xD(E) = Trim(xD(E) & " " & Mid(S, 1, 1))
  26.         If F = 0 Then xD.Remove (D): F = 1
  27.         E = ""
  28.     Next S
  29. Next D

  30. For Each D In xD
  31. SP = Split(xD(D), " ")
  32.     If UBound(SP) < 1 Then
  33.         G = G & "," & Cells(xD(D), 1).Row
  34.     End If
  35. Next D

  36. MsgBox Mid(G, 2) & "¦CÃC¦â¤£¬Û¦P"

  37. Application.ScreenUpdating = True
  38. End Sub
½Æ»s¥N½X
[attach]33190[/attach]

0412.rar (7.51 KB)

TOP

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

­è¤~µo²{ ÀɮרS¤W¶Ç¦n  ©êºp ¦A¶Ç¤@¦¸

0412.rar (20.54 KB)

TOP

Hello, °a¤ªºµ¤j

ÁÂÁ±zªºÀ°¦£!!
¦]¬°§Úªº¸ê®Æ¬ù¦b1000¦æ¥ª¥k,
µo²{¥u­n¨t²Î¤@¶i¤J¨ìCharacter ªº¦r¤¸¤ñ¹ï®É,
´N·|³y¦¨°õ¦æ³t«×ªºÅܺC!!
¦Ó¥Bµo°Ýªº°ÝÃD¤]¬O·N¦bÁY´î¨t²Î°õ¦æ®É¶¡...
Anyway, ÁÙ¬OÁÂÁ±zªº¤j¤OÀ°¦£.
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD