投稿日 | : 2005/12/16(Fri) 12:48 |
投稿者 | : ふじた |
Eメール | : |
URL | : |
タイトル | : 出来ました! |
> その時、変数等の上にカーソルを持っていくと、その値が表示されますので、確認しながら
> やってみてください。
ありがとうございます!やったらわかりました。For iの中にFor jがあったのでいけなかったようで
す。そこで、For j文をなくし、下記のように変更しました。
無事、動作しました!ありがとうございました!
Sub 抽出()
If MsgBox("要求事項の抽出を行いますか?", vbYesNo) = vbYes Then
x = Application.WorksheetFunction.CountA(Range(Cells(8, 2), Cells(127, 2)))
y = x * 6
j = 9
For i = 8 To y + 7
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
j = j + 1
End If
Next
Worksheets("要求事項").Select
End If
End Sub