第13章 Excel开发最佳实践

13.1 取消激活Activate以及不选择Select

代码清单13.1 避免使用选择和选区

代码

'代码清单13.3: 使用VBA注册表函数处理注册表
Sub ExperimentWithRegistry()
Dim vaKeys As Variant

'create new registry entries

SaveSetting "XLTest", "General", "App_Name", "XLTest"
SaveSetting "XLTest", "General", "App_Version", "1.0.0"
SaveSetting "XLTest", "General", "App_Date", "10/11/2003"

PrintRegistrySettings

'get all settings in an array
vaKeys = GetAllSettings("XLTset", "Genaral")
PrintAllSettings vaKeys

DeleteSetting "XLTest", "General", "App_Name"
DeleteSetting "XLTest", "General", "App_Version"
DeleteSetting "XLTest", "General", "App_Date"

PrintRegistrySettings
End Sub

Sub PrintRegistrySettings()
On Error Resume Next

Debug.Print "Application Name: " & Getseting("XLTest", "General", "App_Name")
Debug.Print "Application Version: " & Getseting("XLTest", "General", "App_Version")
Debug.Print "Application Date: " & Getseting("XLTest", "General", "App_Date")

Debug.Print "-----------------------------------------"

End Sub

Sub PrintAllSettings(vaSettings As Variant)
Dim nItem As Integer

If IsArray(vaSettings) Then
For nItem = 0 To UBound(vaSettings)
Debug.Print vaSettings(nItem, 0) & ": " & vaSettings(nItem, 1)
Next
End If

Debug.Print "-----------------------------------------"

End Sub

13.8 巧妙的工作薄设计