Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51770 / 76738

←次へ　｜　前へ→


	【29826】Re:コンボボックスから抽出

琴葉 - 05/10/14(金) 13:39 -


	引用なし

	パスワード

Jakaさんありがとうございます。
私のスキルでは理解できませんでした。

sheet("1")
A　　　　　　 B　　　　 C　　　　　 D　　　　　E　　　　　F　　　　　 G
日付　　　　　番号　　借方金額　　借方科目　　摘　　要　　貸方科目　　貸方金額
2005/10/14　　　1　　　100000　　　現金　　　　@　　　　**信用金庫　　100000
2005/10/14　　　1　　　 80000　当座預金　　　　@　　　　**信用金庫　　 80000
2005/10/14　　　2　　　 65000　当座預金　　　　@　　　　**信用金庫　　 65000
2005/10/14　　　2　　　 12000　当座預金　　　　@　　　　　　　現金　　 12000
2005/11/20　　　2　　　100000　当座預金　　　　@　　　　**信用金庫　　100000

sheet("2")
A　　 B　　 C　　　　D　　　 E　　　F　　　　　G　　　　 E
日付　番号　工事名　科　目　摘要　借方金額　貸方金額　残金

とあります。

これをユーザーフォーム上のCombo月、Combo番号、Combo科目があり、
たとえば10月の現金を抽出する場合、Combo月に10　Combo科目に現金と入力します。
この場合、sheet("1")の２行目、４行目にあたります。
これをsheet("2")に代入し、列がsheet("1")と異なるので列も移動しなければなりません。
工事名と残金はとりあえず今の段階では考えません。

さらに11月の番号2の信用金庫ですとか
全月の当座預金など、３つのコンボボックスのうち１個もしくは２個もしくは３個の条件を指定する場合があります。

以下フォームの記述です
Private Sub UserForm_Initialize()

　　Combo月.ColumnCount = 1
　　Combo月.AddItem "01"
　　Combo月.AddItem "02"
　　Combo月.AddItem "03"
　　Combo月.AddItem "04"
　　Combo月.AddItem "05"
　　Combo月.AddItem "06"
　　Combo月.AddItem "07"
　　Combo月.AddItem "08"
　　Combo月.AddItem "09"
　　Combo月.AddItem "10"
　　Combo月.AddItem "11"
　　Combo月.AddItem "12"
　　
　　
　　Combo工番.List = Sheets("【工番・科目リスト】").Range("A2:A100").Value
　　Combo科目.List = Sheets("【工番・科目リスト】").Range("D2:D100").Value
　　
End Sub　
　　　
長文になってしまいましたが、よろしくお願いいたします。

0 hits

▼

【29817】コンボボックスから抽出 琴葉 05/10/14(金) 10:48