Excel VBA質問箱 IV

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

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


5960 / 13645 ツリー ←次へ | 前へ→

【47977】アポストロフィを取る方法を教えてください カド 07/3/28(水) 19:10 質問[未読]
【47978】Re:アポストロフィを取る方法を教えてくだ... ぱっせんじゃー 07/3/28(水) 20:11 発言[未読]
【47982】Re:アポストロフィを取る方法を教えてくだ... カド 07/3/28(水) 23:12 お礼[未読]
【47979】Re:アポストロフィを取る方法を教えてくだ... ウッシ 07/3/28(水) 21:28 発言[未読]
【47983】Re:アポストロフィを取る方法を教えてくだ... カド 07/3/28(水) 23:13 お礼[未読]

【47977】アポストロフィを取る方法を教えてくださ...
質問  カド  - 07/3/28(水) 19:10 -

引用なし
パスワード
   ' ・・・ 半角アポストロフィをとりあえずXとします。
’ ・・・全角アポストロフィをとりあえずYとします。

セルに以下のようなデータがあります。

    A
1  XY5/5 ・・・ ('’5/5のことです)
2  XX5/5 ・・・ (''5/5のことです)
3  X5/5  ・・・ ('5/5のことです)
4  5/5   ・・・ (5/5です)


これらのセルA1からA5までのデータをアポストロフィを全て
取りさって、全て5/5というデータに書き換えたいのですが、
if文での判定の方法が分かりません。

どうすれば教えてください。

【47978】Re:アポストロフィを取る方法を教えてく...
発言  ぱっせんじゃー  - 07/3/28(水) 20:11 -

引用なし
パスワード
   A4セルの
5/5
には

は付いてないのですか?

とりあえずは、
Replace

5/5
になると思いますが、
5月5日
とかの日付になるかもしれません。

【47979】Re:アポストロフィを取る方法を教えてく...
発言  ウッシ  - 07/3/28(水) 21:28 -

引用なし
パスワード
   こんばんは

>4  5/5   ・・・ (5/5です)
という事は元々書式は文字列なのかなって思いますけど、

Sub test()
  Dim r As Range
  With Range("A1:A5")
    .NumberFormatLocal = "@"
    For Each r In .Cells
      r = Replace(Replace(r, "'", ""), "’", "")
    Next
  End With
End Sub

【47982】Re:アポストロフィを取る方法を教えてく...
お礼  カド  - 07/3/28(水) 23:12 -

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

ウッシさんの回答と合わせて理解できました。

【47983】Re:アポストロフィを取る方法を教えてく...
お礼  カド  - 07/3/28(水) 23:13 -

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

大変よく分かりました。

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