[[20061130234802]]　『コピーモード時セルの色を青色にしたい！』（ノム）　ページの最後に飛ぶ

『コピーモード時セルの色を青色にしたい！』（ノム）

早速ですがタイトルのようにコピーモードのとき特定のセルの色を変化させたいのですが悩んでいます。

A1セルにコピーモードのとき1 そうでないとき2を返す関数がわかれば条件付書式で色の変化を設定できるのですが？

誰かこの関数を教えて下さい！お願いします。

 多分関数では無理だと思います。
Sub Test()
Dim myFlg As Long
myFlg = Application.CutCopyMode
If myFlg = 1 Then
    Range("A1").Interior.ColorIndex = 5
Else
    Range("A1").Interior.ColorIndex = xlNone
End If
End Sub

 良く考えたら、上のは使えそうも無いですね。

 （川野鮎太郎）

川野鮎太郎さん対応ありがとうございます。
しかし、上記のマクロではうまく出来ません。

今回やろうとしていることは、別のブックのデータをボタンをクリックさせることで任意の場所に

貼り付けさせようとしています。

そのためには、データがコピーモードになっていることが前提となります。

コピーモードになっていないときは信号のように赤表示とし、ボタンが使えない状態であることを判断させ、

コピーモードのときは青表示にしてボタンが活性化できているようにさせたいのです！

これをなんとか出来ないものでしょうか？

 ＞今回やろうとしていることは、別のブックのデータをボタンをクリックさせることで任意の場所に貼り付けさせようとしています。

 ↑のようなことであれば、
 If myFlg = 1 Then　の下に貼り付けのコードを書くだけで良いのではないですか。

 （川野鮎太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20061130234802]] 『コピーモード時セルの色を青色にしたい！』（ノム） ページの最後に飛ぶ

[[20061130234802]]　『コピーモード時セルの色を青色にしたい！』（ノム）　ページの最後に飛ぶ