|
▼kobasan さん:
返信ありがとうございます。
どう答えてよいのかわからないのですが、WeekDay関数については、前にも使ったことがあるので、少しはわかります。
arryの配列は0から始まるので一番最初に""を入れるということですよね。
従って、1−日、2−月、3−火、4−水、5−木、6−金、7−土となるのですよね。
これを使ってラベルの月日にについては出力することはできました。
悩んでいるのは、その後のテキストボックスに時間割を表示するところです。
ここが、わかりません。
テキストボックスは1列に6個txt1〜txt6、2列目にtxt7からtxt12・・・と6行5列並んでいます。
Weekday関数を使ってラベルのlbl1〜lbl5の月日表示は何とかなりそうなのですが、
その後のテキストボックスに時間割をどのように表示させたらよいか。アイデアを教えていただきたいのですが・・・。
今やっていることは、今年だと木曜日からですので
SHMDは5になります。
そこでシートの月日から2つオフセットした値をTxt1に、3つオフセットさせた値を
Txt2に・・・・とやっています。
しかし、この方法では、Txt1〜Txt6、Txt7〜Txt12、・・・・・というように場合分け をしなければ成らなくなり、膨大なコードになってしまいます
すみません。初心者なので間違ったとらえ方をしているのかもしれません。
よろしくお願いします。
>ponpon さん 今晩は
>Weekdayを使って、曜日を求めるコードです
>Sub test()
>Dim MyDate, MyWeekDay
>Dim a As Variant
> a = Array("", "日", "月", "火", "水", "木", "金", "土")
> 'MyDate = #10/25/2004# '#月/日/年# 日付を代入
> ' 月 / 日 / 年
> MyDate = Cells(2, 2).Value & "/" & Cells(2, 3).Value & "/" & Cells(2, 1)
> MyWeekDay = Weekday(MyDate)
> ' MyDate が木曜日を表すとき、MyWeekDay には、4 が代入されます
> MsgBox a(MyWeekDay)
>End Sub
>使えたら、検討してみてください。
|
|