初めてのネックスピーカーなので他の製品と比較は出来ませんが10日ほど使った感想を書いていきます。 起動と接続 まずは起動すると自動でBluetoothに接続。接続時間と音が流れるまでの時間が早いです。いままで使ったイヤホンやヘッドセットの中でも最速。…
PC作業を少しでも効率化するため外付けモニタを2台繋げたくなりました。 ネットで調べると上手くいかなかったり、変換ケーブルが必要だっり面倒そうでしたが、手持ちのモニタが2台とも USB Type-CのDisplayPort Alternateに対応していたのでUSBケーブルを…
シリコンスチーマーが便利なので色々作ってます。 今回は簡単そうなホットケーキを作ってみました。 簡単料理を目指してるのでレシピは適当です。 今回使ったホットケーキの素。 裏面。材料と作り方。 今回は書かれていた材料をざっくり目分量で作りました。…
ブラックフライデーにアマゾンで買ったシリコンスチーマー。 蒸し野菜を簡単に美味しくできるので、ほぼ毎日野菜を食べるようになり、健康的な食生活をおくっています。 ですが蒸し野菜も飽きて他の料理も食べたくなりました。そこで「蒸し」繋がりで蒸し焼…
パッケージの表から。 左から。 右から。 上から。 下から。 裏から。 フタ開け。 紙どかし後に本体とトランスミッタ。 黄い紙。 箱の底に小さい箱。 小さい箱の中身。USB Typd-C2本(20cm, 100cm), 光デジタル音声ケーブル(80cm)。 紙袋の中に光デジタル音声…
Google KeepはスマホやPCで同期が取れるので便利です。 タスクリスト、ちょっとしたメモ帳、買い物リスト、本で読んだ気になった言葉、ふと浮かんできたアイデア等々、色々書き込んでいたらメモが増えすぎて収拾がつかなっくなっていました。 昔のアイデア書…
一部の文字入力にはshiftキーが必要ですが、指の移動距離が減っているのでむしろメリットになります。 shiftキーが必要でよく使う文字では「ろ」と「ー」ですが 「ろ」の入力が「shift」+「け」 「ー」の入力が「shift」+「む」 で出来ます。 英語配列のキー…
エクセルの編集で写真などの画像オブジェクトを綺麗に並べたけど、印刷するとずれてしまう。エクセルで書類を作っているとたまに遭遇します。 解決方法を検索しても原因はわからず、結局は画像を挿入してサイズ変更と移動の微調整をするのですが面倒くさい。…
「お菓子を食べない」から「お菓子を買わない」へ言葉を変えたらお菓子を食べる頻度が減りました。 家の中にお菓子があるのに、我慢して食べないなんて事は不可能です。買わなければ食べられない。考えれば当たり前な事のですが、一日働いて疲れた脳にはこの…
英語のウェブサイトを読む時。分からない単語があると、 ・その単語を選択 ・右クリック ・カーソルを[Googleで「**」を検索]に合わせる ・左クリック で新しいタブに出てきたGoogle翻訳、Weblio、英辞郎で意味を調べていました。ですが英語が得意でない私は…
サーモスの真空断熱マグカップ。飲み物の温度が下がりません。 長い時間、温かくて美味しいのです。今まで100均のマグカップを使用していた時、意識せず気づいてなかったのですが、 コーヒーが冷めると不味くなるので、冷たくなる前に一気飲みをしていました…
11インチのiPadに接着タイプのゴムバンドを取り付けました。 今までも不便は感じていませんでしたが、バンドをありだと大分楽にiPadを持てるようになります。 自然とKindleを読む時間が増えました。 今まで気付かない内にストレスになっていたようです。 こ…
Sub copyCellsFromExternalFirstSheet() Dim fileFilter As String fileFilter = "Excel ファイル (*.xlsx;*.xlsm;*.xls;*.xlm),*.xlsx;*.xlsm;*.xls;*xlm" Dim filePath As Variant filePath = Application.GetOpenFilename(fileFilter) If filePath = Fals…
Sub selectCellOfAllSheets(Optional wb As Workbook, Optional cellRange As String = "A1") If wb Is Nothing Then Set wb = ActiveWorkbook For Each ws In wb.Sheets ws.Activate ws.Range(cellRange).Select Next wb.Sheets(1).Activate End Sub wb 編…
Sub setZoomOfAllSheets(Optional wb As Workbook, Optional zoomMagnification As Variant = 100) If wb Is Nothing Then Set wb = ActiveWorkbook For Each ws In wb.Sheets ws.Activate ActiveWindow.Zoom = zoomMagnification Next wb.Sheets(1).Activat…
Function isExcelFile(filePath As String) As Boolean isExcelFile = False Dim extensions(2) As String extensions(2) = "xls" extensions(0) = "xlsx" extensions(1) = "xlsm" Set fso = CreateObject("Scripting.FileSystemObject") Dim extensionName …
folderPath : 検索をするフォルダーのパス。 searchFileName : 検索するファイルの名前。拡張子含む。 見つからなければ空文字を返す。 フォルダ、サブフォルダ内に同名のファイルが複数ある場合、最初に見つかったファイルのみ返す。検索順はファイル名の昇…
解決方法 ・NVIDIAのドライバを「GeForce Game Ready」から「NVIDIA Studio」にする。 GeForce 公式ドライバー Dellの4Kモニター(S2722QC)を買ったのですが、私のゲーミングノートPC、G15にモニタ付属のUSB-Cケーブルで接続しても認識しませんでした。 モニ…
当たり前のことなんですが、考えが足りず失敗しました。 最近は4Kのモニタも安く買えます。 ゲーム用の120Hzのモニタも安いです。 ですが4Kかつ120Hzのモニタは倍以上の値段になります。 さらにThunderbolt対応になると、そこそこのPCが買える値段です。 今…
今年、最も生産性を上げたアイテムです。 今まで買わなかった事を後悔。すごく快適で作業が捗ります。 1日座ったせいか少し形が崩れています。 仕事の都合で出張が多く、よくレオパレスを利用するのですが、備え付けのパイプ椅子が固く、すぐお尻が痛くなる…
まとめ [Ctrl + T]半角英字 [Ctrl + U]ひらがな [Ctrl + I]カタカナ [Ctrl + O]半角カタカナ [Ctrl + P]全角英字 Windowsの日本語変換キーといえばファンクションキー(F6~F10)で便利なショートカットだと思っていました。 ですが最近…
Power Automate Desktopでは1つのアクションを実行する毎に、テキストファイルに実行したアクションが追記されていきます。 マウスのクリック連打をPADで実行するとすごい勢いで追記されていくので、テキストファイルなのにギガ越えしたりします。 PADのデ…
Power Automate Desktop(以下PAD)でクリック連打の自動入力は出来ました。 ですがゴールデンクッキーを取らないと効率がかなり悪いです。 そこでPADでゴールデンクッキーを認識して自動クリックするようにしました。 まずは [Loop]を追加。 今回は増分を0…
Power Automate Desktop で自動操作の作成を説明します。 Power Automate では一連の処理をフローを呼びます。 まずはアプリを起動しましょう [新しいフロー]をクリックしてフローを作成します。 ここでインターネットに接続していないとエラーになります。P…
Power Automate Desktopのインストール手順を説明します。 ※Power Automate Desktopの実行にはMicrosoftアカウントが必要になります。アカウントを持ってない方は作成しておきましょう。ダウンロードとインストールまではアカウントは必要ありません。 1.P…
解決法 SurfaceViewのXML属性からandroid:backgroudを削除。 SurfaceViewを試していたが、画面に描画出来ない。 ネット記事を参考に下記処理を記述したら描画出来た。 surfaceView.setZOrderOnTop(true) ただこの処理は他のサイトにも手持ちの書籍にも乗って…