|
▼jackey さん:
>ub Z11_0724選択時シートのボタンマクロの変更()
> シート01 = "E01"
> シート02 = "E02"
> シート03 = "E03"
> シート04 = "E04"
> シート05 = "E05"
> シート06 = "E06"
> シート07 = "E07"
> シート08 = "E08"
> シート09 = "E09"
> シート10 = "E10"
> シート11 = "E11"
> シート12 = "E12"
> シート13 = "E13"
> シート14 = "E14"
> シート15 = "E15"
> シート16 = "E16"
> シート17 = "E17"
> シート18 = "E18"
> シート19 = "E19"
> シート20 = "E20"
> シート21 = "E21"
> シート22 = "E22"
> シート23 = "E23"
> シート24 = "E24"
> シート25 = "E25"
> シート26 = "E26"
> シート27 = "E27"
> シート28 = "E28"
> シート29 = "E29"
> シート30 = "E30"
> シート31 = "E31"
> シート32 = "E32"
> シート33 = "E33"
> シート34 = "E34"
>
> Worksheets(Array(シート01, シート02, シート03, シート04, シート05, シート06, シート07, シート08, シート09, シート10, シート11, シート12, シート13, シート14, シート15, シート16, シート17, シート18, シート19, シート20, シート21, シート22, シート23, シート24, シート25, シート26, シート27, シート28, シート29, シート30, シート31, シート32, シート33, シート34)).Select
この上コードが何をしているのかわかりませんが、
マクロ登録するコードは大体こんな感じ。
Sub wrc()
Dim Ws As Worksheet
For Each Ws In Worksheets
i = i + 1
Ws.Shapes("ボタン 1").OnAction = "マクロ" & i
Next
End Sub
Sub マクロ1()
MsgBox 11
End Sub
Sub マクロ2()
MsgBox 22
End Sub
Sub マクロ3()
MsgBox 33
End Sub
|
|