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

投稿日： 2005/12/13(Tue) 18:19
投稿者： ふじた
Ｅメール：
ＵＲＬ：
タイトル： 条件にあったセルのコピー＆ペースト

はじめまして。初心者のふじたと申します。どうしても上手くいかないので参りました。
条件にあったセルをコピーして別シートにペーストという動作をFor..Nextを用いて作ってみたつもり
なんですが、上手くいきません。以下に書いたものを載せますのでご鞭撻のほどよろしくお願いいた
します。
　
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 -