Excel VBA質問箱 IV

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

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


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

39391 / 76732

←次へ　｜　前へ→


	【42454】Re:データの絞込み→データの抽出

ハナ - 06/9/12(火) 15:36 -


	引用なし

	パスワード

▼ばっじぉさん：
エラー処理も何も考えないで、こんなの作ってみましたけど・・・

>例）
>
>「シート１」
>　|１|２|３|
>　|Ａ|Ｂ|Ａ|
>　　　・
>　　　・
>　　　・
>
>「シート２」
>　　１　　|　　Ａ　　|　　Ｂ　　|
>　　２　　|　Ａ | Ｂ　| Ａ　| Ｂ　|
>　　３　　|Ａ|Ｂ|Ａ|Ｂ|Ａ|Ｂ|Ａ|Ｂ|
>データ欄　|あ|い|う|え|お|か|き|く|
>
>「シート１」より、１２３の状態を判別して、
>その状態に対応したﾃﾞｰﾀを「シート２」より取得する。
>（例の場合、「う」を取得する）
>「シート１」のﾃﾞｰﾀは１つ以上です。

Option Explicit

Sub test()
'
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim LC As Long '最終行
Dim i As Long
Dim x As Integer

Set WS1 = Worksheets("Sheet1")

With WS1
　　LC = .Range("A65536").End(xlUp).Row
　　For i = 2 To LC
　　　　x = 1
　　　　If .Cells(i, 1) = "B" Then
　　　　　　x = x + 4
　　　　End If
　　　　If .Cells(i, 2) = "B" Then
　　　　　　x = x + 2
　　　　End If
　　　　If .Cells(i, 3) = "B" Then
　　　　　　x = x + 1
　　　　End If
　　　　.Cells(i, 4).Value = Worksheets("Sheet2").Cells(4, x)
　　Next i
End With

Set WS1 = Nothing

End Sub

1 hits

▼

【42449】データの絞込み→データの抽出 ばっじぉ 06/9/12(火) 13:30