excel vba如何引用当前选择的区域

Question

画了一个按钮“CommandButton1”
当前选中了B2：C4（选区有可能改变）
现在怎么设置每次单击按钮时，变量A自动引用当前选中的区域（即改变选区后单击时，A随即改变），并实现第一格（B2）填充黄色，第二格（B3）填充红色？

因为刚入门，所以很多都不懂，非常谢谢

Answer 1

这个相对复杂，建议你使用录制宏的办法，先看看你实现的第一个功能的vba代码，然后此基础上再进行修改成适合你、不同选择区的代码。录制宏的办法，是vba入门的好工具，有时候比翻书、或者上网找代码、或者看帮助什么的来得快一些

Answer 2

如果EXCEL细胞功能，行和列函数返回一个选定的区域？行数和列数，不是一个地区。如果你不想用字母，下面的方法是，用数量的方式来完成介绍信的公式：
假设作为一个可能的区域AE1到AD的参考可以作为起始行数（如标题：1），AE2终止列数（30），
AE3型公式：= IF（INT（AE1/26）<1，选择（MOD（AE1，26 ），“A”，“B”，“C”，“D”，“F”，“G”，“H”，“我”，“J”，“K”，“L”，“M”的，“N”，“O”，“P”，“Q”，“R”，“S”，“T”，“U”，“V”，“W”，“X”，“Y” ，“Z”）中，选择（INT（AE1/26），“A”，“B”，“C”，“D

Answer 3

试试这段
Private Sub CommandButton1_Click()
Dim rCurr As Range
ActiveSheet.Cells().Interior.Color = -4142
Set rCurr = Selection
Dim a As String
a = rCurr.Address
MsgBox a
If rCurr.Count >= 2 Then
rCurr.Item(1).Interior.ColorIndex = 6
rCurr.Item(2).Interior.ColorIndex = 3
End If
End Sub本回答被网友采纳