| |
▼kobasan さん：
返信ありがとうございます。
どう答えてよいのかわからないのですが、WeekDay関数については、前にも使ったことがあるので、少しはわかります。
arryの配列は０から始まるので一番最初に""を入れるということですよね。
従って、１−日、２−月、３−火、４−水、５−木、６−金、７−土となるのですよね。
これを使ってラベルの月日にについては出力することはできました。
悩んでいるのは、その後のテキストボックスに時間割を表示するところです。
ここが、わかりません。
テキストボックスは１列に６個txt1〜txt6、２列目にtxt7からtxt12・・・と６行５列並んでいます。
Weekday関数を使ってラベルのlbl1〜lbl5の月日表示は何とかなりそうなのですが、
その後のテキストボックスに時間割をどのように表示させたらよいか。アイデアを教えていただきたいのですが・・・。
今やっていることは、今年だと木曜日からですので
SHMDは５になります。
そこでシートの月日から２つオフセットした値をTxt1に、３つオフセットさせた値を
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
>使えたら、検討してみてください。
|
|
ponpon
- 04/10/24(日) 21:18 -
