Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4996 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【53164】文字列の数字を数値へ変換する方法 LARS 07/12/18(火) 1:23 質問[未読]
【53165】Re:文字列の数字を数値へ変換する方法 岳 07/12/18(火) 3:46 発言[未読]
【53170】Re:文字列の数字を数値へ変換する方法 じゅんじゅん 07/12/18(火) 10:06 発言[未読]
【53188】Re:文字列の数字を数値へ変換する方法 LARS 07/12/19(水) 7:51 お礼[未読]
【53164】文字列の数字を数値へ変換する方法
質問  LARS  - 07/12/18(火) 1:23 -
引用なし
パスワード
   A列の1行目からA列の入力がある行までに１を乗算し
文字列の数字を数値項目に変換したいです。
通常のEXCEL操作であれば、
1をcopyして乗算で貼り付ければ良いのですが、
VBAだとうまくいきません。
試したのは以下です。良い方法があれば宜しくお願いします。

x = 1
Do Until Cells(x, 1) = ""
　　Cells(x, 1) = Cells(x, 1) * 1
　　x = x + 1
Loop
【53165】Re:文字列の数字を数値へ変換する方法
発言  岳  - 07/12/18(火) 3:46 -
引用なし
パスワード
   ▼LARS さん：こんばんは

>x = 1
>Do Until Cells(x, 1) = ""
>　　Cells(x, 1) = Cells(x, 1) * 1
　　　　↑
　　Cells(x, 1) = Val(Cells(x, 1))

>　　x = x + 1
>Loop

私、いつもは質問者です。
【53170】Re:文字列の数字を数値へ変換する方法
発言  じゅんじゅん  - 07/12/18(火) 10:06 -
引用なし
パスワード
   ▼LARS さん：
>A列の1行目からA列の入力がある行までに１を乗算し
>文字列の数字を数値項目に変換したいです。

Sub try()
　With Range("A1", Cells(Rows.Count, 1).End(xlUp))
　　　 .NumberFormatLocal = "G/標準"
　　　 .Value = .Value
　End With
End Sub

セルの書式設定が”文字列”で”数字”となっているのなら、
こんな感じでは如何でしょう？
（セルＡ１〜Ａ列の最終行まで）

＊訂正しました。
【53188】Re:文字列の数字を数値へ変換する方法
お礼  LARS  - 07/12/19(水) 7:51 -
引用なし
パスワード
   ■じゅんじゅん さん：
>Sub try()
>　With Range("A1", Cells(Rows.Count, 1).End(xlUp))
>　　　 .NumberFormatLocal = "G/標準"
>　　　 .Value = .Value
>　End With
>End Sub
>
>セルの書式設定が”文字列”で”数字”となっているのなら、
>こんな感じでは如何でしょう？
>（セルＡ１〜Ａ列の最終行まで）
>

ソース内容が理解できていませんが、
うまくいきました。
ありがとうございました！


■岳さん
ご回答ありがとうございました。
しかし、変換は出来ませんでした。。

>x = 1
>Do Until Cells(x, 1) = ""
>　　Cells(x, 1) = Cells(x, 1) * 1
>　　　　↑
>　　Cells(x, 1) = Val(Cells(x, 1))
>
>　　x = x + 1
>Loop
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4996 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free