期間(~まで)マクロも修正されました。

2017–09–14 (Thu) 18:50
Function KaramadeR(開始 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
If kai = "" Or owa = "" Then
KaramadeR = ""
ElseIf kai = "年月" Or owa = "年月" Then
KaramadeR = ""
Else
kai = Replace(kai, ".", "/")
owa = Replace(owa, ".", "/")
kai = Replace(kai, "から", "")
owa = Replace(owa, "まで", "")
KaramadeR = DateDiff("m", kai, owa) + 1
End If
End Function
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
If kai = "" Or owa = "" Then
KikanMonthR = ""
ElseIf kai = "年月" Or owa = "年月" Then
KikanMonthR = ""
Else
kai = Replace(kai, ".", "/")
owa = Replace(owa, ".", "/")
KikanMonthR = DateDiff("m", kai, owa) + 1
End If


End Function

期間が入力されていない場合、自動で空白にしてくれます。
早速活用していますよ~~~。
皆様も是非ご活用下さい!!!
スポンサーサイト

« 名前の定義を検索するマクロ-2 | HOME |  日々の聖句読むマクロ »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

あゆみ

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

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク