Top > OOobbs2 > 12

OOobbs2/12 Edit

  • サマリ: inputmsgによる入力値を特定セルに書き込む
  • 環境: Calc
  • 状態: 解決
  • 投稿者: くま?
  • 投稿日: 2006-11-19 (日) 20:55:11

質問 Edit

 inputmsg関数を用いて、数個のメニューを選択させ、その番号を特定のセルに書き込むというものです。  例えば、メニューが     1 建物 2 土地 3 建物+土地

の場合、1を入力して 変数ASに inputmsgから受け取り、それをセルA1に書き込むというものです。

回答 Edit

  • inputmsg 関数についてはよくわかりませんが、こんな感じでしょうか?
Sub Main
Dim oDoc As Object, oSheets As Object
Dim oSheet As Object, oCell As Object
Dim sInput As String
Dim sString As String

  sInput = InputBox("1: 建物, 2: 土地, 3: 建物+土地")
  Select Case sInput
  Case "1"
    sString = "建物"
  Case "2"
    sString = "土地"
  Case "3"
    sString = "建物+土地"
  Case Elese
    msgbox "値が正しくありません"
    Exit Sub
  End Select
  
  oDoc = ThisComponent
  oSheets = oDoc.getSheets()
  oSheet = oSheets.getByIndex(0)
  oCell = oSheet.getCellByPosition(0,0)
  oCell.String = sString
End Sub

InputBox については、OpenOffice.org のヘルプの実行時関数を参照してください。

また、ドキュメントシートセルセルの値 を参照してください。

  • はにゃ?? 2006-11-20 (月) 14:03:43

感想,コメント,メモ Edit


 教えていただいてありがとうございました。とても助かりました。またよろしくお願いします。   〜 くま


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