EXCEL宏高手请进，单元格单击赋值给宏变量问题-excel宏给单元格赋值,excel单元格赋值

给指定的图形赋值，比如五边形 1
Sheet1.Shapes("五边形 1").OLEFormat.Object.Text = "五边形"

这个需要工作表代百码
alt+F11
假设是sheet1中要实现的，就在工程框双击sheet1，再将下度面代码修改并复制到专右面空白区

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
i =target.value
' i即为你说的宏变量属，可以使用了

End Sub
Sub aa()
For i = 2 To 6
istr = istr & Cells(1, i)
Next
Cells(1, 1) = istr
End Sub

for i=1 to 10
msgbox range("A"&i)
next

这样会分别显示A1至A10单元格的值，你的问题中变量也可以这么用。

以下代码是将选中的单行区域转换成列显示，供参考：
Sub temp()
If Selection.Columns.Count > 1 Then Exit Sub
r = Selection.Row
c = Selection.Column
For Each cel In Selection
Cells(r, c) = cel
c = c + 1
Next
Range(Cells(r + 1, Selection.Column), Cells(r + c - 2, Selection.Column)).Clear
End Sub

补充回答：
先选择你要转换的单行区域，再执行sub temp()这段代码，可e69da5e887aae79fa5e98193363以将选中的行转换成列显示。
你说的控制A、D，我理解你是想控制列标吧？可以用：Cells(RowIndex,ColumnIndex)去控制，比如cells(1,1)，即第一行第一列，也就是A1，只要改变cells的第二个1成2就会变成cells(1,2)，即B1。

分别显示A1、B1、C1、D1和E1的值：
for i=1 to 5
msgbox cells(1,i)
next