For Each cell In rng
' 値が存在するセルを検出
If Not IsEmpty(cell.Value) Then
' 数値が科学的記数法で表示されているかチェック
If IsNumeric(cell.Value) Then
' 数値を文字列として扱うように書式設定
cell.NumberFormat = "@"
' 現在の値を取得
Dim currentValue As Variant
currentValue = cell.Value
' 一度値をクリアして文字列として再設定
cell.ClearContents
cell.Value = CStr(currentValue)
End If
End If
Next cell
2.01インチのLCD画面と航空宇宙グレードのアルミフレームを搭載。GOMORE AIにより100以上のスポーツモード、健康トラッキング、睡眠分析をサポート。900mAhバッテリーで20日以上の使用が可能で、デュアルモードBluetooth通話、IP68防水(水深10m)、内蔵コンパス、高輝度LEDフラッシュライトを備え、冒険者向けに設計されている。W70 Pro