エクセルの学校：全文検索：Hyper Estraier： kazu 条件付書式

Results of 1 - 1 of about 406 for kazu 条件付書式 (0.004 sec.)

kazu (7746), 条件付書式 (2647)

[[20031008124620]]: #score: 6688; @digest: e2d9605ed9877b8553e386d88d5fd37b; @id: 3656; @mdate: 2003-10-13T03:21:01Z; @size: 14390; @type: text/plain; #keywords: 談日 (44799), 桜井 (36075), 束日 (29755), 阪弁 (29633), 井10 (27333), 口10 (24099), 番並 (16263), 約束 (14509), 出10 (13767), 山口 (12928), 遠藤 (10049), 有益 (9532), 仰有 (7760), 満載 (7646), eureka (6604), 弥太 (5854), 式1 (3732), クッ (3658), 期日 (3511), 相談 (3480), 日程 (3399), ramrun (3012), 業者 (2487), 太郎 (2301), 大阪 (2222), 回目 (2026), ルタ (1799), フィ (1623), オプ (1564), プシ (1548), ィル (1543), 氏名 (1453); 『該当する期間の行を表示と並べ替え』（せ）
A B C 1＜田中＞ 9/10 2＜山口＞ 10/21 11/20 3＜桜井＞ 10/20 10/23 4＜遠藤＞ 9/18 10/31 11/5 行:顧客毎の約束日（約束が1回から3回目まで可能で、1回で終わる人もいれば、3回目まで約束する人もいる）列:約束期日上記のような「顧客との約束日一覧」シートがあり、 @10/20〜10/24までに約束日がある人の名を表示させたい。（A,B,C行を含め名前の一行全てを抽出し表示させたい。 A@で抽出表示させたものを期日順に並べたい。例えば、@の作業をすると2行目の山口と3行目の桜井が表示されますが、山口→桜井の順に行を表示させるのではなく、2行のうち早い期日の10/20を含む桜井から表示し、2行目に山口を表示させたい。フィルタオプションの設定などを使用してみたりといろいろ考えていますが、うまくいきません。宜しくお願い致します。 ---- おっ、このお屋敷誰も足踏み入れてえへんわ。ピポットテーブル屋はんも集計表屋はんも、ほれにワイロで落札してふんぞり返っとっ関数屋はんも顔見せてえへんがな。せいせいするわ、ほんま。閑話休題。ところで、（せ）さんVBAは使うたことおまっか?まぁ、いっぺん試してみておくんなはれ、キッとお気に召しまっせ、えぇ。優先順位は約束日の1回目〜2回目〜3回目になっとります。ちょっと検証不足の懸念は残っとりますけど、不都合な時は仰有っておくんなはれ。但し明日から夜しかお答えでけまへんけど...。（おいぼれ弥太郎） '---------------------- 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 式2 式3 1 山口 11/20 2 田中 9/20 3 桜井 10/20 3 桜井 10/23 4 遠藤 10/31 4 遠藤 11/5 作業列という列は非表示にしておいた方が目障りでなくいいと思います。この列は式があるだけで、見る必要はないのです。式1、式2、式3は下までコピーします。数式は以下の通りです。式1⇒=IF(A2=A3,TEXT(B2,"mm/dd") & " " & C3,TEXT(B2,"mm/dd")) 式2⇒=IF(A2=A1,C1,C2) 式3⇒=IF(A2=A1,"★","☆") 式を入れますと、日程のところは、例えば、09/18 10/31 11/05 .... という風に 1セルにまとめて表示されます。このセルは幅を大きく取って下さい。しかしセルの中で折り返し表示するようにしても構いません。相談日の列は、セルの書式を、日付で、「3月4日」とかの形がいいと思います。全体を、氏名を第一キー、相談日を第二キーとして順番並べして下さい。ここで、「ツール⇒オプション⇒計算方法タブ」で、計算を「手動」にして下さい。「保存前に再計算」のチェックも外しておいた方がいいと思います。全体をもう一度、今度は、日程のみをキーにして順番並べして下さい。オートフィルターをかけてください。相談日をフィルターで選択して下さい。ご存知と思いますが、オプションを使えば、何日から何日まで、という選択も自由にできます。なお、ここでオプションといっているのは、フィルタオプションの設定というややこしい方ではなくて、フィルターの、（オプション）と言うほうです。（フィルタオプションの設定でやって頂いても結構ですが）フィルターの使い方で質問がありましたら、またご質問下さい。このままだと、同じ人が複数行表示されていると思います。目障りなら、重複列をフィルターで、白星のみ選んでください。ご注意:相談日のフィルターを設定しなおすときは、重複列のフィルターも、いったん”すべて”にしないといけませんから、ご注意下さい。相談日のフィルターは何度でも、どのようにでも、変えて見ることができます。自動計算モードに戻すには、「ツール⇒オプション⇒計算方法タブ」で計算方法自動にチェックを入れて下さい。データの入力は、どうせ処理時に順番並べする訳ですから、順不同で入れて結構です。手動計算モードにする前に、氏名と相談日をキーに順番ならべをし、手動計算にしてから、もう一度今度は相談日のみをキーにして再度順番並べするので、ご注意下さい。なおもし、この方法を実際にお使いになる場合は、お手持ちのデータを当表方式に一括変換する方法はまたご相談にのりますから、ご質問下さい。（通りすがりの者） ---- あんれ?一日見いへん間に入札希望業者が一社増えましたなぁ。無謀な業者はんはどなたはんかと思たら、なんと、「通りすがりの者」さん。 >こちらは、ややこしい大阪弁は使っていません。何言うてまんねん「すが」やん。私の大阪弁は、万国共通の標準的大阪弁でっせ。（どな標準や）それにしても、今回のレスはいつもの書き殴りと違うてエラいちまちまとこぎれいな文字で正装してはりまっしゃんか。最終行なんか、今までついぞ見た事無いような優しい言葉遣いでんがな。はは〜ん、さては（せ）さんが女性の方やと見立ててまんのやな、うん。(‾‾) まぁ、この勝負、ワイロ無しでいきまひょでぇ。ほな....（おいぼれ弥太郎） ---- どうしちゃったんだいこの子は。世間の荒波に揉まれ過ぎて、ひねくれちゃったかしら。それじゃ、私は関数と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さん、仰有るとおりですわ。事務局さん、私のレス全部削除願えまへんか。こうした場合、つまり自分で不要やと思えるレスは自分で勝手に削除してもよろしよろいんでっしゃろか? ブラックリストNO1にのってるこの私が勝手なコトしたら、又物議を醸しますさかい是非お願いします。いいえぇな、どなたに対してでも一緒なんですけど、私に対してなにかを仰有って頂いた時は（自分でまき散らしとる?）必ず何らかの返事を差し上げるのが礼儀やと思うとる昔人間ですさかいな。さらに悪い事に一言余計な事を書き込まんかったら気ぃが済まんタチですさかい、ついついエスカレートしまんねん。 >ゲテ満載のチャットもどきに成り下がってしまうはい、私の付けたレスはすべからくそうでんねん。EUREKAさんみたいにスカッと一発できめられしまへんし、又アナタ程真面目人間やおまへんさかいな。まぁ、私が登場するスレは覗かん方がよろしいで。イライラするだけでっしゃろから。事務局さんお願いしときます（おいぼれ弥太郎） ---- 本当は下に書かれた通りすがりの者さんのコメントの後のコメントになるのですが、上に書かせていただきます。というのは、朝一に確認して、返事を書き溜めておいて、お昼頃に時間が出来たら投稿しようと思っていたもので。たぶん記述したのは通りすがりの者さんより先でしょうから。私が考えるに、質問にきちんと答えているのなら、そのあと楽しくやっていてもいいのでは思います（お叱りを受けている私がいうことではありませんが）。・質問からかけ離れる質問に関すること以外は口にしてはダメという程、厳しいルールをつける必要はないと思います。ここはスレッド型掲示板ではなくWikiであり、もっと自由であってよいのでは? 雑談用の掲示板が別に用意されているわけでもありませんから。・ゲテ満載これも含めて、ココの特徴だと思います。他サイトで漫談しているところもあまり見ませんし。・有益なもの有益であるかどうかは読んだ人、個々人が感じるところ。「へぇ〜 Excel2002って文章の読み上げ機能があるんだ」と知れば、その人にとっては有益であるかと。今後は単語検索で検索できるわけですし、笑っただけでもある意味有益では? ・そういうことではなく常に真面目であり、常に有益であることを望みますか? しかしクレームですから紳士に受け止めます。 EUREKAさんは名前のとおり熱い方ですね。いろんな考え方（参考） [[20030719095654]] 『集計の仕方を教えてくれませんか』（まーぶる） [[20030811194312]] 『条件付書式の合計について』（初心者） [[20030821141214]] 『空欄とゼロ』（ヒロ） [[20030922124803]] 『VBA:根本的に構文の約束、意味がわかりません』（どんぐり）ようはkazuさんも出づらいのですよ。こういう内容には。（ramrun） ---- -これは結構難しい問題だと思います。弥太郎氏はちょっと行き過ぎですが、しかし、あのような書き方なので、違った意見も付け加えて書けます。また、ramrun さんも、ぼくらがすでに書いているわけですから、普通だったら、かぶせて別の答えを出しにくいところですが、そこが、弥太郎さんの出してくれた雰囲気のおかげで、さらに別の意見をいうことができました。実質的には、（せ）さんの役に立つところ、多かったと思います。 -しかし（せ）さんは、こうなったらどうコメントしていいか分からないかもしれません。そこがちょっと、弥太郎方式が行き過ぎているところだと思います。結論的には、お互い少し行き過ぎを控えさえすれば、弥太郎式は、賛成です。（ただ、個人的には、大阪弁はちょっと、約束の地「カナン」ですが……） -それと、この掲示板はどこでも削除できちゃいます。もちろん他人の発言を削除するのは犯罪に等しいですが、自分の分は消してもいいと思いますよ。ぼくは何度か消しています。どこの掲示板でも、自分のを削除はOKにしているじゃないですか。弥太郎さんも消したければ自分で消した方がいいと思います。 -おかげさまで、2002 では読み上げ機能があることをはじめて知りました。ramrun さんありがとう!（通りすがりの者） ---- これが弥太郎氏初登場のとき。キャラは変わっていないわけで、よく言えば個性です。というか脱線させたのは私ですね。私が反省すべき（汗）。（ramrun） [[20030617205850]] 『オブジェクト変数がわかりまへん』（おいぼれ弥太郎） ---- テーマとしては面白いと思っていました。しかし肝心の[せ]さんが出てきません（出るに出られない?）。ある意味では役に立つ項目もあったので、この項は「完了」ということにしてはどうでしょうか? （kazu） ---- 「完了」賛成です。続けたければ、別のスレッドで。 (EUREKA) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200310/20031008124620.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ