データをひとつの日付として処理を行い、その日付を基に曜日を割り出す処理を行います。シート上には、1行目にそれぞれタイトルを付けておきます。シート上をダブルクリックするとユーザーフォームが出てくるようにしておきます。ユーザーフォームは次のような感じでつくりました。入れるラベルには「曜日」というオブジェクト名をつけました。中身のコードは次のようになります。「日」を入力して更新後処理でコードを動かすようにします。Changeイベントではうまく動きませんよ。Subこのコードの中で次のDateSerial関数を利用するとバラバラに入力された年月日をひとつにできます。日値)それとWeekday関数を使うことで日付をもとにその日の曜日を割り出すことができます。Caseステートメントを利用して日本語の曜日に置き換えることができます。実行結果はこんな感じです。[前へ][トップ][次へ][サンプルファイルダウンロード]。