"7:00:00"みたいな時間だけ入力してもfalseを返してくるけど
先頭に日時を追加してあげればうまいことチェックしてくれる
dim t t = "7:00:00" if IsDate("01/01/01 " + t) = True Then '時間だよ Endif
ネタ元
"7:00:00"みたいな時間だけ入力してもfalseを返してくるけど
先頭に日時を追加してあげればうまいことチェックしてくれる
dim t t = "7:00:00" if IsDate("01/01/01 " + t) = True Then '時間だよ Endif
ネタ元
ActiveWorkbook.Worksheets(2).Activate
ネタ元
ネタ元
ネタ元
dim number number = 123 dim number_s number_s = Trim(Str(number))
Str()だと符号用のスペースが付く。
Trim()は左右の全角半角空白を削除してくれる
ネタ元
一番後ろに追加している
Worksheets.Add after:=Worksheets(Worksheets.Count)
ネタ元
Sub MAKE_DIR(strDIRNAME As String) 'ディレクトリ名 フルパスを受け取り、作成する。 'いきなりMKDIR関数で作ると、重複時にエラーが発生するので、 'DIR関数でディレクトリ(フォルダー)の存在をチェックする。 If Dir(strDIRNAME, vbDirectory) = "" Then '※vbDirectoryを忘れずに指定する。 MkDir strDIRNAME '↑上記で見つからなかったので、MKDIR関数で新規作成する。 End If End Sub
ネタ元