Excel VBA質問箱 IV

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

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


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

62128 / 76738

←次へ　｜　前へ→


	【19218】Re:シートの値をtextboxへ取り込みたいの...

kobasan - 04/10/25(月) 20:40 -


	引用なし

	パスワード

ponponさん　今晩は

>その後のテキストボックスに時間割をどのように表示させたらよいか。アイデアを教えていただきたいのですが・・・。

提示された表形式ではないのですが、
楽に作るために、次のように、週単位で集計してみては、どうですか。
　　　　月1　月2　月3　月4　月5　～　金1　金2　金3　金4　金5　金6
４月 1週　　　　　　　　　　　　　　　　　　国語社会算数生活総合道徳
４月 2週　　　　国語社会　　　　算数生活総合～　　　　国語社会算数生活総合道徳
４月 3週　　　　国語社会算数生活総合～　　　　国語社会算数生活総合道徳
４月 4週　　　　国語社会　　　　算数生活総合～　　　　国語社会算数生活総合道徳
　　　　～
７月 14週
７月 15週
７月 16週

そうすると、次のような楽なコードでできます。

Private Sub CommandButton1_Click()
　　gyou = 6　　'シートに書き込みする行
　　For i = 1 To 30
　　　　Cells(gyou, 2 + i) = Controls("textbox" & i).Value
　　Next i
End Sub

Private Sub CommandButton2_Click()
　　gyou = 6　　'フォームに読み込むシートの行
　　For i = 1 To 30
　　　　Controls("textbox" & i).Value = Cells(gyou, 2 + i).Value
　　Next i
End Sub

書き込み行のコードは、自分でを考えてみて下さい。

検討してみて下さい。

0 hits

▼

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