摘要:
TIListBox.MultiSelect = 1 TIListBox.ListStyle = 1 TIListBox.ColumnWidths = 62 TIListBox.ColumnCount = 1 Dim arr, brr C_Control arr, brr '将记录集显示到列表框中 D 阅读全文
摘要:
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 阅读全文
摘要:
Private Sub SearchByTaget() If ConfigSht.Range("A:A").Find(What:="1232", LookAt:=xlWhole) Is Nothing Then MsgBox "不存在" End If End Sub Function SearchB 阅读全文
摘要:
Private Sub CommandButton1_Click() '给商品代码下拉列表赋值 Dim tb As ListObject Set tb = Sheet1.ListObjects("表_入库") Dim S01 As Object Set S01 = Sheets("Config") 阅读全文
摘要:
VBA从区域range()转化的数组都是二维数组,但特殊的1列或1行可以用Application.transpose为一维数组 阅读全文
摘要:
Function getLastRow(ByVal sheetName As Worksheet, ByVal columnName As String) As Long Dim maxRow As Long If Right(rptfile, 3) = "xls" Then maxRow = sh 阅读全文
摘要:
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 阅读全文
摘要:
Option Explicit '声名模块级变量 Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset '是否变量空间、关闭数据库连接、关闭窗体 Private Sub btnClose_Click() cnn.Close Set rst = 阅读全文
摘要:
UBound 为 Visual Basic 中的一个函数,用来返回数组或元素相应维度的最大值。 同理,LBound函数是获取最小值 阅读全文
摘要:
'获取ad4域下的当前用户信息Private Sub Test()Dim strComputer As StringDim objWMI As ObjectDim colIP As ObjectDim IP As ObjectDim i As IntegerstrComputer = "."Set 阅读全文