Excel VBA質問箱 IV

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

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


17693 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   >名無しさん

ご返答ありがとうございます。
説明がへたくそですみません。

両方のパターンで以下のようにして試してみました。

1.Columns(1).NumberFormatLocal = "#_ "のパターン

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列全てを検索対象とする   
    file2.Worksheets("sheet").Range("A" & i).NumberFormatLocal = "#_ "
  Next i

End Sub


2.ゼロでないときだけ処理するパターン
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列全てを検索対象とする
       Set s = file2.Worksheets("sheet").Range("A" & i)
       file2.Worksheets("sheet").Range("A" & i) = Val(s)
  Next i

End Sub

1.の場合は、文字列の書式のセルは数値には変わりませんでした。
2.の場合は、文字列の書式のセルは数値に変わったのですが、やはりセル「A1」が「0」に書き換わっています。


少し補足させていただきます。
やりたいこととしては、左上に緑色の三角でエラーが出ているセルの
エラー内容が「数値が文字列として保存されています」となっているので
書式を数値にするVBAを作成したいです。

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

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 お礼

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