VBAで書式設定を揃えたい

Question

前提・実現したいこと

VBA
ws_sheet.Cells(1, 1).Value = motodata.Offset(0, 0).Value
この式ですが、右辺を100で割った値を左辺に代入したい場合、
式の置き方がよくわかりません。

発生している問題・エラーメッセージ

``　

実行時エラー13　型が一致しません

```ここに言語名を入力
ソースコード

試したこと

ws_sheet.Cells(1, 1).Value = motodata.Offset(0, 0).Value　/　100

補足情報（FW/ツールのバージョンなど）

最初の式は問題ないのですが、　/　100を加えたら、上記のエラーがでました。

Comments

[sazi]

問題ないとは１００で割る前の数字が転記されたという事ですか？
それともエラーにならないというだけ？

Answer 1

数値でない場合にそのようなエラーになりますね。
数値かどうかは IsNumeric関数で判断できます。

If IsNumeric( Range("C1").Value) Then
   Cells(1,1).value = Range("C1").Value / 100
End If

---

タイトルと質問内容が合致していない様ですので、タイトルを質問内容を表すものに変更してください。

Answer 2

motodata.Offset(0, 0).Value　が数値ではない場合、エラーとなります。
以下のように　TypeName で右辺が数値かどうか確認してみてください。

Debug.Print TypeName(motodata.Offset(0, 0).Value)
Debug.Print TypeName(CLng(motodata.Offset(0, 0).Value))