Excel VBA質問箱 IV

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

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


29383 / 76732 ←次へ | 前へ→

【52631】Re:EXCELでのセルのリンクの動的なパスの割り当てについて
発言  n  - 07/11/21(水) 22:05 -

引用なし
パスワード
   こんにちは。
>担当者名は該当行のセルを参照して...
例えば担当者名がA1:E1...の1行目にあるとして、
A2:E2に式を入れるとします。

通常はLoopして担当者名を参照しながら式を入れるのがラクです。

Sub try1()
  Const path As String = "\\hoge\"
  Dim ym As String
  Dim fL As String
  Dim fR As String
  Dim r As Range

  ym = Format(Date, "yyyymm")
  fL = "='" & path & ym & "\[" & ym
  fR = ".xls]hoge2'!X1"
  For Each r In Range("A2:E2")
    r.Formula = fL & r.Offset(-1).Value & fR
  Next r
End Sub

Loopせず、式自体の文字列をつくる『式』を埋め込んで
あとで値化する事も考えられるかもしれません。

Sub try2()
  Const path As String = "\\hoge\"
  Dim ym As String
  Dim sF As String
  
  ym = Format(Date, "yyyymm")
  sF = "=""='" & path & ym & "\[" & ym & """&A1&"".xls]hoge2'!X1"""
  With Range("A2:E2")
    .Formula = sF
    .Value = .Value
  End With
End Sub
2 hits

【52601】EXCELでのセルのリンクの動的なパスの割り当てについて かあどきゃぷたー 07/11/21(水) 10:32 質問
【52631】Re:EXCELでのセルのリンクの動的なパスの割... n 07/11/21(水) 22:05 発言

29383 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free