VBA:イコールを文字列として扱いたい

Question

他のシートの値を別のシートに転記していますが、「=<10」という値があり、エラーになってしまいます。
＝を数式として認識しているためと思いますが、直し方がわかりません。

ws3.Cells(r, 4).Value = ws2.Cells(i, 118).Value 

上記「ws2.Cells(i, 118).Value 」部分の値が「=<10」です。
一度文字列の変数に代入してみたのですが、Excelが強制終了してしまいます。

dim mg as String
mg =ws2.Cells(i, 118).Value 
ws3.Cells(r, 4).Value = Str(mg)

直し方を御存知の方、御教授願います_(^)_

Comments

[coco_bauer]

セルに数式"=<10"が入っていると、「この数式には問題があります」というポップアップウィンドウが表示されませんか？　VBAを起動する以前にExcelがエラーと判断するように思うのですが、お使いのExcelのバージョンなどはどうなっていますか？

Answer 1

案１
事前にコピー先のセルの表示形式を文字列にしておく。

案２
VBAでコピーの直前にコピー先セルの表示形式を文字列に設定する。

ws3.Cells(r, 4).NumberFormatLocal = "@"
ws3.Cells(r, 4).Value = ws2.Cells(i, 118).Value 

案３
コピーする際、シングルクォーテーションを付加する。

ws3.Cells(r, 4).Value = "'" & ws2.Cells(i, 118).Value 

Comments

[mochinn]

ありがとうございます！
案３で簡単に思った通りの結果が出ました！！！！
1時間くらい悩んでいたので、こんなに簡単なことだったとは・・・盲点です！

Answer 2

セルの内容の1文字目を ' （シングルクオート）にすると、文字列として扱われます（シングルクオートを除いた文字列になります）。

ws2.Cells(i, 118)のセルの内容を「'=<10」にしてみてください。
そうすれば、　ws2.Cells(i, 118).Value は、 "=<10"という文字列になります。

Answer 3

mg = "'" & ws2.Cells(i, 118).Value
ws3.Cells(r, 4).Value = Str(mg)
で、セルが文字列として認識しますが、'が付いちゃいますね。。