マクロを作成したのですが、以下のエラーが出てきてしまいました。

マクロを作成したのですが、以下のエラーが出てきてしまいました。

　エラー：sub または　function のプロシージャーの未定義

申し訳ありませんが、ご教授願います。
よろしくお願いいたします。


＜マクロの内容＞

Sub SortTest()
　　　　　Worksheets("Sheet1").Activate
　　　　　Worksheets("Sheet1").Range(Cells(1, 1), Cells(100, 2)).Sort
　　　　　Key1:=Worksheets("Sheet1").Cells(1, 2),order1:=xlAscending
End Sub

No.2 回答者： Wendy02 回答日時： 2010/07/20 12:33

>（open office のCalcを使っております。

）
それは、VBAではありませんね。

Sub Main
Dim oRange as object
Dim descriptors_obj(1) As New com.sun.star.beans.PropertyValue
Dim sortFields(0) As New com.sun.star.util.SortField
oRange = ThisComponent.Sheets(0).getCellRangeByName("A1:B100")
sortFields(0).Field = 1 'From Zero(0)
sortFields(0).SortAscending = True
descriptors_obj(0).Name = "SortFields"
descriptors_obj(0).Value = sortFields()
descriptors_obj(1).Name = "ContainsHeader"
descriptors_obj(1).Value = True
oRange.sort(descriptors_obj())
End Sub

No.1 回答者： imogasi 回答日時： 2010/07/19 12:39

これをモジュールに貼り付けると、Key1以下がエラーになります。

行継続の　・・・Cells(100, 2)).Sort _
にするとエラーなしに動きました。
Key１以下はSort　と同じ行に書くべきもの。改行して書くなら、上記のようにすべき。
そんな問題じゃございませんか。もしそうなら、初歩的なことですぞ。

この回答へのお礼

ありがとうございます。
VBAを使うのは今日がはじめてで、よく調べておりませんでした。。

…Cells(100, 2)).Sort _として実行を行ったのですが、
以下の新しいエラーが出てきてしまいました。

　エラー：不適当なシンボル：。
　
またこの時、矢印がSub SortTest()を指していました。

何度も申し訳ありませんが、ご教授頂けないでしょうか？

（open office のCalcを使っております。）

お礼日時：2010/07/19 15:10