| 投稿日 | ： 2003/08/26(Tue) 08:50 |
| 投稿者 | ： Ess |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: VBからExcelのセルに値を代入するときの処理速度 |
> それだけのコードでは何をしているのかどこが遅いのか解らないでしょう。
>
> データの取得や設定が多いなら、Range オブジェクトを使って見るとか。
> ここのExcel&Word関係や掲示板のワード検索をして見るとか。
そうですね^^;失礼しました。
フォームにオプションボタンがあって（合格、不合格）、それを押したときに下記のコードを
実行します。その処理がとても遅いのです。
Sub optResultCheck_Click(Index As Integer)
Dim s as String
If Index = 0 then
s = "○"
Else
s = "×"
End If
'intRow intCol にはあらかじめ数値が入っています
'objXlSheetはプライベート変数です。Loadイベントで定義してあります。
objXlSheet.Cells(intRow, intCol).Value = s '結果を代入（s は'○'とか'×'です)
objXlSheet.Cells(intRow, intCol).Value = CDate(txtDate.Text) '日付を代入
End Sub
よろしくお願いします。