[已解决]关于信息的录入、查询、修改的问题

mick456

请大家帮忙，看看要怎么做呢，谢谢大家

最佳答案

月排行榜 / 总排行榜

grf1973

2014-10-21 15:04

1. Sub 添加()
   
2.     With Sheet4
   
3.         r = .[a65536].End(3).Row + 1
   
4.         .Cells(r, 1).Resize(1, 24) = Application.Transpose([c2:c25])
   
5.         .Cells(r, "Y").Resize(1, 24) = Application.Transpose([f2:f25])
   
6.         .Cells(r, "aw").Resize(1, 16) = Application.Transpose([h2:h17])
   
7.         .Cells(r, "G") = "'" & [c8]
   
8.         MsgBox "一条记录已添加"
   
9.     End With
   
10. End Sub
    
11. 
    
12. Sub 查询()
    
13.     With Sheet4
    
14.         r = .[a65536].End(3).Row + 1
    
15.         For i = 7 To r
    
16.             If .Cells(i, "G") = [c8] Or .Cells(i, "F") = [c7] Then
    
17.                  [c2:c25] = Application.Transpose(.Cells(i, 1).Resize(1, 24))
    
18.                  [f2:f25] = Application.Transpose(.Cells(i, "Y").Resize(1, 24))
    
19.                  [h2:h17] = Application.Transpose(.Cells(i, "aw").Resize(1, 16))
    
20.                  [c8] = "'" & .Cells(i, "G")
    
21.                  Exit Sub
    
22.             End If
    
23.         Next
    
24.     End With
    
25.     MsgBox "无此记录"
    
26. End Sub
    
27. 
    
28. Sub 修改()
    
29.     With Sheet4
    
30.         r = .[a65536].End(3).Row + 1
    
31.         For i = 7 To r
    
32.             If .Cells(i, "G") = [c8] Or .Cells(i, "F") = [c7] Then
    
33.                 .Cells(i, 1).Resize(1, 24) = Application.Transpose([c2:c25])
    
34.                 .Cells(i, "Y").Resize(1, 24) = Application.Transpose([f2:f25])
    
35.                 .Cells(i, "aw").Resize(1, 16) = Application.Transpose([h2:h17])
    
36.                 .Cells(i, "G") = "'" & [c8]
    
37.                 MsgBox "修改已完成"
    
38.                 Exit Sub
    
39.             End If
    
40.         Next
    
41.     End With
    
42.     MsgBox "无此记录"
    
43. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Sub 添加()
   
2.     With Sheet4
   
3.         r = .[a65536].End(3).Row + 1
   
4.         .Cells(r, 1).Resize(1, 24) = Application.Transpose([c2:c25])
   
5.         .Cells(r, "Y").Resize(1, 24) = Application.Transpose([f2:f25])
   
6.         .Cells(r, "aw").Resize(1, 16) = Application.Transpose([h2:h17])
   
7.         .Cells(r, "G") = "'" & [c8]
   
8.         MsgBox "一条记录已添加"
   
9.     End With
   
10. End Sub
    
11. 
    
12. Sub 查询()
    
13.     With Sheet4
    
14.         r = .[a65536].End(3).Row + 1
    
15.         For i = 7 To r
    
16.             If .Cells(i, "G") = [c8] Or .Cells(i, "F") = [c7] Then
    
17.                  [c2:c25] = Application.Transpose(.Cells(i, 1).Resize(1, 24))
    
18.                  [f2:f25] = Application.Transpose(.Cells(i, "Y").Resize(1, 24))
    
19.                  [h2:h17] = Application.Transpose(.Cells(i, "aw").Resize(1, 16))
    
20.                  [c8] = "'" & .Cells(i, "G")
    
21.                  Exit Sub
    
22.             End If
    
23.         Next
    
24.     End With
    
25.     MsgBox "无此记录"
    
26. End Sub
    
27. 
    
28. Sub 修改()
    
29.     With Sheet4
    
30.         r = .[a65536].End(3).Row + 1
    
31.         For i = 7 To r
    
32.             If .Cells(i, "G") = [c8] Or .Cells(i, "F") = [c7] Then
    
33.                 .Cells(i, 1).Resize(1, 24) = Application.Transpose([c2:c25])
    
34.                 .Cells(i, "Y").Resize(1, 24) = Application.Transpose([f2:f25])
    
35.                 .Cells(i, "aw").Resize(1, 16) = Application.Transpose([h2:h17])
    
36.                 .Cells(i, "G") = "'" & [c8]
    
37.                 MsgBox "修改已完成"
    
38.                 Exit Sub
    
39.             End If
    
40.         Next
    
41.     End With
    
42.     MsgBox "无此记录"
    
43. End Sub

复制代码

grf1973

请看附件。

mick456

grf1973 发表于 2014-10-21 15:07
请看附件。

谢谢

mick456

mick456 发表于 2014-10-21 18:50
谢谢

.Cells(r, "G") = "'" & [c8]
请问段这什代码是么意思呢

wensc

mick456 发表于 2014-10-23 08:33
.Cells(r, "G") = "'" & [c8]
请问段这什代码是么意思呢

应该是将单元格设置成文本

YCZ22

谢谢分享……