excel VBA


質問が長くなりましたので http://d.hatena.ne.jp/esecua/20100221 をご覧くさい。

※なお、関数ではなくマクロでおねがいします。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2010/02/21 11:23:25
  • 終了:2010/02/28 11:25:03

回答(1件)

id:jccrh1 No.1

jccrh1回答回数111ベストアンサー獲得回数192010/02/21 14:09:13

ポイント60pt

ユーザフォームの処理を記述しました。

※MainからはUserForm1.Showでフォームを起動して下さい。

Private Sub CommandButton1_Click()
 Dim I           As Integer
 Dim J           As Integer
 Dim 検索キー     As Variant
 Dim アンマッチ   As Boolean
 Dim 検索範囲     As Range

 検索キー = Split(UserForm1.TextBox1.Value, vbCrLf)
 Set 検索範囲 = Range(Range("A3"), Cells(Rows.Count, "C").End(xlUp))
 For I = 1 To 検索範囲.Rows.Count
   アンマッチ = True
   For J = 0 To UBound(検索キー)
     If 検索範囲(I, 3).Value = 検索キー(J) Then
       アンマッチ = False
       Exit For
     End If
   Next J
   If アンマッチ Then
     Intersect(検索範囲(I, 1).EntireRow, Range("A:C")).Interior.ColorIndex = 9
     Intersect(検索範囲(I, 1).EntireRow, Range("A:B")).Value = 0
   End If
 Next I
 UserForm1.Hide
End Sub

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません