excel シート上のボタンが動かない

質問

シート上にコマンドボタンをおきました。そしてそのボタンを押したたときの動きをVBAで書きました。
普通に動きます。
次にそのシートを新しいウィンドウで開き、並べて表示しました。一方のウィンドウ上でボタンは正常に働きますが、もう一方のウィンドウのシート上ではボタンは働きません。
どちらのウィンドウ上でも正常にボタンを働かせたいのですが、できません。どうすればいいのでしょうか。

回答No.5

cj_mover

＃２-３、ｃｊです。
＃２お礼欄拝見しました。

まず、お詫びです。
＃２-３に書いた内容は、私の勝手な読み違え（勘違い→思い込み）で、
ウィンドウの分割を適用した場合のことを書いていました。
新しいウィンドウを開いた場合のことで言えば、
確かに、ひとつのコマンドボタンについて、その動作は、ひとつのウィンドウに限られます。
また、前提が違っていたせいで、
非アクティブなウィンドウ上のコントロールを一度のクリックで操作できる
ようにしたいという要望であると、二重に勘違いしていました。
すみませんでした。m(__)m
従って、＃２お礼欄でご提示の疑問点については、
すべて前提を間違えた私の問題であって、
> こちらの操作上のミスなどが有りましたら
そちらで確認されていることはに、誤りはありません。重ねて申し訳ないです。

"[TakeFocusOnClick]の値をTrueからFalseに設定変更"し場合についてですが、
フォーカスを持つかどうかの違いから派生して、
フォーカスを持っている時＝押した後、
「見た目の変更」としては、コマンドボタンのテキストフレームに四角い枠が破線で表示され、フォーカスを持っていることを示唆します。
また、この場合（次の操作でコマンドボタン以外を選択するまで）
Excelのツールバー等のメニューの多くが（グレイアウトして）無効になってしまいます。

> 実際の操作の場合、フォーカスが動いてから操作できれば十分だと思っています。
> しかし現状では、activeXコントロールのボタンの場合、全く動きません。どうしたらいいのでしょうか。

あらためてお応えしますが、これは仕様上の動作でして、
ユーザーの通常の操作や設定によって、お望み通りに出来るようなものではないです。

このまま無責任に終ってしまうのも悲しいので、と、
何か方法は無いかとずっと格闘しているのですが、色々試してはみたものの、
十分な形のものを提示するのは未だ、難しいです。

コマンドボタンを複製したものを元のコマンドボタンに重なる位置に配置して、
ウィンドウ毎に有効なコマンドボタンを切り替える、というアイディアで、
２つのウィンドウ、ひとつのシート、（元々）ひとつコマンドボタン、
で実現する（２つのウィンドウでコマンドボタンを機能させる）処までは概ね出来ました。
２つのコマンドボタンを見かけ上ひとつのコマンドボタンとして、
それぞれに対応したウィンドウで操作出来るようにする、というものです。
特別な処理をする訳でもないのですが、汎用性を持たせることに躓いています。
「２つのウィンドウ、ひとつのシート、（元々）ひとつコマンドボタン」
というような限定的な条件なら、実用出来そうな見込みでいます。
コマンドボタン切り替えの部分のプロットは、こんな感じです。
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
If モジュール変数キャンセルフラグ Then Exit Sub
With Wn.ActiveSheet
Select Case .Name
Case "Sheet1"
Select Case Wn.WindowNumber
Case 1
.OLEObjects("CommandButton1").SendToBack
Case 2
.OLEObjects("CommandButton2").SendToBack
End Select
End Select
End With
End Sub
後は、Workbook_Openイベントで、
コマンドボタンの有効ウィンドウを設定する
（Window:1で"CommandButton2"を有効に、Window:2で"CommandButton1"を有効に、）
処理との組み合わせ、調整です。

今の処、後々のメンテナンスを見通して開発できるレベルではないですし、
決してスマートな方法でもなく、まだどうなるか解りませんけれど、
もう暫く闘ってみようかと個人的に思っています。
スレッドを締切るのでしたら、それはそれで、私としては構いません。
またご迷惑を掛ける結果に終るかも知れませんから、
質問者さんの思いのままにお任せします。
そこまでしてActiveXコントロールを使う必要はない、という判断もあると思いますし、
その方が普通だとも思います。

とりあえず、以上です。
お騒がせしてしまって本当にすみませんでした。p

お礼

丁寧な説明、いろいろな試み、本当にありがとうございます。知らないことも多く、とても参考になります。ただ、今回のことに関しては、Excelそのものの問題というか、仕様のようなので、スレッドは締めさせていただきます。操作性の点で、こういうことができたらいいなあ、とは思いますが、それができないのであれば、可能な方法を組み合わせて、別の操作方法などで工夫したいと思います。ありがとうございます。