Top > OOobbs3 > 85

** [[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

Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes