No.4ベストアンサー
- 回答日時:
こんばんは!
Sheet上にコマンドボタンを配置して、ユーザーフォームを表示させることはできるものとしています。
チェックボックスは必要ないような感じがするのですが、敢えて希望に近い形にしてみました。
一例です。
↓のようなSheetにユーフォームに入力したデータを
コマンドボタンの「登録」をクリックすれば順次表示するような感じにしてみました。
画像のラベル部の文字は、ユーザーフォーム作成時に設定する
テキストボックス・チャックボックスの「オブジェクト名」を表示しています。
そしてコマンドボタン(画像ではプロパティの「Caption」で「登録」としています)をフォーム内に配置し、それをクリックするとSheetの順次表示されるようにしてみました。
(オブジェクト名は「コマンド登録」にしています)
フォームのコマンドボタンをダブルクリックし、↓のコードをコピー&ペーストしてみてください。
Private Sub コマンド登録_Click()
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
With Selection
.Value = テキスト日付.Value
.NumberFormatLocal = "m/d"
If チェック1 = True Then
.Offset(, 1) = 生産A.Value
End If
If チェック2 = True Then
.Offset(, 2) = 生産B.Value
End If
If チェック3 = True Then
.Offset(, 3) = 出荷A.Value
End If
If チェック4 = True Then
.Offset(, 3) = 出荷B.Value
End If
End With
テキスト日付 = ""
チェック1 = False
生産A = ""
チェック2 = False
生産B = ""
チェック3 = False
出荷A = ""
チェック4 = False
出荷B = ""
テキスト日付.SetFocus
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
End Sub
こんな感じですかね?
参考になれば良いのですが・・・m(__)m
No.3
- 回答日時:
品名は 本当に2つ?これから増えることはないの?
私だったら
A B C D
日付 品名 生産数 出荷数
11/1 A 100
11/1 A 50
・・・とかデータが入るようにフォーム上のボタンにVBAで機能を持たせます。
つまりユーザーフォーム上には
Textbox で今日の日付が常に出ている。
Listbox で商品名が選択できる。
Listbox で出荷 或いは 生産 が選択できる。
Button を押せばデータの最後に 日付と商品名と 生産数或いは出荷数のどちらか
がデータとして記録される
ようなシートを機能を考えます。
No.1
- 回答日時:
こんばんは
補足要求です。
お力になれそうですが、ご質問の内容だけではどう回答して良いのか分からないので、状況をもう少し教えてください。
1.エクセルのバージョン(2003、2007など)
2.直接エクセルに入力するのではなく、ユーザーフォームを用意したいと思うのはなぜですか?
3.r21d21 はエクセルやエクセルマクロをどのくらい使うことが出来ますか?
この回答への補足
説明不足ですいません
エクセルのバージョンはXP(2002?)で エクセルのマクロは 全くと言って良いほど素人で 色々なHPを見ながら勉強しているところです。
UserForm1にツール(コントロール)を配置しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセス2003で7種類デー...
-
EXCEL VBAのユーザーフォームに...
-
アクセスで「モジュールがあり...
-
VC++のコンパイラ
-
エクセルVBAのユーザーフォーム...
-
全てのコマンドボタンの名前を...
-
「フォームを作成できませんで...
-
アクセスで数値型のフィールド...
-
passwordが入れられません・・・・
-
サブフォームに対してGoToRecor...
-
アクセスのレポートで同ページ...
-
YahooのIDがロックされてしまい...
-
iphoneのフルスクリーンの解除方法
-
Access レポート印刷するときに...
-
Accessレポートで質問です
-
アクセスの自動保存解除はでき...
-
レコードを保存するコード ア...
-
データベースのINT型項目にNULL...
-
フォームの高さを数値で指定し...
-
Accessで、フォームからフォー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA オプションボタ...
-
EXCEL VBAのユーザーフォームに...
-
アクセスで「モジュールがあり...
-
ACCESS フォームでの、データ...
-
ExcelVBAでセルをクリックして...
-
Accessでエラーメッセージの表...
-
JW-CADのAutoモードの解除はで...
-
AccessでExcelシートを印刷
-
標準モジュールだとエラーにな...
-
ACCESS カンマをスペースに置...
-
access の 閉じるボタンを無効...
-
ACCESS フォームで、ボタンの...
-
コマンドプロンプト使用時に「'...
-
エクセルVBAからアクセスフ...
-
コマンド入力ができなくなって...
-
ユーザーフォームのスクロール...
-
エクセルVBA ユーザーフォーム...
-
Notesでアンケートをとりたい
-
Access「レコードの移動」マク...
-
コマンドボタンに色を付けるこ...
おすすめ情報