上一页 1 ··· 21 22 23 24 25 26 27 28 29 ··· 65 下一页
摘要: '反选 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是最好的语言 阅读(194) 评论(0) 推荐(0) 编辑
摘要: 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是最好的语言 阅读(250) 评论(0) 推荐(0) 编辑
摘要: 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是最好的语言 阅读(791) 评论(0) 推荐(0) 编辑
摘要: 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是最好的语言 阅读(437) 评论(0) 推荐(0) 编辑
摘要: 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是最好的语言 阅读(415) 评论(0) 推荐(0) 编辑
摘要: VBA从区域range()转化的数组都是二维数组,但特殊的1列或1行可以用Application.transpose为一维数组 阅读全文
posted @ 2022-12-04 17:50 vba是最好的语言 阅读(781) 评论(0) 推荐(0) 编辑
摘要: 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是最好的语言 阅读(416) 评论(0) 推荐(0) 编辑
摘要: 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是最好的语言 阅读(203) 评论(0) 推荐(0) 编辑
摘要: 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是最好的语言 阅读(3459) 评论(0) 推荐(0) 编辑
摘要: UBound 为 Visual Basic 中的一个函数,用来返回数组或元素相应维度的最大值。 同理,LBound函数是获取最小值 阅读全文
posted @ 2022-11-29 20:05 vba是最好的语言 阅读(325) 评论(0) 推荐(0) 编辑
上一页 1 ··· 21 22 23 24 25 26 27 28 29 ··· 65 下一页