Ｐａｇｅ 793 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼入力した日付の曜日を求めたい さる 03/2/25(火) 12:03 ┣Re:入力した日付の曜日を求めたい ポンタ 03/2/25(火) 12:53 ┗Re:入力した日付の曜日を求めたい つん 03/2/25(火) 13:08 ┗Re:入力した日付の曜日を求めたい さる 03/2/25(火) 13:27 ─────────────────────────────────────── ■題名 ： 入力した日付の曜日を求めたい ■名前 ： さる ■日付 ： 03/2/25(火) 12:03 -------------------------------------------------------------------------
| userformにtextbox1、textbox2、label1、label2、commandbutton１があります。 label1.caption="月" label2.caption="日" です。 textbox1に月の数字を、textbox2に日の数字を入れ、commandbutton1をクリックすると、 sheet1のa列に「2月」、b列に「25日」、c列に「(火)」と表示したいんです。 a列、b列の表示の仕方はわかったのですが、入力した数字から曜日を求める方法が わかりません。 宜しくお願いします。 |
| こんな感じでいかがでしょう？ Private Sub CommandButton1_Click() Dim MyDate As String MyDate = Year(Now) & "/" & TextBox1.Value & "/" & TextBox2.Value If IsDate(MyDate) Then Range("C1").Value = Format(MyDate, "(aaa)") End If End Sub |
| さる さん、まいど >textbox1に月の数字を、textbox2に日の数字を入れ、commandbutton1をクリックすると、 >sheet1のa列に「2月」、b列に「25日」、c列に「(火)」と表示したいんです。 セルに年月日を入力しておいて、書式設定−表示形式を、ユーザー定義で「"("aaa")"」とすれば、「(月)」と表示されます。 そのやり方でどうですか？ |
| つんさん、まいどお世話になってます。 ポンタさん、はじめまして。 今回は、ポンタさんの方法で解決させていただきました。 ありがとうございました。 |