[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『該当する期間の行を表示と並べ替え』（せ）
A B C
1＜田中＞ 9/10
2＜山口＞ 10/21 11/20
3＜桜井＞ 10/20 10/23
4＜遠藤＞ 9/18 10/31 11/5
行：顧客毎の約束日（約束が１回から３回目まで可能で、１回で終わる人もいれば、３回目まで約束する人もいる）
列:約束期日
上記のような「顧客との約束日一覧」シートがあり、
①10/20～10/24までに約束日がある人の名を表示させたい。（A,B,C行を含め名前の一行全てを抽出し表示させたい。
②①で抽出表示させたものを期日順に並べたい。
例えば、①の作業をすると２行目の山口と３行目の桜井が表示されますが、
山口→桜井の順に行を表示させるのではなく、２行のうち早い期日の10/20を含む
桜井から表示し、２行目に山口を表示させたい。
フィルタオプションの設定などを使用してみたりといろいろ考えていますが、
うまくいきません。
宜しくお願い致します。
おっ、このお屋敷誰も足踏み入れてえへんわ。 ピポットテーブル屋はんも集計表屋はんも、ほれにワイロで落札してふんぞり返っとっ 関数屋はんも顔見せてえへんがな。せいせいするわ、ほんま。
閑話休題。
ところで、（せ）さんＶＢＡは使うたことおまっか？まぁ、いっぺん試してみておくん
なはれ、キッとお気に召しまっせ、えぇ。
優先順位は約束日の１回目～２回目～３回目になっとります。ちょっと検証不足の懸念
は残っとりますけど、不都合な時は仰有っておくんなはれ。但し明日から夜しかお答え
でけまへんけど...。
（おいぼれ弥太郎）
'----------------------
Sub menkai()
Dim RowNo As Integer, i As Integer, t As Integer, n As Integer
Dim data As String
Dim data_a() As String
RowNo = Range("a1").End(xlDown).Row
Range("g1:k300").ClearContents
On Error GoTo imaoka
data = InputBox("いつから、いつまで取り出しまっか？" & Chr(13) _
& "ハイフン（－）で区切って入力して下さい。", "日付取りだし", " -")
data = StrConv(data, vbNarrow)
Cells(get_cell, 7) = data
data_a = Split(data, "-")
Range("h1") = DateValue(data_a(0))
Range("i1") = DateValue(data_a(1))
Range("h1:i1").NumberFormatLocal = "G/標準"
For n = 1 To [i1] - [h1] + 1
For t = 2 To 4
For i = 1 To RowNo
If Range("h1") > Range("i1") Then Exit For
If Cells(i, t).Value = Range("h1") And Cells(i, 5) <> True Then
get_row = get_cell
Cells(get_row, 7) = Cells(i, (t - 1)
Cells(get_row, 8) = Cells(i, t - (t - 2))
Cells(get_row, 9) = Cells(i, t - (t - 3))
Cells(get_row, 10) = Cells(i, t - (t - 4))
Range(Cells(get_row, 8), Cells(get_row, 10)).NumberFormatLocal = "m/d"
Cells(i, 5) = True
End If
Next i
Next t
Range("h1").Value = Range("h1").Value + 1
Next n
Range("e1:e2000").ClearContents
Range("h1:i1").ClearContents
Exit Sub
imaoka:
MsgBox "入力が間違ってます、始めからやり直して下さい。"
End Sub
'----------------------------
Function get_cell()
Dim i As Integer
i = 0
Do
i = i + 1
Loop While Cells(i, 7) <> ""
get_cell = i
End Function
↑
おー、みすてーく
本日残業、訂正作業。
（おいぼれ 弥太郎）
こちらは、ややこしいマクロを一切使わない方法です。また、大阪弁は 使っていません。
ぼくの考えでは、データの構成を少し変え、次のようにした方がいいような気がします。
A B C D E
氏名 相談日 作業列 日程 重複
1 山口 10/21 式１ 式２ 式３ 1 山口 11/20 2 田中 9/20 3 桜井 10/20 3 桜井 10/23 4 遠藤 10/31 4 遠藤 11/5
作業列という列は非表示にしておいた方が目障りでなくいいと思います。 この列は式があるだけで、見る必要はないのです。
式１、式２、式３は下までコピーします。数式は以下の通りです。
式１⇒=IF(A2=A3,TEXT(B2,"mm/dd") & " " & C3,TEXT(B2,"mm/dd")) 式２⇒=IF(A2=A1,C1,C2) 式３⇒=IF(A2=A1,"★","☆")
式を入れますと、日程のところは、例えば、09/18 10/31 11/05 .... という風に １セルにまとめて表示されます。このセルは幅を大きく取って下さい。しかし セルの中で折り返し表示するようにしても構いません。
相談日の列は、セルの書式を、日付で、「３月４日」とかの形がいいと思います。
全体を、氏名を第一キー、相談日を第二キーとして順番並べして下さい。
ここで、「ツール⇒オプション⇒計算方法タブ」で、計算を「手動」にして下さい。 「保存前に再計算」のチェックも外しておいた方がいいと思います。
全体をもう一度、今度は、日程のみをキーにして順番並べして下さい。
オートフィルターをかけてください。相談日をフィルターで選択して下さい。ご存知と思い ますが、オプションを使えば、何日から何日まで、という選択も自由にできます。なお、 ここでオプションといっているのは、フィルタオプションの設定というややこしい 方ではなくて、フィルターの、（オプション）と言うほうです。（フィルタオプション の設定でやって頂いても結構ですが）
フィルターの使い方で質問がありましたら、またご質問下さい。
このままだと、同じ人が複数行表示されていると思います。目障りなら、重複列を フィルターで、白星のみ選んでください。
ご注意：相談日のフィルターを設定しなおすときは、重複列のフィルターも、 いったん”すべて”にしないといけませんから、ご注意下さい。相談日のフィルターは 何度でも、どのようにでも、変えて見ることができます。
自動計算モードに戻すには、「ツール⇒オプション⇒計算方法タブ」で計算方法 自動にチェックを入れて下さい。
データの入力は、どうせ処理時に順番並べする訳ですから、順不同で入れて結構です。
手動計算モードにする前に、氏名と相談日をキーに順番ならべをし、手動計算に してから、もう一度今度は相談日のみをキーにして再度順番並べするので、 ご注意下さい。
なおもし、この方法を実際にお使いになる場合は、お手持ちのデータを当表方式 に一括変換する方法はまたご相談にのりますから、ご質問下さい。（通りすがりの者）
あんれ？一日見いへん間に入札希望業者が一社増えましたなぁ。 無謀な業者はんはどなたはんかと思たら、なんと、「通りすがりの者」さん。
>こちらは、ややこしい 大阪弁は 使っていません。 何言うてまんねん「すが」やん。私の大阪弁は、万国共通の標準的大阪弁でっせ。（ど な標準や） それにしても、今回のレスはいつもの書き殴りと違うてエラいちまちまとこぎれいな文 字で正装してはりまっしゃんか。最終行なんか、今までついぞ見た事無いような優しい 言葉遣いでんがな。 はは～ん、さては（せ）さんが女性の方やと見立ててまんのやな、うん。(~~) まぁ、この勝負、ワイロ無しでいきまひょでぇ。 ほな....（おいぼれ弥太郎）
どうしちゃったんだいこの子は。 世間の荒波に揉まれ過ぎて、ひねくれちゃったかしら。
それじゃ、私は関数とExcelの基本機能でいただきまひょ。
A B C D E F G H I J
1 抽出 10/20 10/23
2
3 No. 氏名 A B C 判定 抽出 列番号 ソート
4 1 田中 9/10
5 2 山口 10/21 11/20
6 3 桜井 10/20 10/23
7 4 遠藤 9/18 10/31 11/5
8 5
9 6
表示形式は適当に設定してください。
F4に
{=SUM(IF($C4:$E4>=$B$1,IF($C4:$E4<=$C$1,1,0),0))>0}
G4に =IF(ISNA(HLOOKUP($B$1,$C4:$E4,1,TRUE)),$C4,HLOOKUP($B$1,$C4:$E4,1,TRUE))
H4に =IF($G4>=$B$1,MATCH($G4,$C4:$E4,0),MATCH($G4,$C4:$E4,0)+1)
I4に =IF($F4=TRUE,INDEX($C4:$E4,1,$H4),"")
それを適当に下の行へフィル。
できたら、[データ]-[フィルタ]-[オートフィルタ]より、 ソートの列で空白以外として、昇順でソートして完了です。
A B C D E F G H I J
1 抽出 10/20 10/23
2
3 No. 氏名 A B C 判定 抽出 列番号 ソート▼
5 3 桜井 10/20 10/23 TRUE 10/20 1 10/20
6 2 山口 10/21 11/20 TRUE 10/21 1 10/21
8 5
9 6
F～I列を表示と非表示にした状態で、ユーザー設定ビューに設定しておくと、 印刷とかのときに便利です。
A B C D E J
1 抽出 10/20 10/23
2
3 No. 氏名 A B C
5 3 桜井 10/20 10/23
6 2 山口 10/21 11/20
8 5
9 6
別件ですけど、Excel2002って[ツール]-[音声]-[読み上げツールバー]って あるやつ。 弥太郎さんのコメントを読み上げさせると面白かったでつ。
（ramrun）数字がズレてた（汗）。
又一日見いひん間に新たな業者が増えましたなぁ。歓迎、歓迎、これでおもろうなって きましたわ、ホンマ。 私が落札した暁には、諸肌脱いで「一件落着～っ」っちゅうて大見得切らして貰います さかいな、お覚悟の程を...。（鼻息荒い）
ところでramrunさん、あの×印をクリックしたら私の音声が聞けますってぇ？ それが2002でしかでけへんのん分かっとっても、どないぞならんかと試してみる好奇心 旺盛な若輩者のおいぼれ。結果は「ページを表示でけまへん」ですわ、えぇ。 まあ言えばあの×印を小道具にしてスレ立て者を惑わす新商法でんな、羨ましい。
それはそうと、（せ）さんどないしはったんやろ？辣腕トリオ（え？一人場違いの者が
おるって？ ほんなんどっちゃでもよろしがな）の選択に呻吟してはりまんのんやろか
いなぁ？ それとも、とても付き合うてられへんっちゅうて裸足で逃げだしはったんち
ゃうやろか？
入札希望業者募集中（おいぼれ弥太郎）
失礼、失礼。 またアドレス間違ってた～よ。
ついでにyata_voice発動（笑）。
（ramrun）
ひ～い、ちかれたび～い。 早う帰ってyata voiceを聞かなアカンと躍起になって仕事に励みましたんやけど、ほら 、意のままにならんのが世の常。結局この時間になってまいましたわ。 クックックッ、思い出しても笑いがこみ上げてきまっせ、ホンマ。 「おっしゃっておくんなはれ」が「おうゆうっておくんなはれ」のくだりには、嫁と二 人で腹抱えて笑いましたわ、えぇ。
発音、アクセント、イントネーション、日頃私が使うとるんとは全くちゃいますさかい それが又笑いを誘いまんねんな、これが。 裏方さんには漢字の勉強をして貰わなアカンのんと、でけたら関西に精通した臨時の裏 かたはんも用意しとって欲しゅうおまんなぁ。
ところで、標準的関西弁は落第でッけど、標準的標準語やったら上手い事いくんとちゃ
いまっしゃろか？
いっぺんramrunさんの気取ったvoiceもいれてみてくれしまへんか？あの（汗）も入れ
て。是非聞きとうおますわ、えぇ。
（笑いすぎの弥太郎）
もうやめましょうよ。 質問からはかけ離れちゃっているし、ゲテ満載のチャットもどきに成り下がってしまう。 このサイトはかなりパブリックには有益なものではないでしょうか。 事務局さん、出過ぎた発言にご容赦を。 (EUREKA)
EUREKAさん、仰有るとおりですわ。 事務局さん、私のレス全部削除願えまへんか。 こうした場合、つまり自分で不要やと思えるレスは自分で勝手に削除してもよろしよろ いんでっしゃろか？ ブラックリストＮＯ１にのってるこの私が勝手なコトしたら、又物議を醸しますさかい 是非お願いします。
いいえぇな、どなたに対してでも一緒なんですけど、私に対してなにかを仰有って頂い た時は（自分でまき散らしとる？）必ず何らかの返事を差し上げるのが礼儀やと思うと る昔人間ですさかいな。さらに悪い事に一言余計な事を書き込まんかったら気ぃが済ま んタチですさかい、ついついエスカレートしまんねん。
>ゲテ満載のチャットもどきに成り下がってしまう はい、私の付けたレスはすべからくそうでんねん。EUREKAさんみたいにスカッと一発で きめられしまへんし、又アナタ程真面目人間やおまへんさかいな。
まぁ、私が登場するスレは覗かん方がよろしいで。イライラするだけでっしゃろから。 事務局さんお願いしときます（おいぼれ弥太郎）
本当は下に書かれた通りすがりの者さんのコメントの後のコメントになるのですが、 上に書かせていただきます。 というのは、朝一に確認して、返事を書き溜めておいて、お昼頃に時間が出来たら 投稿しようと思っていたもので。 たぶん記述したのは通りすがりの者さんより先でしょうから。
私が考えるに、質問にきちんと答えているのなら、そのあと楽しくやっていても いいのでは思います（お叱りを受けている私がいうことではありませんが）。
・質問からかけ離れる 質問に関すること以外は口にしてはダメという程、厳しいルールをつける必要は ないと思います。 ここはスレッド型掲示板ではなくWikiであり、もっと自由であってよいのでは？ 雑談用の掲示板が別に用意されているわけでもありませんから。
・ゲテ満載 これも含めて、ココの特徴だと思います。 他サイトで漫談しているところもあまり見ませんし。
・有益なもの 有益であるかどうかは読んだ人、個々人が感じるところ。 「へぇ～ Excel2002って文章の読み上げ機能があるんだ」と知れば、 その人にとっては有益であるかと。 今後は単語検索で検索できるわけですし、笑っただけでもある意味有益では？
・そういうことではなく常に真面目であり、常に有益であることを望みますか？
しかしクレームですから紳士に受け止めます。 EUREKAさんは名前のとおり熱い方ですね。
いろんな考え方（参考）
[[20030719095654]] 『集計の仕方を教えてくれませんか』（まーぶる）
[[20030811194312]] 『条件付書式の合計について』（初心者）
[[20030821141214]] 『空欄とゼロ』（ヒロ）
[[20030922124803]] 『VBA：根本的に構文の約束、意味がわかりません』（どんぐり）
ようはkazuさんも出づらいのですよ。こういう内容には。
（ramrun）
これが弥太郎氏初登場のとき。 キャラは変わっていないわけで、よく言えば個性です。
というか脱線させたのは私ですね。 私が反省すべき（汗）。 （ramrun）
[[20030617205850]] 『オブジェクト変数がわかりまへん』（おいぼれ弥太郎）
テーマとしては面白いと思っていました。しかし 肝心の[せ]さんが出てきません（出るに出られない？）。
ある意味では役に立つ項目もあったので、 この項は「完了」ということにしてはどうでしょうか？ （kazu）
「完了」賛成です。 続けたければ、別のスレッドで。 (EUREKA)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.