Excel VBA質問箱 IV

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

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


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

51718 / 76732

←次へ　｜　前へ→


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

琴葉 - 05/10/15(土) 11:58 -


	引用なし

	パスワード

▼琴葉さん：
>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　　　　 H
>日付　番号　工事名　科　目　摘要　借方金額　貸方金額　残金

A　　 B　　 C　　　　D　　　 E　　　F　　　　　G　　　　 H　　　　　I
日付　番号　工事名　相手科目科　目　摘要　借方金額　貸方金額　残金
相手科目が抜けていました。

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

sheet("2")
A　　　　　　B　　 C　　　　D　　　 E　　　F　　　　　G　　　　 H　　　　　I
日付　　　　　番号　工事名　相手科目科　目　摘要　借方金額　貸方金額　残金
2005/10/14　 1　　　　　 **信用金庫　現金　　@　　　　100000　
2005/10/14　 2　　　　　　当座預金　現金　　@　　　　　　　　12000　
上記のように表示したいです。

>工事名と残金はとりあえず今の段階では考えません。
>
>さらに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　
>　　　
>長文になってしまいましたが、よろしくお願いいたします。

1 hits

▼

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