[已解决]查询修改问题

yanchuenlei

1. Sub mo()
   
2.     Dim br
   
3. Dim n%
   
4.     If n = 0 Then Exit Sub
   
5.    If Sheet1.OptionButton1 Then
   
6.         Set sjsht = Sheet5
   
7.     ElseIf Sheet1.OptionButton2 Then
   
8.         Set sjsht = Sheet3
   
9.     ElseIf Sheet1.OptionButton3 Then
   
10.         Set sjsht = Sheet2
    
11.     End If
    
12.    
    
13. For i = 1 To n
    
14.     For j = 1 To 25
    
15.         br(i, j) = Sheet1.Cells(i + 4, j)
    
16.         sjsht.Cells(br(i, 25), j) = br(i, j)
    
17.     Next
    
18. Next
    
19. Sheet1.Range("a5").Resize(n, 25).ClearContents
    
20. n = 0
    
21. Erase br
    
22. End Sub

复制代码

这个代码改的不对  请大神修正一下

最佳答案

月排行榜 / 总排行榜

高

2021-4-2 16:01

改好了mo,即实现了修改功能

跳转到最佳答案楼层

高

改好了mo,即实现了修改功能

yanchuenlei

高 发表于 2021-4-2 16:01
改好了mo,即实现了修改功能

您好查询能更改成VBA吗 ？因为SQL实在不懂

高

yanchuenlei 发表于 2021-4-5 14:23
您好查询能更改成VBA吗 ？因为SQL实在不懂

等我看一下。能。

高

改为vba了

yanchuenlei

高 发表于 2021-4-5 17:32
改为vba了

不行啊 搜索1011三个数据库都显示未找到，实际有这个房号，应该是输入查询条件  错误有问题吧

高

yanchuenlei 发表于 2021-4-6 08:20
不行啊 搜索1011三个数据库都显示未找到，实际有这个房号，应该是输入查询条件  错误有问题吧

因为修改数据表中B2单元格格式为文本，数据表中不是文本，所以找不到。现在改了一下。不管文本不文本的都能找到了