Excel VBA質問箱 IV

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

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


35359 / 76738 ←次へ | 前へ→

【46579】Re:ユーザーフォームに入力されたデータを特定のシートの特定のセルに転記するには
質問  白髪男  - 07/2/7(水) 10:55 -

引用なし
パスワード
   ▼かみちゃん さん:

かみちゃん、おはようございます。白髪男です。
下記のコードの通りに記述してみましたら、拍子抜けしたほどうまくいきました(笑)。そして、物凄く感動しました。
コードが15行しか書かれていないのに動作するなんてと不思議に思いました。
VBAに関してはずぶ素人ですからね。
すばらしいコードをお示しいただきまして本当にありがとうございました。
m(_ _)m

初歩的なことで申し訳ありませんが、恥を忍んで質問させていただきます。
ComboBoxのリストを表示させようとしたのですが、うまくいきませんでした。
コードの書き方がわからなくて・・・。

ユーザーフォームのComboBox1のリストにA,Bと表示されるようにしたいのですが、どうしたらよいかご教示いただけますでしょうか。


>> 登録ボタン(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 お礼

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