忍者ブログ
手探りでパソコンの事を勉強するブログです。 何か覚えたら記録していきます。
2017 . 11
  • 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
  •   

    [PR]



    このエントリーをはてなブックマークに追加
    ×

    [PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

    今日が今月の第3週目の日曜日かを求める。



    このエントリーをはてなブックマークに追加
    今日が第三日曜日の場合は"A1"にメッセージを書き込む。



    If Weekday(Date) = 1 And (Day(Date) + 6) \ 7 = 3 Then

                Range("A1").Value = "本日は第3日曜日です"

    End If




    ■解説

    '日曜日だった場合
    if Weekday(Date) = 1

    '文を繋げる
    And

    '今日の日付に6を足して3で割る
    '(Day(Date)+6)\3

    '計算結果が結果が3(3週目)だった場合
     = 3 Then

    '"A1"のセルに「本日は第3日曜日です」と入力する
    Range("A1").Value = "本日は第3日曜日です"

    'IF文を終わる
    End if


    今月の第三週目を求めると言うのは解りにくいですが、簡単に説明すると今日の日付を7日で割ればいいのです。しかし、0週目と言うのは存在しませんので、今日の日付に6を足したものから割ります。
    こうする事で月初1日目でも 1(今日)+6÷7=1 となり1日でも1週目と表記できます。


    エクセル2003サンプルファイル→サンプル

     
    PR




    ■ この記事にコメントする
    お名前
    タイトル
    文字色
    URL
    コメント
    パスワード
    Vodafone絵文字 i-mode絵文字 Ezweb絵文字
    ■ コメント一覧
    ■ この記事のトラックバック
    この記事にトラックバックする:
    HPのファビコン(アイコン)を設定する。 HOME ブログ開設。
    ©パソコン手探り all rights reserved.
    Powered by ニンジャブログ  Designed by ピンキー・ローン・ピッグ
    忍者ブログ / [PR]