Excel VBA質問箱 IV

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

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


59579 / 76738 ←次へ | 前へ→

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

引用なし
パスワード
   Jaka さん、ギンさん、こんばんは。
Jaka さんのフォローで解決したみたいなので何よりです。
投稿したので、ちょっとだけ付けたし。

>  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
'      ↑これで削除しているのですが、
'       データ数(シートBの)が1000行ぐらいなら
'       まあ、我慢できますが、
'       7000行ぐらいになるとコード1行で済むのですが、
'       処理は遅くなってしまい我慢できませんでした。
'       データ数が多いときは、削除も分割して行った方がよいかも・・。
'       Jakaさんが目安箱で検証しているので参考にして下さい。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=54;id=FAQ       
'
>   End If
>   On Error GoTo 0
>   End With


Jakaさん、絡むのは久しぶりですねえ!!
>
>  sushiki = "=if(iserror(FIND(""ED""," & myadd & "))," & _
>        "if(" & myadd & "="""",""""," & myadd & ")," & _
>        "MID(" & myadd & ",FIND(""ED""," & myadd & "),LEN(" & myadd & ")))"
>  Debug.Print sushiki '数式を確認して下さい
>  rng.Value = Evaluate(sushiki)
>
>う〜ん、さすがと言うか、こういうセル範囲でのEvaluateと、セル範囲での関数は全く思いつかなかったです。
>勉強になりました。
>今度からこれ使おうっと...。
>どうも、ありがとうございました。

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=21819;id=excel

↑このご質問ですね!!
あれっ・・・、Evaluateで配列数式が扱えると言う事を教えてくれたのは
Jakaさんだよ!!(私への直接の回答ではなかったけど 
これは、間違いない、私、よく覚えています)

教えてもらってからなんです。Evaluateを多用し始めたのは・・・。

便利なんですが、Evaluateメソッドに「配列数式だよ」って、認識させるには
工夫が必要みたいです。
つまり、セルに直接入力可能な配列数式が全部Evaluateでも配列として認識するとは
限らないみたいですよ!!
これは、仕方がないとは思いますが・・・。
3 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 発言

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