InStrRev関数のところでエラー表示されるが?

Question 026k 拙著「組み方講座」 Previous Next
130ページ 本文 ◆ 環境・・ Excel 97 & Windows SE
詳細は こちら
130ページへ進みましたがエラーが出てしまい、本の通りに進むことができません。
エラーが出るのは操作方法の 2. で、「実行」ボタンをクリックしたところです。
エラーメッセージは、「コンパイル エラー: Sub またはFunction が定義されていません。」 です。
ここで、コードウィンドウに変わり、
Private Sub ダイアログを表示してフォルダーへのパスをセットする()
の行が、色が変わって、表示されます。 そのため操作方法の 3. に進むことができないので、よろしくお願いします。
Answer   Copyright (C) 2004.2.17 永井善王
拙著「ExcelVBAマクロ組み方講座」をご購読、ありがとうございます。
詳細は こちら
ご質問のページは実践編第1章6
「指定フォルダー内の全てのブックを順に開く」の中の、サンプルマクロを試してみるところで、 表示されたエラーは右図のとおりですね。

エラーの原因は、ご使用中のExcel97に InStrRev関数が無いからです。
134ページの<用語!>にもありますが、この関数はExcel 2000で追加されましたので、それ以前のバージョン (Excel 2001含む) にはありませんから、無理に使おうとするとエラーになります。
そのため、第1章6 の最初にある 「あらすじ」 で、 「…それ以前のバージョンで利用するには改造が必要…」 とご案内しています。

改造には少々手間を要しますので、ここでお示しすることはできませんが、もしも、実務でそのマクロを使いたくて、かつ、Excelをバージョンアップする予定が当分ない場合はチャレンジしてみてください。 そして、そのときに困ったことが出ましたら、具体的にご連絡くださればお力になれると思います。

 

Excel VBA Macro