摘要:
Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=G:\20200627\test.mdb;Mode=Share Deny Write;Extended Properties="";Jet OLEDB:System database 阅读全文
摘要:
Sub 基本示例()Dim a%a = -20Doa = a + 1If a > 10 ThenMsgBox a & "终于大于10"Exit DoEnd IfLoopEnd Sub Sub 基本示例()Dim rs%rs = 1Do rs = rs + 1 If rs > 10 Then Exit 阅读全文
摘要:
'VBA中的IF条件判断语句,就像函数中的IF一样'IF可单条件,也可多条件。 Sub IF条件判断之单条件1()Dim a%, b%a = 2b = 2If a = b Then MsgBox "相等"End Sub Sub IF条件判断之单条件2()Dim a%, b%a = 2b = 2 If 阅读全文
摘要:
'1、工作簿(Workbooks) ' Workbooks(N)第N个工作簿 ' Workbooks ("工作簿名") ' ActiveWorkbook 活动工作簿 ' ThisWorkBook '代码所在工作簿 '2、工作表(Worksheets) 'Sheets(N) 第N个工作表 'Sheet 阅读全文