Excel VBA質問箱 IV

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

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


6559 / 13646 ツリー ←次へ | 前へ→

【44540】VBAで次のようなことは可能ですか? H,C 06/11/21(火) 5:57 質問[未読]
【44541】Re:VBAで次のようなことは可能ですか? ichinose 06/11/21(火) 7:33 発言[未読]
【44570】Re:VBAで次のようなことは可能ですか? H,C 06/11/21(火) 23:36 お礼[未読]

【44540】VBAで次のようなことは可能ですか?
質問  H,C  - 06/11/21(火) 5:57 -

引用なし
パスワード
   自分はVBA初心者です。(簡単なマクロ作成ができる程度)

データベースからダウンロードしたデータをもとに統計分析を行っているのですが、
データベースに登録されていないデータは「ND」(No Data)と表示され、
それをふくむ計算結果がエラーになります。
現在、手動でNDを0へ置き換えているのですが、
VBAですべての「ND」を「0」へ置き換えることは可能ですか?

また、可能でしたらコードを教えてください。
よろしくお願いします。

【44541】Re:VBAで次のようなことは可能ですか?
発言  ichinose  - 06/11/21(火) 7:33 -

引用なし
パスワード
   ▼H,C さん:
おはようございます。

>自分はVBA初心者です。(簡単なマクロ作成ができる程度)
>
>データベースからダウンロードしたデータをもとに統計分析を行っているのですが、
>データベースに登録されていないデータは「ND」(No Data)と表示され、
>それをふくむ計算結果がエラーになります。

「ND」がどのように並べられているかを例として記述しないと
サンプルコードが記述しづらいということを次回は考慮してください。


   A   B   C   D
 1 項目1 項目2 項目3 項目4
 2 1   xxx xxx  123
 3 2   xxx xxx  232
 4 3   xxx xxx  ND
 5 4   xxx xxx  12
 6 5   xxx xxx  ND

アクティブシートに上記のようなデータがあった場合、
このD列の「ND」を0に変更したいなら・・・、

標準モジュールに

'==================================
Sub test()
  With Range("d2:d6") 'ここにセル範囲を指定する
    .Value = Evaluate("if(" & .Address & _
        "=""ND"",0,if(" & .Address & _
        "="""",""""," & .Address & "))")
    End With
End Sub


として、上記のtestを実行してみてください。

【44570】Re:VBAで次のようなことは可能ですか?
お礼  H,C  - 06/11/21(火) 23:36 -

引用なし
パスワード
   ▼ichinose さん:
回答ありがとうございます。

>「ND」がどのように並べられているかを例として記述しないと
>サンプルコードが記述しづらいということを次回は考慮してください。

申し訳ありません、次回このような掲示板を利用する場合には記述するようにします。

>標準モジュールに
>
>'==================================
>Sub test()
>  With Range("d2:d6") 'ここにセル範囲を指定する
>    .Value = Evaluate("if(" & .Address & _
>        "=""ND"",0,if(" & .Address & _
>        "="""",""""," & .Address & "))")
>    End With
>End Sub
>
さっそくマクロを実行してみたところ無事マクロが作動しました。
これで卒業論文の作成がはかどります。
プロシージャ作成までしていただき本当にありがとうございました。

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