|
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")の2行目、4行目にあたります。
これをsheet("2")に代入し、列がsheet("1")と異なるので列も移動しなければなりません。
工事名と残金はとりあえず今の段階では考えません。
さらに11月の番号2の信用金庫ですとか
全月の当座預金など、3つのコンボボックスのうち1個もしくは2個もしくは3個の条件を指定する場合があります。
以下フォームの記述です
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
長文になってしまいましたが、よろしくお願いいたします。
|
|