コンボボックスの値を違うシートの別のセルに貼り付けるには?

Question 059k Previous Next
389ページ [5-2-16図] ◆ 環境・・ Excel 2003 & Windows XP
詳細は こちら
コンボボックスの値を違うシートの別々のセルに貼り付けることが出来ないでしょうか?
先生の本の通りでほとんどいいのですが、その列の値を伝票に反映させたいのですが。
Answer   Copyright (C) 2007.5.3 永井善王
拙著「Excel VBA マクロ組み方講座」本をご購入いただき、ありがとうございます。
389ページの【5-2-16図】のマクロは、ユーザーフォームにあるコマンドボタンがクリックされたときに動作するイベントプロシージャで、下記のとおりです。
Private Sub CommandButton1_Click()              '受注ボタンがクリックされた
    TEL = ComboBox1.Value                       'コンボボックスの値を取得する
    氏名 = TextBox1.Value
    住所 = TextBox2.Value
    日時 = Label6.Caption
    品名 = ListBox1.Value
    If TEL <> "" And 氏名 <> "" And 住所 <> "" And 品名 <> "" Then
                                                '全て入力されていれば
        Cells(行 + 2, 2) = TEL                  'DBシートにTELをセットする
        Cells(行 + 2, 3) = 氏名
        Cells(行 + 2, 4) = 住所
        Cells(行 + 2, 5) = 日時
        Cells(行 + 2, 6) = 品名
        Cells(行 + 2, 1) = ""                   '削除マークをクリアする
        If 新旧区分 = "新" Then                  '新規客なら
            Range("A1").Sort Key1:=Columns("B"), Header:=xlGuess
                                                'TEL番号順に並べ替える
        End If
        リストをリセットする
    Else
        MsgBox "入力もれがあります、補充してください", , タイトル
    End If
End Sub
2行目のコード TEL = ComboBox1.Value で、コンボボックスの値を変数「TEL」に取得しています。
そして、8行目のコード
cells(行 + 2, 2) = TEL で、アクティブシートのセルに代入しています。

よって、あなたが言われる「違うシートの別々のセル」を、仮に、同じブックの「伝票」シートの A1セルとすると、
Worksheets("伝票").Range("A1").Value = TEL
のようなコードを追加すれば実現できると思います。 では、ガンバって! 結果をお知らせください。

参考ページ …
入力・選択時に動作するイベントマクロ
ありがとうございました
先生には、前回、請求書作成では、大変お世話になりました。会社で、毎日使い、重宝しております。
2年前に買った、先生の本をひっぱりだし、新たの挑戦をしていたとこです。
まだ、やりはじめたばかりですが、これを応用して、完成したいと思ってします。 先生の回答どうり入力してみて、出来ました。 ありがとうございました。

 

Excel VBA Macro