ブログ記事9,326件
数年前、仕事も忙しく、掃除の手間を減らすためにお掃除ロボを導入しました。当時、10万弱したと思います。そんなロボが先日壊れてしまい、昔の事を思い出したので書いておきます。当時、何ヶ月かロボを使ってみた結果、会社に行く前にお掃除ロボのスタートボタンを押すのも面倒になり、スケジュール機能を使うようになりました。週3日、月・水・金のスケジュールを設定しておくと、自分が会社に行った後にお掃除がスタートして、終わったら勝手に基地に戻っていきます。この設定で結構いい感じで掃
DX化とはデジタルトランスフォーメーションデジタル技術を活用してビジネスや社会、生活の形やスタイルを変革する取り組みを指しますDX化の例としては…タクシー配車サービスオンラインスクールスマート家電テレワーク無人店舗フードデリバリーサービスモバイルオーダーなどなど私たちの身の回りにすでにたくさんあります医療業界ももうすでに何年も前からDX化の遅れが指摘されていましたが…ほんの少しだけ前へ向いて動きそうです「普及が進まない診療所向けの電子カルテ、政府が開
2024年2月に新バージョンのamecarever.2が公開されました!こちらの記事でご紹介しているAmeCareは旧バージョンのため、現在開発は終了しています。<新バージョンのamecarever.2>amecarever.2のダウンロードamecarever.2公式ブログamecarever.2の使い方ガイド開発者松本さんのお知らせはこちらからamecareのFacebookページ一度使い始めると手放せない、アメブロの作業を劇的に
桜子さんはよく−僕の将来のため−とか言います。そして、僕がいつか誰かと付き合う時や結婚する時を想定して、◯◯しておくといいからとアドバイスして来ます。ウール混ハウンドトゥースフリンジスカート・p001357レディース【sk】ボトムススカートロング丈ハイウエストタイトウール混ハウンドトゥースフリンジスリムスリットヘムオフィスカジュアルOLモード冬韓国ファッションMKT楽天市場${EVENT_LABEL_01_TEXT}あの‥【送料無料】≪
教育総合展(EDIX東京)に参加してきました。コロナの時は消毒や仕切りなどの展示が目立ちましたが、今年はデジタル教材や電子黒板などのGIGAスクール構想関連の展示が目につきました。最近、学校の定期テストの採点でよく目にするデジタル採点システムのブースもたくさんありました。漢字のとめ、はね、はらいや三次関数のグラフなど、結構正確に採点されているのでびっくりします。生徒数が多い学校や集団塾などは、どんどんこういったシステムを取り入れていくといいですね。ひ
弊社の今年のテーマは「効率化」らしい。私は今週、効率化という名のコストカットに苦しんでいるいくらコストカットされて弊社の純利益が増えたところで私のお給料に反映されないのだむしろ、残業が増えてコスパ悪い(ひよりはみなし残業制の会社で働いている)GWのせいで出勤日少ないのに効率化研修8時間……10日までに決算を組む流れなのだがむしろなんで今週研修入れたんだ……意味がわからない当たり前だが慣れているやり方から新しいやり方に慣れるのに余計に時間がかかるのだが……それは必
~『『乗換⑤』』から続く〜初めての人はこちらからご覧下さい♪『『突然の逮捕』①<逮捕!!>』こんにちは2個目のブログは突然やってきた逮捕の話です。そのときは突然やってきました。ある朝、5時半頃私が出勤しようと家を出て、いつもの通勤道を歩いている…ameblo.jp案件内容を確認してみるとスプレッドシートに書かれている会社名を検索して住所、電話、代表者名などが合っているのか確認をする作業らしい。修正1個につき2円、修正は1円。んー。楽なのかどうなのか。引き受けてしまった
改正戸籍法が、来年3月1日から施行されるので、下記のブログの情報をアップデートしたいと思います。『性別変更手続きで意外と手間のかかる戸籍の取り寄せ』出来たら性別適合手術前に可能な限り事前準備をしておくと楽です。その理由はしばらく安静にしておかなければいけない場合があるからです。社会保険関係ですが、会社…ameblo.jp今までは戸籍を本籍地のある自治体に直接行くか郵送手続きをするしか取得しようがありませんでしたが、来年3月からは手続きが大分楽になります。戸籍とマイナンバーが
『情報の発信活動を応援してくださる皆様へ』『おじさんひろみちこと大西有の決意‼️』ツイッター&アメブロ&ユーチューブのフォロワー様に大西有から大切なお知らせ🙏7月1日より行動を起こす方向へ✊誠意を伝…ameblo.jp『山ちゃんの可愛いイラストがなんと商品に♥️』山ちゃんから可愛いイラストがプリントされた商品の販売が開始されたよ✊yamachan70のオリジナルアイテム・グッズ通販∞SUZURI(スズリ)公式アイテ…ameblo.jp商品ページ一覧表に戻る僕が使っていたりお勧めでき
宅配便のマンガも描いております。最近は新しく『ウーバーイーツの漫画』に取り組んでおります。まだあまり知られていないウーバーイーツの世界を、自分が体験して漫画でご紹介しようと思います。ぜひフォローをお願いいたします。というわけで昨日(12月26日)、2回目の稼働をやって来ました。初回は自宅を中心にやろうと思ったのですが、ピックと配達を繰り返しているうちにどんどん遠く行ってしまい、知らないところを走り回ってかなり苦労しました。なので2日目は『一番得意なエリア』に移動
エアファンネル・・・キャブレター等の吸気口に取り付けられるラッパのような部品ですね。昔の自然吸気のエンジンなんかは排気マニホールドの曲げと相まって機能美をエンジンに与えてくれています。※名機コスワースDFVこのエアファンネルという部品は空気をエンジンに取り入れる際、空気の流れを綺麗に整え流速を均一化して、燃料と空気との混合気を作るためにとても重要な部品なんです。気体の持つ特性に”壁面を流れたがる”というものがあります。翼の揚力を発生するメカニズムも基本はこの原理が働いているの
毎日がほんとうにつまらない。結婚してからこんなにつまらなくてさみしくて苦しくてわびしいと思ったことはなかった。子どもが産まれて4ヶ月。ほんっとーーーにつまらない。すごくさみしい。家にいるのに好きなことが何もできない。何もかも細切れ。社会からは分断され…趣味もできない。いつ起きてギャーギャーいいだすかわからないから準備もめんどくさい。1時間寝るのか30分だけなのかわからないから洗濯とか皿洗いとか掃除するくらい?そんなことをぱぱっとやって…なんの満足感
セル数式のコピペ絶対参照Subtest1()’セル数式のコピペRange("D4")="=C4*B4"'絶対参照D4と同じ数式Range("D5")=Range("D4").FormulaEndSub実行結果セル数式のコピペ相対参照Subtest1()’セル数式のコピペRange("D4")="=C4*B4"'相対参照D5に適用した数式Range("D5
AutoFillメソッドによる曜日一括入力Subtest()’AutoFillメソッドによる曜日一括入力(数式を一切利用せずWithRange("A2").Value="2024/4/16"’任意の日付を入れる.AutoFillDestination:=Range("A2:A31").Offset(,1)="火"’上記日付に対応する曜日を入れる
現在はウーバーイーツの漫画をメインに取り組んでおります。まだあまり知られていないウーバーイーツの世界を、配達員としての体験を通じて漫画でご紹介しております。男前の嫁漫画も描いてます。【自己紹介ページ】初めての方はこちらをどうぞ【すくパラ倶楽部】にて『男前!嫁日記』連載中!第4話『男前のタイ料理』どれも美味しそう!タイ料理店にお一人様で入ったしまった嫁が大変な事態に...【男前!嫁日記】第4話:男前のタイ料理①byゆきたこーすけ|すくパラ倶
VBAで元データ範囲の自動取得Subtest()'元データ範囲の自動取得DimmyRAsRange'A2を含むセル範囲を変数myRに代入SetmyR=Sheets(1).Range("A1").CurrentRegionEndSubSubtest2()'VBAでピボットテーブルを作成DimWSAsWorksheetDimPVCAsPivotCacheDim
21日の議会総務文教常任委員会で、市役所の開庁時間を「8時30分」から「9時」に遅らせ、さらに「17時からの15分」を閉庁するための報告と、質疑が行われていました。市長のあまりの非論理性、感情の露出に、唖然としました。「住民票、戸籍謄本等に関わって窓口に来庁する市民の内、今回閉庁する45分間に来庁した市民は4.4%に過ぎず、影響は軽微である」というのが理由の1つだそうです。8時間開庁する時間の中で、45分間は9%あまりですから、約半分の密度になります。市長は、これを切り捨てて、「行政の効
1.建設現場での週休2日を確保するための課題(1)i-constructionの更なる推進建設現場では、工期内に工事完成が求められるため、天候の影響や施工現場の不測の事態が生じた場合、休日返上で対応せざるを得ない状況である。これは、建設生産システムが「一品受注生産」、「現地屋外生産」など、人手に頼った「労働集約型生産型」となっていることが要因である。そこで、生産システムの観点から、労働集約型の生産体制から脱却したi-constructionを更に推進することが課題である。(2)労働
複数列を一括重複削除Subtest()’複数列データを一括重複削除ActiveCell.CurrentRegion.SelectSelection.RemoveDuplicatesColumns:=_Array(1,2,3,4),Header:=xlYesEndSubArray(1,2,3,4)は、4列ともに重複する場合、それを削除する。1列と3列だけ重複する場合、Array(1,3)にすれば良いです
どうもKパパです。世の中には仕事ができる人は沢山いますが、その中でも圧倒的に仕事ができる人はごく少数です。圧倒的に仕事ができる人になる為には普通の事をしていてはなれません。圧倒的に仕事ができる人は周囲からは群を抜いて注目され、上司・会社からの評価・信頼がずば抜けて高いです。本記事では、圧倒的に仕事ができる人の特徴と圧倒的に仕事ができる人になる為のコツを紹介してきます。圧倒的に仕事ができる人の6つの特徴圧倒的に朝起きるのが早い圧倒的に仕事ができる人は朝起きる
実務上、コメントはとても便利なツールです。しかし、多用すると、その内容確認するのも時間がかかります。ここで、コメント内容を一括で取得する方法を見ていきましょう。コメント内容の取得上の図は、ある店の売上データとします。その売上減少原因について、本来C列の備考欄に入れてもらいたいですが、担当者が売上のコメントにしてしまいました。コメント内容を備考欄に転記する方法を下記のようにまとめました。Subtest()’コメント内容の取得DimiAsIn
配列でデータを高速抽出Subtest()'配列でデータを高速抽出Dimi,jAsLongDimA'元データを配列Aに代入A=Range("A1:D"&Cells(Rows.Count,"A").End(xlUp).Row)DimB'出力結果を格納する配列を設定ReDimB(1ToUBound(A,1),1To4)j=0
microsoft365のアプリには当初からVBA(マクロ)が使えますアプリの機能,windowsの機能などを使うことができ、本格的な操作ができますしかし下記の状況で悪意のあるウイルスを混入できることから、デフォルトでは実行が無効になっています。SHIFTキーを押しながらアプリを起動するとマクロを起動させないことができます。開発でマクロのソースを見ることは可能ですが、プログラマでないと、どのような操作をするのかわかりません言語仕様が過去のもので、最新の言語と比べ見劣り作成者が素人なので
1から9まで重複しない乱数自動生成Subtest()ConstxlStartAsLong=1DimxlEndAsLongConstxlMiniAsLong=1ConstxlMaxAsLong=9xlEnd=xlMax-xlMini+1DimiAsLongDimmyNumAsLongDimmyFlag(xlMiniTo
テーブルの並べ替え(昇順)Subtest()’テーブルの並べ替え(昇順)WithRange("A1").ListObject'「3」列目を、昇順にソート.Range.Sortkey1:=.ListColumns(3).Range,order1:=xlAscending,Header:=xlYesEndWithEndSubテーブルの並べ替え(降順)Subtest()’テ
パラレルワークの強みを生かし、コンサルティングを通じて事業マネジメントを推し進めます。荒井竜哉です。昨日の日経平均昨日の日経平均の終値は2万7901円、前日比326円高と反発しました金融引き締めの長期化の心配から連日株価が下がっていた米国ハイテク株ですが、前々日は特に材料がなかったにも関わらず自律的に反発して上昇しました。ただしその勢いは小さく、来週の消費者物価指数や金融政策の決定会合の結果を見極め
型番など文字列に0をつけて桁数を揃えるSubtest()'型番など文字列に0をつけて桁数を揃えるDimmyNumAsLongDimiAsLong'出力先セルの表示形式を文字列に変換Range("B3:B11").NumberFormatLocal="@"Fori=3To11'対象セルの文字数を取得(Len関数機能は文字列の数を取得する)
\週2ブログ!実績ゼロ!でも/2カ月でフォロワー2,000人3ヶ月以内に即・結果!あなたの魅力があふれ、理想のお客さまにつながれるアメブロ集客+テンプレライティング講師のブライトめいです(プロフィールはこちら)いま参加できるメニューはこちらから今日はこんなことがわかります無料で使える予約システムはどれがいい?1、Googleカレンダーと連携できる2、銀行振込ができる3、LINE連携できる4、操作がかんたん5,スマホとパソコンで作
テーブル(ListObjects)へデータを貼り付けるSubtest()’テーブルへデータを貼り付けるWithRange("A1").ListObject.ShowTotals=FalseDimnAsLongn=.ListColumns(1).Range.Count+1Range("E6").CurrentRegion.Copy