約 21,545 件
https://w.atwiki.jp/mustnotsearch/pages/3560.html
登録タグ カナダ グロ 危険度3 真実 カナダのオンタリオ州の職場安全保健局が製作したCM『there really are no accident (偶然起こった事故ではない)』 管理さえしていれば防げたはずの職場での事故について、今まさに事故に合う人や、体に棒が刺さったり、腕をプラプラさせたりした状態の人が「これは偶然の事故ではない」と説明する。 Youtube版www.youtube.com/watch?v=7jKovmWJyEM ニコ動版www.nicovideo.jp/watch/sm8056452 分類:グロ、真実 危険度:3 コメント ヤベー -- (名無しくん) 2021-05-23 20 07 02 おそろしい -- (レッド) 2021-05-25 22 13 38 怖い!!!!! -- (名無し) 2021-05-26 00 50 36 グロです。 -- (アロマ) 2021-05-26 21 01 48 めっさこわすぐる -- (名無し) 2021-05-27 07 25 35 それほど管理人というのは重大な仕事という事が分かる動画 -- (ナイル) 2021-06-12 16 41 09 労働は安全性が一番重要だということを伝えたいんだと思う。 -- (ゲーム太郎) 2021-11-08 21 00 54 痛そう(小並感) -- (みり) 2022-09-28 08 15 43 グロいけど何が重要かしっかり教えてくれるcmだな -- (旧式) 2022-11-26 17 57 52 ぐあああああ -- (血) 2023-06-16 14 09 32 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/keiplus/pages/143.html
職場の仕事ログ ログ 仕事 職場 1日の作業は記録に残す 何を指示されたか その指示のゴールはどこか そのゴールするためにどういった作業が必要なのか その作業のためにどんな準備が必要か 準備のために何を調べたか 準備のために何を実施したか 実施するために学んだことは何か 実施すすためにトライ&エラーは何か 実施した内容 実施した結果 収めるためにどういった試験(テスト、確認)を行ったか 何をもってOKとしたのか ゴールの判断基準は全て満たせているか
https://w.atwiki.jp/dboft/pages/12.html
職場の問題地図 「で、どこから変える?」残業だらけ・休めない働き方(技術評論社・沢渡あまね) キーワード 終わらない仕事が日に日にたまっていく 他人に構う余裕がない 制度・個人スキル には取り組むが プロセス・場 には取り組まない会社 個人依存 制度 プロセス 個人スキル 場 手戻りは上流で防ぐ ポンチ絵 目的の共有 業務プロセス 嫌な仕事ほどマニュアル化をする サービスレベルの設定 インプット 成果物 関係者 効率 リピート+感情 付加価値+あたりまえ部分 / 属人化ok + 属人化不可 プロセスの報告 ザ・ゴール2のクラウドにこんな地図あったな 本当のお客さん(エンドユーザー)
https://w.atwiki.jp/tohoku-suisou/pages/41.html
2006年吹奏楽コンクール東北大会 職場の部 出演順 県名 団体名 指揮 課題曲 自由曲 結果 1 宮城 NTT東日本東北ウィンドアンサンブル 中川祐二 Ⅳ 吹奏楽のためのおてもやん・もぐら追い(小山清茂) 金賞代表
https://w.atwiki.jp/tokyogenso/pages/22.html
「30歳」で「人生初となる『会社泊』を経験」したという点に注目。
https://w.atwiki.jp/agurikora/pages/66.html
職場長 カード説明 毎ラウンドの開始時に、ストックから食料1つを好きなアクションスペースにおく @@@ カードレビュー @@@ カードの評価は人によって様々です。 このページは「私」ならこのカードをこう使う!こう評価する!というものです。 レビューをしてくださる方は、最下行に追加してください。 その際、他の方のコメントなどを消さないよう気をつけて下さい。 【氏 名】 【評価点】(5段階) 【コ メ ン ト】 ユーリ 3点 実際に使ってみて意外と高評価。スタートプレイヤーになれば確実に食料が1つ手に入る。また4番手のときなどは、わざと1~3番手が入りたくなるようなマスに食料1つを置くことで自分が入りたいマスに入れるようになる効果も狙える。毒見役などと一緒に使ってみてはいかが? 大将軍 3点 実際に使われてみてやるなと思った一品、さてこのカードは食料供給兼進歩出しの役割を担えるカード群である。軽めの進歩を上手くプレイしながらスタートプレイヤー回数を増やし盤面をどんどん有利にしていこう。ちなみにマニアックな戦術に反れて、他人が踏まない様なマスにこっそり置くプレイングも有
https://w.atwiki.jp/tohoku-suisou/pages/40.html
2007年吹奏楽コンクール東北大会 職場の部(H19/9/9 青森市文化会館) 出演順 県名 団体名 指揮 課題曲 自由曲 結果 1 宮城 NTT東日本東北ウィンドアンサンブル 中川祐二 Ⅳ 吹奏楽のための土俗的舞曲(和田薫) 金賞代表
https://w.atwiki.jp/keiplus/pages/274.html
職場でファイル世代管理 git 職場 本項は書きかけの記事です。正確な情報は公式サイト、公式ドキュメント、記載の参照サイトでご確認ください。 OSS(OpenSourceSoftware)を利用しています。使用期限や保守、公開期間の確約がないことに留意してください。 会社によっては職場PCにGitやTortoiseGitのインストールを禁止されている場合はセキュリティ違反になりますのでご注意ください。 目次 + 読む 職場でファイル世代管理目次 準備 クローン先フォルダが既にある場合 コード1 参考 準備 gitをインストール https //git-scm.com/ Windows版の場合は、Download for Windowsページから64-bit Git for Windows Setup.のリンクをクリックしてダウンロードしてインストール tortoiseGitをインストール(GUIクライアントを使う場合) https //tortoisegit.org/download/ 日本語化ツールが必要な場合は適宜ダウンロード クローン先フォルダが既にある場合 + 読む Bareリポジトリ作成 git init --bare /path/to/bare-repository.git クローン先フォルダが既にある場合(対象フォルダへ移動) cd /path/to/existing-tolder クローン先フォルダにgitリポジトリを初期化 git init Bareリポジトリをリモートとして追加 git remote add origin /path/to/bare-repository.git git fetch git checkout -t origin/master (注) Bareリポジトリのフォルダ名を bare-repository.git と記しているが、.gitを含む必要はない。 コード1 + 読む {}を含む場合はダブル・ブレスで囲む。プログラムソースコードを記述 参考
https://w.atwiki.jp/kinchu/pages/18.html
1学年弘前市職場体験用 弘前市の体験学習 弘前観光マップ ねぷた村周辺マップ 弘前市立観光館付近の地図 弘前パークホテルの地図 弘前パークホテル 弘前 長勝寺 地図 弘前の神社仏閣 弘前市内の建築 シャプラン 地図 シャプラン シャプラン検索結果 津軽天然藍染 川﨑染工場(ねぷた村斜め向かい) 丸富川﨑染工場 .
https://w.atwiki.jp/keiplus/pages/249.html
職場向けVBA vba 職場 本項は書きかけの記事です。正確な情報は公式サイト、公式ドキュメント、記載の参照サイトでご確認ください。 OSS(OpenSourceSoftware)を利用しています。使用期限や保守、公開期間の確約がないことに留意してください。 目次 + 読む 職場向けVBA目次 よく使うマクロ 参考 よく使うマクロ Common オブジェクト一括削除 非表示行の一括表示 描画オブジェクト、表、テキストボックスの一括縮小 シェイプ画像の一括圧縮 関数 log4timestamp("文字列") 汎用処理 + 読む CommonLibrary オブジェクト一括削除 todo functionの引数を変えても変わらないバグ Sub deleteAllObjects() Dim obj As Object Dim ws As Worksheet Dim hyperlink As hyperlink Dim description As String Set ws = ActiveSheet For Each obj In ActiveSheet.Shapes obj.Delete log4timestamp ("Shapes") Next obj For Each obj In ActiveSheet.ChartObjects obj.Delete log4timestamp ("ChartObjects") Next obj For Each obj In ActiveSheet.OLEObjects obj.Delete log4timestamp ("OLEObjects") Next obj For Each obj In ActiveSheet.Buttons obj.Delete log4timestamp ("Buttons") Next obj For Each obj In ActiveSheet.ListBoxes obj.Delete log4timestamp ("ListBoxes") Next obj For Each obj In ActiveSheet.CheckBoxes obj.Delete log4timestamp ("CheckBoxes") Next obj For Each obj In ActiveSheet.OptionButtons obj.Delete log4timestamp ("OptionButtons") Next obj delete hyperlins For Each hyperlink In ws.Hyperlinks hyperlink.Delete log4timestamp ("Hyperlinks") Next hyperlink End Sub Sub ShowHiddenRowsInRange() Dim rng As Range Set rng = Range("A1 A10") 表示したい範囲を指定 rng.EntireRow.Hidden = False Rows.Hidden = False log4timestamp ("ShowHiddenRowsInRange") End Sub Sub ShrinkObjects() Dim obj As Object Dim ws As Worksheet Set ws = ActiveSheet 縮小したいオブジェクトが含まれているシートを指定 シート上のすべてのオブジェクトを縮小する For Each obj In ws.Shapes obj.ScaleWidth 0.75, msoFalse, msoScaleFromTopLeft obj.ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft Next obj シート上のすべてのチャートを縮小する For Each obj In ws.ChartObjects obj.Width = obj.Width * 0.75 obj.Height = obj.Height * 0.75 Next obj シート上のすべてのテキストボックスを縮小する For Each obj In ws.TextBoxes obj.Width = obj.Width * 0.75 obj.Height = obj.Height * 0.75 Next obj log4timestamp ("ShrinkObjects") End Sub Sub CompressImages() Dim ws As Worksheet Dim shp As Shape For Each ws In ThisWorkbook.Worksheets すべてのシートに対して処理を繰り返す For Each shp In ws.Shapes シート内のすべてのシェイプを取得する If shp.Type = msoPicture Then シェイプが画像である場合のみ処理を実行する shp.PictureFormat.Compression = 80 圧縮率を設定する(ここでは80%に設定していますが、必要に応じて変更してください) shp.PictureFormat.SaveWithDocument = True 圧縮画像をブックに保存する End If Next shp Next ws End Sub メール送信 定期的に送信するメール用 + 読む Sub createstarttelework() Dim OutApp As Object Dim OutMail As Object Dim fso As Object Dim textFile As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Dim mailDate As String mailDate Format(Now, "MM/DD") Set fso = CreateObject("Scripting.FileSystemObject") Set textFile = fso.opentextfile("c \aaa\bbb\importfile.txt", 1) bodyText = textFile.ReadAll textFile.Close With OutMail .To = "joshi@example.com; joshi2@example.com" .CC = "joshi@example.com; joshi2@example.com" .BCC = "me@example.com" .Subject = mailDate "出勤" .Body = bodyText .Display End With Set OutMail = Nothing Set OutApp = Nothing Set fso = Nothing End Sub Outlook・特定のフォルダ―の件名、受信日時を取得したリストを書き出す + 読む 【注意】FSOは参照設定のMicrosoft Scripting Runnerを有効化する必要がある。 Sub ExportEmailSubjectsAndReceivedDates() Dim outlookApp As Outlook.Application Dim namespace As Outlook.NameSpace Dim folder As Outlook.Folder Dim mailItems As Outlook.Items Dim mailItem As Object Dim startDate As Date Dim endDate As Date Dim filter As String Dim fso As Object Dim textFile As Object Dim filePath As String Outlookのセットアップ Set outlookApp = New Outlook.Application Set namespace = outlookApp.GetNamespace("MAPI") フォルダのパスに基づいてフォルダを取得 Set folder = namespace.Folders("メールボックス名").Folders("受信トレイ").Folders("path").Folders("to").Folders("targetfolder") メールボックス名は基本はメールアドレス 取得するメールの期間を設定 startDate = "2023/11/01" endDate = "2023/11/30" 期間に基づいてフィルタを設定 filter = "[ReceivedTime] = " Format$(startDate, "ddddd h nn AMPM") _ " And [ReceivedTime] = " Format$(endDate, "ddddd h nn AMPM") " " フィルタを適用してメールを取得 Set mailItems = folder.Items.Restrict(filter) mailItems.Sort "[ReceivedTime]", True 受信日時でソート 出力するテキストファイルのパス filePath = "C \EmailSubjectsAndDates.txt" ファイル名を含めたフルパスを記載 FileSystemObjectのセットアップ Set fso = CreateObject("Scripting.FileSystemObject") Set textFile = fso.CreateTextFile(filePath, True) メールの件名と受信日時をファイルに書き込む For Each mailItem In mailItems If mailItem.Class = olMail Then textFile.WriteLine "件名 " mailItem.Subject " - 受信日時 " mailItem.ReceivedTime End If Next mailItem ファイルを閉じる textFile.Close オブジェクトの解放 Set fso = Nothing Set textFile = Nothing Set mailItems = Nothing Set folder = Nothing Set namespace = Nothing Set outlookApp = Nothing 完了メッセージ MsgBox "メールの件名と受信日時が出力されました。", vbInformation End Sub メール本文に入れ込むファイルパスを指定したい場合 + 読む Sub createweekendreport() Dim OutApp As Object Dim OutMail As Object Dim fso As Object Dim textFile As Object Dim bodyText As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Dim mailDate As String mailDate Format(Now, "MM/DD") FilePath = InputBox("週報のファイルを指定", "入力", "c \aaa\bbb\ccc") If FilePath = "" Then Exit Sub On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") Set textFile = fso.opentextfile("c \aaa\bbb\importfile.txt", 1) If Err.Number 0 Then MsgBox "ファイルパスが不正", vbExclamation Exit Sub End If On Error GoTo 0 bodyText = textFile.ReadAll textFile.Close With OutMail .To = "joshi@example.com; joshi2@example.com" .CC = "joshi@example.com; joshi2@example.com" .BCC = "me@example.com" .Subject = mailDate "出勤" .Body = bodyText .Display End With Set OutMail = Nothing Set OutApp = Nothing Set fso = Nothing End Sub ハイパーリンクからマクロを実行する + 読む 1.動かしたいサブプロシージャ―を作成 2.VBA・プロジェクトビューワのExcelObjectsにある「ThisWorkBook」で次のPrivate サブプロシージャ―を作成する Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) Call 動かしたいサブプロシージャ―名 End Sub 3.シートでハイパーリンクを作成する。 このときリンク先は自身のセルを指定すると良い。 (メリット) マクロの起動にはメニューの開発からマクロを選択したり、オブジェクト画像にマクロをリンクさせる方法があるが いずれも面倒さがある。ハイパーリンクから起動する場合、設置が楽で汎用性があるところがメリット。 (注意点) ThisWorkBookにプロシージャ―を置いているので、ハイパーリンクを踏むと全てのシートで同一マクロを動かしてしまうので注意。 特定シート、セルからのみ動かしたい場合はWorkbook_SheetFollowHyperlinkの引数を利用して条件分けすることで対処できる。 シート別に動かすマクロを変える場合は、引数Sh、Targetを利用して条件分けする必要がある。 Sh.Nameでシート名を取得でき、 Target.SubAddressで「シート名!A1」形式でセル座標を取得でき、 Target.Nameで「ハイパーリンクにしている文字列」を取得できる ので、細かく条件分けすることができる。 DL CommonLibrary.basダウンロード 参考