|
楼主 |
发表于 2023-1-27 16:13
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
1. 在“数据录入”表中加入宏:
Private Sub Worksheet_Activate()
Application.Calculation = xlManual
End Sub
Private Sub Worksheet_Deactivate()
Application.Calculation = xlAutomatic
End Sub
2.
Sub 录入保存()
‘.....’
fk = Sheets("数据录入").Range("C1:C11").Find("*", , xlValues, , , xlPrevious).Row - 5
If fk > 0 Then
Application.Calculation = xlAutomatic
‘....
Sheets("进销表").Cells(hh, 1).Resize(fk, 16) = Brr
Application.Calculation = xlCalculationManual
End If
‘....’
|
|