Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

62037 / 76732

←次へ　｜　前へ→


	【19305】ここまでは考えたのですが・・・.

ponpon - 04/10/27(水) 20:58 -


	引用なし

	パスワード

Humihiroのコードは、解説を待つとして、こんな考え方でやっています。
　まだ全部はできていないのですが、・・・ようやくテキストボックスに一週間分書き出すことができました。

　１　各月の１日のセルを探す。
　２　１日の曜日を判定して、金曜日までの時間割を配列に格納。
　３　テキストボックスに書き出す。
　４　月曜日を取得して、第？月曜日　←ここがわからない。
　５　その日から金曜日までのセルの値を配列に格納
　６　テキストボックスに書き出す。第？＋週。

以下、月から金までの時間割を取得して、テキストボックスに書き出すコードです。
２次元配列ははじめてつかいました。

　　Private Sub UserForm_Initialize()
Dim myTxt As MSForms.Textbox
Dim myArray() As Variant
Dim myRng As Range

　　　　　　　　’１行目　日付
　　　　　　　　’２行目　曜日(weekday)関数により
　　　　　　　 'シート２のB3～F8まで時間割があるとして
　　　　　　　　　
　Set GETU = Worksheets("Sheet2").Range("B2")
If GETU.Value = 2 Then
　
　 Set myRng = GETU.Offset(1).Resize(6, 5)
　　　 myArray = myRng.Value
　
　 For j = 1 To 6
　　For i = 1 To 5
　'　 Debug.Print myArray(j, i)
　　Set myTxt = Controls("TextBox" & j & i)
　　　　myTxt.Text = myArray(j, i)
　　Next i
　 Next j
End If
End Sub

1 hits

▼

【19171】シートの値をtextboxへ取り込みたいので... ponpon 04/10/24(日) 15:33