2013-02-28から1日間の記事一覧

時間を使って判定する

excelvba

例：日本市場の立会時間 IsJikandesuyo = False If 9 <= Hour(Now) And Hour(Now) <= 15 Then If 11 = Hour(Now) Then If Minute(Now) <= 30 Then IsJikandesuyo = True End If ElseIf 12 = Hour(Now) Then If 30 <= Minute(Now) Then IsJikandesuyo = True …

ユーザーフォームを使ってvbOKやvbCancel処理する

excelvba

フォームのコード Private Sub CommandButton_No_Click() UserForm1.Tag = vbCancel UserForm1.Hide End Sub Private Sub CommandButton_Yes_Click() UserForm1.Tag = vbOK UserForm1.Hide End Sub Private Sub UserForm_Initialize() UserForm1.Tag = vbCan…

vbOK等の定数

excelvab

定数 値 選択されたボタン vbOK 1 [OK] vbCancel 2 [キャンセル] vbAbort 3 [中止] vbRetry 4 [再試行] vbIgnore 5 [無視] vbYes 6 [はい] vbNo 7 [いいえ] ネタ元 http://homepage1.nifty.com/rucio/main/technique/MsgBox.htm