□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 転記について | |
|---|---|
[195386] 転記について- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ 超初心者 -(2022/11/16(15:56)) □U R L/ VBAはじめたての初心者です。 雛形シートから一覧シートへの転記について質問です。 セルの値が一致したら転記をしたいのですがうまくいきません。 一覧シートのA列の値と雛形シートの"I8"が一致で 一覧シート一致した行へ雛形の各セルの値を転記したいです。 宜しくお願いします。 | |
[195388] Re[1]: 転記について- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/11/16(18:27)) □U R L/ Sub test()
Dim ws雛形 As Worksheet
Dim ws一覧 As Worksheet
Dim m
Set ws雛形 = Worksheets("雛形")
Set ws一覧 = Worksheets("一覧")
m = Application.Match(ws雛形.Range("I8"), ws一覧.Columns("A"), 0)
If IsNumeric(m) Then
ws一覧.Range("B" & m).Value = ws雛形.Range("□□").Value
ws一覧.Range("C" & m).Value = ws雛形.Range("〇〇").Value
End If
End Sub
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195390] Re[2]: 転記について- ■  / 記事引用/メール受信=OFF■
□投稿者/ 超初心者 -(2022/11/17(10:51)) □U R L/ ご回答ありがとうございます。 一致したらでしたのでIFで考えていました。 思ったように動き感激です。 ありがとうございました。 | |