特定の範囲内から文字列を読み取る方法

Question

複数のフォルダ内にあるエクセルファイルの中身を参照して、特定範囲内にある情報を抽出したいです。
具体的に参照したいエクセルファイルの該当箇所は、Range("B4:D4")、Range("E7:G7")範囲内でその範囲に文字列があった場合、その文字列を読み取るようにしてほしいです。

まず、エクセルファイルのRange("B4:D4")にある値を、
自分のファイルに出力させたいです。

以下の３点についてアドバイス頂けると助かります。
①処理の流れがあっているか
②Sub Bookinfo(loop1 As Integer)の引数の設定の仕方は大丈夫か
③datename に値が入力されない

Sub Bookinfo(loop1 As Integer)

Dim datename As String '作成日
Dim loop1 As Integer '繰り返し

For loop1 = 2 To 4 'B4からD4の値を検索
if Cells(loop1,4) <> "" '値があれば
datename = Cells(loop1, 4) '変数に値を入力
Exit For
End If
Next
Cells(1, 1) = subjectname '値を出力
End Sub

宜しくお願いします。

Comments

[kei344]

「3の条件分岐」とありますが、質問からは抜けているようです。また、「文字列を読み取る」は、読み取ったものをどこに保存とかどうやって使うなど補足説明が必要です。質問文を編集してください。

Answer 1

該当するセルが決まっているなら、

• CHOOSE関数を使う
• Forループを回す
• なんらかの判断をする

か

• 評価するセル範囲を配列に入れる
• Forループを回す
• なんらかの判断をする

でよいのでは？

前者は評価するセルの個数が29個までになります(CHOOSE関数の仕様)

    '評価するセル範囲を配列に入れる
    Dim EvaluateRange(1 To 6) As String
    EvaluateRange(1) = "B4"
    EvaluateRange(2) = "C4"
    EvaluateRange(3) = "D4"
    EvaluateRange(4) = "E7"
    EvaluateRange(5) = "F7"
    EvaluateRange(6) = "G7"
    
    'Forループを回してなんらかの判断をする(今回はMsgBoxで値を表示してみた)
    Dim i As Integer    
    For i = LBound(EvaluateRange) To UBound(EvaluateRange)
        MsgBox (Evaluate(EvaluateRange(i)))
    Next i

もっと効率的なやり方もあると思いますが、最初は泥臭いやり方でやってみるのが良いでしょう

Comments

[dojikko]

今回はForループで書きましたが、配列に対して処理をするならForループよりFor Eachループの方が良いです

[sehiro]

コメントありがとうございます。頂いた内容を元に、質問内容を再整理しました。何かアドバイス頂けると嬉しいです。宜しくお願いします。

Answer 2

①処理の流れがあっているか

意図する動作になっていれば、結果としてあっているのでは？
意図する動作になっていないのであればどこかおかしいですね

②Sub Bookinfo(loop1 As Integer)の引数の設定の仕方は大丈夫か

引数として指定されているloop1がBookinfoの中でも宣言されていますが、何か意図している事がありますか？
変数のスコープについてすこし学ばれた方が..

③datename に値が入力されない

そもそもどのセルを指しているか確認してますか？
CellsはCells(行, 列)です
コードを見る限りループで回している

• Cells(loop1, 4)

と

• Range("B4:D4")

は等価では無いと思われますが..

動作がおかしいと思った時は、まずステップ実行してみて

    datename = Cells(loop1, 4)  '変数に値を入力  

に処理が来ているか、Cells(loop1, 4)の値がどうなっているか確認する癖を付けるようにした方がいいです

Comments

[sehiro]

コメントありがとうございます。本日、マクロ作成できました。またの機会ありましたら、宜しくお願いします。