エクセルの学校：全文検索：Hyper Estraier：リスト

Results of 1 - 1 of about 8928 for リスト (0.006 sec.)

[[20110726085332]]: #score: 2746; @digest: 7a6f05ae36fb00da8958ad22f9d86c16; @id: 55329; @mdate: 2011-07-27T01:23:17Z; @size: 5175; @type: text/plain; #keywords: 備品 (57653), 社備 (44285), 品リ (39240), alleqpath (29523), 全社 (26866), 部備 (23246), alleqsht (22494), 署分 (21662), 社リ (14016), 分備 (12049), dtstr (12049), の備 (11138), fcell (9213), 部署 (8195), 社分 (7546), 署別 (6002), 務部 (5186), 考欄 (4397), リス (3805), 引当 (3668), ト. (3059), 総務 (3049), 署の (2775), 署名 (2603), スト (2555), mypath (2450), 備考 (1707), maxrow (1514), screenupdating (1078), ル初 (1035), ク名 (840), application (817); 『複数のリストの内容を引当て（照合）して、片方のリストだけにデータ入力をしたい』（tt）はじめて質問します。エクセル初心者です。基礎の関数（IFやCOUNT、OR、ANDなど）の使い方が理解できる程度です。職場で備品管理の仕事をしており、備品リストの照合作業をしています。備品リストは全社分と部署分があり（別ブック）、全社分の備品リストには部署分の備品も含まれています。なお、すべての備品には共通の通し番号がふられています。しかし、全社備品リストの方に「どの部署のリストにその備品が登録されてのか」という点が記載されておらず、大変使いにくくなってしまっています。そこで、部署分備品リストの番号と全社備品リストを番号をもとに引当して、全社分備品リストの項目に部署名を入力したいのですが、何か良い方法はないでしょうか。（ちなみに部署の数は5つです。）また、もう少し複雑になるのですが、部署分の備品リストにある備品ごとの備考欄の情報を、全社の備品リストの備品の備考欄にもコピーするすることはできるでしょうか。なお、備品リストの管理方法の関係上、部署のリストと全社のリストを同じブック上に置いたり、一つのシート上にまとめるのはできません。EXCEL2007です。どなたか良いお知恵をお貸しください。 ---- >はじめて質問します。エクセル初心者です。との事なので、回答が付きにくい理由を書いてみます。たぶん、やりたい事はVBAで簡単にできる内容だと思いますが情報が足りなさすぎます。回答者の方が最低限同じ状況を作られるだけの情報が必要です。 リストのレイアウトやサンプルデータ、求める結果のレイアウト計6つ（?）のブック名やパス部署名はどこでわかるのか複数の部署に登録されている場合はどう記述するのかなど、少なくとも私の前には真っ白なセルのエクセルさんしか居ない状態で ttさんの文章を読んだだけでは何一つセルが埋まらないので回答が難しいです。（momo） ---- （tt） Momoさん、そうですね、ありがとうございます。どちらのリストとも、まずA列に備品番号、Bに備品名、他のデータときて…最終のF列に備考欄があります。縦方向は1列目のみ項目名で、あとはすべて個別の備品データです。ブック名は「全社備品リスト」「総務部備品リスト」です。ほかは権限上触れません。求める結果は全社リストのG列に記述できれば、と思います。同じ備品が複数の部署に登録されていることはありません。部署名が分かる箇所は現在のデータ上にはありません。（VLOOKUPなどを使って全社リストに部署名を記述するとしたら、元にする部署別備品リストにG列を足して「総務部」などと書き加ればいいのかな…などと思っています）わかりにくくて済みません。 ---- マクロで作りました。 Option Explicit Sub Sample() Dim AllEQPath As String Dim AllEQSht As String Dim maxRow As Long Dim FCell As Range Dim i As Long Dim DtStr As String AllEQPath = "C:¥Documents and Settings¥YAMADA_TARO¥デスクトップ¥全社備品リスト.xls" AllEQSht = "Sheet1" Application.ScreenUpdating = False Workbooks.Open AllEQPath ThisWorkbook.Activate maxRow = Range("A1").End(xlDown).Row With Workbooks(Dir(AllEQPath)).Sheets(AllEQSht) For i = 2 To maxRow DtStr = Cells(i, "A") Set FCell = .Columns("A").Find(what:=DtStr) If FCell Is Nothing Then MsgBox DtStr & " が全社リストに見つかりません", vbCritical Else .Cells(FCell.Row, "G") = ThisWorkbook.Name .Cells(FCell.Row, "F") = Cells(i, "F").Value End If Next i End With Application.ScreenUpdating = True MsgBox "完了しました" End Sub "総務部備品リスト.xls"を開いて、 [Alt]+[F11]でVBEを起動。メニューバーより[挿入]-[標準モジュール]を選択し、右側の大きな空白部分に上記コードを貼り付け。VBEを右上「×」で閉じて、実行は[Alt]+[F8]でSampleを選択して実行。想像しながらの作成ですので、抜けてる箇所があるかもです。。 (Yujin) ---- 書いてる間に先を越されてしまいましたが折角なのでUP とりあえず叩き台としてサンプルを書いてみましたテスト用に全社備品リストのファイルをコピーしてコピーした全社備品リストのシートにフォームのボタンを配置してマクロの登録で新規作成、表示された画面の Sub ボタン1_Click() と End Sub の間に以下のコードを張り付けてVBEの画面は閉じる Dim myPath As String Dim myPost As String Dim i As Long Dim j As Long Dim tbl As Variant myPath = Application.GetOpenFilename("備品リストファイル(*.xls),*.xls") If myPath Like "*¥*部備品リスト.xls" Then myPost = StrReverse(Split(StrReverse(Replace(myPath, "備品リスト.xls", "")), "¥")(0)) Application.ScreenUpdating = False With Workbooks.Open(myPath) tbl = .Worksheets(1).Range("A1").CurrentRegion.Value .Close False End With With ThisWorkbook.Worksheets(1) For i = 2 To UBound(tbl, 1) If Application.WorksheetFunction.CountIf(.Columns(1), tbl(i, 1)) = 1 Then j = Application.WorksheetFunction.Match(tbl(i, 1), .Columns(1), 0) .Cells(j, 6).Value = tbl(i, 6) .Cells(j, 7).Value = myPost End If Next i End With Application.ScreenUpdating = True End If で、ボタンを押して部署別の備品リストファイルを選んでください。 1回に1部署のファイルを読み込んで処理します。適宜部署ごとに読み込んでみてください。（momo） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201107/20110726085332.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ