Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


60239 / 76732 ←次へ | 前へ→

【21135】Re:フォルダー(該当月21日〜翌月20日サイクル)のファイル作成について
質問  YN61  - 05/1/12(水) 18:31 -

引用なし
パスワード
   ▼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)

また、以前にご指導いただいた、21日以降のフォルダーを翌月分にして
作成するコードを頂きましたが、コメントをいただけませんでしょうか
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

本当にありがとうございました。今後ともよろしくご指導いただきますようお願い
致します。

0 hits

【20830】フォルダー(該当月21日〜翌月20日サイクル)のファイル作成について YN61 04/12/21(火) 19:12 質問
【20832】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/21(火) 20:32 回答
【20833】Re:フォルダー(該当月21日〜翌月20日サイ... Hirofumi 04/12/21(火) 20:37 回答
【20836】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/21(火) 21:25 回答
【20837】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/21(火) 21:49 発言
【20838】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/21(火) 22:39 質問
【20840】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/21(火) 23:41 質問
【20841】Re:フォルダー(該当月21日〜翌月20日サイ... かみちゃん 04/12/22(水) 0:30 発言
【20842】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/22(水) 7:16 質問
【20843】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/22(水) 9:20 回答
【20851】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/22(水) 19:29 お礼
【20906】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/24(金) 9:45 回答
【20939】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/26(日) 20:52 質問
【20943】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/27(月) 10:00 回答
【20951】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/27(月) 20:00 お礼
【20953】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/28(火) 9:32 回答
【20959】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/28(火) 21:02 お礼
【20969】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/29(水) 11:11 発言
【21135】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 05/1/12(水) 18:31 質問
【21144】Re:フォルダー(該当月21日〜翌月20日サイ... かみちゃん 05/1/13(木) 6:44 回答
【21178】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 05/1/13(木) 20:48 お礼

60239 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free