Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8662 / 76807 ←次へ　｜　前へ→
【73715】Re:循環参照回避
発言  UO3  - 13/2/6(水) 12:07 -
引用なし
パスワード
   ▼nonoka さん：

とりあえず「１つめ」を。
★要件が、以前のものとまったく異なるテーマですから、いったん解決でクローズして
　トピをわけられたほうがいいのでは？
　フンドシ状態で、トピをあけるのにも苦労しますので。

Schedule側で重複があればあと勝ち、Process側で重複あればSchedule側、上書き
という仕様にしています。

Sub ひとつ目()
　　Const fCode As String = "D"　　 'Processシートのコード列
　　Const fLine As Long = 5　　　　 '　　　　　　　 データ開始行
　　Const tCode As String = "H"　　 'Scheduleシートのコード列
　　Const tLine As Long = 10　　　　 '　　　　　　　 データ開始行
　　
　　Dim dic As Object
　　Dim c As Range
　　Dim x As Long
　　Dim v As Variant
　　Dim i As Long
　　Dim j As Long
　　Dim shTo As Worksheet

　　Set shTo = Sheets("Schedule")
　　Set dic = CreateObject("Scripting.Dictionary")
　　
　　x = shTo.Range(tCode & shTo.Rows.Count).End(xlUp).Row
　　v = shTo.Range("AD" & tLine & ":AQ" & x).Formula
　　
　　For Each c In Range(shTo.Range(tCode & tLine), shTo.Range(tCode & x))
　　　　dic(c.Value) = c.Row - tLine + 1
　　Next
　　
　　With Sheets("Process")
　　　　For Each c In Range(.Range(fCode & fLine), .Range(fCode & .Rows.Count).End(xlUp))
　　　　　　If dic.exists(c.Value) Then
　　　　　　　　i = dic(c.Value)
　　　　　　　　For j = 1 To UBound(v, 2)
　　　　　　　　　　v(i, j) = c.EntireRow.Range("E1").Offset(, j - 1).Value
　　　　　　　　Next
　　　　　　End If
　　　　Next
　　End With
　　
　　shTo.Range("AD" & tLine).Resize(UBound(v, 1), UBound(v, 2)).Value = v
　　shTo.Select
　　
　　MsgBox "転記完了"

End Sub
0 hits
▼ 【73600】循環参照回避 nonoka 13/1/27(日) 1:46 質問
【73602】Re:循環参照回避 UO3 13/1/27(日) 16:19 発言
【73603】Re:循環参照回避 nonoka 13/1/27(日) 19:24 回答
【73604】Re:循環参照回避 UO3 13/1/27(日) 23:03 発言
【73605】Re:循環参照回避 UO3 13/1/28(月) 12:41 発言
【73606】Re:循環参照回避 nonoka 13/1/28(月) 13:54 回答
【73607】Re:循環参照回避 ウッシ 13/1/28(月) 13:56 回答
【73608】Re:循環参照回避 nonoka 13/1/28(月) 14:06 回答
【73609】Re:循環参照回避 ウッシ 13/1/28(月) 14:36 回答
【73611】Re:循環参照回避 nonoka 13/1/28(月) 16:08 回答
【73612】Re:循環参照回避 ウッシ 13/1/28(月) 16:44 回答
【73615】Re:循環参照回避 nonoka 13/1/28(月) 19:00 回答
【73616】Re:循環参照回避 ウッシ 13/1/28(月) 19:15 回答
【73617】Re:循環参照回避 nonoka 13/1/28(月) 19:27 回答
【73618】Re:循環参照回避 ウッシ 13/1/28(月) 20:40 回答
【73621】Re:循環参照回避 nonoka 13/1/28(月) 22:32 お礼
【73613】Re:循環参照回避 UO3 13/1/28(月) 17:12 発言
【73614】Re:循環参照回避 nonoka 13/1/28(月) 18:24 回答
【73619】Re:循環参照回避 UO3 13/1/28(月) 21:21 発言
【73620】Re:循環参照回避 nonoka 13/1/28(月) 22:30 回答
【73622】Re:循環参照回避 UO3 13/1/28(月) 22:56 発言
【73623】Re:循環参照回避 nonoka 13/1/28(月) 23:01 回答
【73626】Re:循環参照回避 UO3 13/1/29(火) 6:20 発言
【73629】Re:循環参照回避 nonoka 13/1/29(火) 9:16 回答
【73633】Re:循環参照回避 UO3 13/1/29(火) 12:33 発言
【73634】Re:循環参照回避 nonoka 13/1/29(火) 12:56 回答
【73635】Re:循環参照回避 UO3 13/1/29(火) 13:16 発言
【73636】Re:循環参照回避 UO3 13/1/29(火) 13:18 発言
【73637】Re:循環参照回避 nonoka 13/1/29(火) 13:23 回答
【73638】Re:循環参照回避 UO3 13/1/29(火) 13:36 発言
【73639】Re:循環参照回避 nonoka 13/1/29(火) 14:27 回答
【73641】Re:循環参照回避 UO3 13/1/29(火) 14:40 発言
【73642】Re:循環参照回避 nonoka 13/1/29(火) 14:46 回答
【73643】Re:循環参照回避 nonoka 13/1/29(火) 15:10 回答
【73644】Re:循環参照回避 nonoka 13/1/29(火) 15:13 回答
【73646】Re:循環参照回避 UO3 13/1/29(火) 15:23 発言
【73648】Re:循環参照回避 UO3 13/1/29(火) 15:31 発言
【73650】Re:循環参照回避 nonoka 13/1/29(火) 16:30 回答
【73651】Re:循環参照回避 UO3 13/1/29(火) 16:51 発言
【73652】Re:循環参照回避 nonoka 13/1/29(火) 17:01 回答
【73653】Re:循環参照回避 UO3 13/1/29(火) 20:21 発言
【73656】Re:循環参照回避 nonoka 13/1/29(火) 22:48 お礼
【73645】Re:循環参照回避 UO3 13/1/29(火) 15:18 発言
【73647】Re:循環参照回避 nonoka 13/1/29(火) 15:27 回答
【73640】Re:循環参照回避 UO3 13/1/29(火) 14:34 発言
【73610】Re:循環参照回避 UO3 13/1/28(月) 14:39 発言
【73705】Re:循環参照回避 nonoka 13/2/5(火) 20:19 質問
【73712】Re:循環参照回避 UO3 13/2/6(水) 11:17 発言
【73713】Re:循環参照回避 UO3 13/2/6(水) 11:32 発言
【73715】Re:循環参照回避 UO3 13/2/6(水) 12:07 発言≪
【73716】Re:循環参照回避 nonoka 13/2/6(水) 12:57 回答
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8662 / 76807 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free