Excel VBA質問箱 IV

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

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

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

実際のＱ，Ｒ，Ｖ列の式が見えないので手探りです。
Q5,R5,V5 のステータスは参照していません。
（動かすときには、シートモジュールのコードは消しておいてください）

Sub Sample計画調整()
　　Dim z As Long
　　Dim c As Range
　　Dim r1 As Range
　　Dim r2 As Range
　　Dim r3 As Range
　　Dim n1 As Long
　　Dim n2 As Long
　　Dim n3 As Long
　　Dim x1 As Long
　　Dim x2 As Long
　　Dim x3 As Long
　　
　　
　　Dim d As Date
　　Dim col As Variant
　　
　　With Sheets("計画表")
　　
　　　　z = .Range("C" & .Rows.Count).End(xlUp).Row - 9 'データ数
　　　　Set r1 = .Range("Q10").Resize(z)
　　　　Set r2 = .Range("R10").Resize(z)
　　　　Set r3 = .Range("V10").Resize(z)
　　　　.Range("K10").Resize(z).ClearContents
　　　　n1 = .Range("Q6").Value
　　　　n2 = .Range("R6").Value
　　　　n3 = .Range("V6").Value
　　　　
　　　　For Each c In .Range("C10").Resize(z)
　　　　　　With c.EntireRow
　　　　　　　　.Range("K1").Value = c.Value '入力日->開始日
　　　　　　　　Do
　　　　　　　　　　x1 = WorksheetFunction.CountIf(r1, .Range("Q1").Value)
　　　　　　　　　　x2 = WorksheetFunction.CountIf(r2, .Range("R1").Value)
　　　　　　　　　　x3 = WorksheetFunction.CountIf(r3, .Range("V1").Value)
　　　　　　　　　　If x1 <= n1 And x2 <= n2 And x3 <= n3 Then Exit Do
　　　　　　　　　　.Range("K1").Value = .Range("K1").Value + 1 '翌日
　　　　　　　　Loop
　　　　　　End With
　　　　Next
　　　　
　　End With
　　
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 回答
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8685 / 76735 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free