Excel VBA質問箱 IV

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

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


13260 / 13644 ツリー ←次へ | 前へ→

【6233】エラーについて Gon 03/6/19(木) 21:27 質問
【6247】Re:エラーについて Jaka 03/6/20(金) 13:24 回答
【6254】Re:エラーについて Gon 03/6/20(金) 17:29 発言
【6256】Re:エラーについて Jaka 03/6/20(金) 17:41 回答
【6257】Re:エラーについて Gon 03/6/20(金) 17:52 発言
【6258】Re:エラーについて Jaka 03/6/20(金) 18:18 発言
【6259】Re:エラーについて Gon 03/6/20(金) 18:24 発言
【6300】Re:エラーについて Jaka 03/6/23(月) 9:33 回答
【6307】Re:エラーについて Gon 03/6/23(月) 15:05 お礼

【6233】エラーについて
質問  Gon  - 03/6/19(木) 21:27 -

引用なし
パスワード
   2000ではでなくて97だと出るエラーなんですが、
「Rangメソッド Findプロパティが取得できません」

というのが出るのですが97で回避する方法はありますか?

【6247】Re:エラーについて
回答  Jaka  - 03/6/20(金) 13:24 -

引用なし
パスワード
   良く解りません。
どんなコードなんでしょうか?

コードも書いておくと、レスがつきやすいと思います。

【6254】Re:エラーについて
発言  Gon  - 03/6/20(金) 17:29 -

引用なし
パスワード
   実行時エラー '1004'
Range クラス の Find プロパティが取得できません

というエラーが出ます。

【6256】Re:エラーについて
回答  Jaka  - 03/6/20(金) 17:41 -

引用なし
パスワード
   つまり2000では認識されますが、97ではエラーになっちゃうコードや書き方もあるわけで、どんなコード書いているのかコード見ないと解らないって事です。

手っ取り早いのは、97で作るってことなんですけど...。
(97で、作ったものは大体2000でも動くみたいです。)

【6257】Re:エラーについて
発言  Gon  - 03/6/20(金) 17:52 -

引用なし
パスワード
   Set CelA = Columns("M").Find("B5", After:=Range("M" & Rows.Count), _
      LookAt:=xlWhole, MatchCase:=True)

こんな感じです。

【6258】Re:エラーについて
発言  Jaka  - 03/6/20(金) 18:18 -

引用なし
パスワード
   ▼Gon さん:
>Set CelA = Columns("M").Find("B5", After:=Range("M" & Rows.Count), _
>      LookAt:=xlWhole, MatchCase:=True)
>
>こんな感じです。

おかしくないですよ。
97で一応試してみましたが..。
本当にここでエラーになるんですか?

【6259】Re:エラーについて
発言  Gon  - 03/6/20(金) 18:24 -

引用なし
パスワード
   はい。
マクロを動かすとエラーが出てデバックするを選ぶと
ここが指摘されます。

【6300】Re:エラーについて
回答  Jaka  - 03/6/23(月) 9:33 -

引用なし
パスワード
   おはようございます。。
なんとなく解りました。
もしかして、シート上のコントロールボタンのコードじゃないですか?
もしそうなら、

Private Sub CommandButton1_Click()
ActiveCell.Activate          '← これを追加してください。

コントロールボタンを押すと、コントロールボタンにフォーカスが移ってしまうとかの、97特有のバグらしいです。
これ以外だったら解りません。

【6307】Re:エラーについて
お礼  Gon  - 03/6/23(月) 15:05 -

引用なし
パスワード
   Jakaさん
ありがとうございます。

97でも動かすことができました。

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