Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5980 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   '　・・・　半角アポストロフィをとりあえずＸとします。
’　・・・全角アポストロフィをとりあえずＹとします。

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

　　　　Ａ
１　　ＸＹ5/5　・・・　（'’5/5のことです）
２　　ＸＸ5/5　・・・　（''5/5のことです）
３　　X5/5　　・・・　（'5/5のことです）
４　　5/5　　　・・・　（5/5です）


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

どうすれば教えてください。
【47978】Re:アポストロフィを取る方法を教えてく...
発言  ぱっせんじゃー  - 07/3/28(水) 20:11 -
引用なし
パスワード
   A4セルの
5/5
には
’
は付いてないのですか？

とりあえずは、
Replace
で
5/5
になると思いますが、
５月５日
とかの日付になるかもしれません。
【47979】Re:アポストロフィを取る方法を教えてく...
発言  ウッシ  - 07/3/28(水) 21:28 -
引用なし
パスワード
   こんばんは

>４　　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 -
引用なし
パスワード
   ▼ウッシ さん：
回答ありがとうございます。

大変よく分かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5980 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free