期間・年月日マクロ

2017–09–13 (Wed) 19:05
今日は期間や年月日のマクロを作成致します。

無題

Function KikanMonthR(開始 As Range, 終わり As Range)
Dim k, kai
For Each k In 開始
If k <> 0 Then
kai = kai & k
End If
Next
Dim owa
For Each k In 終わり
If k <> 0 Then
owa = owa & k
End If
Next
kai = Replace(kai, ".", "/")
owa = Replace(owa, ".", "/")
KikanMonthR = DateDiff("m", kai, owa) + 1
End Function

KikanMonth

Function KikanMonth(開始 As String, 終わり As String)
開始 = Replace(開始, ".", "/")
終わり = Replace(終わり, ".", "/")
KikanMonth = DateDiff("m", 開始, 終わり) + 1
End Function

年月日

Function 年月日(年 As String, 月 As String, Optional 日 As String)
If 日 = "" Then
日 = 1
End If
年月日 = 年 & "/" & 月 & "/" & 日
End Function


「日」が入っていない場合はこの関数で日を追加、元号、和暦、月を表示するようにしましょう。
無題


gengoNGK
Function gengoNGK(期間 As String)
gengoNGK = WorksheetFunction.Text(CDate(期間 & "1日"), "g")
End Function

GenyearNGK
Function GenyearNGK(期間 As String)
GenyearNGK = WorksheetFunction.Text(CDate(期間 & "1日"), "e")
End Function

monthNGK
Function monthNGK(期間 As String)
monthNGK = WorksheetFunction.Text(CDate(期間 & "1日"), "m")
End Function

スポンサーサイト

« 期間マクロ | HOME |  名前の範囲を検索し、他の範囲から文字列を取得する »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

あゆみ

Author:あゆみ
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク