ここから本文です

どなたかエクセルの詳しい方教えてください。 sheet1のB11とD11を、受付簿と...

gog********さん

2019/8/1719:49:44

どなたかエクセルの詳しい方教えてください。
sheet1のB11とD11を、受付簿という他のシートのJ2とK2に貼り付けたいのですが、受付簿というシートJ列とK列のところが変わります。

例1
受付簿のシートJ3にセルを指定した状態で、sheet1のマクロを実行するとB11の数値は受付簿のシートのJ3へ、D11 の数値は受付簿のシートのK3へコピー。

例2
受付簿のシートJ10にセルを指定した状態で、sheet1のマクロを実行するとB11の数値は受付簿のシートのJ10へ、D11 の数値は受付簿のシートのK10へコピー。

という風にできませんでしょうか?
記録マクロだと

Sub テスト11()
'
' テスト11 Macro
''
Range("B11").Select
Selection.Copy
Sheets("受付簿").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K2").Select
Sheets("Sheet1").Select
Range("D11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("受付簿").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I4").Select
Sheets("Sheet1").Select
Application.CutCopyMode = False
End Sub
という風にしかできず、受付簿のJとkを変えれません。
説明が下手ですいません。

補足「指定した状態」のところを補足します。受付簿のシートのJ2をセル選択し、sheet1に移動した後受付簿のsheetをクリックすると直前の指定したJ2のところにセル選択があるという意味でした。

閲覧数:
37
回答数:
1
お礼:
500枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tai********さん

2019/8/1720:32:26

マクロの記録では変数というものは存在しないので条件で分岐できません。

それにしても
J3にセルを指定した状態で
J10にセルを指定した状態で
というのはどうやって指定する予定なんでしょうね。

私の心の中で、とかはナシです。

方法としては
InputBoxを使う
セルに記述する
ComboBoxから選択する、
CheckBoXを使う、

などが考えられます。

  • tai********さん

    2019/8/1721:06:46

    例1
    受付簿のシートJ3をクリックした状態で、sheet1のマクロを実行するとB11の数値は受付簿のシートのJ3へ、D11 の数値は受付簿のシートのK3へコピー。

    例2
    受付簿のシートJ10をクリックを指定した状態で、sheet1のマクロを実行するとB11の数値は受付簿のシートのJ10へ、D11 の数値は受付簿のシートのK10へコピー。


    ですか?

    この分で行くと
    例n
    受付簿のシートJnをクリックを指定した状態で、sheet1のマクロを実行するとB11の数値は受付簿のシートのJnへ、D11 の数値は受付簿のシートのKnへコピー。

    となりそうですが?それは余計ですか?

  • その他の返信(2件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2019/8/18 15:48:34

できました。このようにしたかったんです。ありがとうございました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる