1

Application.InputBoxアクティブなワークブックと、アプリケーションを使用して値を選択したワークブックを切り替えることができるように、Excelのコマンドからワークブックとワークシートの名前を取得しようとしています。

値を範囲として選択してうまく機能するコードがあるので、それを変更したくありません。

ここに私が持っているものがあります:

Sub test()
Dim rSelectDie As Range
Dim myWorkbook As String
Dim myWorksheet As String

Set rSelectDie = Application.InputBox(Prompt:="Please select the Die Values", Type:=8)

myWorkbook = ???
myWorksheet = rSelectDie.Worksheet.Name
MsgBox "Your Worksheet is: " & myWorksheet & vbNewLine & "Your WorkBook is" & myWorkbook


Windows(myWorkbook).Activate
Sheets(myWorksheet).Activate
End Sub

「???」に何を入れたらいいのかわからない

4

2 に答える 2

2

多分

myWorkbook = rSelectDie.Worksheet.Parent.Name

また

myWorkbook = rSelectDie.Parent.Parent.Name
于 2013-06-13T14:51:30.970 に答える
1

ThisWorkbook.Nameそれはあなたが望むものですか？

于 2013-06-13T14:48:40.810 に答える