Top > OOobbs3 > 85

OOobbs3/85 Edit

  • サマリ: シンタックスエラー
  • 環境: Basic
  • 状態: 解決
  • 投稿者: クロッピ?
  • 投稿日: 2012-03-12 (月) 10:12:02

質問 Edit

以下の内容でシンタックスエラー。不適切なシンボル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

回答 Edit


感想,コメント,メモ Edit

  • スペースの入れ方に問題があり、なんとなく解決しました。その他にも間違いが沢山ありお恥ずかしいばかりです。 -- クロッピ 2012-03-12 (月) 12:54:34


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