VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/12/16(Fri) 12:48
投稿者： ふじた
Ｅメール：
ＵＲＬ：
タイトル： 出来ました！

> その時、変数等の上にカーソルを持っていくと、その値が表示されますので、確認しながら
> やってみてください。

ありがとうございます！やったらわかりました。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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -