Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12888 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8088】Excel97で入力規則からの入力でWorksheet_Change Massan 03/9/29(月) 19:58 質問
【8095】Excel97のバグだと聞いた事があります。 しのしの 03/9/30(火) 9:51 回答
【8096】Re:Excel97のバグだと聞いた事があります。 Jaka 03/9/30(火) 10:08 回答
【8144】Re:Excel97のバグだと聞いた事があります。 Massan 03/10/2(木) 0:55 お礼
【8097】解決案の追加です。 しのしの 03/9/30(火) 10:11 回答
【8145】Re:解決案の追加です。 Massan 03/10/2(木) 0:56 お礼
【8088】Excel97で入力規則からの入力でWorksheet...
質問  Massan  - 03/9/29(月) 19:58 -
引用なし
パスワード
   先日、BOTTAさんとしのしのさんに回答頂いたMassanです。
回答頂いた方法「Worksheet_Change」で入力規則からの入力で、
他のセルの入力規則を変更できたのですが、作成していた環境が
Office2000でした。作成したファイルを97のPCに移してやってみたところ、
なんの反応もしませんでした。97では、入力規則の入力からでは
「Worksheet_Change」は使えないのでしょうか。
【8095】Excel97のバグだと聞いた事があります。
回答  しのしの  - 03/9/30(火) 9:51 -
引用なし
パスワード
   こんにちは。
97を触ったこともないので、発言する立場にはないのですが、
お名前を出していただいていることもあり、書き込んじゃいます。

聞いた話なので、真偽は定かではありませんが、
入力規則で【入力の種類】-【リスト】,【元の値】-セル参照の場合、
Changeイベントは発生しないというバグが
Excel97にはある、ということです。
昔の話で、このバグが改修されている可能性もあるので、
MSのHomePageで調べてみてください。

このバグが改修されていないとすれば、解決方法としては、
・BOTTAさんが示されたようにSelectionChangeイベントを利用する
・【元の値】をセル参照でなく、文字列"○○,△△,××"で設定する
・イベントをもつクラスを利用する
でどうでしょう？
ただ、97を持っていないので、これ以上はなんともいえません。
すみません。
【8096】Re:Excel97のバグだと聞いた事があります。
回答  Jaka  - 03/9/30(火) 10:08 -
引用なし
パスワード
   こんにちは。

97では、入力規制でWorksheet_Changeイベントは発生しません。
Private Sub Worksheet_Calculate()
で、代用してください。（2000でも動きます。）

例えば、入力規制セルがA1だとすると、使いそうに無いセルB1に =A1 と記入して、セルB1が再計算された時のイベントを拾います。

入力規制からの値の取得などは、

If ActiveCell.address(0,0) = "A1" then
　 msgbox "入力規制の値は、" & activecell.value
end if

こんな感じになります。
【8097】解決案の追加です。
回答  しのしの  - 03/9/30(火) 10:11 -
引用なし
パスワード
   解決策の追加です。

入力規則の【元の値】がセル参照で、
上記を利用して再設定する入力規則の【元の値】がセル参照であれば、
名前定義を利用して設定することができます。（VBAは不要）
とても便利です。私もよく利用しています。

エクセル技道場-名前定義
http://www2.odn.ne.jp/excel/waza/name.html
【8144】Re:Excel97のバグだと聞いた事があります。
お礼  Massan E-MAIL  - 03/10/2(木) 0:55 -
引用なし
パスワード
   お礼が遅くなり申し訳ありません。他の業務が立て込んでおり、まだお教え頂いた方法を試していないのですが、これからやってみたいと思います。ありがとうございました。
【8145】Re:解決案の追加です。
お礼  Massan E-MAIL  - 03/10/2(木) 0:56 -
引用なし
パスワード
   わざわざ追加していただいて恐縮です。業務の関係でまだ試していないのですが、これからやってみたいと思います。ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12888 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free