こんにちは。Andrewさん。みなさん。
>どこがおかしいか、教えていただけませんか
>一般機能では 相手先のシートを開かないと シートをまたいでのリンクを >可変にすることはできません。
このスレッドはこれで解決ということですよね? VBAの回答ってしないほうがいいのかなあ・・・?
単純に考えたら↓な感じでしょうか。 Sub TEST() Dim ph As String, fl As String, sh As String, cl As String Dim r As Long, c As Long r = ActiveCell.Row c = ActiveCell.Column ph = Cells(r, c - 4).Value 'アクティブセルの4つ左にブックのフルパス(C:\TEMP\など) fl = Cells(r, c - 3).Value '3つ左にブック名(ABC.XLSなど) sh = Cells(r, c - 2).Value '2つ左にシート名(実行予算など) cl = Cells(r, c - 1).Value '1つ左にセルアドレス(できればR1C1形式) ActiveCell.Value = "='" & ph & "[" & fl & "]" & sh & "'!" & cl 'これは式埋め込み 'ActiveCell.Value = ExecuteExcel4Macro("'" & ph & "[" & fl & "]" & sh & "'!" & cl)’値のみ表示 End Sub
一般機能のリンク参照機能って結構良くできてますよね。(私見ですが) 次回バージョンアップ時にはぜひAndrewさんの要望にも応えれるようにしてほしいものです。
この記事にはVBAのコードが含まれています。
緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他
|