代码执行时间过长 怎么解决啊 ？？

xuyi1107

Cells(TempY, 2).Value = Trim(TextBox1.Text) Cells(TempY, 3).Value = Trim(TextBox2.Text)

..........

Cells(TempY, 56).Value = Trim(TextBox52.Text) Cells(TempY, 57).Value = Trim(TextBox53.Text)

我在对话框的确定按钮中写这样一段代码 是想把文本框中的内容写到单元格中

功能已经实现 。 可问题是这段代码执行的速度很慢居然要5秒钟

个位能不能帮忙提点一下 把代码简化一点 以提高速度。

谢过先了

eQ9gIy7r.rar (38.91 KB, 下载次数: 74)

2005-8-11 16:12 上传

点击文件名下载附件
代码执行时间过长 怎么解决啊 ？？

[此贴子已经被作者于2005-8-11 16:16:54编辑过]

xuyi1107

朋友们帮帮忙 啊

要是这段代码的执行速度这样慢

这个工作表其实也就没有多大用处了啊`~~~

谢谢~~~

xuyi1107

太棒了 谢谢你啊 `

`~~~~

清风_ll

一般来说,合理的命名控件的名称在很大程度上可以简化代码

iceberg7512

晕倒，怎么不用控件数组？

（不好意思，VBA中不支持控件数组，我用VB用惯了）

[此贴子已经被作者于2005-8-11 21:28:45编辑过]

ifhwfu

学习了

yuanzhuping

学习中。

Long_III

用数组处理只需1秒钟，自己看看吧，改的好累哦

Private Sub CommandButton1_Click() Dim TempY As Integer, i% Dim arr(1 To 61)

Application.EnableEvents = False Application.ScreenUpdating = False Unload Me TempY = Sheets("Sheet1").[b65536].End(xlUp).Row + 1 For i = 1 To 11 arr(i) = Trim(Me.Controls("Textbox" & i)) Next arr(12) = Trim(ComboBox1.Text) arr(13) = Trim(ComboBox2.Text) arr(14) = Trim(ComboBox3.Text) arr(15) = Trim(TextBox15.Text) arr(16) = Trim(ComboBox4.Text) arr(18) = Trim(ComboBox5.Text) arr(19) = Trim(ComboBox6.Text) arr(21) = Trim(ComboBox7.Text) arr(22) = Trim(TextBox20.Text) arr(23) = Trim(ComboBox8.Text) arr(24) = Trim(ComboBox9.Text) arr(25) = Trim(ComboBox10.Text) arr(26) = Trim(TextBox24.Text) arr(27) = Trim(ComboBox11.Text) arr(28) = Trim(ComboBox12.Text) arr(30) = Trim(ComboBox13.Text) arr(31) = Trim(TextBox28.Text) arr(32) = Trim(ComboBox14.Text) arr(33) = Trim(ComboBox15.Text) arr(34) = Trim(ComboBox16.Text) arr(35) = Trim(TextBox32.Text) arr(36) = Trim(ComboBox17.Text) arr(37) = Trim(ComboBox18.Text) arr(38) = Trim(ComboBox19.Text) arr(39) = Trim(TextBox36.Text) arr(40) = Trim(ComboBox20.Text) arr(41) = Trim(ComboBox21.Text) arr(42) = Trim(ComboBox22.Text) arr(43) = Trim(TextBox40.Text) arr(44) = Trim(ComboBox23.Text) arr(45) = Trim(TextBox42.Text) arr(46) = Trim(TextBox43.Text) arr(47) = Trim(TextBox44.Text) arr(48) = Trim(TextBox45.Text) arr(49) = Trim(TextBox46.Text) arr(50) = Trim(TextBox47.Text) arr(51) = Trim(TextBox48.Text) arr(52) = Trim(TextBox49.Text) arr(53) = Trim(TextBox50.Text) arr(54) = Trim(TextBox51.Text) arr(55) = Trim(TextBox52.Text) arr(56) = Trim(TextBox53.Text) arr(57) = Trim(TextBox54.Text) arr(58) = Trim(TextBox55.Text) arr(59) = Trim(TextBox56.Text) arr(60) = Trim(TextBox57.Text) arr(61) = Trim(TextBox58.Text) Sheets("Sheet1").Cells(TempY, 2).Resize(1, 61) = arr Application.ScreenUpdating = True Application.EnableEvents = True

End Sub