Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


62158 / 76732 ←次へ | 前へ→

【19182】Re:シートの値をtextboxへ取り込みたいの...
質問  ponpon  - 04/10/24(日) 21:18 -

引用なし
パスワード
   ▼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
>使えたら、検討してみてください。
0 hits

【19171】シートの値をtextboxへ取り込みたいので... ponpon 04/10/24(日) 15:33 質問
【19176】Re:シートの値をtextboxへ取り込みたいので... こもれび 04/10/24(日) 17:40 回答
【19179】Re:シートの値をtextboxへ取り込みたいの... ponpon 04/10/24(日) 18:21 質問
【19180】Re:シートの値をtextboxへ取り込みたいの... kobasan 04/10/24(日) 20:38 発言
【19181】Re:シートの値をtextboxへ取り込みたいの... かみちゃん 04/10/24(日) 20:58 発言
【19184】Re:シートの値をtextboxへ取り込みたいの... ponpon 04/10/24(日) 21:31 発言
【19182】Re:シートの値をtextboxへ取り込みたいの... ponpon 04/10/24(日) 21:18 質問
【19218】Re:シートの値をtextboxへ取り込みたいの... kobasan 04/10/25(月) 20:40 発言
【19220】Re:シートの値をtextboxへ取り込みたいの... ponpon 04/10/25(月) 21:14 お礼
【19183】Re:シートの値をtextboxへ取り込みたいので... Hirofumi 04/10/24(日) 21:25 回答
【19186】Re:シートの値をtextboxへ取り込みたいので... ponpon 04/10/24(日) 21:49 発言
【19187】不都合が有るみたいなので修正します Hirofumi 04/10/24(日) 21:51 回答
【19191】Re:不都合が有るみたいなので修正します ponpon 04/10/24(日) 22:42 発言
【19221】Re:不都合が有るみたいなので修正します Hirofumi 04/10/25(月) 22:13 発言
【19261】よろしくお願いします。 ponpon 04/10/26(火) 18:25 発言
【19305】ここまでは考えたのですが・・・. ponpon 04/10/27(水) 20:58 質問
【19307】Re:ここまでは考えたのですが・・・. Hirofumi 04/10/27(水) 21:19 発言
【19308】Re:ここまでは考えたのですが・・・. ponpon 04/10/27(水) 21:38 発言
【19309】Re:ここまでは考えたのですが・・・. Hirofumi 04/10/27(水) 22:05 回答
【19310】Re:ここまでは考えたのですが・・・. ponpon 04/10/27(水) 23:25 お礼
【19348】Re:ここまでは考えたのですが・・・. Hirofumi 04/10/28(木) 20:15 回答
【19349】Re:ここまでは考えたのですが・・・. ponpon 04/10/28(木) 21:15 お礼

62158 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free