Excel VBA質問箱 IV

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

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


39391 / 76732 ←次へ | 前へ→

【42454】Re:データの絞込み→データの抽出
回答  ハナ  - 06/9/12(火) 15:36 -

引用なし
パスワード
   ▼ばっじぉ さん:
エラー処理も何も考えないで、こんなの作ってみましたけど・・・

>例)
>
>「シート1」
> |1|2|3|
> |A|B|A|
>   ・
>   ・
>   ・
>
>「シート2」
>  1  |   A  |   B  |
>  2  | A | B | A | B |
>  3  |A|B|A|B|A|B|A|B|
>データ欄 |あ|い|う|え|お|か|き|く|
>
>「シート1」より、123の状態を判別して、
>その状態に対応したデータを「シート2」より取得する。
>(例の場合、「う」を取得する)
>「シート1」のデータは1つ以上です。

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
0 hits

【42449】データの絞込み→データの抽出 ばっじぉ 06/9/12(火) 13:30 質問
【42454】Re:データの絞込み→データの抽出 ハナ 06/9/12(火) 15:36 回答
【42459】Re:データの絞込み→データの抽出 ばっじぉ 06/9/12(火) 17:23 お礼

39391 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free