エクセルの学校：全文検索：Hyper Estraier：日付

Results of 1 - 1 of about 13161 for 日付 (0.003 sec.)

[[20051116131027]]: #score: 2423; @digest: edcb9c4f55fb31115dfa90a0cd0bdb24; @id: 18231; @mdate: 2005-11-17T01:38:05Z; @size: 5046; @type: text/plain; #keywords: 付貸 (13442), デリ (5226), 出中 (4731), にn (3794), 田1 (3160), 貸出 (3064), カウ (2929), 付入 (2849), 日付 (2677), 回数 (2640), か記 (2394), 力時 (1969), 代奈 (1792), ウン (1785), プッ (1710), （日 (1632), 字や (1573), や数 (1552), target (1463), トさ (1278), 付を (1126), 記入 (1095), 是非 (980), 字と (970), る日 (900), ント (888), seiya (863), 残っ (838), 付と (836), リキ (781), に日 (769), 入さ (736); 『L列に日付を入れるとM列に○がインプット』（よみの）
[Lの列に日付を入れると隣のM列のセルに○がインプットされる方法、ほか] 以下の使用法を考えています。良い方法がありましたら是非ご教示下さい。 excelの初心者ですがなにとぞよろしくお願いいたします。 1）Lに日付を入れるとMに自動で○がつく 2）Lに日付を入れるたびにN列に回数がカウントされる（日付を削除したりする時はカウントされない。日付入力時のみ） 3）M、N列に文字や数字とか記入されているものは普通のセルのようににデリートすることが出来る（日付は残っている） A B ・・・・・・ k L M N ・・・ 1 番号名前進度日付貸出中回数・・・ 2 1 山田 1 5/6 ○ 1 ・・・ 3 1 川田 1 6/6 ○ 2 ・・・無理なお願いを言うようですが、是非よろしくです。〔Excel2003,Windows2000〕 ---- こんにちは 3つの条件を全て満たす回答ではありませんが、とっかかりに 1）と3）の条件を満たすには、こんな方法はどうでしょう? M列に条件付書式を次のように設定する。 =COUNTA($L2:$M2)=1 として塗りつぶしの書式を設定する。こうすると、日付を入力するとM列が塗りつぶされ、M列に数値や文字が入力されると塗りつぶしの色が消えます。 2）は関数でするなら、作業列を使用して O列に =COUNTA($L2:$M2) として O列を非表示に N列に =IF($O2<>1,"",COUNTIF($O$2:O2,O2)) とすると L M N O 1 日付貸出中回数 2 月6日 1 1 3 6月6日故障 2 4 6月7日 2 1 5 6月10日 3 1 このようになりますが、 3）のようにN列を消すと、そこに入力された関数自体も消えますので、マクロになると思います。（マクロの達人の回答をお待ちください） (oni) 14:15式を訂正しました。(*_ _)人 ---- 回答ではありませんが。最新の情報のみあればよい、というのであれば回数カウントでもよいのでしょうが、データベースとして残したい、月別に集計したい、前年比も出してみたい、etc. という要望が出た時に、過去の履歴が残っていないのでは、それも叶わず。すべての情報をただ打ち込むデータシートもあってよいのでは、と老婆心。 (代奈) ---- こんにちわ。 >2）Lに日付を入れるたびにN列に回数がカウントされる > （日付を削除したりする時はカウントされない。日付入力時のみ） >3）M、N列に文字や数字とか記入されているものは > 普通のセルのようににデリートすることが出来る（日付は残っている） 2）入力されている日付と違う日付が入力された場合ですか? 3）「文字や数字とか記入されているもの」とは、L列の日付で導かれた値のことですか? (seiya) ---- seiyaさんの仰る通り、チョット理解できていないかもしれませんが、、、 σ(^o^;)なりに、解釈して作ってみました。シートモジュールにコピペ '-------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long If Target.Column <> 12 Then: Exit Sub If Target.Count <> 1 Then: Exit Sub Application.EnableEvents = False r = Range("A" & Rows.Count).End(xlUp).Row If IsDate(Target) = True Then Target.Offset(, 1) = "○" If r > Target.Row Then r = Target.Row End If Target.Offset(, 2) = Application.WorksheetFunction.CountIf(Range(Cells(2, 13), Cells(r, 13)), "○") End If Application.EnableEvents = True End Sub （キリキ）（〃⌒o⌒)b ---- シートモジュールに貼り付けてください。 Private myDate Private Sub Worksheet_SelectionChange(ByVal Target As Range) myDate = Target.Cells(1, 1).Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) With Target.Cells(1, 1) If .Row < 2 Or .Column <> 12 Then Exit Sub If Not IsDate(.Value) Then Exit Sub If IsEmpty(.Cells) Then Exit Sub If .Value = myDate Then Exit Sub .Offset(, 1) = "○" .Offset(, 2) = .Offset(, 2) + 1 End With End Sub (seiya) ----- oniさん、代奈さん、seiyaさん、キリキさん早速の回答有難うございます。 seiyaさん、キリキさんのおっしゃるとおり説明不足でしたすみません。 >>2）Lに日付を入れるたびにN列に回数がカウントされる >> （日付を削除したりする時はカウントされない。日付入力時のみ） >>3）M、N列に文字や数字とか記入されているものは >> 普通のセルのようににデリートすることが出来る（日付は残っている） >2）入力されている日付と違う日付が入力された場合ですか? >3）「文字や数字とか記入されているもの」とは、L列の日付で導かれた値のことですか? まさしくそうです。 2）は新しい日付がどんどん上書きされていく予定ですので、入力されている日付と違う日付が入力された場合のみカウントされるということです。（いちばん最初に入力した時はカウントは1ですよね。以降、入力されている日付と違う日付を入力（更新?）するたびにカウントされる感じです。様は更新回数がわかる形にしたいのです。） 3）L列の日付で導かれた値のことです。M列の○とN列のカウント数を削除してもL列はそのままということです。（文字、数字というのは適切ではないので訂正します。M列の○とN列のカウント数ですね。すみません）いちばんイメージに近いのはseiyaさんのです。有難うございました。他の皆さんのも大変勉強になりました。有難うございます。感謝です。（よみの） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200511/20051116131027.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ