EXCEL 複数セルシングルコーテーションつける

質問

お世話になります。

あるA3～Z20(可変)までの全セルにシングルコーテーションをつけたいのです。
シングルコーテーションをつけると左上に緑色の三角を表示させたいのです。
(理由はこの三角がないと別システムへExcelを取り込めないのです)
1セルずつやるのはとても手間ですので一括で出来る方法を探しています。

どなたかご教授いただけますでしょうか？
よろしくお願い致します。
Excel2013

回答No.4

ushi2015 · ベストアンサー

こんにちは
最終データのとらえ方によって、
Sub test1()
With Range("A3").CurrentRegion
.Value = Evaluate("""'""&" & .Address(0, 0, xlA1))
End With
End Sub
とか
Sub test2()
With Intersect(ActiveSheet.UsedRange, Rows("3:" & Rows.Count))
.Value = Evaluate("""'""&" & .Address(0, 0, xlA1))
End With
End Sub
色々ですけど、With の後ろのコードで範囲が指定出来ます。

OKWaveの補足に補足ってつけられないのかな・・・

お礼

ushi2015さん、ご連絡ありがとうございました！
ご教授いただきました方法で実現できました１
この度は何度もご丁寧ねご説明をいただきまして誠にありがとうございました！

回答No.3

Cheshire-Alice

>シングルコーテーションをつけると
>左上に緑色の三角を表示させたいのです。

単にシングルコーテーションを付けただけでは出てこないはずで。
セルの書式設定が「文字列」なのに数字が入ってると、セルの左上に緑色の三角が出てきますね。ゼロ詰めの数字（"001"など）を入れたい時に書式設定を変えずにやる方法かもしれません。

もし"緑の三角"を出したいセルがいつも数字なら、書式設定を文字列にしておけばいいんじゃないでしょうか？広範囲なら該当セルをまとめて選択して、書式設定を文字列に。

>理由はこの三角がないと
>別システムへExcelを取り込めないのです

シングルコーテーションが値として必須ではないなら、それでイケるんじゃないかな？

基本的な内容の回答で申し訳ない。

お礼

Cheshire-Alice、ご連絡ありがとうございました！
当方からのご連絡が遅くなりまして大変申し訳ありませんでした。
ご丁寧なご説明まことにありがとうございました。

別回答者様からＶＢＡでの処理をご教授いただきましたので、そちらで対応してみたいと思います。
ありがとうございました。

回答No.2

ushi2015

こんにちは

Sub test()
With Range("A3:Z20")
.Value = ["'"&A3:Z20]
End With
End Sub

とかで、どうでしょうか？

補足

ushi2015さん、ご連絡ありがとうございました！
当方からのご連絡が遅くなりまして大変申し訳ありませんでした。

ちにみにA3からZ20ではなく、A3からデータが存在する範囲まで、範囲を可変で指定した場合のロジックをご教授いただけけませんでしょうか？
何度も申しわけありませんが、よろしくお願い致します。

回答No.1

msMike

》 左上に緑色の三角を表示させたい…
私も Excel 2013 を使ってるけど、緑色のナビスコ・マークなんて見たことな～い。
全セルに「シングルコーテーションをつけた」添付図を示したけど、ネ、ないでしょ？

お礼

msMike、ご連絡ありがとうございました！
当方からのご連絡が遅くなりまして大変申し訳ありませんでした。
ご丁寧なご説明まことにありがとうございました。

別回答者様からＶＢＡでの処理をご教授いただきましたので、そちらで対応してみたいと思います。
ありがとうございました。