Excel VBA質問箱 IV

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

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


40502 / 76732 ←次へ | 前へ→

【41328】Re:動作速度について
発言  てっちゃん  - 06/8/6(日) 8:57 -

引用なし
パスワード
   ▼Hirofumi さん:
>あ、間違った
>以下部分を修正して下さい、元のままだとA3からデータを転記してしまいます
>
>  With Worksheets(Mys)
>    Select Case Me.Controls("combobox2").Value
>      Case "4月"
>        lngColumn = 0
>      Case "5月"
>        lngColumn = 12
>      Case "6月"
>        lngColumn = 24
>    End Select
>'    .Cells(3, 1 + lngColumn) _
>        .Resize(UBound(vntResult1, 1), _
>            UBound(vntResult1, 2)).Value = vntResult1 '★間違い
>    .Cells(3, 18 + lngColumn) _
>        .Resize(UBound(vntResult1, 1), _
>            UBound(vntResult1, 2)).Value = vntResult1 '★変更
>    .Cells(3, 17 + lngColumn) _
>        .Resize(UBound(vntResult2, 1)).Value = vntResult2
>  End With


ありがとうございました。
動作はばっちりいきました。
自分にはまったくここまでの知識がない為思いつきませんでした。
出来れば説明を付け加えていただければ、勉強になりますのでお願いしたいのですが、わがまま言ってすみません。
0 hits

【41276】動作速度について てっちゃん 06/8/3(木) 16:42 質問
【41279】Re:動作速度について neptune 06/8/3(木) 17:09 発言
【41280】Re:動作速度について Jaka 06/8/3(木) 17:15 発言
【41281】Re:動作速度について てっちゃん 06/8/3(木) 17:30 お礼
【41283】Re:動作速度について neptune 06/8/3(木) 19:17 発言
【41286】Re:動作速度について Hirofumi 06/8/3(木) 20:17 回答
【41288】Re:動作速度について Hirofumi 06/8/3(木) 21:15 回答
【41319】Re:動作速度について Hirofumi 06/8/4(金) 19:24 回答
【41328】Re:動作速度について てっちゃん 06/8/6(日) 8:57 発言
【41341】Re:動作速度について Hirofumi 06/8/6(日) 23:02 回答
【41377】Re:動作速度について てっちゃん 06/8/8(火) 7:59 お礼
【41298】Re:動作速度について Jaka 06/8/4(金) 9:15 発言
【41327】Re:動作速度について てっちゃん 06/8/6(日) 8:52 お礼

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