| |
▼kc さん：
こんばんは。
この投稿をする前にkcさんのご質問内容を再度、読み返してみましたが、
やっぱり、きっちりとは内容を把握できませんでした
（まあ、読解力がないのが自慢なので・・）。
ということを前提として・・・、
>お返事ありがとうございます。
>確かにセルの中身は
>Selection.NumberFormatLocal = ";;;""bad"""
>でかわりますがこのマクロを何回も走らなければなりませんので
>セルの中身をbadからまたkcに戻したいのですが
>どうしたらいいでしょうか？
この投稿を読んで「もしかしたら、勘違いされてるかも」と思いましたので
再度、例題を交えて・・・。
まず、新規ブックのアクティブシートのセルA1に予め
「kc」と入力しておいて下さい。
セルA1のみを対象にしてみましょう。
次に以下のコードを実行してみて下さい。
標準モジュールに
'====================================================
Sub test()
With Range("a1")
If .Value = "kc" Then
.NumberFormatLocal = ";;;""bad"""
End If
End With
End Sub
前回の投稿と同様にセルA1は、「bad」と表示されていますよね？
でも、上のコードは書式によってセルの表示だけ「bad」に見えるように設定しているだけなんです。
中身の値は相変わらず「kc」なんです。
その証拠に以下のコードを実行してみて下さい。
同じく標準モジュールに
'================================================
Sub test2()
MsgBox Range("a1").Value 'セルA1の値
MsgBox Range("a1").Text 'セルA1の見かけの値
End Sub
いかがですか？
「kc」が表示され、次いで「bad」と表示されましたか？
よって、連続処理（どんな処理なのか？？ですが）をする場合､
このValueプロパティを参照すれば「kc」という文字は
見かけ表示が「bad」であっても取得できるんです。
それでも一旦、「kc」という表示に戻したいのであれば、
'========================================================
Sub test3()
Range("A1").NumberFormatLocal = "G/標準"
End Sub
で「kc」に戻るはずです。
こんな説明でいかがでしょうか？
|
|
ichinose
- 04/5/25(火) 20:23 -
