< ページ移動: 1 2 >
def get_today(*args):doc = XSCRIPTCONTEXT.getDocument()# シートを選択sheet = doc.getSheets().getByName('Main')# 今日の日付の取得dt_now = (datetime.datetime.now()).strftime('%Y/%m/%d')# すでにセルに値が入っている時は更新するか確認するkaisai_nengetsu = sheet.getCellRangeByName('C3')if kaisai_nengetsu.String:msg_box = Bridge()res = msg_box.run_querydialog(title='開催年月日セット', message='すでに値がセットされています。\n上書きでセットしますか?')# res=2 はい res=3 いいえif res != 2: # 「はい」でなければ終了returnkaisai_nengetsu.String = dt_now
Option CompatibleSub get_now_dateDim objDoc As ObjectDim objSheet As ObjectDim objCell As ObjectobjDoc = StarDesktop.CurrentComponentobjSheet = objDoc.Sheets.getByName("Main")' 既にセルに値が入っていたら、上書きするかを聞くobjCell = objSheet.getCellRangeByName("C3")If objCell.String <> "" ThenIf MsgBox ("すでに値がセットされています。" & vbCrLf & "上書きでセットしますか?", 292, "開催年月日セット") = 7 Then' いいえのボタンが押された場合returnEnd IfEnd If' 現在時刻の取得objCell.String = Format(Now(), "yyyy/mm/dd")End Sub