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