新人想学习一下VBA

exc-led · 发表于 2018-4-12 20:22

如附件，在”固定资产卡“表中，当点击按钮“下一行” 自动获取来自“原表”中对应的数据，点击一次获取来自“原表”中的下一行数据。
我想先从学习一下VBA 的单元格中自动获取数据的能力。
以后再学获取得到数据后，如何处理这些数据
但我想先请大神帮忙一下

liulang0808 · 发表于 2018-4-12 20:31

Sub 下一张()
Application.ScreenUpdating = False
r = 0
If Len([b3]) = 0 Then
r = 2
End If
With Sheets("原表")
If r = 0 Then
r = .Columns(1).Find([b3].Value, lookat:=xlWhole).Row + 1
End If
If Len(Cells(r, 1)) > 0 Then
[b3] = .Cells(r, 1)
[d3] = .Cells(r, 6)
End If
End With
Application.ScreenUpdating = True
End Sub

复制代码

liulang0808 · 发表于 2018-4-12 20:32

代码供参考，其他部分，楼主自己补齐吧

看见星光 · 发表于 2018-4-12 20:33

Dim i&
Sub Tda()
Dim x&, l&
i = i + 1
With Sheets("原表")
      l = .Cells(Rows.Count, 1).End(3).Row - 1
      If i > l Then MsgBox "已到最大行。": Exit Sub
      For x = 3 To 7
         Cells(x, 2) = .Cells(i + 1, x - 2)
         Cells(x, 4) = .Cells(i + 1, x - 2 + 5)
      Next
End With
End Sub

看见星光 · 发表于 2018-4-12 20:34

固定资产卡.rar (17.48 KB, 下载次数: 1)

exc-led · 发表于 2018-4-12 20:35

liulang0808 发表于 2018-4-12 20:31

你好，为什么我这边只能是显示前两个，其他格子的不能获取？

exc-led · 发表于 2018-4-12 20:36

liulang0808 发表于 2018-4-12 20:32
代码供参考，其他部分，楼主自己补齐吧

好的，吓死我了，我还以为我看错了，我自己看看学着补齐吧！！谢谢大神

exc-led · 发表于 2018-4-12 20:39

看见星光发表于 2018-4-12 20:33
Dim i&
Sub Tda()
Dim x&, l&

了解，您这还可以直接截止“最大行”，对于我这些新人来说，很不错的代码！！这个思路给您点个赞！开始慢慢学习

exc-led · 发表于 2018-4-12 20:49

看见星光发表于 2018-4-12 20:34

不过，大神，有一点，就是这个时间自动获取的有问题！！！
我还再想加入循环遍历，增加个“上一行” 直接来跳到“上一行”中的数据！

看见星光 · 发表于 2018-4-12 20:51

exc-led 发表于 2018-4-12 20:49
不过，大神，有一点，就是这个时间自动获取的有问题！！！
我还再想加入循环遍历，增加个“上一行” 直 ...

时间问题是格式问题，设置单元格格式为日期就好了。
上一行就把代码中的i=i+1改成i=i-1

		自动登录	找回密码
密码			免费注册

[求助] 新人想学习一下VBA

评分

评分

评分