エクセルマクロで、セルに入力された数値を、
変換するマクロを以下のように作成したのですが、
もっと簡単な方法はないのでしょうか。
やりたいことは、
「1」で入力された値を「01」に変換することです。
よろしくお願いします。
c = Sheets("Sheet1").Cells(1, 1).Value
If c = 1 Then
c = "01"
ElseIf c = 2 Then
c = "02"
ElseIf b = 3 Then
c = "03"
ElseIf c = 4 Then
c = "04"
ElseIf c = 5 Then
c = "05"
ElseIf c = 6 Then
c = "06"
ElseIf c = 7 Then
c = "07"
ElseIf c = 8 Then
c = "08"
ElseIf c = 9 Then
c = "09"
End If
No.2ベストアンサー
- 回答日時:
Format関数を使えばどうでしょうか。
With ActiveCell
If .Value >= 1 And .Value <= 9 Then
MsgBox Format(.Value, "00")
End If
End With
No.3
- 回答日時:
初心者らしく、
(1)表示形式で、そう見せればよいのか
(2)セルの値を01(従って文字列になる)
をしたいのかはっきり質問に、書けてない。
(2)だとすると、
(A)Format関数利用 が普通だが
(B)特殊な方法で
3桁の例
Sub test01()
a = 32
s = "000"
Mid(s, Len(s) - Len(a) + 1, Len(a)) = Trim(Str(a))
MsgBox s
End Sub
と言うのもある。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Excel(エクセル) VBA EOMonthについて 5 2023/02/10 11:51
- Visual Basic(VBA) vba 最大値 条件分岐 4 2022/12/10 10:20
- Visual Basic(VBA) VBAで列を削除 3 2023/02/01 11:00
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) vbaの計算 if elseと範囲について 6 2022/11/26 01:49
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAについて質問です。数字を001というように入力したいのですが、、、
Excel(エクセル)
-
VBAで「1」、「01」等を同じ数字とみなすには?
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
【Excel VBA】先頭の「0」飛びを埋める方法
Visual Basic(VBA)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
EXCELVBAにて文字列にして「01」と表示させて、CSV形式で保存すると「1」になってしまう。
その他(プログラミング・Web制作)
-
7
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
8
エクセルvbaで転記したのですが、数字のゼロが消えてしまいます。 ゼロも転記するためにはどうしたらい
Excel(エクセル)
-
9
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
10
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
11
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
12
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
15
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
16
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
17
Range(A1")⇔cells(1,1)の変換。"
Excel(エクセル)
-
18
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
19
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
20
VBA 数式を残して値をクリアについて
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの計算式で求められ...
-
エクセルのセル内の余白の設定...
-
Excelで 分:秒 と表示させる...
-
エクセルで日付が逆に登録され...
-
【Excel】 特定セルだけに「ゼ...
-
エクセル 桁を増やす方法
-
エクセルで数式を入れても値が...
-
有効数字
-
下3桁のみを表示する方法はあ...
-
EXCELで日付と時刻が入ったセル...
-
エクセルで 何時間何分と表示...
-
エクセルの計算結果を()括弧で...
-
エクセルの計算式の後に、単位...
-
エクセル 条件付き書式で文字...
-
エクセルの時間表示
-
エクセルの数式で教えてください。
-
Excel 「表示形式」-「ユーザ...
-
EXCELの書式設定を固定すること...
-
エクセルでリンク先のデータが...
-
Excelでのセルの書式設定で、ユ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのセル内の余白の設定...
-
エクセルでの計算式で求められ...
-
エクセルで数式を入れても値が...
-
エクセルで日付が逆に登録され...
-
エクセルの計算結果を()括弧で...
-
Excelで 分:秒 と表示させる...
-
【Excel】 特定セルだけに「ゼ...
-
エクセルで折り返しと縮小の同...
-
エクセルで、書式設定をして表...
-
エクセルで 何時間何分と表示...
-
EXCELで日付と時刻が入ったセル...
-
エクセル 桁を増やす方法
-
エクセルで西暦に変更できない
-
エクセル 条件付き書式で文字...
-
エクセルの計算式の後に、単位...
-
エクセル:日付和暦の数字だけ...
-
EXCELでセル内に打った文字が隠...
-
Excelに「隠し文字」のような機...
-
セルの書式設定で一部のフォン...
-
Excelの単位で立法メイトルを表...
おすすめ情報