| |
▼Asaki さん：
丁寧なコードのコメントありがとうございました。
Dateserialの表現とCLngの使い方についてほぼ理解できました。
ご返答いただき直ぐに御礼を、っと思っていましたが、理解が出来ず
直ぐに御礼の返事が出来ませんでした。
このような書き方は、ある種のテクニックとご指摘いただいたことを思い出します。
また、すばらしいサンプルの理解も徐々に分かってきました。
あと、「vbCrLf」の意味が分かりません。又機会がありましたら
教えて下さい。
Dim a As Long
Dim b As Long
a = Application.InputBox("整数を入力してください", "変数 a を決定",Type:=1)
b = Application.InputBox("整数を入力してください", "変数 b を決定",Type:=1)
MsgBox "a = b ? " & vbCrLf & (a = b) & " --> " & CLng(a = b)
また、以前にご指導いただいた、2１日以降のフォルダーを翌月分にして
作成するコードを頂きましたが、コメントをいただけませんでしょうか
Sub Auto_Open() '自動発生（20日を過ぎた時点で翌月分ホルダー作成）
Dim str As String
Dim dt As Date
Const PFol As String = "U:\明細\" '・・・・・ここのConstPFolの意味は
'20日を過ぎていたら1ヶ月加算
If Day(Date) > 20 Then
dt = DateAdd("m", 1, Date)
Else
dt = Date
End If
str = PFol & "明細表" & Format(dt, "e-m") & "月分"
If Dir(str, vbDirectory) = "" Then '・・・・ここのコードの意味は
MkDir str '・・・・・・MkDirの意味は
MsgBox " 「こんにちは」 新しい月が始まりました !" & vbLf & _
" 当月のフォルダー" & vbLf & Replace(str, PFol, "") & "を作成しました !" _ , vbOKOnly + vbInformation '・・・ここのコードの意味も分かりません、
End If
End Sub
本当にありがとうございました。今後ともよろしくご指導いただきますようお願い
致します。
|
|
YN61
- 05/1/12(水) 18:31 -
