Excel VBA質問箱 IV

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

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


7779 / 76734 ←次へ | 前へ→

【74540】Re:マクロを用いたエラー値の削除
発言  γ  - 13/7/19(金) 23:47 -

引用なし
パスワード
   考え方は、
(1)E列がerrorになっている時の、B列の値(y座標番号)を
  Dictionaryに登録する。

(2)各行をしたから見ていって、B列がその登録したy座標番号なら、
  その行を削除する。

Sub test()
  Dim dic As Object
  Dim lastRow As Long
  Dim k As Long
  
  Set dic = CreateObject("Scripting.Dictionary")
  lastRow = Cells(Rows.Count, 1).End(xlUp).Row
  
  For k = 2 To lastRow
    If Cells(k, 5).Value = "error" Then ''例示です。
      dic(Cells(k, 2).Value) = Empty
    End If
  Next

  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

なお、上記ではerror かどうかの判定はできているものとしていますが、
ここも数式で判定するということなら、確認が必要な点があります。
> Z座標が(最大値と最小値の差)*2/3+最小値よりも大きいこと
この最大、最小とはどのような範囲での最大最小なのですか?
全ての範囲ですか?
それとも、特定の範囲に絞ってということはありますか
(例:x座標データ番号が1のものに限定するとか)

6 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 発言

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