[[20221115220134]]　『「ボタンの左のセルをクリップボードにコピーした』（きよ）　ページの最後に飛ぶ

『「ボタンの左のセルをクリップボードにコピーしたい」[かわちゃん]　について』（きよ）

投稿
[[20210121133200]] 『ボタンの左のセルをクリップボードにコピーしたい』（かわちゃん）　
について...

これを参考にフォームボタンを作成してボタンを押すと右側のセルをコピーして
違う場所に貼り付けたいと考えています。

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

これでコピーまではできるのですが、
ボタンを押しコピーの後にセルの色を変えたいのです。
どうすれば良いでしょうか？

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

＞コピーの後にセルの色を変えたい
何処で詰まっているのですか？

↓でセル（オブジェクト）を特定できているのですから、塗りつぶし色を設定するだけでは？

 ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(, 1)

（もこな２） 2022/11/15(火) 23:39:55

ありがとう御座います。帰ってから試して結果報告致します。
（きよ） 2022/11/16(水) 14:52:59

Sub test()
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(, 1).Copy
Selection.Interior.ColorIndex = 6
End Sub

↑として右隣の語句をコピーできます。
ただ、ボタンを押すと関係ない場所が黄色に塗りつぶされます。

ボタンを押して右隣の語句をコピーして黄色に塗りつぶしたい。
もう一度ボタンを押すと塗りつぶしの色が消えるようにしたいです。
（きよ） 2022/11/16(水) 19:20:03

なぜ、Selectionを操作するのですか？
繰り返しになりますが、操作したいセルは↓なのでは？

 ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(, 1)

（もこな２） 2022/11/16(水) 19:58:57

もこな２さん　お世話になります。

はじめてマクロを使っているので意味はわかっていません。
操作したいセルはActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(, 1)
で間違いないと思います。
ただ、どう記入すれば良いのかわかりません。

（きよ） 2022/11/16(水) 20:32:59

＞はじめてマクロを使っているので意味はわかっていません。
では、そこから手を付けてみてはいかがですか？
意味が分かってないなら改造もできないでしょう。

＞もう一度ボタンを押すと～
その時もコピーするのかどうかわかりませんが、例えばこんな感じになるのでは？

    Sub test()
        Stop 'ブレークポイントの代わり
        With ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(, 1)
            If .Interior.Color = vbYellow Then
                .Interior.ColorIndex = xlNone
            Else
                .Copy
                .Interior.Color = vbYellow
            End If
        End With
    End Sub

 ※丸パクリして終了ではなく、ちゃんと意味を調べてみてください。

（もこな２） 2022/11/17(木) 07:42:00

もこな２お世話になります。

＞意味が分かってないなら改造もできないでしょう。

調べながらやっていて構文エラーやコンパイルがなんちゃらとかエラーが出ており、
Selection.Interior.ColorIndex = 6　の時だけ思った動きとは違いますが、塗りつぶしができました。
なので少し変更すればいけるのかな？と思ってました。調べているときにボタンにはマクロが一つしか登録できないと書いてあったので余計に頭が混乱しておりました。

 >※丸パクリして終了ではなく、ちゃんと意味を調べてみてください。
調べて考えてみます。
漢字が読めても書けないのと同じで身に着けるには時間が掛かりそうです。

ありがとうございました。
（きよ） 2022/11/17(木) 20:12:02

コメント返信：

[ 一覧(最新更新順) ]

[[20221115220134]] 『「ボタンの左のセルをクリップボードにコピーした』（きよ） ページの最後に飛ぶ

[[20221115220134]]　『「ボタンの左のセルをクリップボードにコピーした』（きよ）　ページの最後に飛ぶ