Excel VBA質問箱 IV

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

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


35366 / 76732 ←次へ | 前へ→

【46566】Re:ユーザーフォームに入力されたデータを特定のシートの特定のセルに転記するには
発言  かみちゃん  - 07/2/6(火) 21:20 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> 登録ボタン(cmd_Click)をクリックすると同時に4.から8.までのデータが8行
> 以降1行ずつ追加されるという形で仕入品管理表に転記されるようにしたい

登録ボタンがCommandButton1
仕入品管理表がSheet1
とした場合、以下のようなコードをUserFormモジュールに記述することでできると思います。

ただし、以下のように7行目には、タイトルを記述しておいてください。
特に、A7セルの値は、重要です。最終行を決めているポイントになっています。
   A    B  C  D   E   F    G
6
7 科目番号     取引先 商品名 数量 仕入金額
8

Private Sub CommandButton1_Click()
 With Sheets("Sheet1")
  .Range("A3").Value = Me.ComboBox1.Value
  .Range("D3").Value = Me.TextBox2.Value
  .Range("E3").Value = Me.TextBox3.Value
  With Cells(Rows.Count, 1).End(xlUp).Offset(1)
   .Value = Me.ComboBox2.Value
   .Offset(, 3).Resize(, 4).Value = _
    Array(Me.TextBox4.Value, _
       Me.TextBox5.Value, _
       Me.TextBox6.Value, _
       Me.TextBox7.Value)
  End With
 End With
End Sub

0 hits

【46548】ユーザーフォームに入力されたデータを特定のシートの特定のセルに転記する... 白髪男 07/2/6(火) 14:26 質問
【46566】Re:ユーザーフォームに入力されたデータを... かみちゃん 07/2/6(火) 21:20 発言
【46579】Re:ユーザーフォームに入力されたデータを... 白髪男 07/2/7(水) 10:55 質問
【46580】Re:ユーザーフォームに入力されたデータを... かみちゃん 07/2/7(水) 13:00 発言
【46585】Re:ユーザーフォームに入力されたデータを... 白髪男 07/2/7(水) 14:43 質問
【46591】Re:ユーザーフォームに入力されたデータを... かみちゃん 07/2/7(水) 16:12 発言
【46592】Re:ユーザーフォームに入力されたデータを... 白髪男 07/2/7(水) 16:39 お礼

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