Question

EXCEL里添加了表单控件，并指定宏，但是点击提示“参数不可选”，忘解答。急急急！

我在sheet1的每一行前加了一个表单控件里的选项按钮，并指定每一个按钮的宏为“ceshi.xlsm!Worksheet_SelectionChange”（我的excel是ceshi.xlsm），目的是点击按钮时可以将本行数据提取到一个指定的位置，但是点击按钮一直提示“参数不可选”，求大虾指点迷津。 宏Worksheet_SelectionChange 代码如下 宏是放在模板下的，对于VB真是一点都不了解啊。 现在确实没有分，大虾见谅，一周内补起！ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Worksheets("sheet1").Range("B2").Value = ActiveSheet.Range("B" & Target.Row).Value
Worksheets("sheet1").Range("C2").Value = ActiveSheet.Range("C" & Target.Row).Value
Worksheets("sheet1").Range("D4").Value = ActiveSheet.Range("D" & Target.Row).Value
Worksheets("sheet1").Range("D5").Value = ActiveSheet.Range("E" & Target.Row).Value
End Sub
最后我放弃了使用按钮的方式，还是使用了原有的Worksheet_SelectionChange方式，虽然crazy0qwer的方式我没有用上，其实主要是我对VB真心不了解，要是java就好了。。
我有分就补给你了。。

Answer 1

指定 "提前“这个宏即可，当然，名称你可以自己随便定。
Sub 提取()
Worksheets("sheet1").Range("B2").Value = ActiveSheet.Range("B" & Target.Row).Value
Worksheets("sheet1").Range("C2").Value = ActiveSheet.Range("C" & Target.Row).Value
Worksheets("sheet1").Range("D4").Value = ActiveSheet.Range("D" & Target.Row).Value
Worksheets("sheet1").Range("D5").Value = ActiveSheet.Range("E" & Target.Row).Value
End Sub

追问

这样的话，他提示“要求对象”

追答

Sub 提取()
Worksheets("sheet1").Range("B2").Value = ActiveSheet.Range("B" & ActiveCell.Row).Value
Worksheets("sheet1").Range("C2").Value = ActiveSheet.Range("C" & ActiveCell.Row).Value
Worksheets("sheet1").Range("D4").Value = ActiveSheet.Range("D" & ActiveCell.Row).Value
Worksheets("sheet1").Range("D5").Value = ActiveSheet.Range("E" & ActiveCell.Row).Value
End Sub
这样，把当前激活的单元格所在的行的对应数据复制

追问

这样可以提取数据了，但是只能提取选中行的数据，如果没有选中该行，然后点击改行的控件，提取的是选中行的数据，这个。。。有办法解决不？

追答

你原来的不是一样提前的是选中行的吗？
那你得告诉程序你要提取哪行啊，程序不会知道你想什么。你问题的 ”本行“是哪行？

追问

我想的是选中控件的时候，系统自动识别到控件所在行，并将改行的数据进行提取

追答

将括号内按钮名称改为你绑定的那个按钮名称。
根据按钮上边缘所在的行
Sub 提取()
For i = 1 To 65536
If Range("a" & i).Top > ActiveSheet.Shapes("按钮 5").Top Then
Exit For
End If
Next
i = i - 1
Worksheets("sheet1").Range("B2").Value = ActiveSheet.Range("B" & i).Value
Worksheets("sheet1").Range("C2").Value = ActiveSheet.Range("C" & i).Value
Worksheets("sheet1").Range("D4").Value = ActiveSheet.Range("D" & i).Value
Worksheets("sheet1").Range("D5").Value = ActiveSheet.Range("E" & i).Value
End Sub

我还是建议选中单元格后再提取。