ここから本文です

エクセルVBAの分かる方教えて下さい。

eco********さん

2020/4/122:18:10

エクセルVBAの分かる方教えて下さい。

既に入力しているA1セルとA8セルが2020年月日に今日の日付、2020年4月1日で編集した後、[Del]キーを押すと通常はセルが空白になるか2020年月日 が残るプロシージャを作成したいがプログを参考しても実行できないのでどこを是正するかを教えてください。

例.2020年月日→2020年4月1日 に編集のあと[Del]キー →2020年月日 が残る。

※A1とA8に2020年月日が入ってるワークシート上のシート名:sheet1
標準モジュールのModuleに

’■A1セルに2020年月日
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Left(Range("A1").Value, 7) <> "2020年月日" Then
Sheet1.Range("A1").Value = "2020年月日" & Range("A1").Value
End If
End Sub

プログ↓
https://oshiete.goo.ne.jp/qa/1891414.html

補足回答者3人のアドバイスと回答をありがとうございました。
sheetプロジェクトにプロシージャ入力は理解できたか

セル結合に "/" について
A1セルに / を入力、A1とB1セルを結合して中央揃え(文字列を中央)を設定。今日の日付、4/6を編集して[Del]キーを押すと / だけが残す 記号固定のVBAも使いたいか教えて下さい。

閲覧数:
34
回答数:
2
お礼:
25枚

違反報告

回答

1〜2件/2件中

並び替え:回答日時の
新しい順
|古い順

まーさんさん

2020/4/206:40:07

記事の記述は見ないで書いてみたのですが。
これでいけるのではないでしょうか。


Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Or Target = Range("A8") Then
If Target = "" Then
Target = "2020年月日"
End If
End If
End Sub

プロフィール画像

カテゴリマスター

tra********さん

2020/4/201:25:39

こんなんですかね?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngs As Range, rng As Range
Set rngs = Intersect(Range("A1,A8"), Target)
If rngs Is Nothing Then Exit Sub
For Each rng In rngs
If IsEmpty(rng.Value) Then
Application.EnableEvents = False
rng.Value = "2020年月日"
Application.EnableEvents = True
End If
Next rng
End Sub


該当シートのシートモジュールに記述するのはお解りですよね?

  • tra********さん

    2020/4/614:32:51

    >4/6を編集して[Del]キーを押すと / だけが残す
    >記号固定のVBAも使いたいか教えて下さい。
    何をしたいのか意味が良く解らないです。

    2020年月日と残すのではなく、 /を残したいのであれば、
    ↓の変更ですかね?

    Application.EnableEvents = False
    rng.Value = "2020年月日"
    Application.EnableEvents = True



    Application.EnableEvents = False
    rng.Value = "/"
    Application.EnableEvents = True

  • その他の返信を表示

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

  • 取り消す
  • キャンセル

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

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

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

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

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

閉じる

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

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

閉じる