マクロ,ＢＡＳＩＣに関する操作方法Sub For_To_Step Dim i,counter as integer Dim osheet,ocell as object counter=0 oSheet = ThisComponent.Sheets(0) For i = 0 TO 27 Step 2 oCell = oSheet.getCellByPosition(0,counter) oCell.value= i counter = counter + 1 Next i End Sub 変数i,counterを整数型、 変数osheet,ocellをオブジェクトとして宣言します counterに0を代入します シートの表１を選択します iの値を0から27までステップ2でループを開始します 表1のＡ列にiを代入します counterに１を加えます ループを終了します
