Sheet2のセルの数値をSheet1のセルに表示する方法

Question

作業シートのSheet2には「伝票No、名前、金額等」が入ります。記録シートのSheet1には「伝票No、名前、金額等」を記録します。

Sheet1の伝票N0に対応した行のセルに金額を自動記録したいのですが、どうしたら良いか解りません。

Sheet1は
D列に 伝票NoをD7から１、２、３、４、５・・と連番をつけておく。
G列に 名前
H列に 金額をH7、H8、H9、H10・・・・・・・に一行ごとに入れる。
（なお、H列はH～Oを結合してます。）
Sheet2には
R8（S8とセル結合）に Sheet1から取った伝票Noをその都度、入力していく。（作業シートのためその都度上書きする。）
R24（S24とセル結合）は　金額を表示

このR24の金額を伝票NoごとにSheet1に記録したい。作業シート＝入力シートなので前記がなくなるので連続作業ができません。この部分だけのマクロでもかまいません。どなたか教えてください。

tatsu99 · Accepted Answer

画像の添付の方法ですが、
windowsのアクセサリにSnipping Toolがあります。
それを使うと、画面のキャプチャができます。
一旦、その画像をファイルに保存します。その後、そのファイルをアップロードします。
添付した画像は、全て、このツールでキャプチャしたものです。

tatsu99 · Answer

マクロの書き込み場所はあってます。
コードを標準モジュール(Module1)に書き込んだだけでは、マクロは実行されません。
添付図のように”表示”タブを選択し、「マクロ」をクリックしてください。
すると、実行画面が表示されますので、”転記”を選択し、実行ボタンをクリックしてください。
（図はexcel2007ですが、たぶん、ほかも同じかと思います）

tatsu99 · Answer

なにかセルの位置で、こちらの環境とあなたの環境で齟齬が起こっているかもしれません。
こちらの環境の画像です。
Sheet2のR8（伝票番号）、E12（名前）、S24（金額）が
Sheet1の１６行に転記されています。
あなたの環境をわたしのように画像で提示していただければ、齟齬の原因がわかるかと思います。

tatsu99 · Answer

>メッセージボックスはどこで見るのですか、今でも見れますか。
マクロが成功すると、添付の画像のメッセージボックス（赤線で囲んだもの）が、表示されるはずです。
これが、表示されませんでしたか。

tatsu99 · Answer

>Sheet1に金額が表示されません。

”転記完了”がメッセージボックスに表示され、名前は、設定されるのですね。（金額だけが設定されないということでしょうか）

金額は、Sheet2のS24をSheet1の伝票番号に一致する行のH列へ設定しています。
S24が空白になっていませんでしょうか。

tatsu99 · Answer

以下のマクロを標準モジュールに登録してください。
---------------------------------------------
Option Explicit
Public Sub 転記()
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    Dim maxrow As Long
    Dim row As Long
    Dim dicT As Object
    Dim key As Variant
    Set sh1 = Worksheets("Sheet1")
    Set sh2 = Worksheets("Sheet2")
    Set dicT = CreateObject("Scripting.Dictionary")
    maxrow = sh1.Cells(Rows.Count, "D").End(xlUp).row
    '伝票番号を記憶
    For row = 7 To maxrow
        key = sh1.Cells(row, "D").Value
        dicT(key) = row
    Next
    key = sh2.Cells(8, "R").Value
    If dicT.exists(key) = False Then
        MsgBox ("伝票番号=" & key & "はSheet1にありません")
        Exit Sub
    End If
    If sh2.Cells(12, "E").Value = "" Then
        MsgBox ("名前が未入力です")
        Exit Sub
    End If
    If sh2.Cells(24, "S").Value = "" Then
        MsgBox ("金額が未入力です")
        Exit Sub
    End If
    row = dicT(key)
    sh1.Cells(row, "G").Value = sh2.Cells(12, "E").Value '名前
    sh1.Cells(row, "H").Value = sh2.Cells(24, "S").Value '金額
    MsgBox ("転記完了")
End Sub

tatsu99 · Answer

補足要求です。
Sheet2の伝票番号でSheet1の伝票番号を検索し、一致する行にSheet2の名前、金額を転記する
という前提であってますか。
その前提で、以下の質問です。

１）Sheet2の名前のセル位置が不明です。提示してください。
Sheet2のR8＝伝票番号
Sheet2のR24＝金額
は、わかっています。

２）Sheet2に入力された伝票番号が、Sheet1に存在しなかった場合は、どうしますか？

３）Sheet2の金額、名前をSheet1へ転記したあと、Sheet2のこれらの情報（伝票番号、金額、名前）は、そのまま残しておきますか。
それとも、クリアしたほうがよいですか。

chonami · Answer

やっていることの意味が全然わかりません。Sheet1に直接入れるのではダメなんですか？
なぜ、作業用シートが必要なんですか？

なぜ、列を結合しているんですか？

Sheet2のセルの数値をSheet1のセルに表示する方法

画像の添付の方法ですが、

マクロの書き込み場所はあってます。

なにかセルの位置で、こちらの環境とあなたの環境で齟齬が起こっているかもしれません。

>メッセージボックスはどこで見るのですか、今でも見れますか。

>Sheet1に金額が表示されません。

以下のマクロを標準モジュールに登録してください。

補足要求です。

やっていることの意味が全然わかりません。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング