| |
▼かみちゃん さん：
かみちゃん、おはようございます。白髪男です。
下記のコードの通りに記述してみましたら、拍子抜けしたほどうまくいきました（笑）。そして、物凄く感動しました。
コードが15行しか書かれていないのに動作するなんてと不思議に思いました。
VBAに関してはずぶ素人ですからね。
すばらしいコードをお示しいただきまして本当にありがとうございました。
m(_ _)m
初歩的なことで申し訳ありませんが、恥を忍んで質問させていただきます。
ComboBoxのリストを表示させようとしたのですが、うまくいきませんでした。
コードの書き方がわからなくて・・・。
ユーザーフォームのComboBox１のリストにA,Bと表示されるようにしたいのですが、どうしたらよいかご教示いただけますでしょうか。
>> 登録ボタン（cmd_Click）をクリックすると同時に4.から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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
