約 21,682 件
https://w.atwiki.jp/tohoku-suisou/pages/34.html
2008年吹奏楽コンクール東北大会 職場の部 順 県 団体名 指揮者 課題曲 自由曲 結果 1 宮城 JR東日本東北吹奏楽団 川村浩一 Ⅰ 万霊節(R.シュトラウス/A.O.デイヴィス)
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ダウンロード 参考
https://w.atwiki.jp/pipopipo777/pages/93.html
【メール その12】 ◎職場も被害に ガザのアブデルワーヘド教授からのメールの邦訳です。 邦訳 岡真理; 凡例 (原注) [訳注] 【メール その13】 自家発電で命がけで世界に発信された現地(ガザ)の声
https://w.atwiki.jp/kabotya/pages/67.html
題のとおり、職場体験の打ち合わせにいってきたのだ。 凄い距離を自転車で走行したよ★ 鳩が死んでたよ★☆ 凄い時間かけて行ったけど打ち合わせの時間は・・ 20分強(アバウト ・・・短い。 ものすごく短い・・・。 まぁ楽しかったからいいか。 あとマリオテニスGBシングルスでマリオに勝ったよ! 感激☆★ GBA連打してたら摩擦で火傷ww 打ち合わせ中に水ぶくれ破裂ww 水ぶくれがまだ痛いよw -- 南瓜 (2007-07-27 19 46 27) 名前 コメント
https://w.atwiki.jp/jososs/pages/134.html
パパの職場見学 微かな音を立ててスタジオのドアが開いて、そこから兄弟らしき2人の少年と一人の女性が入ってきた。 「パパのお仕事の邪魔にならないように、静かにね」 と、20代後半の、母親らしいその女性が抑えた声で言うと、少年たちは頷きで応える。 スタジオの中では、等身大の美少女人形の撮影が行われている。 フラッシュを浴びて豪奢なソファーに腰掛けているのは、淡く微かに紫味を帯びた白いドレスを纏った少女の人形。フェイクパールが散りばめられた、チュール地のスカートを透かしてか細い脚が見える。 入ってきた母子に、監督と思しき男性が少しだけ顔を向けると、母親は微笑みながら頭を下げる。黒い髭を生やした精悍な顔に一瞬笑みを浮かべたあと、その男性は再び「少女人形」に真剣な面差しを向けなおす。 少女人形? いや、しみ一つない無垢な肌と、整い過ぎるほどに整った幼い面差しがそう錯覚させただけで、そこにいるのは人形めいた可憐な少女。 長く濃い睫に縁取られた大きな目の中、湖よりも深い色を湛えた黒い瞳が輝く。 腰まで届くつややかな漆黒の髪が、白い肌と衣装の上をさらさらと流れる。 肘丈のグローブが、強く掴むと折れそうな腕の華奢さをより一層強調する。その腕に抱かれた、衣装に合わせたのであろう淡い紫の紫陽花の花束。監督からの声に従って少女が微笑むと、少女自体がその花の化身となった印象を受ける。 「きれい……」 先ほど入ってきた兄弟が、小さな声で歓声を漏らした。 長い撮影が続き、ようやく訪れた休憩の時間。 「パパー! スゴくきれいだった」 6歳と4歳くらいに見えるその兄弟がそう言って駆け寄ると、少女? は大きく手を広げて笑顔で二人を抱きかかえた。 「達也、睦月、来てくれてありがとう」 ピンク色のつややかな唇から、いとおしむような声が零れる。 可憐な美少女にしか見えない実の父親の姿を、目をキラキラと輝かせながら賛嘆する兄と、はにかむようにちらちらと視線を向ける弟。 「達也と睦月、大きくなったら何になりたいのかな?」 「僕ね! パパみたいにきれいな女の子になりたい!」 「ボクは……パパと結婚したい」 周囲の微笑ましい視線に見守れながら和気藹々と会話を続けてる最中、ふとそんな流れになった。 ぷっくりした唇にほっそりとした指を当て、戸惑ったように考える偽りの美少女。少しのあと、ぽんと手を合わせ、──顔見知りらしい母親と話しこんでいた──監督に頼み込んだ。 その、2時間くらい後。 「私の仕事場はどうだった?」 「すごかったー」 「あなた達も、すごく可愛かったよ。素質あるんじゃないかな?」 渡された3姉妹のような美少女たちの写真を兄はご満悦で眺め、弟はその写真のドレス姿のまま母親の背中でうとうと。 暖かな目に見送られ帰宅する一家の肖像を飲み込んで、スタジオのドアが閉じた。
https://w.atwiki.jp/wbgenzmi/
そして看護士さんになってしっかりと働いた姿を見てみたいなと考えるようになっているのです。 中にはレントゲンの検査で気胸がわかったなんて人もいました。 看護士さんもたくさんの勉強が必要になるのでなかなかなれないものです。 健康診断をした事で自分の体の状態がわかると思うのです。 年齢が同じなのに手術なんてすごく怖いなと感じてしまいました。 先日、友達が気胸になって体調を崩していました。 [希望通りの職場http //77609964.at.webry.info/201308/article_1.html] [看護師求人が多いです!http //hanso6234.anime-ranking.net/] [看護師さんの転職サイトhttp //kazu013h.269g.net/]
https://w.atwiki.jp/danemaru-shi/pages/10.html
以下のツイートから職場でも堕ねまるというHNで二次創作同人活動をしていることはバレていると思われる
https://w.atwiki.jp/keiplus/pages/253.html
職場の自席PCフォルダ構成 職場 本項は書きかけの記事です。正確な情報は公式サイト、公式ドキュメント、記載の参照サイトでご確認ください。 OSS(OpenSourceSoftware)を利用しています。使用期限や保守、公開期間の確約がないことに留意してください。 目次 + 読む 職場の自席PCフォルダ構成目次 マイドキュメント内の構成 マイドキュメント内の構成 こうしろ!というのは無いが自分の場合はこのようにしている。 + 読む フォルダ名 用途 000 重要なファイル、勤怠、会議・議事録、週報等のテンプレート 100 ドキュメント類(設計書、仕様書など) 300 リポジトリ(ローカルGitリポジトリ、ソースコード原本など) 500 開発、製造物 700 テスト物、デプロイやビルド物 800 サンドボックス(個人的な試験場所、自由に使える場所) 900 個人、各種テンプレート、ボイラープレート 999 バックアップ、廃棄予定物
https://w.atwiki.jp/2ch_terror/pages/45.html
俺の職場での話 俺の職場の先輩は面倒見がいいし、仕事もスゲーってほどじゃないけど確実で、 取引先からも指名で仕事が来たりする。 ただ、ちょっと困ったとこは異様に家族のことを大切にしてること。 奥さんや娘さんのことを話し出すと止まらなくって、休日明けなんかは 家族となにをやった、どこへ行ったってことを写真を見せびらかして話してる。 それだけならいいお父さん、で済むんだけど 問題は奥さんと娘さんが既に他界されてること。 それ以外は本当に頼りになる人で、 仕事にも支障がないからみんな触らないようにしてすごしてる。 で、いつぞやの忘年会のこと。 その年は割とデカイ仕事が成功したこともあって、忘年会はかなり豪勢だった。 先輩もいつになく上機嫌で普段は絶対にしない深酒をして、 終いには歩くどころか、いすに座ってるのもままならないことになってた。 そんな状態だから一人で返すわけにもいかないけど、 先輩は家族が待ってるからと、帰るといってきかない。 しかたなく社長命令で俺ともう一人の同僚で送っていくことになった.。 同僚は下戸で車に乗ってきていたので、その車で先輩のうちまで行くことになった。 (本当は同僚だけが送っていけといわれたのだけど、見捨てられずついていった) 先輩はどっから見ても酔いつぶれてるってのに、いつの間にか持ち帰りを頼んでて、 それをしっかり抱えてたのを覚えてる。 先輩の家につくと、当たり前なんだけど家の中は真っ暗。いくらか回復してた 先輩はもう寝ちゃってるなーといって笑った。 お茶くらい出すからというのを、とっくに日付も変わってるしと断っていると トタタタタタ ガチャ 玄関が開いた。 なんだー、起きてたのか。お土産あるぞーと、どこか嬉しそうな先輩。 真っ暗な家に入っていく先輩に俺らは、それじゃといって車に乗り込んだ。 車の中でガチガチ震えてる俺ら。 ……なあ、先輩は、なにと住んでるんだ? 今でも先輩は、誰も写ってない奥さんと娘さんの写真を見せてくれる。
https://w.atwiki.jp/myhero/pages/118.html
【職場ウインク】菅野 夏樹 カード名 職場ウインク キャラ名 菅野 夏樹 レアリティ SR 所属 警視庁 リーダースキル トリックスター 全員のスキルターンが増えてしまう…… スキル 三十六計 タイムを回復する!