Excel VBA質問箱 IV

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

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


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

32891 / 76734

←次へ　｜　前へ→


	【49073】Re:パスの指定方法

通りすがり - 07/5/22(火) 14:59 -


	引用なし

	パスワード

こんにちは

拙い知識ですが，(3,3) を C3 とする方法であれば動きました。
あくまでも (3,3) にしたいのならば，他の方の回答を待ってください。

Sub Test()

Dim Filename, Sheetname, CopyCellAdd As String

With ThisWorkbook.Sheets("シートA")

　　Filename = .Range("A1")　　'例 Book1 等
　　Sheetname = .Range("A2")　 '例シートF 等
　　CopyCellAdd = .Range("A3") '例 (3,3) 等 ---> C3 等

　　.Cells(5, 5) = "='" & ThisWorkbook.Path & _
　　　　　　　　　 "\[" & Filename & ".xls]" & _
　　　　　　　　　 Sheetname & "'!" & CopyCellAdd
　　
End With

End Sub

2 hits

▼

【49061】パスの指定方法 ミク 07/5/22(火) 9:48