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

[µo°Ý] (¤w¸Ñ¨M)VBA ¯S©w²Å¸¹¤Î¤å¦r³]©w µ{¦¡½Ð±Ð

¦^´_ 1# wind6424
  1. Sub Ex()
  2.     Dim Y, X, A, A1
  3.     Y = 1: X = 1
  4.     Do While Sheet1.Cells(Y, X) <> ""
  5.         With Sheet1.Cells(Y, X)
  6.             .Font.ColorIndex = 0
  7.             .Font.Bold = False
  8.             A = InStr(.Text, "[")
  9.             A1 = InStr(.Text, "]")
  10.             If A > 0 And A1 > 0 Then
  11.                 .Characters(A, A1 - A + 1).Font.ColorIndex = 5
  12.                 .Characters(A, A1 - A + 1).Font.Bold = True
  13.             End If
  14.             Y = Y + 1
  15.         End With
  16.    Loop
  17. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD