Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1045 / 13645 ツリー ←次へ | 前へ→

【76637】ワークシート上のコマンド釦について コマちゃん 15/2/22(日) 10:51 質問[未読]
【76638】Re:ワークシート上のコマンド釦について β 15/2/22(日) 11:38 発言[未読]
【76639】Re:ワークシート上のコマンド釦について コマちゃん 15/2/22(日) 12:00 質問[未読]
【76640】Re:ワークシート上のコマンド釦について コマちゃん 15/2/22(日) 13:43 質問[未読]
【76647】Re:ワークシート上のコマンド釦について β 15/2/22(日) 17:37 発言[未読]

【76637】ワークシート上のコマンド釦について
質問  コマちゃん E-MAIL  - 15/2/22(日) 10:51 -

引用なし
パスワード
   Win-XP上のExcell2013で作成していたプログラムを
Win8.1で作動させたところ、ワークシート上の
コマンド釦が全く反応がありません。
Excell2007でも同じプログラムを作成していたので、
動作させると正常に動作します。

デザインモードでコマンド釦のプロパティを表示させようと
しても、表示できず、ワークシートのプロパティが表示されます。
EXCELL2007プログラムでは釦のプロパティは表示されます。
ちなみにユーザーフォーム上の釦は正常に動作します。

同じExcell2013 VBAでWin-XPとWin8.1で何か違いが有るのでしょうか。
ご指導宜しくお願いします。

【76638】Re:ワークシート上のコマンド釦について
発言  β  - 15/2/22(日) 11:38 -

引用なし
パスワード
   ▼コマちゃん さん:

>Excell2007でも同じプログラムを作成していたので、
>動作させると正常に動作します。

【同じプログラム】というのは、同じブックを2007で動かすとOK,
2013で動かすとNG ですか?
それとも、2007 で作成していたのと同じ【ような】ブックを作成して動かすとNG なんですか?

>デザインモードでコマンド釦のプロパティを表示させようと
>しても、表示できず、ワークシートのプロパティが表示されます。

プロパティ画面の上のコンボボックスにWorkSheetが表示されているんでしょうが
このコンボボックスの▼をおしてもCommandButtonはでてきませんか?

>同じExcell2013 VBAでWin-XPとWin8.1で何か違いが有るのでしょうか。

XP 環境がないので確認はできませんが、少なくとも、ActiveXのあたりに違いはないと思います。
不具合が発生しているブックの標準モジュールに以下を貼り付けて動かしてみてください。
そこで表示されるCommandButtonの名前と、シートモジュールに書いてあるイベントルーティンの
CommandBttonの名前は同じですか?

たとえば、シートモジュールでは CommandButton1_Click 等。
でも、実際にシート上に挿入されたものは CommandButton21 とか?

Sub Test()
  Dim sp As Shape
  
  For Each sp In ActiveSheet.Shapes
    MsgBox sp.Name
  Next
  
End Sub

【76639】Re:ワークシート上のコマンド釦について
質問  コマちゃん E-MAIL  - 15/2/22(日) 12:00 -

引用なし
パスワード
   βさん、早速回答有難うございます。
EXCELL2007とEXCELL2013のVBAコードが一部違いますので
例えば最終行の把握等です。
その辺を修正して両Bookプログラムを作成していました。

Excell2013で2007用のBookは正常に動作するが、2013用のBookは
userformの釦は正常に機能するが、ワークシート上の釦は機能しないと
云うことです。
コマンド名はコード上と釦名は合わせています。

ただ、オプションのセキュリティセンターの設定を色々扱っていたら
一応当面の問題は解決しました。
アドバイス頂いているコード追加の件は、今しばらく時間下さい。
有難うございました。


▼β さん:
>▼コマちゃん さん:
>
>>Excell2007でも同じプログラムを作成していたので、
>>動作させると正常に動作します。
>
>【同じプログラム】というのは、同じブックを2007で動かすとOK,
>2013で動かすとNG ですか?
>それとも、2007 で作成していたのと同じ【ような】ブックを作成して動かすとNG なんですか?
>
>>デザインモードでコマンド釦のプロパティを表示させようと
>>しても、表示できず、ワークシートのプロパティが表示されます。
>
>プロパティ画面の上のコンボボックスにWorkSheetが表示されているんでしょうが
>このコンボボックスの▼をおしてもCommandButtonはでてきませんか?
>
>>同じExcell2013 VBAでWin-XPとWin8.1で何か違いが有るのでしょうか。
>
>XP 環境がないので確認はできませんが、少なくとも、ActiveXのあたりに違いはないと思います。
>不具合が発生しているブックの標準モジュールに以下を貼り付けて動かしてみてください。
>そこで表示されるCommandButtonの名前と、シートモジュールに書いてあるイベントルーティンの
>CommandBttonの名前は同じですか?
>
>たとえば、シートモジュールでは CommandButton1_Click 等。
>でも、実際にシート上に挿入されたものは CommandButton21 とか?
>
>Sub Test()
>  Dim sp As Shape
>  
>  For Each sp In ActiveSheet.Shapes
>    MsgBox sp.Name
>  Next
>  
>End Sub

【76640】Re:ワークシート上のコマンド釦について
質問  コマちゃん E-MAIL  - 15/2/22(日) 13:43 -

引用なし
パスワード
   アドバイス頂いたコードを書いた後
シ−ト上にコマンド釦を作り
デバッグで名前を調べましたら、
同じCommandButton21と名称が表示されました。


▼β さん:
>▼コマちゃん さん:
>
>>Excell2007でも同じプログラムを作成していたので、
>>動作させると正常に動作します。
>
>【同じプログラム】というのは、同じブックを2007で動かすとOK,
>2013で動かすとNG ですか?
>それとも、2007 で作成していたのと同じ【ような】ブックを作成して動かすとNG なんですか?
>
>>デザインモードでコマンド釦のプロパティを表示させようと
>>しても、表示できず、ワークシートのプロパティが表示されます。
>
>プロパティ画面の上のコンボボックスにWorkSheetが表示されているんでしょうが
>このコンボボックスの▼をおしてもCommandButtonはでてきませんか?
>
>>同じExcell2013 VBAでWin-XPとWin8.1で何か違いが有るのでしょうか。
>
>XP 環境がないので確認はできませんが、少なくとも、ActiveXのあたりに違いはないと思います。
>不具合が発生しているブックの標準モジュールに以下を貼り付けて動かしてみてください。
>そこで表示されるCommandButtonの名前と、シートモジュールに書いてあるイベントルーティンの
>CommandBttonの名前は同じですか?
>
>たとえば、シートモジュールでは CommandButton1_Click 等。
>でも、実際にシート上に挿入されたものは CommandButton21 とか?
>
>Sub Test()
>  Dim sp As Shape
>  
>  For Each sp In ActiveSheet.Shapes
>    MsgBox sp.Name
>  Next
>  
>End Sub

【76647】Re:ワークシート上のコマンド釦について
発言  β  - 15/2/22(日) 17:37 -

引用なし
パスワード
   ▼コマちゃん さん:

>アドバイス頂いたコードを書いた後
>シ−ト上にコマンド釦を作り
>デバッグで名前を調べましたら、
>同じCommandButton21と名称が表示されました。

すでに、本件は、この前のコマちゃんさんの書き込み、セキュリティセンタでの設定で
解決しているかと思います。

ActiveXが設定で有効になっていなかったんですよね?

ということで、本件に関しては付け加えることはありません。

挿入されたCommandButton21 も、シートモジュール側で、CommandButton21_Click で記述されていれば
全く問題ないですよね。

通常は、挿入すれば、CommandButton1 から番号が振られますけど、昨今のMSのActiveXがらみのバグで
21 から番号が割り振られています。いつか、正常になるとは思いますが。

1045 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free