- 1 名前：デフォルトの名無しさん mailto:sage [2019/09/16(月) 19:34:59.04 ID:emfTAhXr0.net]
- !extend:checked:vvvvv:1000:512
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part62
https://mevius.5ch.net/test/read.cgi/tech/1561303297/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
- 17 名前：デフォルトの名無しさん [2019/09/18(水) 02:08:49.51 ID:IoDIi0WV0.net]
- すみません。
エラーが分からず・・・教えてください。
下記コードで、”型が一致しません”というエラーが出ています。
Dim Ringi1 As Worksheet
ThisWorkbook.Activate
Set Ringi1 = Workbooks(Range("B6")).Worksheet("Sheet1") ←エラー
ThisworkbookのB6には”テストファイル.xlsx”が入っています。
よろしくお願いします。
- 18 名前：デフォルトの名無しさん mailto:sage [2019/09/18(水) 02:37:53.20 ID:6F01cvXOx.net]
- >>17
Worksheet(Range("B6"))じゃなくてWorksheets(Range("B6").Value)でしょう
あとRange("B6")はどのシートのB6セルなのかな？
この書き方だとThisWorkbookがActivateされたときにアクティブになってるシートのB6セルが参照されてしまうので、ちゃんとシートを指定して書いたらどうかな
例えばThisWorkbookの一番目のシートのB6セルにファイル名が書かれている前提ならこうなる
Dim Ringi1 As Worksheet
ThisWorkbook.Activate
Set Ringi1 = Application.Workbooks(ThisWorkbook.Worksheets(1).Range("B6").Value).Worksheets("Sheet1")
- 19 名前：デフォルトの名無しさん mailto:sage [2019/09/18(水) 06:35:56.16 ID:2k/sPvaQ0.net]
- ポコポコてぃんてぃむ
- 20 名前：デフォルトの名無しさん mailto:sage [2019/09/18(水) 07:18:06.31 ID:Sjvl4q9oM.net]
- >>8
つけないのは無理だったと思う
今スマホだから試せないけど # が嫌というだけなら ^ ではどうかな？
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/longlong-data-type
|
 |
