ここから本文です

以下の条件の作業をマクロで行いたいです。

sbk********さん

2019/7/1318:56:20

以下の条件の作業をマクロで行いたいです。

E列に数字を入力した時のみ、その数字の前に半角スペースを入力させたいんですが、その数字がすでに半角スペースが前に入力されていたら、そのままで入力させたいです。
例えばE5に「東京」と入力してから「52」と入力すると「東京 52」、「東京 52」に「8」と入力したら「東京 52 8」、「40大阪」に「100」と入力したら「40大阪 100」、空白のセルに「5」と入力したら「 5」と言ったように、セルに打ち込んでセルが変わったら状態になったら、半角スペースを数字の前につけたいです。マクロで行う場合はどんなコードになりますか?ご教示お願いします。

閲覧数:
21
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

som********さん

2019/7/1319:17:05

ヒントで言えば、こんな感じ。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OD As String
Dim ND As String
With Application
If .Intersect(Range("E:E"), Target) Is Nothing Then Exit Sub
.EnableEvents = False
ND = Target.Text
.Undo
OD = Target.Text
Target.Value = OD & " " & ND
.EnableEvents = True
End With
End Sub

  • 質問者

    sbk********さん

    2019/7/1406:50:22

    ヒントありがとうございます。
    なんせ基礎が無く、何をどう変えていいか分かりません。教えていただく訳にいかないでしょうか?
    よろしくお願い致します。

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2019/7/14 20:50:43

回答ありがとうございます!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる