Excel VBA質問箱 IV

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

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


62122 / 76732 ←次へ | 前へ→

【19218】Re:シートの値をtextboxへ取り込みたいの...
発言  kobasan  - 04/10/25(月) 20:40 -

引用なし
パスワード
   ponponさん 今晩は

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

提示された表形式ではないのですが、
楽に作るために、次のように、週単位で集計してみては、どうですか。
    月1 月2 月3 月4 月5 〜 金1 金2 金3 金4 金5 金6
4月 1週                   国語 社会 算数 生活 総合 道徳
4月 2週    国語 社会     算数 生活 総合 〜     国語 社会 算数 生活 総合 道徳
4月 3週    国語 社会 算数 生活 総合 〜     国語 社会 算数 生活 総合 道徳
4月 4週    国語 社会     算数 生活 総合 〜     国語 社会 算数 生活 総合 道徳
    〜
7月 14週
7月 15週
7月 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 質問
【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 お礼

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