|
▼VBA初心者 さん:こんばんは。
分かる範囲でやってみましたが・・・・
名前のところを変数を使ったらいかがでしょう?
>Private Sub cmdCancel_Click()
> Unload UserForm1
>
> MsgBox "処理はキャンセルされました", , "確認"
>End Sub
>
>Private Sub cmdOK_Click()
>
> Dim i As Integer
> Dim user As String
Dim myName As String
> i = 1
> Do While IsEmpty(Range("I8").Offset(i - 1, 0)) = False
myName = Me.TextBox1.Text
> user = Range("I8").Offset(i - 1, 0).Value
> With Range("A8:J8").Offset(i - 1, 0).Interior
If user = myName Then
> .ColorIndex = 36
> .Pattern = xlSolid
> Else
> .ColorIndex = xlNone
> End If
> End With
> i = i + 1
> Loop
>
> Unload UserForm1
>
> MsgBox "処理は終了しました", , "確認"
>
>End Sub
|
|