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

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

试试这段
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

如果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

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