[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『コードノ自動入力』(秋の気配)
マクロが記録程度の初心者です。
範囲が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
ま様そうですよね。
おかげ様でできましたので
感謝しております。
( 秋の気配) 2021/09/21(火) 11:49
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.