Excel VBA質問箱 IV

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

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


7768 / 76734 ←次へ | 前へ→

【74551】Re:マクロを用いたエラー値の削除
発言  γ  - 13/7/22(月) 20:05 -

引用なし
パスワード
   こんな感じになりませんか?参考にしてください。

Sub test()
  Dim dic   As Object
  Dim lastRow As Long
  Dim myRange As Range
  Dim myMax  As Double, myMin As Double
  Dim target As Double
  Dim v    As Double
  Dim k    As Long
  
  Set dic = CreateObject("Scripting.Dictionary")
  lastRow = Cells(Rows.Count, 1).End(xlUp).Row
  
  '基準値の作成
  Set myRange = Range(Cells(2, 5), Cells(Rows.Count, 5).End(xlUp))
  myMax = Application.WorksheetFunction.Max(myRange)
  myMin = Application.WorksheetFunction.Min(myRange)
  target = myMin + (myMax - myMin) * 2 / 3

  'x座標番号が1 かつ z座標が基準値を超えていたら、
  '対応するy座標番号 を Dictionaryに保存
  For k = 2 To lastRow
    v = Cells(k, 5).Value
    If Cells(k, 1).Value = 1 And v > target Then
      dic(Cells(k, 2).Value) = Empty
    End If
  Next

  'そのy座標番号のデータをすべて削除する
  For k = lastRow To 2 Step -1
    If dic.Exists(Cells(k, 2).Value) Then
      '' Rows(k).Delete
      Cells(k, 6).Value = 1
    End If
  Next
End Sub
7 hits

【74535】マクロを用いたエラー値の削除 argon 13/7/18(木) 19:58 質問
【74539】Re:マクロを用いたエラー値の削除 γ 13/7/19(金) 8:45 発言
【74540】Re:マクロを用いたエラー値の削除 γ 13/7/19(金) 23:47 発言
【74550】Re:マクロを用いたエラー値の削除 argon 13/7/21(日) 23:49 回答
【74551】Re:マクロを用いたエラー値の削除 γ 13/7/22(月) 20:05 発言
【74556】Re:マクロを用いたエラー値の削除 argon 13/7/23(火) 22:03 発言
【74559】Re:マクロを用いたエラー値の削除 γ 13/7/24(水) 8:10 発言

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