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