Excel VBA質問箱 IV

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

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


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

22487 / 76734

←次へ　｜　前へ→


	【59627】ソートしたデータの出力

初心者えっじ - 08/12/26(金) 14:50 -


	引用なし

	パスワード

初めて投稿するので不備等ありましたらご指摘ください。
早速ですがご質問致します。

【環境】
WindowsXP Pro
Excel 2000

【内容】sheet1
1.A4～F4まで一意な担当者の名前が入っています。
2.H2は入力規則のリストでA4～F4の担当者の名前が選択できるようにしてあります
3.1.(担当者名)の下のセルには○を記入します。
4.H4～S4まで項目があります。
※項目内容は、会社名、フリガナ、担当者名、フリガナ2、住所、等になります。

【結果】
例えば、A4のAさんの担当している会社が全件中１００件だとします。
　　　　B4のBさんの担当している会社が全件中２００件だとします。
　　　　・
　　　　・
　　　　・
　　　　F4のFさんの担当している会社が全件中６００件だとします。
H2のリストからAさんを選び、Aさんの○が記入してある会社だけをオートフィルターより表示させます。

If Range("H2").Value = "Aさん" Then
'==================ソート========================
　　Selection.AutoFilter Field:=5, Criteria1:="○"
　　Selection.AutoFilter Field:=1, Criteria1:="="
　　Selection.AutoFilter Field:=2, Criteria1:="="
　　Selection.AutoFilter Field:=3, Criteria1:="="
　　Selection.AutoFilter Field:=4, Criteria1:="="
　　Selection.AutoFilter Field:=6, Criteria1:="="
Else
End If

表示された項目を含む内容を別シートに転機したいのです→H4:S*
※A4:F*までの部分は除外。
その際にシート名をH2で選択した担当者名にしたいのです。
この場合Aさんになります。

Aさんの担当している会社等は変動するので、毎度１００件と言う訳ではなく
上下します。

ご教示の程宜しくお願いします。

1 hits

▼

【59627】ソートしたデータの出力 初心者えっじ 08/12/26(金) 14:50

≪