求助大佬 帮忙做个查询功能

wwsqxs

求助大佬帮忙做个查询窗口， 能够把数据存储库的数据对应的显示在录入窗口中， 如果可以帮忙再加一个修改窗口， 就是查出来的数据对应显示出来以后进行编辑后再保存，能够替换之前存储的行格

wwsqxs

求助大佬，之前在网上找的教程复制了代码改了改也不能用[img][/img]

wwsqxs

Private Sub 查找()
Dim i As Integer
Dim data(10) As Variant
Set selectsheet = Application.ThisWorkbook.Worksheets("录入系统")
Set svsheet = Application.ThisWorkbook.Worksheets("数据储存库")

For i = 1 To 10
data(i) = Application.Whekbook.VLookup(selectsheet.Range("AU1"), svsheet.Range("A5:I9"), i, 0)
Next
selectsheet.Range("R12") = data(1)
selectsheet.Range("J6") = data(2)
selectsheet.Range("J9") = data(3)
selectsheet.Range("AD12") = data(4)
selectsheet.Range("I12") = data(5)
selectsheet.Range("AD6") = data(6)
selectsheet.Range("AX6") = data(7)
selectsheet.Range("AD9") = data(8)
selectsheet.Range("AX9") = data(9)
selectsheet.Range("BK6") = data(10)

End Sub

wwsqxs

想再苹果电脑上用 因此不能用 这种方式吧，

wwsqxs

wwsqxs 发表于 2023-12-17 17:28
Private Sub 查找()
Dim i As Integer
Dim data(10) As Variant

不支持这个 不知道咋回事 我试过了

wwsqxs

wwsqxs 发表于 2023-12-17 22:43
不支持这个 不知道咋回事 我试过了

我也是看别人两三年前发的作品上面用的都是这个代码，我咋弄都不行

GG函数

没用过，买不起苹果。你可以通过在VBA里面调用EXCEL 公式 间接实现

wwsqxs

wwsqxs 发表于 2023-12-18 00:08
我也是看别人两三年前发的作品上面用的都是这个代码，我咋弄都不行

我做了一个查找修改和清除的模块，具有三个功能 大概就是从A表格指定单元格获取内容，然后变量使用这个变量在B表格中查找该数据所在行，或许该所在行的很好，然后想改行的内容依次指定的书在A的表格中指定位置 实现查找功能， 修改功能使用这个模块的查找功能中查找的变量只直接获取表格中的很好，然后把A表格中已经修改过的内容直接保存在表格中已经变量值获取行号的很行号中， 清除功能直接清除在A片哥获取的变量把变量值清空，然后把A点各种对应的指定的表格的内容清空