Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


17696 / 76732 ←次へ | 前へ→

【64485】セルの書式変更(文字列⇒数値)
質問  vba初心者  - 10/2/15(月) 11:44 -

引用なし
パスワード
   はじめまして。

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

以上、よろしくお願いいたします。

0 hits

【64485】セルの書式変更(文字列⇒数値) vba初心者 10/2/15(月) 11:44 質問
【64487】Re:セルの書式変更(文字列⇒数値) 名無し 10/2/15(月) 12:24 回答
【64488】Re:セルの書式変更(文字列⇒数値) vba初心者 10/2/15(月) 13:22 質問
【64489】Re:セルの書式変更(文字列⇒数値) SS 10/2/15(月) 14:25 発言
【64491】Re:セルの書式変更(文字列⇒数値) vba初心者 10/2/15(月) 14:39 発言
【64494】Re:セルの書式変更(文字列⇒数値) SS 10/2/15(月) 15:29 発言
【64505】Re:セルの書式変更(文字列⇒数値) vba初心者 10/2/16(火) 10:33 お礼
【64497】Re:セルの書式変更(文字列⇒数値) 名無し 10/2/15(月) 16:12 回答
【64498】Re:セルの書式変更(文字列⇒数値) Jaka 10/2/15(月) 16:29 発言
【64506】Re:セルの書式変更(文字列⇒数値) vba初心者 10/2/16(火) 10:34 お礼

17696 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free