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

投稿日： 2005/12/14(Wed) 12:00
投稿者： ふじた
Ｅメール：
ＵＲＬ：
タイトル： Re: 上手な質問方法

ダンボさん、ありがとうございます。
うまく説明できませんが書かせていただきました。
上手くいかない内容としては、コピーしたセルを別シートにペーストすることが出来るのですが、条件
にあったセルが２つ以上になると別シートにペーストした際に上書きしてペーストしてしまうようで
す。本当は、別シートの（例えば）Ｃ８〜Ｍ８にペーストした次はＣ９〜Ｍ９に…という風にしていき
たいんです。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

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

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