Excel VBA質問箱 IV

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

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


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

25656 / 76732

←次へ　｜　前へ→


	【56414】Re:条件分岐について

kanabun - 08/6/16(月) 20:34 -


	引用なし

	パスワード

▼かずおさん：

簡単のため、「表1」が Sheet1の[A1]セルから、
また「表2」が Sheet2 の[A1]セルから始まっていると仮定します。

> 表１の番号１の値を表２の番号が１で順位がＣとＤのときに表２の値列に入れ
というようなことを表2に対して表1の番号でオートフィルタかけて処理してみます。

Sub Try1()
　Dim 表1, r As Range, c As Range
　Dim i As Long
　
　With Sheets(1)
　　　表1 = .Range("A2", .Range("A1").End(xlDown)).Resize(, 2).Value
　End With
　
　Set r = Sheets(2).Range("A1").CurrentRegion
　Set c = Intersect(r.Columns(3), r.Columns(3).Offset(1))
　r.AutoFilter
　For i = 1 To UBound(表1)
　　　r.AutoFilter 1, "C", xlOr, "D"
　　　r.AutoFilter 2, 表1(i, 1)
　　　If c.SpecialCells(xlVisible).Count > 0 Then
　　　　　c.Value = 表1(i, 2)　 '--- 可視セルに表1の値を書き込む
　　　End If
　Next
　r.AutoFilter

End Sub

0 hits

▼

【56407】条件分岐について かずお 08/6/16(月) 16:17