|
こんばんは。
>データ(sheet2)と出力シート(sheet1)を別個につくり、
>
>Sub hyo()
Application.ScreenUpdating = False
> For m = 2 To 10
> Sheets("sheet1").TextBox1.Value = Sheets("sheet2").Cells(m, 3).Value
doevents
> Sheets("sheet1").TextBox2.Value = Sheets("sheet2").Cells(m, 2).Value
doevents
> Sheets("sheet1").TextBox3.Value = Sheets("sheet2").Cells(m, 5).Value
doevents
> Sheets("sheet1").TextBox4.Value = Sheets("sheet2").Cells(m, 6).Value
doevents
> ・・・
> これをtextbox30まで繰り返し。
doevents ’というようにDoeventsを一つの]テキストボックスに付き、一つ
'挿入する
> Sheets("sheet1").PrintOut
>
>
> Next m
Application.ScreenUpdating = True
>End Sub
(前後のApplication.ScreenUpdating も必ずいれること)
では?
www.excel.studio-kazu.jp/kw/20081212225700.html
以前こんな問題に遭遇したことがありました。
それで上記のコードになったのですが、試してみてください
|
|