人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

excel VBA

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

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

●質問者: esecua
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:Excel VBA マクロ 関数
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● jccrh1
●60ポイント

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

※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
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ