** [[OOobbs3/85]] [#k9a41bfc] -''サマリ'': シンタックスエラー -''環境'': Basic -''状態'': 解決 -''投稿者'': [[クロッピ]] -''投稿日'': 2012-03-12 (月) 10:12:02 *** 質問 [#ie77e6bb] 以下の内容でシンタックスエラー。不適切なシンボルoCrll11。とエラーが出ます。 どこが悪いのか分かりません。 エラーの箇所は'登録するセルを選択の下の行です。 解読お願い致します。以下コードです。 '◆◆◆データを登録する Sub MeiTouroku Dim oDoc As Object,oSheet1 As OBject,oCell As Object,oSheet7 As Object Dim aRange As New com.sun.star.table.CellRangeAddress oDoc = ThisComponent oSheet1 = oDoc.CurrentController.ActiveSheet oSheet7 = oDoc.Sheets(6)'データシート oCell = oSheet1.getByCellRangePosition( "K9" )'登録ナンバー 'データを取得するセルを選択 Dim oCell1 As object,oCell2 As object,oCell3 As object,oCell4 As object,oCell5 As object,oCell6 As object,oCell7 As object,oCell8 As object,oCell9 As object oCell1 = oSheet1.getCellRangeByName( "F13" )'日数 oCell2 = oSheet1.getCellRangeByName( "F15" )'有給日数 oCell3 = oSheet1.getCellRangeByName( "F15" )'労働時間 oCell4 = oSheet1.getCellRangeByName( "F20" )'残業時間 oCell5 = oSheet1.getCellRangeByName( "F25" )'有給残 oCell6 = oSheet1.getCellRangeByName( "J21" )'交通費上限 oCell7 = oSheet1.getCellRangeByName( "J25" )'その他 oCell8 = oSheet1.getCellRangeByName( "E28" )'所属 oCell9 = oSheet1.getCellRangeByName( "F28" )'氏名 '登録するセルを選択 Dim oCell11 As Object,oCell12 As object,oCell13 As object,oCell14 As object,oCell15 As object Dim oCell16 As object,oCell17 As object,oCell18 As object,oCell19 As object oCell11 = oSheet7.getCellByPosition( 1, oCell.Value )'所属 oCell12 = oSheet7.getCellByPosition( 2, oCell.Value )'氏名 oCell13 = oSheet7.getCellByPosition( 3, oCell.Value )'日数 oCell14 = oSheet7.getCellByPosition( 4, oCell.Value )'有給日数 oCell15 = oSheet7.getCellByPosition( 5, oCell.Value )'労働時間 oCell16 = oSheet7.getCellByPosition( 6, oCell.Value )'残業時間 oCell17 = oSheet7.getCellByPosition( 7, oCell.Value )'有給残 oCell18 = oSheet7.getCellByPosition( 8, oCell.Value )'交通費上限 oCell19 = oSheet7.getCellByPosition( 9, oCell.Value )'その他 '登録する oCell11.Strings = oCell8.Strings oCell12.Strings = oCell9.Strings oCell13.Value = oCell1.Value oCell14.Value = oCell2.Value oCell15.Value = oCell3.Value oCell16.Value = oCell4.Value oCell17.Value = oCell5.Value oCell18.Value = oCell6.Value oCell19.Value = oCell7.Value End Sub *** 回答 [#lb60056b] #comment *** 感想,コメント,メモ [#s152db8c] - スペースの入れ方に問題があり、なんとなく解決しました。その他にも間違いが沢山ありお恥ずかしいばかりです。 -- クロッピ &new{2012-03-12 (月) 12:54:34}; #comment |