Question

关于VB的一个问题

大佬问个问题，VB的
sub
Dim rng As Range
Set rng = ActiveSheet.UsedRange.Rows
MsgBox rng.Address
a = Mid(rng.Address, 7, 1)
b = Mid(rng.Address, 9, 3)
' 下一步我想让c = a + b，请问怎么实现？
MsgBox c
end sub

Answer 1

sub
Dim rng As Range
Set rng = ActiveSheet.UsedRange.Rows
MsgBox rng.Address
a = Mid(rng.Address, 7, 1)
b = Mid(rng.Address, 9, 3)
' 下一步我想让c = a + b，请问怎么实现？
c=a+b '这为直接连接起来。选用这一行，或选用下一行：
c=Val(a)+Val(b) '两个数字相加
MsgBox c
end sub

Answer 2

你直接说出你的需求，你这编程思路就不对rng.Address只是当前选中range的第一行的单元格比如$A$1，你这么Mid(rng.Address, 7, 1)到底想获取啥？编程最重要的是思路，不要把什么都轻易写死在代码里。

追问

range（c）

追答

不知道你在说什么，表达能力这么差，不要学编程了吧，累死你，你知道Mid(rng.Address, 7, 1)是什么意思吗