Excel VBA質問箱 IV

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

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


59580 / 76732 ←次へ | 前へ→

【21837】Re:同じ項目行中の特定の数字を消去するには?
発言  Jaka  - 05/2/1(火) 16:06 -

引用なし
パスワード
   こんにちは。

こんな感じにして、F8ステップモードで1行1行確認してみるとわかるとお見ます。

  With rngb
   .Offset(0, 2).Select  '←これ追加
   .Offset(0, 2).Formula = "=IF(SUMPRODUCT((" & Aadd & "=rc[-2])*(" & _
         Badd & "=rc[-1]))=1,true,"""")"

   On Error Resume Next
   Set ans = .Resize(, 3).SpecialCells(xlCellTypeFormulas, xlLogical)
   ans.Select  '←これ追加
   .Offset(0, 2).Select  '←これ追加
   .Offset(0, 2).ClearContents
   If Err.Number = 0 Then
    ans.EntireRow.Select  '←IF文改行して、これ追加
    ans.EntireRow.Delete
   End If
   On Error GoTo 0
   End With


ichinoseさんへ

  sushiki = "=if(iserror(FIND(""ED""," & myadd & "))," & _
        "if(" & myadd & "="""",""""," & myadd & ")," & _
        "MID(" & myadd & ",FIND(""ED""," & myadd & "),LEN(" & myadd & ")))"
  Debug.Print sushiki '数式を確認して下さい
  rng.Value = Evaluate(sushiki)

う〜ん、さすがと言うか、こういうセル範囲でのEvaluateと、セル範囲での関数は全く思いつかなかったです。
勉強になりました。
今度からこれ使おうっと...。
どうも、ありがとうございました。
でも、SpecialCellsで、飛び飛びになった場合はやっぱしダメでしたね。

0 hits

【21818】同じ項目行中の特定の数字を消去するには? ギン 05/1/31(月) 17:01 質問
【21820】Re:同じ項目行中の特定の数字を消去するに... ichinose 05/1/31(月) 18:17 発言
【21825】Re:同じ項目行中の特定の数字を消去するに... ギン 05/2/1(火) 11:24 質問
【21837】Re:同じ項目行中の特定の数字を消去するに... Jaka 05/2/1(火) 16:06 発言
【21841】Re:同じ項目行中の特定の数字を消去するに... ギン 05/2/1(火) 19:11 お礼
【21844】Re:同じ項目行中の特定の数字を消去するに... ichinose 05/2/1(火) 20:29 発言
【21849】Re:同じ項目行中の特定の数字を消去するに... Jaka 05/2/2(水) 9:32 発言

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