Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


26162 / 76732 ←次へ | 前へ→

【55903】Re:選択複数セルのデータ取得
回答  おじさん46  - 08/5/22(木) 21:26 -

引用なし
パスワード
   わいわいさん
すぐ返事をくれたんですね。ありがとうございます。

私の説明が不十分の様です。
ご迷惑をかけました。もう一度書きます。

概要
注文伝票作成ファイルの作成を思っています。
フォーム上でテキストボックスに必要事項を入力して、
それをシート上に記録して、印刷も同時にと思っています。
ある程度データが溜まれば過去の記録をオートフィルターで探してセルを選択することで印刷して、シート上に記録できればと思っています。

Sheet1上は、
CommandButton1=ボタン   UserForm1を開くボタンです。
  B   C   D   E     F   G    H
9 連番 日付  品名  規格   数量 単価  金額  ※金額はセル内計算(=F*G)で。
10 1   080515 ペン  PE-A01  5   103.56 517.80
11 2   080517 付箋  F-U01-5 3   80.72 242.16
12
13

UserForm1上は、
CommandButton1=ボタン Sheet1の選択されたセルから各TextBoxへデータを収集するボタンです。
CommandButton2=ボタン UserForm1上の各TextBoxに表示されたデータを、
            ここでは空白のB12:H12に格納するボタンです。
TextBox1=テキストボックス  B列の連番の収集・格納用
TextBox2=テキストボックス  C列の日付の収集・格納用
TextBox3=テキストボックス  D列の品名の収集・格納用
TextBox4=テキストボックス  E列の規格の収集・格納用
TextBox5=テキストボックス  F列の数量の収集・格納用
TextBox6=テキストボックス  G列の単価の収集・格納用

あと、
CommandButton3=ボタン UserForm1上の各TextBoxに表示されたデータを、
            印刷するボタン。
を作る予定です。

しかし、私の知識では選択した1個のセルのデータを取得して表の一番下に記録することはまでしか出来なかったんです。

CommandButton1=ボタンで
Private Sub CommandButton1_Click()
 
  TextBox1.Value = Range(Selection.Address)

End Sub

CommandButton2=ボタンで
Private Sub CommandButton2_Click()

  Worksheets("sheet1").Activate
  
  With Range("B9").End(xlDown).Offset(1, 0)
    .Value = TextBox1.Value
  End With
  
End Sub

一個のセルを選択して、一個のテキストボックスに表示して、そのテキストボックスのデータしかシートのセルに書き出す事しか出来ませんでした。
これが複数セルになると、てんでわかりません。
ご指導をお願いします。
1 hits

【55757】選択複数セルのデータ取得 おじさん46 08/5/18(日) 17:22 質問
【55769】Re:選択複数セルのデータ取得 わいわい 08/5/19(月) 9:34 発言
【55837】Re:選択複数セルのデータ取得 おじさん46 08/5/20(火) 21:14 質問
【55838】Re:選択複数セルのデータ取得 わい 08/5/20(火) 21:27 発言
【55903】Re:選択複数セルのデータ取得 おじさん46 08/5/22(木) 21:26 回答
【55904】Re:選択複数セルのデータ取得 わいわい 08/5/23(金) 0:34 発言
【55921】Re:選択複数セルのデータ取得 わいわい 08/5/23(金) 15:04 発言
【55928】Re:選択複数セルのデータ取得 わいわい 08/5/23(金) 17:43 発言
【55929】Re:選択複数セルのデータ取得 おじさん46 08/5/23(金) 20:33 回答
【55948】Re:選択複数セルのデータ取得 おじさん46 08/5/25(日) 11:32 質問
【55958】Re:選択複数セルのデータ取得 わいわい 08/5/26(月) 9:52 発言
【55969】Re:選択複数セルのデータ取得 おじさん46 08/5/26(月) 23:04 発言
【55970】Re:選択複数セルのデータ取得 わいわい 08/5/27(火) 9:07 発言
【55977】Re:選択複数セルのデータ取得 おじさん46 08/5/27(火) 20:25 発言
【56032】Re:選択複数セルのデータ取得 おじさん46 08/5/29(木) 23:09 発言
【56041】Re:選択複数セルのデータ取得 Abebobo 08/5/30(金) 10:46 発言
【56044】Re:選択複数セルのデータ取得 neptune 08/5/30(金) 11:34 回答
【56047】Re:選択複数セルのデータ取得 Abebobo 08/5/30(金) 13:37 発言
【56057】Re:選択複数セルのデータ取得 おじさん46 08/5/30(金) 20:12 発言
【56062】Re:選択複数セルのデータ取得 おじさん46 08/5/31(土) 13:41 発言
【56074】Re:選択複数セルのデータ取得 neptune 08/5/31(土) 22:33 発言
【56081】Re:選択複数セルのデータ取得 おじさん46 08/6/1(日) 9:30 お礼
【55935】Re:選択複数セルのデータ取得 おじさん46 08/5/24(土) 12:34 発言
【55941】Re:選択複数セルのデータ取得 わいわい 08/5/24(土) 22:22 発言
【55942】Re:選択複数セルのデータ取得 neptune 08/5/24(土) 23:07 発言
【55945】Re:選択複数セルのデータ取得 おじさん46 08/5/25(日) 10:16 発言
【55947】Re:選択複数セルのデータ取得 わいわい 08/5/25(日) 11:05 発言
【56049】Re:選択複数セルのデータ取得 VBWASURETA 08/5/30(金) 14:10 発言

26162 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free