[[20210121133200]]　『ボタンの左のセルをクリップボードにコピーしたい』（かわちゃん）　ページの最後に飛ぶ

『ボタンの左のセルをクリップボードにコピーしたい場合』（かわちゃん）

ボタンをセルに入るように配置し、その左隣のセルをコピーするには
どうしたらよいでしょうか？

Sub 左隣のセルをコピー()

    Cell.Offset(0, -1).Copy
End Sub

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 「ボタン」フォームなのかActiveXコントロールなのか

 シェイプなのか分かりませんので、大雑把な回答です。

 オブジェクトのTopLeftCellからOffset(,-1)したセルそ
 指定してください。
（OK） 2021/01/21(木) 13:49

質問内容、わかりにくくてすいません。

ボタン（フォームコントロール）を設置した左のセルをコピーしたいです。
（かわちゃん） 2021/01/21(木) 13:55

 フォームのボタンで試しました。
 ボタンの左上のポイントがあるセルの一つ左のセルの背景色を赤に変える
 マクロです。

 セルの取得の仕方はこんな感じです。

 ActiveSheet.Shapes("ボタン 1").TopLeftCell.Offset(, -1).Interior.Color = vbRed
（OK） 2021/01/21(木) 14:05

 どのシェイプでも使えるようにするには↓のようにしてください。

 Sub test()
  ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(, -1).Interior.Color = vbRed
 End Sub
（OK） 2021/01/21(木) 14:08

 セルをコピーした後どうするのかも気になるところです。
 場合によってはCopyは不要かもしれません。
（OK） 2021/01/21(木) 14:10

ありがとうございます。

まさにこれでした。
複数の箇所で使いまわしをしたかったので助かりました。

 Sub test()
  ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(, -1).Copy
 End Sub

コピー後は複数の別のファイルに貼り付けたかったでコピーだけで事足りました。

（かわちゃん） 2021/01/21(木) 14:29

コメント返信：