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