Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4422 / 76734 ←次へ | 前へ→

【77935】Re:VBAによるデータ抽出等について
発言  マナ  - 16/2/14(日) 15:36 -

引用なし
パスワード
   ▼株太郎 さん:

解決したようなので、時間に余裕があればご検討下さい。

>
>エラー”400”

ごめんなさい。原因がわかりません。
ステップ実行でどこでエラーになる確認できますか。
(繰り返し処理をしていますので、データ量を少なくしないと大変かも)
>

>
>>4)H列が空白の行をオートフィルタで抽出し削除
>
>を 赤 と 青 の間のデータ個数を計算できるのでしょうか?

H列に色付きセルの行番号をセットしています。
この行番号の差がセルの数になりませんか?

わかりにくそうなところを少し修正してみました。

Sub test2()
  Dim i As Long
  
  Sheets("Sheet1").Copy  '★データシート
  
  With ActiveSheet.Cells(1).CurrentRegion.Columns("A:H")
    .Cells(1, "H").Value = "作業列(行番号)"
    For i = 2 To .Rows.Count
      If .Cells(i, "D").Interior.Color = vbRed Then  '★高値の色
        .Cells(i, "E").ClearContents
        .Cells(i, "H").Value = i
      ElseIf .Cells(i, "E").Interior.Color = vbBlue Then '★安値の色
        .Cells(i, "D").ClearContents
        .Cells(i, "H").Value = i
      End If
    Next

    .AutoFilter
    .AutoFilter Field:=8, Criteria1:="="
    .Offset(1).EntireRow.Delete
    .AutoFilter
    .Interior.ColorIndex = xlNone

    If .Rows.Count > 1 Then
      With .Columns("I").Resize(.Rows.Count - 1).Offset(1)
        .Formula = "=IF(H1=""作業列(行番号)"","""",H2-H1)"
        .Value = .Value
      End With
    End If
    .Cells(1, "I").Value = "セルの個数"
    .Columns("F:H").Delete
    .Columns("B:C").Delete
    .Cells(1).Select
  End With
      
End Sub

16 hits

【77924】VBAによるデータ抽出等について 株太郎 16/2/13(土) 17:15 質問[未読]
【77925】Re:VBAによるデータ抽出等について β 16/2/13(土) 19:42 発言[未読]
【77926】Re:VBAによるデータ抽出等について マナ 16/2/14(日) 0:27 発言[未読]
【77927】Re:VBAによるデータ抽出等について β 16/2/14(日) 9:26 発言[未読]
【77929】Re:VBAによるデータ抽出等について マナ 16/2/14(日) 12:56 発言[未読]
【77931】Re:VBAによるデータ抽出等について 株太郎 16/2/14(日) 13:25 回答[未読]
【77935】Re:VBAによるデータ抽出等について マナ 16/2/14(日) 15:36 発言[未読]
【77936】Re:VBAによるデータ抽出等について 株太郎 16/2/14(日) 16:33 お礼[未読]
【77928】Re:VBAによるデータ抽出等について β 16/2/14(日) 9:36 発言[未読]
【77930】Re:VBAによるデータ抽出等について 株太郎 16/2/14(日) 13:07 回答[未読]
【77932】Re:VBAによるデータ抽出等について β 16/2/14(日) 14:07 発言[未読]
【77934】Re:VBAによるデータ抽出等について 株太郎 16/2/14(日) 15:30 お礼[未読]
【77933】Re:VBAによるデータ抽出等について β 16/2/14(日) 14:09 発言[未読]

4422 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free