デバッグで少々ハマったのでメモ。 指定したフォルダの下のファイルを一つずつ取り出して処理する場合や、特定のファイルが存在するかを判断したい場合には、DIR関数で簡潔に記述できるのでよく使用します。こんな感じで Dim path As String Dim file As String path = "c:\foo" file = Dir(path & "\*.xml") Do Until file = "" Debug.Print file file = Dir() Loop ところがDIR関数を使用したループ内では、そのループ用途以外ではDIR関数が使用できないという問題があります。 続きを読む hp35sでのプログラムでのポイントをメモ。 以下は全てRPNモードでの記述です。 スタックの値を引数に使用する Xレジスタに半径値がある場合の円の面積を求める。 A001 LBL A # プロ