Question

vba宏编辑问题

vba宏编辑问题我做了一个宏，作用是当改变单元格a1时对应单元格b1也改变，要修改或添加什么语句使得该作用扩大到改变a列的每一个单元格都能对应改变b列？

Answer 1

看了一下你的追问截图，其实不用这么麻烦，直把ASC相加写成一个自定义函数，然后在EXCEL中像调用其他内置函数一样调用，这样A1的值变了，B1也会变，如下图：

Option Explicit

Function test(ByVal rng As Range) As Long
    Dim i As Integer
    If rng.Count > 1 Then
        test = 0: Exit Function
    End If
    For i = 1 To Len(rng.Value)
        test = test + Asc(Mid(rng.Value, i, 1)) - 96
    Next i
End Function

Answer 2

用工作表的SelectionChange和Change事件相结合就可以了

追问

怎么扩大到 a列？

追答

工作表改变事件里可以用Target表示单元格值，光标在那个单元格，他就是那个单元格的值。Target.column代表光标所在的列，Target.row代表所在的行，要只限制在A列可以用
if Target.Column =1 then
。。。。
end if
光标点到其他列没有效果了
对应的B列可以用cells(Target.row,2)表示

Answer 3

写个事件就可以了

追答

当单元格发生改变时触发chage