初めまして。ExcelのVBAをチャレンジしています。
初心者なので良くわからないため質問させて頂きました。
今、商品登録用のユーザーフォームを作成しています。
ユーザーフォームには
TextBox1=「商品No.」
TextBox2=「商品名」
TextBox3=「単価」
TextBox3=「仕入先」
CommandButton1=「登録」
CommandButton2=「終了」
があります。
「商品No.」,「商品名」,「単価」,「仕入先」を入力し、「登録」をクリックしたらExcelに横一列(参考1)に反映させ、入力・登録を繰り返し行い(商品が入ったら随時入力)下に追加していきたいのですが、どの様にすれば宜しいでしょうか?
<参考1>
A B C D
1 商品No. 商品名 単価 仕入先
2 001 ○○○ 10円 △△
3 ・ ・ ・ ・
4 ・ ・ ・ ・
5 ・ ・ ・ ・
No.2ベストアンサー
- 回答日時:
必要最低限のコードです。
実情に合わせて変更してください。
Private Sub CommandButton1_Click()
Dim i As Long
i = Range("A65536").End(xlUp).Row + 1
Range("A" & i) = Format(UserForm1.TextBox1.Value, "000")
Range("B" & i) = UserForm1.TextBox2.Value
Range("C" & i) = UserForm1.TextBox3.Value & "円"
Range("D" & i) = UserForm1.TextBox4.Value
End Sub
No.1
- 回答日時:
まず第一に原理的には下記になります。
Range("A2")=商品No
Range("B2")=商品名
Range("C2")=単価
Range("D2")=仕入先
1.Range("A1")の部分は動的に変わるので変数化した方が楽になります。
例えば下記のようにして
Cells(x,y)=商品No
xとyの値をその都度設定します。
2.Forなどのループ処理を入れるとコード的に美しくなります(修正も楽になります)。
3.常に最終行の次の行に入力するということになるので、最終行の取得を自動化することも必要です。
利用するのはUsedrangeやEnd(xlUp)になります。
参考
http://www.k1simplify.com/vba/tipsleaf/leaf23.html
最終的には上記内容をそれぞれ組み合わせて一本化します。
最初の部分以外は別に必須というわけでもないです。幾らでもやりようがあるので(例えば最終行はActiveCellのある行をそれとみなすとか、挿入する行はその都度ユーザーに選択させるとか)、泥臭い方法だけでも一応形にはなります。
正解が別にあるわけではないので、ヘルプや色々な参考サイトをまわって理解しやすいコードをコピペして、それを修正しながら作っていきましょう。
早速の回答有難うございました!
そうなんですよね、正解がある訳ではないので色々試してはみるのですが、なかなか上手くいかずいつも苦労しております。
参考サイトも教えてくださって有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 関数 vlookupなどの使い方について質問です。 シート1に品番、商品名、単価、発注条 6 2022/06/15 19:16
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- Visual Basic(VBA) EXCEL関数LOOKUPとFILTERについての質問です 1 2022/12/21 05:53
- Excel(エクセル) グループの最後の行に書式、計算式なども同じ行を追加するマクロを教えてもらえませんか。 7 2022/05/18 10:13
- その他(Microsoft Office) Excelで総数量を変動させたい 2 2022/11/04 23:49
- 知的財産権 【至急】商標登録の区分がわからず困っています。 3 2023/02/21 12:11
- 確定申告 税務調査でも認められる商品の購入者の範囲を教えてください。 5 2022/05/16 06:06
- 会計ソフト・業務用ソフト 弥生会計での簡単取引の登録方法を教えてください。 現金で商品の支払いをしました(私が立て替えて現金で 2 2022/04/29 14:40
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- 会計ソフト・業務用ソフト Excelで売上げデータの中の任意の商品の合計を出したい 3 2023/01/18 18:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスの番号を使っ...
-
教えて!全角文字「μ」の半角
-
エクセルVBA テキストボックス...
-
初歩的な事だと思います。 Sub...
-
数字以外の入力をエラーにする...
-
EXCEL VBA で指定した範囲に入...
-
VBAの質問になります メッセー...
-
入力フォームの値をQRコードで...
-
VBAでInputBoxの再入力をさせる...
-
Excel-VBAでInputBox+Pulldown...
-
Vba テキストボックスでボック...
-
アルファベットGの小文字の入力
-
TextBoxから数字が文字...
-
Windowsのアプリ開発ってなんの...
-
「イ分」・・・フンという文字...
-
TEXTAREA に入力時の位置
-
HTMLで入力値を半角大文字に制御
-
WebフォームのIMEモードを入力...
-
c#でTextBoxの入力制限
-
excel vba でユーザーフォーム...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
初歩的な事だと思います。 Sub...
-
数字以外の入力をエラーにする...
-
EXCEL VBA で指定した範囲に入...
-
Excel-VBAでInputBox+Pulldown...
-
入力フォームの値をQRコードで...
-
VBAの質問になります メッセー...
-
c#でTextBoxの入力制限
-
VBAで質問があります
-
教えて!全角文字「μ」の半角
-
VBAでInputBoxの再入力をさせる...
-
excel vba でユーザーフォーム...
-
TextBoxから数字が文字...
-
エディットボックスの入力制限...
-
accessで該当するレコードがな...
-
DataGridViewの桁数制限に関して
-
VBA R1C1形式で変数の入力について
-
「イ分」・・・フンという文字...
-
Windowsのアプリ開発ってなんの...
おすすめ情報