vba是最好的语言

2022年12月5日

摘要： '反选 Private Sub CommandButton1_Click() Call Testss(Me!TIListBox) End Sub Private Function Testss(ByRef lb As Object) If lb.ListCount < 1 Then MsgBox " 阅读全文

posted @ 2022-12-05 14:21 vba是最好的语言阅读(247) 评论(0) 推荐(0)

vba-ArrayList

摘要： TIListBox.MultiSelect = 1 TIListBox.ListStyle = 1 TIListBox.ColumnWidths = 62 TIListBox.ColumnCount = 1 Dim arr, brr C_Control arr, brr '将记录集显示到列表框中 D 阅读全文

posted @ 2022-12-05 13:10 vba是最好的语言阅读(297) 评论(0) 推荐(0)

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是最好的语言阅读(833) 评论(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是最好的语言阅读(498) 评论(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是最好的语言阅读(458) 评论(0) 推荐(0)

vba-range转数组

摘要： VBA从区域range()转化的数组都是二维数组，但特殊的1列或1行可以用Application.transpose为一维数组阅读全文

posted @ 2022-12-04 17:50 vba是最好的语言阅读(844) 评论(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是最好的语言阅读(450) 评论(0) 推荐(0)

2022年12月3日

vba-对插入的表格进行操作

摘要： Sub 新增行(ByVal tabName As String) On Error Resume Next Set tb = ActiveSheet.ListObjects(tabName) If tb.ListRows.Count > 0 Then tb.ListRows.Add (tb.List 阅读全文

posted @ 2022-12-03 19:18 vba是最好的语言阅读(243) 评论(0) 推荐(0)

2022年11月29日

vba-窗体之listbox

摘要： Option Explicit '声名模块级变量 Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset '是否变量空间、关闭数据库连接、关闭窗体 Private Sub btnClose_Click() cnn.Close Set rst = 阅读全文

posted @ 2022-11-29 20:07 vba是最好的语言阅读(4016) 评论(0) 推荐(0)

vba-UBound

摘要： UBound 为 Visual Basic 中的一个函数，用来返回数组或元素相应维度的最大值。同理，LBound函数是获取最小值阅读全文

posted @ 2022-11-29 20:05 vba是最好的语言阅读(348) 评论(0) 推荐(0)

公告