2014年08月06日

VBA 曜日関数

エクセルで曜日を表示したいのに昔からマイクロソフトの関数は、「日付を表すシリアル値から、その日付に対応する曜日を返します。既定では、戻り値は 1 (日曜) から 7 (土曜) までの範囲の整数となります。」である。
ならばと言うことで、関数を自分で作り運用します。エクセルメニューのタグの中の開発より”Visual Basic”を選び、標準モジュールに関数を定義します。後は普通の関数のようにセルに埋め込みます。

Public Function yobi2(pDate As Date) As String
Const cTitle = "日月火水木金土"
Dim xPno As Integer

If pDate = 0 Then
yobi2 = ""
Exit Function
End If

xPno = Weekday(pDate, 1)

If xPno >= 1 And xPno <= 7 Then
yobi2 = Mid(cTitle, xPno, 1)
Else
yobi2 = "xxx"
End If

End Function
posted by kaz at 11:22 | Comment(0) | TrackBack(0) | コンピュータ
この記事へのコメント
コメントを書く

お名前:

メールアドレス:


ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。

この記事へのトラックバックURL
https://fanblogs.jp/tb/2659311
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック
リンク
access:
online:
ファン
検索
<< 2022年09月 >>
        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30  
最新記事
最新コメント
オレンジ色の猫が by オーナー (02/06)
オレンジ色の猫が by 翠星石 (01/23)
ドローンを修理する by kaz (03/14)
ドローンを修理する by obayashi (03/10)
タグクラウド
カテゴリアーカイブ
プロフィール