セルに最初からある文字列を表示させておいて、そのセルを選択したら、その文字列の後から3桁数字を入力できるようにしたい

Question

タイトルが長くてすみませんm(_ _)m
エクセル（９７）に関しての質問です。

例えば、セルの中に最初から「15-G」という文字列を
表示させておいて、（ダブルクリックして編集という
形じゃなくて）そのセルを選択しただけで、
その文字列の後から3桁の数字を入力できるように
したいのですがいい方法はないでしょうか？

他にやってみた方法で、ユーザー定義（私が考えた定義→「"15-G"@」）でセルに3桁の数字（例えば567）を入力しますと、「15-G567」というように表示させる事が出来たのですが、何も入力されてない時は当たり前ですが空白のままです。
出来れば、最初から「セルの中の始めに15-Gという文字列を」表示させておきたいのですが…

diashun · Accepted Answer

diashun です。
諦めずに挑戦するお気持ち、敬意を払います。
さて、エラー箇所を特定するためにデバッグモードでVBAを動かしてみましょう。
１．「Sheet1」のVBE編集画面を開いてください。
「Private Sub CommandButton1_Click()」の行とプロジェクトツリーの境界で右クリックしてください。
これでその境界部分に茶色の●が表示され、「Private Sub CommandButton1_Click()」の行も茶色の帯がつきましたか？
これは「ブレークポイント」といい、プログラムの実行を任意に中断する場合に指定します。
２．Excelの「Sheet1」に戻り、「CommandButton1」をクリックします。（この時、コントロールツールボックスのデザインモードを終了しておいてください）
３．VBEの[Sheet1」のブレークポイントのところで黄色い帯が表示されてプログラムの実行が中断されていますか？
ここまで「OK」でしょうか？
４．次の行からプログラムの実行を継続させます。
「F8」キーを一回押してください。
黄色い帯が次行（Set_String1）へ移動しましたか？
さらに「F8」キーを押すと「Module1」の「Set_String1」プロシージャVBE画面へ遷移するはずですが、ここまで「OK」ですか？
５．「F8」キーを一回ずつ押して一行ずつ実行してください。
エラー箇所があれば何らかのエラーダイアログとメッセージが表示されるはずです。その時「終了する」と「デバッグする」のボタンも表示されるので「デバッグする」のボタンを押すと、エラー行の場所が黄色い帯で表示されますので、その行内容とエラー表示メッセージの文言をお知らせ下さい。

>「Module1」の所が紺色に反転しています・・・は関係ないと思います。

ただ念のため「ThisWorbook」「Sheet1」「Module1」のVBEが下記の通り間違いないか、再確認もしておいてください。
●「ThisWorbook」のコード
Option Explicit

Private Sub Workbook_Open()
    Dim strDefAry() As String
    Dim i As Integer
    ReDim strDefAry(0 To 9) As String     '仮に10種類の文字列（ランダムな文字）を登録します。
    
    strDefAry(0) = "15-G"
    strDefAry(1) = "11-A"
    strDefAry(2) = "15-V"
    strDefAry(3) = "10-H"
    strDefAry(4) = "11-R"
    strDefAry(5) = "13-Y"
    strDefAry(6) = "19-X"
    strDefAry(7) = "00-D"
    strDefAry(8) = "01-W"
    strDefAry(9) = "15-K"
    
    For i = 0 To 9
        Sheet1.ListBox1.AddItem strDefAry(i)
    Next i
    
    Sheet1.ListBox1.Visible = True
    ThisWorkbook.Sheets(1).Activate

End Sub

●「Sheet1」のコード
Option Explicit

Private Sub CommandButton1_Click()
Set_String1
End Sub

●「Module1」のコード
Option Explicit

Public Sub Set_String1()
    Dim strCell As String, lngRowNum As Long, strDefStr As String
    Dim i As Integer
    
    strCell = InputBox("入力する列を「A,B,C,・・・」と入力して下さい。", "列入力")
    strDefStr = Sheets(1).ListBox1.Text
    lngRowNum = ActiveCell.Row
    Call Set_String2(strCell, strDefStr, lngRowNum)
End Sub

Public Sub Set_String2(strCell As String, strDefStr As String, lngRowNum As Long)
    Dim i As Integer
    
    Range(Cells(lngRowNum, strCell), Cells(lngRowNum, strCell)).Activate
    Range(Cells(lngRowNum, strCell), Cells(lngRowNum, strCell)) = strDefStr
End Sub

あと、Excelの「Sheet1」に「CommandButton1」と「ListBox1」は貼り付けられていますね？
以上、またご連絡をお待ちします。
でも、お忙しいならいつでもいいですよ。
気長にお付き合いしますので、(^_^)

diashun · Answer

またまた＃４ diashunです。
補足拝見しました。
まず、以下のを確認します。
「Sheet1」に「CommandButton1」と「Listbox1」の貼り付けは出来ましたか？
「Private Sub CommandButton1_Click()」に黄色い網掛けがあるということはいわゆる「デバッグエラー」で、「CommandButton1」がまだ「Sheet1」に存在していない可能性を示しています。
「CommandButton1」の貼り付けは以下の手順で出来ます。
Excelのメニューバーの「表示」→「ツールバー」をポイントし、「コントロールツールボックス」をチェックします。コントロールツールボックスのいろんなアイコンの上にマウスを持ってゆくと「コマンドボタン」があり、それをクリックするとマウスアイコンが「＋」の形になるので、「Sheet1」の適当な位置でクリック、ドラッグすると「コマンドボタン」（CommandButton1）が描画されます。同じように、「リストボックス」も貼り付けてください。
>>strCell = InputBox("入力する列を「A,B,C,・・・」と入力して下さい。", "列入力")

↑これは、とりあえず私はA列に入力するということにしましたので
「strCell = InputBox("A", "A")」ということで、
両方とも「""」の中に「A」を入力しましたけどよかったでしょうか？>>
ここのところは「原文どおり- strCell = InputBox("入力する列を「A,B,C,・・・」と入力して下さい。", "列入力") -
」とし変更しないで下さい。
つまり、このVBAコードで「インプットボックス」ダイアログを表示し、自動入力指定列（A、Bなど）を入力する部分です。
ここまできたらとことんお付き合いしますので、補足で不明な点をお知らせ下さい。
ただ、僅かのセル入力でしたらここまでする手間が必要なのかなと疑問にも思いますが、・・・
ま、VBAを学んでいただくには少しは参考になるかも・・・ということで宜しくお願い致します。

imogasi · Answer

＃３です。
＞リストボックスの中の１５Bをクリック。
１１３と入れたセルが、１５B113になる。の部分がよくわからなかったのです・
リストボックスを貼りつけて、ListFillRangeを入力し
たあと、デザインモードを脱しないといけません。
VBE画面の「実行」をクリックしたとき、出てくる鉛筆と定規のアイコンをクリックし、リストボックスを貼りつけたシートに戻り、目的のセルに１１３と入力し、リストボックスの１５Bをクリックします。（改行後下セルへ移動にしておくこと。）

diashun · Answer

またまた＃４ diashunです。

ListBoxでなくこのケースは「ComboBox」でした。
でも、コード中、「ComboBox1」を「ListBox1」に置き換えれば同じことですが・・・

diashun · Answer

＃４ diashunです。
記述漏れ↓
VBEの「ThisWorkbook」に以下をコピーしてください。

Option Explicit

Private Sub Workbook_Open()
    Dim strDefAry() As String
    Dim i As Integer
    ReDim strDefAry(0 To 9) As String     '仮に10種類の文字列（ランダムな文字）を登録します。
    
    strDefAry(0) = "15-G"
    strDefAry(1) = "11-A"
    strDefAry(2) = "15-V"
    strDefAry(3) = "10-H"
    strDefAry(4) = "11-R"
    strDefAry(5) = "13-Y"
    strDefAry(6) = "19-X"
    strDefAry(7) = "00-D"
    strDefAry(8) = "01-W"
    strDefAry(9) = "15-K"
    
    For i = 0 To 9
        Sheet1.ComboBox1.AddItem strDefAry(i)
    Next i
    
    Sheet1.ComboBox1.Visible = True
    ThisWorkbook.Sheets(1).Activate

End Sub

diashun · Answer

＃４ diashun です。
VBAをご理解いただけるとして、こういう方法もありますということを・・・
Sheet1にVBAコントロールボックスのCommandButton1」と「ListBox1」を任意の位置に貼り付けます。
Module1を追加して、以下のコードをVBEにコピペしてください。
「Sheet1」↓
Option Explicit

Private Sub CommandButton1_Click()
    Set_String1
End Sub

「Module1」
Option Explicit

Public Sub Set_String1()
    Dim strCell As String, lngRowNum As Long, strDefStr As String
    Dim i As Integer
    
    strCell = InputBox("入力する列を「A,B,C,・・・」と入力して下さい。", "列入力")
    strDefStr = Sheets(1).ComboBox1.Text
    lngRowNum = ActiveCell.Row
    Call Set_String2(strCell, strDefStr, lngRowNum)
    strDefStr = Sheets(1).ComboBox1.Text
End Sub

Public Sub Set_String2(strCell As String, strDefStr As String, lngRowNum As Long)
    Dim i As Integer
    
    Range(Cells(lngRowNum, strCell), Cells(lngRowNum, strCell)).Activate
    Range(Cells(lngRowNum, strCell), Cells(lngRowNum, strCell)) = strDefStr
End Sub

上記作業が終わったら、Bookを一度保存して終了してください。
再度Bookを開くと、ListBox1とCommandButton1が表示された「Sheet1」が表示されるはずです。
次に、文字列を自動表示したい行をどれかクリックします。さらにListBox1をクリックして「表示したい文字列」をクリックし「CommandButton1」をクリックすると、選んだ文字列がを入力したい列を指定する画面が表示されるので、ここで列記号（例：A,D,F等）を入力し「OK」ボタンを押すと、選択行の指定列にLisutBoxで指定した文字列が表示されるので、後、「F2」を押してセルの編集モードにして入力します。
以上で完了です。

diashun · Answer

「Sheet1」で作業することを前提として、
VBAを使いますが、VBEを起動し「Sheet1」のVBEエディタに以下のコードを入力してください。↓

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Value = "15-G"
End Sub

これで「Sheet1」の任意のセルを選択したときに自動で「15-G」の文字列が入力されます。
後は「F2」キーを押せば、選択セルの最後の文字列にキャレットが点滅して入力待ち状態になります。
「noitigo」さんの目的にかなうかどうかわかりませんが・・・
こういうのではだめでしょうか？
判りにくければ補足にてご連絡下さい。

imogasi · Answer

＞セルの中に最初から「15-G」という文字列を
表示させておいて
１５Gはセルに入力済みですか。
入力済みであれば、そう見えているし、同じ値１５Gを
各セルに入力するのは簡単です。
入力済みで無いが、１５Gを出すのは、（１）書式－ユーザー定義か（２）VBAを使うしかありません。
この１５Gに当たる値は、１５Gのほかにも沢山種類が有るのではないですか。その場合は書式では対応できません。
リストボックスに
１５G
１７B
２３D
・・・
とかを出して、１５Gをクリックすると１５G113とセルにセットする方法を述べます。
空きのE1:E3に
１５G
１７B
２３D
と入れる。
リストボックスをシートに貼りつけ
プロパテイのListFillRangeをE1:E3
リストボックスをダブルクリック
VBE画面に下記を貼りつけ。
Private Sub ListBox1_Click()
ActiveCell.Offset(-1, 0).Activate
ActiveCell = ListBox1.List(ListBox1.ListIndex) & ActiveCell
End Sub
あるセルに１１３と入力しEnter。
リストボックスの中の１５Bをクリック。
１１３と入れたセルが、１５B113になる。

esprei · Answer

たとえばこんな方法があります。
ユーザー定義で「"15-G"#」と入力しておきます。
（＠ではなく＃です）
そしてセルには0を入力しておきます。
＃だと0は表示されません。
しかし入力はされているので、15-Gは表示されます。
0が入力されていても、次にそのセルに数字を入力する時に上書きされるので0は勝手に消えてくれます。

kinokoyasan2004 · Answer

アドバイスとしてですが、表示させたいセルすべてに" "（空白）を入力しておいてはいかがでしょうか。

セルに最初からある文字列を表示させておいて、そのセルを選択したら、その文字列の後から3桁数字を入力できるようにしたい

diashun です。

またまた＃４ diashunです。

＃３です。

またまた＃４ diashunです。

この回答への補足

＃４ diashunです。

＃４ diashun です。

「Sheet1」で作業することを前提として、

＞セルの中に最初から「15-G」という文字列を

この回答への補足

たとえばこんな方法があります。

アドバイスとしてですが、表示させたいセルすべてに" "（空白）を入力しておいてはいかがでしょうか。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング