| |
▼刀火 さん：
ユーザフォーム上にコマンドボタンを３ヶ置き、下のコードと
つなげてください。
シート1のA6からD10に何か数字でも埋め込んで動作確認してください。
Captionの取得と動作の移行が見られると思います
'ユーザーフォームに
Private Sub CommandButton1_Click()
Me.CommandButton1.Caption = "「A」実行済み" _
& vbLf & "「B」の動作へ"
Call my_Procedure1
End Sub
Private Sub CommandButton2_Click()
Me.CommandButton2.Caption = "「B」実行済み" _
& vbLf & "「C」の動作へ"
Call my_Procedure2
End Sub
Private Sub CommandButton3_Click()
Me.CommandButton3.Caption = "「C」実行済み" _
& vbLf & "…完了…"
Call my_Procedure3
End Sub
'標準モジュールに
Sub my_Procedure1()
With Sheets("sheet1")
.Range("A6:D10").Copy
End With
End Sub
Sub my_Procedure2()
With Sheets("sheet1")
.Paste Range("E6")
End With
End Sub
Sub my_Procedure3()
With Sheets("sheet1").Range("A6:D10")
.Interior.ColorIndex = 43
End With
Application.CutCopyMode = False
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 07/6/30(土) 9:10 -
