Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40672 / 76732

←次へ　｜　前へ→


	【41152】ユーザーフォームについて

VBA初心者 - 06/7/31(月) 23:07 -


	引用なし

	パスワード

はじめまして、VBA初心者です。
何度やってもマクロが思うように動いてくれないので、質問させていただきます。

Private Sub cmdCancel_Click()
　　Unload UserForm1
　
　　MsgBox "処理はキャンセルされました", , "確認"
End Sub

Private Sub cmdOK_Click()
　　
　 Dim i As Integer
　 Dim user As String
　i = 1
Do While IsEmpty(Range("I8").Offset(i - 1, 0)) = False
　　user = Range("I8").Offset(i - 1, 0).Value
　　With Range("A8:J8").Offset(i - 1, 0).Interior
　　　 If user = "島田" Then
　　　　　.ColorIndex = 36
　　　　　.Pattern = xlSolid
　　　 Else
　　　　　.ColorIndex = xlNone
　　　 End If
　　End With
　　i = i + 1
Loop

　　Unload UserForm1
　　
　　MsgBox "処理は終了しました", , "確認"
　　
End Sub

Private Sub UserForm_Click()

End Sub

これだけだと、テキストボックスに何も入力しなくても、
「島田」が選択されて塗りつぶされます。
他の名前が記入されたときに、その名前を選択して塗りつぶすようにするためには
どのようなコードを追加すればいいのでしょうか。
当てはまらないときは、塗りつぶされない処理にしたいのですが･･･。

よろしくお願いいたします。

0 hits

▼

【41152】ユーザーフォームについて VBA初心者 06/7/31(月) 23:07

≪