Results of 1 - 1 of about 406 for kazu 条件付書式 (0.006 sec.)
kazu (7738), 条件付書式 (2649)
- [[20050107091907]]
- #score: 6689
- @digest: a35ec8bfb47017bbdb5bef51f04be5a4
- @id: 11130
- @mdate: 2005-02-02T20:19:40Z
- @size: 18436
- @type: text/plain
- #keywords: myerrnum (56043), 了00 (49391), 版v (44633), myclm (44364), 日往 (42335), 往路 (41448), 式版 (38266), 路00 (37794), myroffset (37794), 往復 (35264), 出入 (33857), 入") (25776), 日完 (25118), 庫番 (21132), caro (19357), 復回 (14776), 正式 (8744), 出庫 (8349), myrow (5560), 入荷 (5336), textbox2 (5282), 出荷 (4767), 日1 (4460), グレ (4453), 在庫 (3609), textbox1 (3302), 完了 (3141), 管理 (2883), 2005 (2736), 要件 (2697), 月10 (2681), ヶ月 (2254)
- 『通い箱の管理について助けて下さい』（エクセルはさっぱり）
会社から通い箱の管理を依頼されて困っております。 通い箱の総数は約1000個で、現在縦に0001〜1000まで入れて、横に出た日と帰ってきた日を入力しております。 ただ会社からの「何番の箱が何回往復したか」、「現在の在庫数」、「現在出て行っている数」、「いつ出たか」、「いつ帰ってきたか」の要望は満たすことはできません。なんとかエクセルで管理したいと思うのですが、データ入力の仕方も含めて、お知恵を貸していただけないでしょうか? Excel2003、WindowsXPを使用しております。 ---- （エクセルはさっぱり）様 要件をもう少し説明して下さい 1.通い箱(通函)の総数は約1000個 → 最大1000個として良いか? 2.出す時は、「こちらが番号指定する」のか「利用者が任意に選ぶ」のか? 3.同じ箱が1日に2回以上出て戻る事があるか? 4.往復回数の集計期間は、週か月か年か (或いは任意の期間毎?) 5.平均的な一往復のサイクルは? 6.この集計表を（エクセルはさっぱり）さん以外の人が触る事があるか? 7.（エクセルはさっぱり）さんはどの様にやりたいのか? ・1000行 × 365日 の枠を作って1Sheetでまとめる (列のMax.は 256ですが・・・) ← 更新 2005/01/07 16:45 ・1ヶ月毎に Sheetを分けて管理する ・出た時や戻った時の入力を簡単にやりたい → (番号と出入り区分を入れれば自動反映する) 8.会社(管理者)は何を求めているのか? ・回転率を上げたい → 使用効率を良くしたい ・1000個が均等に古くなる(汚れる、壊れる)様にしたい ・誰(どの会社)が使ったか → 誰が壊したかを把握したい 等々です (本当は 8 → 7 → ・・・ 2 → 1 の順なのですが) 若しこの件が緊急対応でないのなら これらの方向性や条件(要件)を明らかにされた方が良いと思います 要件を明らかにした後は、優秀な回答者陣にお願いしましょうネ (caro) 2005/01/07 13:00 ---- エクセルよりアクセス向きかと思うのですが、もし私がエクセルで管理するとしたら。 こんなイメージかしら。 【シート1】→データベースにして、番号に関係なく次々と打ち込んでいくシート A B C D No. 往 復 往復 0001 1月1日 1月8日 完了←=IF(AND(B2<>"",C2<>""),"完了","往路") 0002 1月4日 1月7日 完了 0003 1月10日 1月11日 完了 0004 1月7日 1月8日 完了 0005 1月5日 1月9日 完了 0006 1月4日 1月6日 完了 0001 1月10日 往路 0002 1月8日 1月9日 完了 0003 1月12日 往路 0004 1月10日 往路 0005 1月10日 往路 0006 1月7日 1月8日 完了 0002 1月10日 往路 0007 1月9日 往路 【シート2】→データベースシートから抽出した結果を表示するシート A B C D E No. 往復回数 現在往路 往路(最終日) 復路(最終日) 0001 0002 0003 0004 0005 0006 ・ ・ ・ シート2の式は考えなきゃ(笑) (代奈) でも、.××の復路セルを見つけるの、めんどそう(ーー;) 上手な方の回答を待っちゃお。 ---- Excelの質問と言うより、caroさんがおっしゃるように管理イメージをどうするかということ だろうと思います。おそらくはそのイメージさえも具体的になっていないのかもしれません ね。 たたき台として提案させてもらいます。 1.通い箱にユニークなキー（管理番号等）を振る（現在のNo.でもOK) 2.1回の出庫ごとに出庫番号を持たせ、それを利用履歴として管理する 3.出庫番号の属性項目として要望されている出庫日時・回収日時その他の情報を持たせる 出庫番号の保有数で何往復したかは判りますし、出庫日時の有無、回収日時の有無の判断で 在庫になってるか、現在出て行ってるかは判りますね。 あまり具体的ではないですが、出庫番号のような概念を持たせてやるということがヒントに ならないでしょうか? (shouta) ---- 皆様色々なご意見ありがとうございます。 (caro) 様のご意見どおり要件をまとめさせて頂きます。 1.最大1000個でOKです。 2.出す時はこちらが番号を決められます。戻る時は何番が戻るか分かりません。 3.同じ箱が1日に2度以上出ることはありません。 4.往復回数の集計期間は年で考えています。 5.平均的な1往復サイクルは1ヶ月です。早いもので1週間、遅いもので3ヶ月です。したがって4.の集計期間を年と考えています。 6.この集計表は私以外の人間は触りません。ただし閲覧はします。 7.願望としては「1ヶ月毎に Sheetを分けて管理する」「出た時や戻った時の入力を簡単にやりたい 」があります。 8.会社として知りたいのは「回転率を上げたい → 使用効率を良くしたい」「1000個が均等に古くなる(汚れる、壊れる)様にしたい」です。 (代奈)さんの方式も確かに良いのですが復路のセルの発見がちょっと大変そうですね。 (shouta)さんのおっしゃるとおり、エクセルよりも管理方法の質問なのかもしれません。 場違いだったすみません。 出庫番号には惹かれるものがあります。 でワタシの頭にあるアイデア願望は、出荷シートに出荷した箱のナンバーをずらっと入力する。 同様に入荷シートに入荷した箱のナンバーをずらっと入力する。 出荷シート 01/08 0001 0065 0085 すると別のシートに 往復回数 現在の状態 最終出荷日 最終入荷日 0001 5 自社 01/08 のような感じに出るようにしたいと考えております。 さらに自社にある箱の数と出荷3ヶ月以上経つ箱への警告ができればなお理想です。 皆さんを頼ってばかりですが何か良いアイデアがあればお願い致します。 (エクセルはさっぱり） ---- メールでcaroさんからエクセルブック↓が届きました。 （kazu） ---- 通い箱管理につき下記の通り試作して見ました http://www.excel.studio-kazu.jp/wiki/excelboard/20050107091907/sample.xls Sheet1に「正式版」、Sheet2に「操作説明 及び 練習用」 設計方針 1.1,000箱(行) × 110往復 の 1Sheetとする (年間最大で 50往復か?) → 1日平均 50件の入力? 2.枠固定で左上に「在庫数と貸出し数」を表示 3. 〃 左側に「往復回数、在庫区分」を表示 4.使用実績(往復実績)を右側へ積上げ式に入力する 日付でも記号でも何でも入る様にする 且つ、実績が入ったセルは色(グレイ)を塗る このグレイの伸び具合で使用状況(バラツキ)が分る 5.数値や文字の表示ではなく、視覚(特に色)での認識を優先する (100箱毎の色分け、実績のグレイのデコボコ) 運用手順 1.現在の在庫分の棚卸 (初期値で全て "出"が設定してある) 2.在庫分は 1回目に "戻"(でも日付でも何でも良いが)を入れる 3.以降、戻り入力や出の入力を行なう 今後の改良点 1.入力専用のSheetを作り、箱番号だけの入力で自動反映とする 2.D、E列に「最新出庫日、最新戻り日」を挿入し 戻り日から3ヶ月経過したら色を変える 3.新年度版への繰越しMacroを作る 4.貸出しボタンから貸出し可能一覧を出す (又は別Sheetへ在庫分で戻り日の古い順に箱番号一覧を出す) 一定サイクル(毎朝 又は 1週間毎?)で印刷しておいて その一覧表の上から順に出して行く 以上 いかがでせうか? (caro) 2005/01/08 12:35 ---- (caro)様ありがとうございます。凄いです! こんなことが出来るのですね。感激致しました。 一つ質問なのですが、入力されたときにグレーに表示が変更されますがこれはどうやってやっておられるのでしょうか? (caro)さんが書かれている今後の改良点ですが、これができれば最強の管理ソフトになりそうです。 特に1.の入力専用シートは大変魅力的です。（贅沢ですが入力時間を短縮したいのです） こんなことができるのでしょうか? （エクセルはさっぱり） ---- caroさんからメールで通い箱管理改訂版(V-2)が届きました。 （kazu） ---- 2日間(1/9〜1/10)連休でここを見ておりませんでした 試作版ですが業務(実務)で使って戴ければ幸いです ご質問の件ですが >入力されたときにグレー: 書式 → 条件付き書式 → セルの値が大きい → =""""" で 書式 → パターン → 色(グレイ)選択 >入力専用シート: 通常の関数ではチョット骨かもしれません VBAで作れば比較的簡単に処理できると思います → VBAの回答者陣へお願いしましょう・・・ (入力Sheetの箱番号で捜して、入出庫実績の未入力の場所へ日付をセットする機能) それと前回試作分の改良点ですが 1.前回の試作版は「出・入(戻り)」の入力を文字型(何でも入る)にしてあります 2.それを m/d の日付型にすれば、その最大値が「最新入出庫日付」になりますので 「その日付 + 90 < NOW()」で 約3ヶ月経過分を判断する事が出来ます D列へ「最新日」を挿入してそれらの判断をさせたら良いと思います 在庫区分で未回収なのか、長期在庫なのかは分ると思います 3.併せて、入力領域を日付型にした為、グレイの判断も少し変わります 以上の改訂版(V-2)を下記に載せます http://www.excel.studio-kazu.jp/wiki/excelboard/20050107091907/sample2.xls (caro) 2005/01/11 11:00 ---- やっぱりVBAですか。 条件付書式なんて今まで一度も使ったことがなく驚きでした。 こんなことができたのですね。 V-2も早速使ってみました。 当たり前ですがV-1以上で「おぉ!これはいい」と声を出してしまいました。 ただ入力がやはり大変です。 VBAを使用して、入荷出荷とも専用シートに、 0005 0009 0425 0004 0125 0658 と入力し【転記】ボタンで自動的に反映出来るようにならないかと悪戦苦闘しておりますが、VBAは難しいですわ。 VBAにお詳しい方、何か良いお知恵を貸して頂けないでしょうか。 (エクセルはさっぱり）2005/01/12 5:00 ---- おはようございます。 caroさんの表をお借りして、マクロで転記するものをやってみました。 入力シートと言う名前のシートを作り、A1に出 B1に戻りと入力 A2以降A列に出た番号、B2以降B列に戻った番号を入れて、マクロ（Test）を実行してみて下さい。 '////////////////////////ここから Option Explicit Dim c As Range Dim MyErrNum As String Sub Test() Dim MyRow As Long, MyCol As Long Dim Sh1 As Worksheet, Sh2 As Worksheet Const MyROffset As Long = 3 '番号と行数の差 Set Sh1 = Worksheets("正式版 V-2") Set Sh2 = Worksheets("入力シート") MyRow = Sh2.Range("A1").CurrentRegion.Rows.Count If MyRow = 1 Then Exit Sub For Each c In Sh2.Range("A2:B" & MyRow) If c.Value <> 0 Then Select Case c.Column Case 1 MyCol = Sh1.Cells(c + MyROffset, 256).End(xlToLeft).Column + 1 If MyCol Mod 2 = 0 Then Call MyErr Else Sh1.Cells(c + MyROffset, MyCol).Value = Format(Date, "M/D") End If Case 2 MyCol = Sh1.Cells(c + MyROffset, 256).End(xlToLeft).Column + 1 If MyCol Mod 2 = 1 Then Call MyErr Else Sh1.Cells(c + MyROffset, MyCol).Value = Format(Date, "M/D") End If End Select End If Next c Sh2.Range("A2:B" & MyRow).ClearContents If MyErrNum <> "" Then MyErrNum = Replace(MyErrNum, ",", "", 1, 1) MsgBox "エラー番号は " & vbCrLf & vbCrLf & MyErrNum & " 番でした。" Else MsgBox "エラー無く完了しました。♪" End If MyErrNum = Empty Sh1.Select End Sub Sub MyErr() MsgBox c.Value & "番はエラーです。" & _ vbCrLf & vbCrLf & "処理後確認してください。" MyErrNum = MyErrNum & "," & c.Value End Sub '////////////////////////ここまでを標準モジュールに入れてください。 （川野鮎太郎） ---- （川野鮎太郎）様 有難うございました 流石VBAer?ですね (COBOLの達人がCOBOLer、EXCELの達人がEXCELer・・・) 感動ものでした (特に"エラー無く完了しました。♪"が出た時は・・) 何処かにも書きましたが 当方 知力、体力、気力、財力、?力 共に無いもので こんな VBAを(しかも素早く)書く事が出来ません 羨ましい限りです 知識や技術のみの為の技術ではなく 実務に役立ってこそ本当の知識や技術だと思います その意味でこの処理が(エクセルはさっぱり）さん 及び(エクセルはさっぱり）さんの会社のお役に立てば IT技術者として嬉しい事だと思います 色々お忙しい事とは思いますが 今後共よろしくお願い申し上げます (caro) 2005/01/12 10:25 ---- ユーザーフォームで入力するマクロを書いてみました。 なお、caroさんの表をお借りして、勝手に改変しています。 テキストボックス2こ(日付と箱番号)、オプションボタン2こ(出荷と入荷) コマンドボタン2こ(OKとキャンセル)を使い エラー処理はしていません。 (勝手に改変部分) 現在在庫数:現在貸出し中の数は入れ違っているような気がしたので、 勝手に式を変更しました。 E列を挿入して(新規)最終日の日付を入力しておくようにしました。 # 質問者の意図とは異なっているとは思いながら・・・(Hatch) サンプルは↓にkayoi.xls(740KB)としてあります。 http://www.geocities.jp/hatch4700/index.html 標準モジュールに Sub myInput() Load UserForm1 UserForm1.Show Unload UserForm1 End Sub ユーザーフォーム1に Private Sub CommandButton1_Click() 'OKボタンをクリック Dim myRow As Long Dim myClm As Long myRow = TextBox2.Value + 3 Cells(myRow, 4).Activate myClm = ActiveCell.End(xlToRight).Column + 1 If myClm Mod 2 = 0 And OptionButton1.Value = True Then Cells(myRow, myClm).Value = TextBox1.Value ElseIf myClm Mod 2 = 1 And OptionButton2.Value = True Then Cells(myRow, myClm).Value = TextBox1.Value Else MsgBox "出荷/入荷が正しいか確認しなさい" Exit Sub End If With TextBox2 .SetFocus .SelStart = 0 .SelLength = Len(TextBox2) End With End Sub Private Sub CommandButton3_Click() 'キャンセルボタン Me.Hide End Sub Private Sub UserForm_Initialize() OptionButton1.Value = True '出荷のオプションボタンをON TextBox1.Value = Date 'テキストボックス1に本日の日付を表示 TextBox2.Value = 1 'テキストボックス2（箱No)に「1」をセット End Sub ---- ＞流石VBAer?ですね とんでもないですぅ・・・、まだまだFisherです^^v （川野鮎太郎） ---- (Hatch)様 こちらも有難うございました ある問題(課題、要件)について自分が思っているのとは 違う角度での解決策が出た時に 「あっ 成程ね!、その手もあるね・・」と 素直の思える(感じられる)のは嬉しい事です ↑"に"でしたね・・ 2005/01/13 09:00 修正 その意味で今回の「通い箱」の流れは非常に良かったと思います 今後共よろしくお願い申し上げます (caro) 2005/01/12 11:25 ---- 感激! (Hatch)さま（川野鮎太郎）さま(caro)さま、ありがとうございました。 役に立ったどころの話ではございません。 今猛烈に感動し、そしてどちらを使用させて頂こうかと贅沢な悩みを抱えております。 まさかエクセルでこんな夢のようなことが出来るなんて想像もつきませんでした。 VBAを覚えればこんなすごいことが出来るのですね。 また使っていくうちに改良して欲しいところがありましたらHELPをお願いする場合があるかも知れません。 その時はまたお知恵を貸して頂ければ幸いです。 ただ甘えてばかりではダメなのでいつの日か解答できる立場になりたいです。 気長にやっている年でもないですが気長に覚えます。 (エクセルはさっぱり） ---- (エクセルはさっぱり）様 >贅沢な悩み → こんな悩みは嬉しいですね・・・ （川野鮎太郎）様 昨夜は有難うございました kazu様 お手数をお掛けしました 今後共よろしくお願い申し上げます (caro) 2005/01/13 09:05 P.S. 今日あたり "888888"ですかね? ---- おはようございます。 ＞どちらを使おうか・・・ 私も自分で使うなら、Hatchさんのユーザーフォーム形式にすると思います。 私が書いたほうのコードは、（エクセルさっぱり）さんの質問形式に合わせただけですから^^ ＞昨夜は有難うございました いえいえ、どういたしまして。 ＞今日あたり "888888"ですかね? (ﾟロﾟ;)ゲ! こっそり狙ってたのに・・・(*￣ o￣)bシー （川野鮎太郎） ---- またもや、お助けをお願い致します。 (Hatch)さまの作っていただいたシートを使用しているのですが、人間使っているとさらなる欲がでてくるものです。 http://www.geocities.jp/hatch4700/index.htmlのシートを使用しているのですが、 1.入力BOXを今日の日付ではなく、前回入力した日付のままキープしておくことはできないでしょうか?（1週間分溜まってしまった場合、前回の続きからだと便利なのです） 2.別のシートに日付を入力したらその日の「出」と「入」を一覧表示させるようにさせるようにできないでしょうか?（入力チェックのためです） 3.上記のチェックをした時に、入力した個数をカウントさせるにはどの関数を使用すればよいでしょうか? またお知恵を貸して頂ければ幸いです。 （エクセルはさっぱり） ---- >(Hatch)さまの作っていただいたシート 元々のシートはcaroさんが作成されたものです。私は入力部分のコードを書いただけ(^^;) さて、ご諮問の回答ですが、VBAと関数で作成してみました。 1.空いているE1セルにTextBoxで入力した日付を格納しておく方法です。 Private Sub CommandButton1_Click() とPrivate Sub UserForm_Initialize() に 追加と変更（コメントを入れたところ）。 E1セルの文字の色を赤にしていますので、白にすると見えなくなります。 2.For〜Nextでシート「出入」のB1セルに入力した日付を捜します。 逐次検索になっていますので、時間がかかります。 3.「出入」のA3:B3に=COUNT(A4:A2000) でカウントしています。 # どなたかが速い処理方法を書いてくれるのを期待しています(^^;) (Hatch) Private Sub CommandButton1_Click() Dim myRow As Long Dim myClm As Long myRow = TextBox2.Value + 3 Cells(myRow, 4).Activate myClm = ActiveCell.End(xlToRight).Column + 1 If myClm Mod 2 = 0 And OptionButton1.Value = True Then Cells(myRow, myClm).Value = TextBox1.Value '↓ここで、E1セルに日付を格納する Cells(1, 5).Value = TextBox1.Value ElseIf myClm Mod 2 = 1 And OptionButton2.Value = True Then Cells(myRow, myClm).Value = TextBox1.Value '↓ここで、E1セルに日付を格納する Cells(1, 5).Value = TextBox1.Value Else MsgBox "出荷/入荷が正しいか確認しなさい" Exit Sub End If With TextBox2 .SetFocus .SelStart = 0 .SelLength = Len(TextBox2) End With End Sub Private Sub UserForm_Initialize() OptionButton1.Value = True '↓E1セルの日付をテキストボックスに読み込む TextBox1.Value = Worksheets("正式版 V-2").Cells(1, 5).Value TextBox2.Value = 1 End Sub Sub 出入() Dim LastRow1 As Long, LastRow2 As Long Dim i As Long, j As Long Dim myCount As Long, myCount2 As Long 'Worksheets("出入").Select LastRow1 = Worksheets("出入").Range("A65536").End(xlUp).Row LastRow2 = Worksheets("出入").Range("B65536").End(xlUp).Row Worksheets("出入").Range(Cells(4, 1), Cells(LastRow1 + 1, 1)).clearcontents Worksheets("出入").Range(Cells(4, 2), Cells(LastRow2 + 1, 2)).clearcontents '出のチェック For i = 6 To 224 Step 2 For j = 4 To 1003 If Worksheets("出入").Cells(1, 2).Value = Worksheets("正式版 V-2").Cells(j, i).Value Then myCount = myCount + 1 Worksheets("出入").Cells(myCount + 3, 1).Value = Worksheets("正式版 V-2").Cells(j, 1).Value End If Next j Next i '入りのチェック For i = 7 To 225 Step 2 For j = 4 To 1003 If Worksheets("出入").Cells(1, 2).Value = Worksheets("正式版 V-2").Cells(j, i).Value Then myCount2 = myCount2 + 1 Worksheets("出入").Cells(myCount2 + 3, 2).Value = Worksheets("正式版 V-2").Cells(j, 1).Value End If Next j Next i End Sub ---- (Hatch)さま、ワンダフルです、ありがとうございます。 一つ質問があるのですが入力BOXの日付を04/02/05と入力するとシートの日付が04/02となります。できれば年号から入力し、何年も使いたいのですがどこを訂正すれば良いのでしょうか? （エクセルはさっぱり） ---- TextBoxでの入力は「2005/2/3」のように入力したらどうでしょうか? (Hatch) ---- すみません大丈夫でした。 ありがとうございました。 （エクセルはさっぱり）... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200501/20050107091907.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97018 documents and 608145 words.
訪問者：