[[20160425132106]] 『オーダーフォームで計算する計算フォームの作成』(リュウ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『オーダーフォームで計算する計算フォームの作成』(リュウ)

マクロのオーダーフォームを作りたいのですが
日付と品種を特定の範囲まで合計の数字を出したいです。
オーダーフォームで形はできたのですが、どういうプログラムを組めばいいのかが全くわかりません。
VB初心者でまったくわかりません。

写真を載せれるといいのですが、、、
よろしくお願いします。

日付が打たれている場所は、B4〜B34 このセル内でランダムで日付が書かれます。
品種が打たれている場所はC4〜C34  このセル内でランダムで品種が書かれます。
品種の数が打たれている場所は場所はD4〜D34このセル内でランダムで数が書かれます。

Private Sub ComboBox1_Change()
”シートでわけられている1〜2月の選択
始まりの月
コンボボックスで選択
End Sub

Private Sub ComboBox2_Change()

シートごとに、1〜30日が入力されてます。
1〜30日までの選択 30日は固定して1〜選択した範囲を反映
例 15日と入力した場合 15〜30日選択

セルはB4〜B34です。
こちらは始まりの日
コンボボックスで選択
コンボボックスで1〜30と表示が無理なら 入力式でもOKです。
下記 同上
End Sub

Private Sub ComboBox3_Change()

”シートでわけられている1〜2月の選択
終わりの月
コンボボックスで選択
End Sub

Private Sub ComboBox4_Change()

シートごとに、1〜30日が入力されてます。
1〜30日までの選択 1日は固定して1〜選択した範囲を反映
例 15日と入力した場合 1〜15日選択
セルはB4〜B34です。
終わりの日
コンボボックスで選択
End Sub

Private Sub ComboBox5_Change()

上記の何月何日〜何月何日に指定された範囲から
コンボボックスに表示されてる特定の文字を選択する。
特定の文字 = 品種です。

その特定の文字が書かれてる範囲は
H4〜H37です。
なお検索する範囲は
C4〜C34
品種の数が入力されている場所は
D4〜D34

コンボボックスで選択

=IF(A4="","",VLOOKUP(A4,$G$4:$H$27,2,FALSE))
このようにつくってあるので
H4〜H27に品種名が書かれてて、G4〜G27に数値が振ってあり、それをA4〜A34に数値を打つと
C4〜C34に表示してあるからです。

End Sub

Private Sub CommandButton1_Click()

上記の処理を下にリストボックスがあるので、リストに保存する
リストに入れたあと上記処理を削除
複数入れたい場合があるので

End Sub

Private Sub ListBox1_Click()

選択されたリストの表示 (保存)
表示の仕方は品種名のみでOK
End Sub
Private Sub CommandButton3_Click()

間違えてリストに追加した場合
リストボックスから選択して 削除できるようにする。
End Sub

Private Sub OptionButton1_Click()
ALL 品種指定しない場合 すべて選択されるようにする。
なお上記の何月何日〜何月何日に指定された範囲は反映する

End Sub

Private Sub CommandButton2_Click()

リストに入ってる品種名をすべて合計する。 (数値です)

End Sub

Private Sub TextBox1_Change()
合計の数値を表示
End Sub

かなり大変そうですが、よろしくお願いします。

< 使用 Excel:Excel2013、使用 OS:Windows7 >


 Q&Aサロンとマルチポスト
(マルチーズ) 2016/04/25(月) 13:37

よく考えたわけではありませんが、マクロ(ユーザーフォーム)を使わなくても
オートフィルターだけでもよいのでは?

(マナ) 2016/04/26(火) 22:34


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.