2022年12月4日
vba-将excel中数据插入数据库
摘要： Sub addDate1() Dim i As Integer, j As Integer, n As Integer Dim sql As String Dim con As New ADODB.Connection With con .Provider = "microsoft.ace.oled 阅读全文
posted @ 2022-12-04 20:10 vba是最好的语言 阅读(741) 评论(0) 推荐(0) 编辑
vba-在特定列中查询目标字符串是否存在
摘要： Private Sub SearchByTaget() If ConfigSht.Range("A:A").Find(What:="1232", LookAt:=xlWhole) Is Nothing Then MsgBox "不存在" End If End Sub Function SearchB 阅读全文
posted @ 2022-12-04 19:21 vba是最好的语言 阅读(384) 评论(0) 推荐(0) 编辑
vba-加数据验证
摘要： Private Sub CommandButton1_Click() '给商品代码下拉列表赋值 Dim tb As ListObject Set tb = Sheet1.ListObjects("表_入库") Dim S01 As Object Set S01 = Sheets("Config") 阅读全文
posted @ 2022-12-04 18:18 vba是最好的语言 阅读(394) 评论(0) 推荐(0) 编辑
vba-range转数组
摘要： VBA从区域range()转化的数组都是二维数组，但特殊的1列或1行可以用Application.transpose为一维数组 阅读全文
posted @ 2022-12-04 17:50 vba是最好的语言 阅读(726) 评论(0) 推荐(0) 编辑
vba-获取某一个sheet某一列最大行
摘要： Function getLastRow(ByVal sheetName As Worksheet, ByVal columnName As String) As Long Dim maxRow As Long If Right(rptfile, 3) = "xls" Then maxRow = sh 阅读全文
posted @ 2022-12-04 17:31 vba是最好的语言 阅读(363) 评论(0) 推荐(0) 编辑