摘要: 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 阅读全文
posted @ 2020-07-12 17:59 袁氏家谱网 阅读(1029) 评论(0) 推荐(0) 编辑
摘要: 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 阅读全文
posted @ 2020-07-12 14:58 袁氏家谱网 阅读(741) 评论(1) 推荐(0) 编辑
摘要: '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 阅读全文
posted @ 2020-07-12 14:45 袁氏家谱网 阅读(1821) 评论(0) 推荐(0) 编辑
摘要: '1、工作簿(Workbooks) ' Workbooks(N)第N个工作簿 ' Workbooks ("工作簿名") ' ActiveWorkbook 活动工作簿 ' ThisWorkBook '代码所在工作簿 '2、工作表(Worksheets) 'Sheets(N) 第N个工作表 'Sheet 阅读全文
posted @ 2020-07-12 11:22 袁氏家谱网 阅读(1187) 评论(1) 推荐(0) 编辑