エクセルで3 hr 9 minのようにかいてあるものを189 minのように変換したい。

初心者で質問ばかりで申し訳ありません。
エクセルで選択したセルで3 hr 9 minのようにかいてあるものを189 minのように変換したいのですが、マクロをご教示いただけないでしょうか。

質問者からの補足コメント

• ありがとうございます。
  
  選択したセルのみ実行できるようにできないでしょうか。
  
  よろしくお願いします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2015/03/25 05:20

No.2 ベストアンサー 回答者： tom04 回答日時： 2015/03/25 08:27

No.1です。

＞選択したセルのみ実行できるようにできないでしょうか。
というコトですので、前回のコードの

＞With Range("A:A")の行
を
＞With Selection
に変更してみてください。m(_ _)m

この回答へのお礼

ばっちりです。ありがとうございます。

お礼日時：2015/03/25 14:15

No.1 回答者： tom04 回答日時： 2015/03/24 21:02

こんばんは！

他の単位はないのですね？
入っている文字は「hr」と「min」という前提です。
データはA列にあるとすると

Sub Sample2()
With Range("A:A")
.Replace what:="hr", replacement:=":"
.Replace what:="min", replacement:=""
.NumberFormatLocal = "[m]""min"""
End With
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

うまくいくように思えたのですが"1 hr 50 min"を変換すると"1 : 50 "のようになってしまいます。

自分で手入力した"1 hr 50 min"であればうまく変換できるのですが・・・

お礼日時：2015/03/25 14:39