|
こんにちは。かみちゃん です。
>選択状態にある複数シートの情報を取得する方法ってありますか?
>例えば、Sheet1とSheet3を選択している状態でマクロを実行すると
>"現在選択しているシートの名称はSheet1とSheet3である"
>といったメッセージボックスを出すようなコーディングをしようと思っているのですがうまく行きません。
SelectedSheetsプロパティのヘルプを確認してみてください。
だるまさんからもコメントが出ていますが、私も書いたので、せっかくなので、ア
ップしときます。(内容は、だるまさんとたいして変わりません(^^;)
Sub Macro1()
Dim strMsg As String
Dim ws As Worksheet
strMsg = "現在選択しているシートの名称は"
For Each ws In ActiveWindow.SelectedSheets
strMsg = strMsg & ws.Name & "と"
Next
strMsg = Left(strMsg, Len(strMsg) - 1) & "である"
MsgBox strMsg
End Sub
|
|