技术目录十二[vba] - 随笔分类(第4页) - vba是最好的语言

摘要：https://copyfuture.com/blogs-details/20200728113553577lwptt8w83gg9qkq 阅读全文

posted @ 2022-12-06 09:21 vba是最好的语言阅读(81) 评论(0) 推荐(0)

摘要：MsgBox Selection.Row MsgBox Selection.Cells(Selection.Row, 1) 阅读全文

posted @ 2022-12-05 19:54 vba是最好的语言阅读(369) 评论(0) 推荐(0)

摘要：也许你在使用like语句查询access数据库的时候会发现，like语句查询失败或者报错，为什么会这个样子呢，难道access数据库不支持like语句？答案是否定的，access数据库是绝对支持like语句的，只是你的语句写法有问题罢了，今天我们来详细的说一下like语句在access数据库中的使用阅读全文

posted @ 2022-12-05 16:42 vba是最好的语言阅读(619) 评论(0) 推荐(0)

vba-传递listbox作为参数

摘要：'反选 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是最好的语言阅读(296) 评论(0) 推荐(0)

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是最好的语言阅读(831) 评论(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是最好的语言阅读(843) 评论(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是最好的语言阅读(449) 评论(0) 推荐(0)

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)

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

vba-UBound

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

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

vba ad域服务器信息怎么获取,获取AD域用户登入信息

摘要：'获取ad4域下的当前用户信息Private Sub Test()Dim strComputer As StringDim objWMI As ObjectDim colIP As ObjectDim IP As ObjectDim i As IntegerstrComputer = "."Set 阅读全文

posted @ 2022-11-28 20:50 vba是最好的语言阅读(235) 评论(0) 推荐(0)

Vba菜鸟教程

摘要：Vba菜鸟教程_WY_记录的博客-CSDN博客_vba教程阅读全文

posted @ 2022-11-24 09:09 vba是最好的语言阅读(466) 评论(0) 推荐(0)

vba宏-sheets复制出一个sheet放到最后面

摘要：//从第一个sheets复制出一个sheet放到最后面，并修改名称Sheets(1).Copy After:=Sheets(Worksheets.Count) ActiveSheet.Name = "contract sheeta" 阅读全文

posted @ 2022-11-02 21:42 vba是最好的语言阅读(181) 评论(0) 推荐(0)

随笔分类 - 技术目录十二[vba]

公告