| |
こんにちは。かみちゃん です。
>選択状態にある複数シートの情報を取得する方法ってありますか？
>例えば、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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 05/10/1(土) 8:09 -
