Excel VBA質問箱 IV

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

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


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

36934 / 76732

←次へ　｜　前へ→


	【44973】Re:ディレクトリが異なる場合

tomo - 06/12/8(金) 15:44 -


	引用なし

	パスワード

▼Jaka さん：
>開くのがいやなら、セルに関数を書き込んだほうが良いと思います。

リンクが出来るのが嫌だったため，Application.WorksheetFunction でなんとか出来ないものかと悩んでいたのですが，やはり，書き込む方法がいいようですね。
P:P→･･･→Z:ZのループもR1C1形式にすることで解決できました。

Set wk1 = Worksheets("summary")
dpath = Thisworkbook.Path & "\Case1"
shtname = "\[sample1.xl]"
numcolumn = 16
fname = dpath & shtbame
For i = 1 to 11
　wk1.Cells(2, i + 3 ).Value = "=INDEX('" & fname & "summary1'!C" & numcolumn + 1 & ",MATCH(RC1, '" & fname & "summary1'!C1,0),1)"
Next i

最後に数値の貼り付け直しを行い,リングを外すよう対処することにします。
ご助言，ありがとうございました。

0 hits

▼

【44956】ディレクトリが異なる場合 tomo 06/12/8(金) 10:35