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

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

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

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

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

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

2018/09/14 02:36

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

行動規範の内容に同意します

回答3件

ベストアンサー

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

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

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

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

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

投稿2018/09/14 02:39

総合スコア17000

2018/09/14 03:32

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

行動規範の内容に同意します

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

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

投稿2018/09/14 02:41

総合スコア6919

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

投稿2018/09/14 02:34

総合スコア443

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.31%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問をすることでしか得られない、回答やアドバイスがある。