A列文字用VBA生成按鈕(請幫忙解決)問題以解決如下

joyark

A列文字用VBA生成按鈕(請幫忙解決)

希望提供實例
Sub Macro1()
For i = 1 To ActiveSheet.Range("A65536").End(xlUp).Row
  Set X = ActiveSheet.Shapes.AddShape(msoShapeActionButtonCustom, 100, 5 + (21 * (i - 1)), 100, 20)
    X.TextFrame.Characters.Text = ActiveSheet.Range("A" & i).Value
    X.TextFrame.HorizontalAlignment = xlCenter
    X.TextFrame.VerticalAlignment = xlCenter
    X.Fill.ForeColor.SchemeColor = 51
    X.Fill.Visible = msoTrue
    X.Fill.Solid
    X.Shadow.Type = msoShadow17
     ActiveSheet.Hyperlinks.Add Anchor:=X, Address:="", SubAddress:=ActiveSheet.Range("A" & i) & "!A1"
Next i
End Sub

[此贴子已经被作者于2005-4-27 17:50:37编辑过]

accexl

range("a1")="水电费表格"