Excel VBA質問箱 IV

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

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


51571 / 76732 ←次へ | 前へ→

【30024】AdvancedFilter の使い方
質問  琴葉  - 05/10/18(火) 15:06 -

引用なし
パスワード
   ユーザーフォーム上のCombo科目.Textを含んだレコードを抽出したいのですが
うまくできません。

Sheets("2")をアクティブにして作業しています。(貼り付け先)

Private Sub CommandButton1_Click()

  Sheets("【仕訳帳】").Range("A2:G65536").AdvancedFilter Action:=xlFilterCopy, _
  criteriarange:=Combo科目.Text, CopyToRange:=Range("A2:G2"), Unique:=False
  
End Sub

---------------------------------------------------------------------------

 次の作業としてCombo科目.Textが 「現金」 と記入した場合、Sheets("2")のような表示にしようと考えています。
 これですと1列目の項目とデーターがA列、B列以外はあっていません。

Sheets("【仕訳帳】")コピー元データ
  A    B    C     D   E    F     G
1 日付 工事番号 借方金額 借方科目 摘要 貸方金額 貸方科目  
2 10/18  1   1000   現金   @  売上   1000
3 10/18  2    300   預金   @  現金   300
4 10/19  3   3000   売上   @  預金   3000
5 10-19  4   5000   現金   @  預金   5000  

Sheets("2")コピー先データ
  A    B    C     D   E    F   G    H    I
1 日付 工事番号 工事名 相手科目 摘要  科目 借方金額 貸方金額  残金
2 10/18  1   1000   現金   @  売上  1000
3 10/18  2    300   預金   @  現金  300
4 10-19  4   5000   現金   @  預金  5000  
5

上表を下表のようにするには、どうしたらよろしいでしょうか
何日かやっていますが全然解決しません、よろしくお願いいたします。


  A    B    C     D   E    F   G    H    I
1 日付 工事番号 工事名 相手科目 摘要  科目 借方金額 貸方金額  残金
2 10/18  1   1000   売上  @   現金   1000   0   1000
3 10/18  2    300   預金   @  現金    0   300   700
4 10-19  4   5000   預金   @  現金   5000   0   5700
5
2 hits

【30024】AdvancedFilter の使い方 琴葉 05/10/18(火) 15:06 質問
【30027】Re:AdvancedFilter の使い方 Kein 05/10/18(火) 16:06 回答
【30029】Re:AdvancedFilter の使い方 琴葉 05/10/18(火) 16:54 質問
【30038】Re:AdvancedFilter の使い方 Kein 05/10/18(火) 18:04 発言
【30124】Re:AdvancedFilter の使い方 琴葉 05/10/20(木) 9:36 質問
【30136】Re:AdvancedFilter の使い方 琴葉 05/10/20(木) 14:47 お礼

51571 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free