Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5601 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【49919】変更した値を元に戻すやり方を教えてください。 はり 07/6/27(水) 23:33 質問[未読]
【49921】Re:変更した値を元に戻すやり方を教えてく... ハチ 07/6/28(木) 9:20 発言[未読]
【49927】Re:変更した値を元に戻すやり方を教えてく... はり 07/6/28(木) 19:54 お礼[未読]
【49940】Re:変更した値を元に戻すやり方を教えてく... Lindy 07/6/29(金) 11:37 発言[未読]
【49919】変更した値を元に戻すやり方を教えてくだ...
質問  はり  - 07/6/27(水) 23:33 -
引用なし
パスワード
   sub test()

dim rg as range

set rg=worksheets("Sheet1").range("F1")
rg.value=replace(rg.value," ","")
rg.value=strconv(rg.value,vbnarrow)

end sub

と書き換えたものを
元に戻すやり方をおしえてください。

４４−　１４−　月⇔44-14-月
こんなやりとりです。

よろしくお願いいたします。
【49921】Re:変更した値を元に戻すやり方を教えて...
発言  ハチ  - 07/6/28(木) 9:20 -
引用なし
パスワード
   ▼はり さん：
>sub test()
>
>dim rg as range
>
>set rg=worksheets("Sheet1").range("F1")
>rg.value=replace(rg.value," ","")
>rg.value=strconv(rg.value,vbnarrow)
>
>end sub
>
>と書き換えたものを
>元に戻すやり方をおしえてください。
>
>４４−　１４−　月⇔44-14-月
>こんなやりとりです。
>
>よろしくお願いいたします。

マクロで変更した箇所は戻せません。
もとの値を保存しておくしかないと思います。
【49927】Re:変更した値を元に戻すやり方を教えて...
お礼  はり  - 07/6/28(木) 19:54 -
引用なし
パスワード
   お答え、ありがとうございました。
考え直します。
【49940】Re:変更した値を元に戻すやり方を教えて...
発言  Lindy  - 07/6/29(金) 11:37 -
引用なし
パスワード
   ▼はり さん：
こんにちは

なぜ、そのような事をする必要があるのか？
を書いてみると・・
必要とする理由によっては新しい考え方のご指導が頂けるかも知れないですよ

元に戻すことは出来ませんが
例えば、変更前のValueをどこか別の作業エリアにコピーしておいて
戻すときはそこからまたコピーしてくるとか
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5601 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free