Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

32136 / 76807

←次へ　｜　前へ→


	【49910】Re:Ｃａｐｔｉｏｎの取得

Machiko - 07/6/27(水) 21:07 -


	引用なし

	パスワード

▼刀火さん：
ユーザフォーム上にコマンドボタンを３ヶ置き、下のコードと
つなげてください。
シート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

1 hits

▼

【49890】Ｃａｐｔｉｏｎの取得 刀火 07/6/27(水) 11:34