hapihapi life

『子育て、仕事、自己啓発、遊び、恋愛』欲張りシングルマザーの気まぐれブログ

2021-09-01から1ヶ月間の記事一覧

便秘改善に腸活の決意

私はかなりの便秘症 小さな頃からなので慣れていますが・・・ しんどい時はかなりしんどく 便秘で倒れて救急車で運ばれた事もあります お恥ずかしい(≧∇≦) それぐらいの付き合いなのですが 前回、記事にしたように poisrisette.hatenablog.com 健康診断をして…

気になる動画は子守唄

今週のお題「眠れないときにすること」 眠れない夜は、、、 YouTubeでタロット占いを聞いています 占いや引き寄せ、成功者の話って どこか他人事のような内容でも 意外に自分の身近な事を語られていたりするので 占いを信じるとか信じないとかではなく どう…

ExcelマクロVBA 抽出転記後フォントやフォントサイズを変更

お題「わたしの仕事場」 Sub 抽出転記() Worksheets("データ").Range("A:C").AutoFilter 1, "<>解約" MsgBox "オートフィルターを設定し解約以外を抽出。" Worksheets("データ").Range("A1").CurrentRegion.Copy Worksheets("抽出").Range("A1") MsgBox "転…

ExcelマクロVBA オートフィルタで抽出したデータを別シートへ転記

お題「わたしの仕事場」 このマクロもよく使うので忘備録!! マクロVBAは英数字が並んで難しく感じますが 簡単な処理の単語?的なものが組み合わさって 色々な処理ができるのがおもしろい!! Sub 抽出転記() Worksheets("データ").Range("A:C").AutoFilter…

アラフォーにして初体験バリウム検査【労働安全衛生法第44条】

お題「わたしの仕事場」 健康診断は法律的に義務になっているのでどの会社も実施されているかと思います。 労働安全衛生法第44条に実施義務の制定がされていて、違反の場合は50万円いかの罰金刑となります。 また、健康診断を実施してもその情報を漏洩した場…

ExcelマクロVBA オートフィルタ設定し、絞り込みが終わったらオートフィルタを解除する

お題「わたしの仕事場」e Sub オートフィルタの設定() Range("A:D").AutoFilter 2, "大阪", xlOr, "東京" Range("A:D").AutoFilter 4, ">30" Range("A:D").AutoFilterEnd Sub Range("A:D").AutoFilterを追記するだけですが、 これは、オートフィルタが設定さ…

三国志に影響されて中国茶に興味が湧いたっ

今週のお題「好きなお茶」 最近、U-NEXTで昔懐かしの 三国志を一気に見た そこで、幾度となく出てくる お茶を飲むシーンやお酒を飲むシーン 梅の花の側での会席やお香が焚かれているシーンに目がいってしまった あんな昔、昔でも 旅路には茶器を持ち歩いてお…

ExcelマクロVBA 表にオートフィルタを設定後、絞り込みをする

お題「わたしの仕事場」 前回オートフィルタの設定のみをしましたが ↓ poisrisette.hatenablog.com その後、よく繰り返す絞り込みを自動設定できるようにマクロ(VBA)を組んでみました。 Sub オートフィルタの設定() Range("A:D").AutoFilter Field:=2, Cri…

ExcelマクロVBA 表にオートフィルタを設定する

お題「わたしの仕事場」 パソコン備忘録 何もない表にオートフィルタを設定する 簡単なコードで設定できた! Sub オートフィルタの設定() Range("A:D").AutoFilterEnd Sub A~D列にオートフィルタを設定するというコードです 表は行が増えることが多いため、…

お局に爆発!!

今週のお題「爆発」 私が最近爆発した話とすれば・・・ やはりモンスター社員がらみでしょう 原因はモンスター社員が作ったとしても そのモンスターに対応する周りにも疑問は生まれるものです それが、上司であればあるほど 対応の仕方を周りは見ているもの…

モンスター社員の更にその後

今週のお題「サボる」 モンスター社員がいろんな人を巻き込んだ事件から約1ヶ月 今日モンスター社員が大泣きをした、、、 営業マンに冷たい言葉を言われたと、、、、 前回も忙しい締め日に揉め事を起こしましたが、、、 今回も締め日 これは、忙しい日にサボ…