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

質問

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

　エラー：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

>（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

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

お礼

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

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

　エラー：不適当なシンボル：。

またこの時、矢印がSub SortTest()を指していました。

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

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