| |
はじめまして。
VBA初心者です。分からないことが出てきましたのでご教授お願いします。
A列のセルを上から順に検索して行き、
セルの書式が文字列があったとき、数値に変更するようにしました。
以下のようにVBAを記述したのですが、
これを実行するとセル「A1」が「0」に書き換わってしまいます。
｢0｣に書き換わることなく終わらせたいのですが
どうすればよいでしょうか。
'セルの書式が「文字列」のものを「数値」に変換
Private Sub changeNumber()
Dim i As Long
Dim s As Range
Set file2 = Workbooks("AAA.xls")
For i = 1 To file2.Worksheets("sheet").Range("A65536").End(xlUp).Row 'A列全てを検索対象とする
If VarType(file2.Worksheets("sheet").Range("A" & i).Value) = vbString Then 'A列の中で文字列のセルがあったとき
Set s = file2.Worksheets("sheet").Range("A" & i)
file2.Worksheets("sheet").Range("A" & i) = Val(s) '数値に変換
End If
Next i
End Sub
以上、よろしくお願いいたします。
|
|
vba初心者
- 10/2/15(月) 11:44 -
