投稿日 | : 2005/12/14(Wed) 12:00 |
投稿者 | : ふじた |
Eメール | : |
URL | : |
タイトル | : Re: 上手な質問方法 |
ダンボさん、ありがとうございます。
うまく説明できませんが書かせていただきました。
上手くいかない内容としては、コピーしたセルを別シートにペーストすることが出来るのですが、条件
にあったセルが2つ以上になると別シートにペーストした際に上書きしてペーストしてしまうようで
す。本当は、別シートの(例えば)C8〜M8にペーストした次はC9〜M9に…という風にしていき
たいんです。For...Next文でiとfをループさせているのですが、そこが上手くかけていないのだと思う
んです。どうでしょうか?
Sub 抽出()
If MsgBox("要求事項の抽出を行いますか?", vbYesNo) = vbYes Then
x = Application.WorksheetFunction.CountA(Range(Cells(8, 2), Cells(127, 2)))
y = x * 6
z = Worksheets("マトリックス").Cells(128, 14)
For i = 8 To y + 7
For j = 9 To 9 + (z - 1)
Worksheets("点数").Cells(i, 14) = (Worksheets("点数").Cells(i, 13)) / (Worksheets("点
数").Cells(8, 15))
p = Worksheets("点数").Cells(i, 14)
If p >= 2 And p <= 10 Then
Sheets("マトリックス").Select
Range(Cells(i, 3), Cells(i, 13)).Select
Selection.Copy
Sheets("要求事項").Select
Range(Cells(j, 4), Cells(j, 14)).Select
ActiveSheet.Paste
End If
Next
Next
Worksheets("要求事項").Select
End If
End Sub