エクセルの学校：全文検索：Hyper Estraier：フォーマット　自動　印刷

Results of 1 - 1 of about 103 for フォーマット　自動　印刷 (0.009 sec.)

フォーマット (1423), 自動 (14513), 印刷 (5707)

[[20231122102841]]: #score: 8141; @digest: 2294b1c86f7a28e674a3721511682b66; @id: 95614; @mdate: 2023-11-22T08:06:45Z; @size: 6131; @type: text/plain; #keywords: 検項 (89766), 器名 (56436), 機器 (41456), ル漏 (38744), 目(" (36619), 異音 (33606), 点検 (32226), 源入 (26533), 器d (15241), 器e (14426), 器c (13911), 器b (13814), 理番 (12922), 湿度 (12640), 器a (12255), か, (8398), オイ (8075), 電源 (7832), 理簿 (7330), 適正 (5623), 温度 (5423), 9745 (4972), 目", (4508), 名, (4412), 管理 (4119), 号" (2914), xlwhole (2675), 機械 (2594), 項目 (2561), か" (2451), 番号 (2210), 目( (1789); 『機械管理簿のシートが多すぎて確認する手間を省きたい。』（IRA）
初めまして、Excel初心者です。現在、職場で使っている機械を毎日動作確認するための管理簿（同じフォーマット）があり、月末にシートを一括選択し、月日の変更、印刷しているのですが、なにせ数が多く、本当に変わっているのか一つ一つ確認しています。（そもそも信じて印刷すればいいのでしょうが…）これを一つのシートで完結させる方法はないでしょうか。点検表はこんな感じです。 -------------------------------------------------------------- 点検リスト機器名管理番号点検年月 ○○○ ○○○○ 2023年 ○月点検日 123456………31 点検項目 1電源入る ☑☑… …☑ 2異音がしないか ☑… …☑ 3オイル漏れはないか☑… 4などなど・項目は機器ごとに変わり、最大15項目・・ 15 承認者検査員印印 --------------------------------------------------------------- こんな感じのフォーマットで、機器ごとに点検項目も変わります。このフォーマット管理簿のシート一つ別で作成し、そのシートの管理番号をデータの入力規則等で変更したら、それに合わせて機器名、点検項目が変わるような仕様にしたいのです。また、年、月を変えれば日付も自動で変わるような仕様が理想です。シートの移動をして確認する手間を省きたい事が一番の目的です。その後、印刷ですべての機械分印刷なんてことは出来るのでしょうか。いろいろ調べてはいるものの、日付変更はできそうなのですが、管理番号を変えればその機器名、点検項目が変わるといったものが見つからず、（請求書で管理番号を変えれば、企業名、金額が変わるといったものはありましたが、方法が多すぎてどれがいいのかもわからず…）そもそも出来るのか…すらもわかりません。マクロ、VBA、関数いろいろな方法があると思うのですがもしできるなら教えていただけませんでしょうか。よろしくお願いいたします。＜使用 Excel:Microsoft365、使用 OS:Windows10 ＞ ---- マスタシートを使用しても良ければ… マスタシートに管理番号の一覧とそれに付随する機器名機器名とそれに付随する点検名を記載しておいてVLOOKUPで呼び出すとかどうでしょう? 点検項目数のばらつきがあるなら、 =IF(VLOOKUP(【機器名のセル】,【マスタシートの点検項目一覧部分】,2【ここをずらしていく。最大16】,FALSE)=0,"",VLOOKUP(【最小のVlookupと同じ数式】)) にしておくと、ない項目は空白になります。（質問） 2023/11/22(水) 12:06:04 ---- 月日の変更はなんのために必要ですか? そのシートが月別なのであれば、月だけの変更になるかと思いますが? それは複数あるシートの月を一つづつ変更しているということでしょうか? そうであれば、1つシートを作って、月を入力し、他のすべてのシートからそのセル（月）を参照してはどうでしょうか? 管理番号の入力により入力内容を変更するというのは、できるにしても大変だと思いますので、管理番号の入力により、そのシートに飛ぶというのはどうでしょうか? シートは管理番号別にできていると思いますので、シート名を管理番号にします。その上で、以下のようなコードでジャンプできます。 Sub Jump() Application.Goto Worksheets(ActiveSheet.Cells(1, 1)).Cells(1, 1) End Sub A1に管理番号を入力し、となりにボタンでもつけて、上記コードを割り当ててはどうでしょうか? （ゆたか） 2023/11/22(水) 12:44:06 ---- ご返答ありがとうございます。質問様マスターシート利用してのVLOOKUPでの呼び出し、試してみます。ありがとうございます。ゆたか様毎日動作チェックしてる為、月日は必要です。ここについては、月を変えれば日が変わる設定が出来ました。他のすべてのシートからの参照、頂いたコード、試してみます。ありがとうございます。（IRA） 2023/11/22(水) 12:49:53 ---- 'シートモジュール Dim 点検項目 As Object Const 機器名 As String = "機器A,機器B,機器C,機器D,機器E" Const 管理番号 As String = "番号1,番号2,番号3,番号4,番号5" Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range, r1 As Range, i As Long On Error Resume Next If Target.Offset(-1).Value <> "管理番号" Then Exit Sub Set 点検項目 = CreateObject("Scripting.Dictionary") 点検項目("機器A") = "1電源入る ,2異音がしないか,3オイル漏れはないか" 点検項目("機器B") = "1電源入る ,2異音がしないか,3オイル漏れはないか,4ライトがついているか" 点検項目("機器C") = "1異音がしないか,2オイル漏れはないか,3ライトがついているか,4温度は正常か,5湿度は適正か" 点検項目("機器D") = "1ライトがついているか,2温度は正常か,3湿度は適正か" 点検項目("機器E") = "1電源入る ,2異音がしないか,3オイル漏れはないか,4ライトがついているか,5温度は正常か,湿度は適正か" Set r = Cells.Find("機器名", , , xlWhole) Application.EnableEvents = False For i = 0 To UBound(Split(機器名, ",")) If Target.Value = Split(管理番号, ",")(i) Then r.Offset(1).Value = Split(機器名, ",")(i) Set r1 = Cells.Find("点検項目", , , xlWhole) r1.Offset(1).Resize(15).ClearContents r1.Offset(1).Resize(UBound(Split(点検項目(Split(機器名, ",")(i)), ","))).Value = Application.Transpose(Split(点検項目(Split(機器名, ",")(i)), ",")) End If Next i Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Len(Cells.Find("管理番号", , , xlWhole)) * Len(Cells.Find("機器名", , , xlWhole)) * Len(Cells.Find("点検項目", , , xlWhole)) = 0 Then MsgBox "当シートに「管理番号」「機器名」「点検項目」の文言のセルがありませんのでキャンセルします": Exit Sub End If If Target.Offset(-1).Value <> "管理番号" Then Exit Sub With Target.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=管理番号 End With End Sub （mm） 2023/11/22(水) 14:00:53 ---- > Application.Goto Worksheets(ActiveSheet.Cells(1, 1)).Cells(1, 1) こちらの式ですが、午前中には動作していた（はず）ですが、午後から動作しなくなりました（なんでやねん?） > Application.Goto Worksheets(ActiveSheet.Cells(1, 1).Value).Cells(1, 1) としておきます。（ゆたか） 2023/11/22(水) 14:24:44 ---- ゆたか様こちらも試してみます! ありがとうございました!!! （IRA） 2023/11/22(水) 17:06:45 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202311/20231122102841.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ