No.2ベストアンサー
- 回答日時:
こんばんは!
一例です。
Sub Sample1()
Dim k As Long, c As Range, myFlg As Boolean
Dim str As String, buf As String
For Each c In Selection
If c <> "" Then
For k = 1 To Len(c)
str = Mid(StrConv(c, vbNarrow), k, 1)
If str Like "[.0-9]" Then
myFlg = True
Exit For
End If
Next k
If myFlg = True Then
Do
str = Mid(StrConv(c, vbNarrow), k, 1)
buf = buf & str
If Not str Like "[.0-9]" Then Exit Do
k = k + 1
Loop
End If
If Len(buf) > 0 Then
c = Val(buf)
buf = ""
End If
End If
Next c
End Sub
こんな感じではどうでしょうか?m(_ _)m
No.1
- 回答日時:
Sub ボタン1_Click()
On Error Resume Next
Dim r As Range
For Each r In Selection
x = 0
For i = 1 To 5
If VarType(Mid(r.Value, i, 1) * 1) = vbString Then
If Mid(r.Value, i, 1) <> "." = vbString Then Exit For
End If
x = x & Mid(r.Value, i, 1)
Next
r.Value = x * 1
Next
End Sub
で一度試してみてください。
数値は5ケタまでです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBA 複数行にまたがっている選択を判定するには 2 2023/05/21 21:54
- Excel(エクセル) 【VBA】エクセルで選択した範囲の値のみをクリップボードにコピーするコードについて 3 2023/03/08 17:41
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Excel(エクセル) エクセルからビジオのリンク貼り付け 1 2023/03/30 17:51
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) エクセルのマクロを教えてください。 4 2022/10/06 08:53
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) エクセル 関数参照範囲のセルの表示 1 2023/03/16 14:55
- PDF PDFの表がエクセルに貼り付けられなくなってしまいました。 5 2022/06/03 09:07
- Excel(エクセル) Excelのプルダウンメニューの内容を人によって可変する方法 2 2023/03/28 14:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel マクロの編集がグレーに...
-
WPSOffice_マクロの有効化について
-
エクセルの、記録を終了したマ...
-
Excelのマクロでボタンを押すと...
-
エクセルマクロで、別のブック...
-
エクセル ボタンに設定したマク...
-
エクセル マクロ名にブック名...
-
エクセルでマクロを確認できな...
-
エクセルの表を複数枚印刷した...
-
複数のマクロボタンをまとめて...
-
リーグ戦(10チーム2コート)作...
-
(Excel VBA)シートコピー時マ...
-
エクセルで、「いいね」のよう...
-
別シートのマクロボタンをマク...
-
テキスト・データをエクセルの...
-
バッチファイルファイル→VBS→エ...
-
エクセルで明日の日付を表示す...
-
エクセル ボタンをクリックして…
-
マクロをマクロを使ってコピー...
-
なぜマクロの記録がなくなって...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
Excelのマクロでボタンを押すと...
-
エクセル マクロ名にブック名...
-
エクセルの、記録を終了したマ...
-
エクセルの表を複数枚印刷した...
-
エクセルで、「いいね」のよう...
-
エクセルマクロで、別のブック...
-
エクセルでマクロ(Excel 4.0)...
-
Excelマクロで、稼働中のマクロ...
-
別シートのマクロボタンをマク...
-
複数のマクロボタンをまとめて...
-
(Excel VBA)シートコピー時マ...
-
マクロをマクロを使ってコピー...
-
Excelマクロをバックグラウンド...
-
エクセルでマクロを確認できな...
-
エクセル ボタンに設定したマク...
-
リーグ戦(10チーム2コート)作...
-
なぜマクロの記録がなくなって...
-
マクロ実行ボタンを自動削除したい
おすすめ情報