stillfish00

¦^´_ 1# 198188
´«¦â¥i§Q¥Î Range.Characters ; Ác²Âà´«§Ú¤£·|

1. Sub Test()
   
2.   Dim s1 As String, s2 As String
   
3.   
   
4.   s1 = "µo²¼ª÷ÃB¡GUSD" & Worksheets("Oracle").Cells(i, 18).Value
   
5.   s2 = "               ¥Øªº´ä¡G" & Worksheets("Oracle").Cells(i, 26).Value
   
6.   s = s1 & "          ½c¼Æ:" & Worksheets("Oracle").Cells(i, 41).Value & "               Âd¸¹:" & Split(Worksheets("Oracle").Cells(i, 42).Value, "/")(0) & s2
   
7.   
   
8.   With Worksheets(customer).Cells(cnt, 10)
   
9.     .Value = s
   
10.     .Characters(InStr(s, s1), Len(s1)).Font.Color = vbRed
    
11.     .Characters(InStr(s, s2), Len(s2)).Font.Color = vbBlue
    
12.   End With
    
13. End Sub

½Æ»s¥N½X