[[20210921110812]] 『コードノ自動入力』(秋の気配) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『コードノ自動入力』(秋の気配)

 マクロが記録程度の初心者です。

 範囲がF3:F20000にコード番号及び文字がはいります。
 F3に「1」を入力したら
 F3に「A1200100」と表示させたい。
 F3に「2」を入力したら
 F3に「A1200200」と表示させたい。
 F3に「3」を入力したら
 F3に「A1200300」と表示させたい。
 同様に
 4→A1200400 5→A1200500 6→A1200600 7→A1200700
 8→A1200800 9→A1200900 10→A1201000 11→A1201100

 それ以外の数字及び文字が入ったら
 メッセージボックスで「該当コード無し・文字入力をしますか」を表示しま す。
 「OK」を押して文字を入力します。
 文字は「保留中」などになります。

 宜しくお願いいたします。

< 使用 Excel:Excel2013、使用 OS:Windows10 >


 シートモジュールに下記をコピーしてみてください。
 想定外の入力があった場合のところは、そちらで適宜修正してください。

 Option Explicit

 Private Sub Worksheet_Change(ByVal Target As Range)
     Dim myRange As Range
     Dim e As Range

     Set myRange = Range("F3:F20000")
     If Intersect(myRange, Target) Is Nothing Then Exit Sub

     Application.EnableEvents = False
     For Each e In Intersect(myRange, Target)
         If e.Value >= 1 And e.Value <= 11 Then
             e.Value = "A120" & Format(e.Value, "00") & "00"
         Else
             MsgBox "ここは適当に修正してください"
         End If
     Next
     Application.EnableEvents = True
 End Sub

 # オフコースの名曲ですかね。
(γ) 2021/09/21(火) 11:29

>範囲がF3:F20000にコード番号及び文字がはいります。
F3限定なのになぜ範囲が必要なの?
(ま) 2021/09/21(火) 11:42

γ様
早々たる回答ありがとうございました。
思い通りにできました。
オフコースの「秋の気配」イントロのアコースティックギターの音色が大好きです。年齢が(笑)

ま様そうですよね。
おかげ様でできましたので
感謝しております。

( 秋の気配) 2021/09/21(火) 11:49


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.