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

[µo°Ý] ­pºâ®M¸Ë©Ò±oªº¯Å§O

¦^´_ 10# cdkee


AÄ楻¨Óªº¦r¬q³£¤Ö¤F¤@­Ó¦r???
"´ú¸Õ«~"¦p¦óÂ_©w???

§¹¥þ¹ï¤£¤W~~

TOP

¥»©«³Ì«á¥Ñ cdkee ©ó 2024-1-29 16:32 ½s¿è
¦^´_  cdkee


AÄ楻¨Óªº¦r¬q³£¤Ö¤F¤@­Ó¦r???
"´ú¸Õ«~"¦p¦óÂ_©w???

§¹¥þ¹ï¤£¤W~~
­ã´£³¡ªL µoªí©ó 2024-1-29 16:14

¬Oªº,AÄ楻¨Óªº¦r¬q³£¤Ö¤F¤@­Ó¦r,´N¬O¥»¨Ó¨C­Ó²Õ¦Xªº²Ä¤@­Ó,¦]¬°­n°t¦X¥t¥~¤@±ø¥ó(·s§ïªº):¨C¦¸µo²{¥ô¦ó®M¸Ë²Õ¦X,¤§«á¥²¶·µo²{»P­è¤~µo²{ªº®M¸Ë²Õ¦X¤¤³Ì«á1­Ó¤£¦P(¬°¤è«K·¾³qºÙ³o­Ó°µ"´ú¸Õ«~")(³o¬O¥N´À¤§«eªº±ø¥ó:®M¸Ë²Õ¦X²Ä¤@­Ó¥²¶·¸ò¤W¤@¦æªº¤@­Ó¤£¦P)
¦bÀɮפ¤ªºL1¦ÜL73¨Ò¤l¤¤,¤w±N"´ú¸Õ«~"ªº©³¦âÅã¥Ü¬°¬õ¦â,¤è«KÃѧO¤Î»¡©ú

TOP

§Ú¸Õ¥ÎlastChar = Right(Tr(1), 1)¨Ó¦sÀx·í«e¤Ç°tÁ䪺³Ì«á¤@­Ó¦r²Å,µM«áÀˬd¤U¤@­Ó³æ¤¸®æªº¤º®e»PlastChar¤£¦P, ¤~¶}©lÄ~Äò¦bL¦C¦V¤UÀˬd,¦ý¤´µM¤£¦¨¥\
  1. Sub Test_A1()
  2. Dim Arr, A, Brr, xD, i&, j&, T$, Tr, R, lastChar$
  3. Set xD = CreateObject("Scripting.Dictionary") '³Ð«Ø¤@­Ó¦r¨å¹ï¶H

  4. '¹M¾ú¤@­Ó¼Æ²Õ¡A¨Ã±N¨C­Ó¤¸¯À«ö"\"¤À³Î¡AµM«á±N¤À³Î«áªº²Ä¤G³¡¤À§@¬°Áä¡A²Ä¤@³¡¤À§@¬°­È¦s¤J¦r¨å
  5. For Each A In Array("1^12\ÀuÀu¨}", "2^10\¨}¨}Àu", "3^3\ÀuÀuÀu", "4^3\¨}¨}¨}", _
  6.                     "5^3\Àu¨}", "6^3\¨}Àu", "7^-3\ÀuÀu", "8^-10\¨}¨}")
  7.     Tr = Split(A, "\")
  8.     xD(Tr(1)) = Tr(0)
  9. Next A

  10. 'Ū¨úExcel¤u§@ªí¤¤ªº¤@­Ó½d³ò¨ìArr¼Æ²Õ¡AµM«á®Ú¾ÚArrªº¤j¤p­«·s©w¸qBrr¼Æ²Õ
  11. Arr = Range([L1], [L65536].End(xlUp)(5))
  12. ReDim Brr(1 To UBound(Arr), 0)

  13. 'Ãö³¬«Ì¹õ§ó·s¡A¥H´£°ª¥N½X°õ¦æ³t«×
  14. Application.ScreenUpdating = False

  15. '¹M¾úArr¼Æ²Õ¡A¨Ã®Ú¾Ú¦r¨å¤¤ªº±ø¥Ø¹ïExcel¤u§@ªí¤¤ªº¬Y¨Ç³æ¤¸®æ¶i¦æ®æ¦¡¤Æ
  16. For i = 2 To UBound(Arr) - 4
  17.     T = Arr(i, 1)
  18.     If T <> Arr(i - 1, 1) Then
  19.        For j = i + 1 To i + 2
  20.            T = T & Arr(j, 1)
  21.            R = xD(T)
  22.            If R <> "" Then
  23.               Tr = Split(R, "^")
  24.               lastChar = Right(Tr(1), 1)
  25.               If Arr(j + 1, 1) <> lastChar Then
  26.                  With Range("L" & i & ":L" & j)
  27.                       .BorderAround 1
  28.                       .Interior.ColorIndex = Cells(Tr(0) + 2, 1).Interior.ColorIndex
  29.                  End With
  30.                  Brr(j - 1, 0) = Tr(1): i = j: Exit For
  31.               End If
  32.            End If
  33.        Next j
  34.     End If
  35. Next i

  36. '±NBrr¼Æ²Õªº¤º®e¼g¤JExcel¤u§@ªíªº¤@­Ó½d³ò
  37. [o2].Resize(UBound(Brr)) = Brr
  38. End Sub
½Æ»s¥N½X

TOP

8­Ó¯Å§O//¼Ð¥Ü8­ÓÃC¦â
­ã´£³¡ªL µoªí©ó 2024-1-28 10:30



   ­ì¨Ó­ì¥ý³o­Ó¤w¸g¦¨¥\ªº,¥u­n±N¯Å§O©w¸q§ï¬°¤§«á­ã´£³¡ªL¥ý¶i«á¨Óªº«Øij,¦A¦¸·PÁ¤Φ]§Úªº²¨®ö¶O¥ý¶i®É¶¡,¦b¦¹­Pºp.

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD