Excel VBA質問箱 IV

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

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


35977 / 76732 ←次へ | 前へ→

【45943】Re:転記
回答  Kein  - 07/1/18(木) 13:58 -

引用なし
パスワード
   ま、値を引っ張るだけなら、リンクという方法もあります。
コードはこんな感じです。

Sub MyData_Link()
  Dim i As Integer, j As Integer
  Dim LkFm As String
  Dim RAry As Variant
 
  RAry = Array(12, 14, 15, 16, 18, 20, 34, 55, 66)
  For i = 1 To 6
   LkFm = "='" & ThisWorkbook.Path & _
   "\[元ネタ.xls]" & i & "月!'$B'
   For j = 2 to 10
     ThisWorkbook.Sheets(i & "月") _
     .Cells(RAry(j - 2), 2).Formula = LkFm & j
   Next j
   With ThisWorkbook.Sheets(i & "月").Range("B12:B66")
     .Value = .Value
   End With
  Next i
End Sub
2 hits

【45898】転記 かんち 07/1/17(水) 17:11 質問
【45899】Re:転記 りん 07/1/17(水) 17:28 発言
【45908】Re:転記 かんち 07/1/17(水) 18:50 質問
【45929】Re:転記 りん 07/1/18(木) 8:15 発言
【45943】Re:転記 Kein 07/1/18(木) 13:58 回答
【45944】Re:転記 Kein 07/1/18(木) 14:01 発言

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