okamura – ページ 2 – テックメモ

2024-12-052024-12-05

弥生会計メニュー文字化け

弥生会計を起動すると､以下のような状態で落ちる｡

イベントビューワを見ると以下のようなエラー

障害が発生しているアプリケーション名: YKaikei24.exe、バージョン: 30.4.1.105、タイムスタンプ: 0x667d081c
障害が発生しているモジュール名: ucrtbase.dll、バージョン: 10.0.19041.3636、

設定>時刻と言語>言語>管理用の言語の設定>システムロケールの変更
ベータ:ワールドワイド言語サポートでUnicode UTF-8を使用
のチェックを外すと直った｡

2024-11-172024-11-17

C# デバウンス(検索用)

System.Threading.Timer _timer = new System.Threading.Timer(x => {
    Invoke(new Action(() => { xxx(); })); 
});
textBox1.TextChanged += (s, e) => {
    _timer.Change(500, Timeout.Infinite);
};

System.Threading.Timer _timer = new System.Threading.Timer(x => {

Invoke(new Action(() => { xxx(); }));

});

textBox1.TextChanged += (s, e) => {

_timer.Change(500, Timeout.Infinite);

};

2024-11-012025-02-10

共有フォルダにアクセスできない

Winアップデート後､ローカルネットワークの共有フォルダにアクセスしたとき､
“組織のセキュリティポリシーによって非認証のゲストアクセスがブロック…”
というメッセージが表示される｡

＞gpedit.msc
コンピューターの構成
管理用テンプレート
ネットワーク
Lanman ワークステーション
安全でないゲストログオンを有効にする
→有効

＞gpupdate

これだけで解決しない場合

＞gpedit.msc
コンピューターの構成
Windows の設定
セキュリティの設定
ローカルポリシー
セキュリティオプション
Microsoft ネットワーククライアント: 常に通信にデジタル署名を行う
→無効

＞gpupdate

2024-10-242024-11-27

PCが勝手に再起動してしまう

イベントビューワーをみると、メタデータステージングが失敗しましたと､DeviceSetupManagerがエラーを出している(イベントID131)

そのほか特にエラーもないので、
sysdm.cpl>ハードウェア>デバイスのインストール設定>いいえ
とだけ設定してみたら症状がおさまった。

追記

直ったように見えたけどダメだった｡

Windowsメモリ診断ツール
Win+R>mdsched

を実行するとエラーがでていたので､対象のメモリを外すことで解決した｡

2024-10-172024-10-17

マウスポインタが崩れる(二重や輪が付いたりなど)

ノートPC+ディスプレイ×2の環境のPCで数時間作業しているとマウスポインタが崩れる(二重や輪が付いたりなど)とのこと｡崩れるのはHDMIポートではなくUSBtoHDMIアダプタ側のみ｡

調べてみると､
“C:\Program Files\MS USB Display\WinUsbDisplay.exe”
というソフトがドライバとして動いており､これを再起動すると直った｡

taskkill /f /im WinUsbDisplay.exe
timeout 5 /nobreak
start "" "C:\Program Files\MS USB Display\WinUsbDisplay.exe"

taskkill /f /im WinUsbDisplay.exe

timeout 5 /nobreak

start "" "C:\Program Files\MS USB Display\WinUsbDisplay.exe"

検索してもほとんど情報はなく､おそらくアダプタ付属のソフトだったのだろうが､使わないほうがいいかなという感じ｡

2024-10-102024-10-10

Outlookの送信が異常に遅い症状が発生

ESETの設定にある､Outlookとの統合をオンオフで直った｡

2024-10-082024-10-12

Windows検索が反応しない

追記

どうやらGoogle日本語入力が原因の模様｡
再インストールしたら直った｡
(2.30.5590.0→2.29.5370.0)

https://answers.microsoft.com/ja-jp/windows/forum/all/windowssearchhost%E3%81%8C%E4%B8%AD%E6%96%AD/03d7f11c-f73d-4b0f-b161-e4b90dd371c4

——————————————————–

スタートメニューの検索(タスクバーの検索ボックス)が反応しなくなった｡どのタイミングだったか定かではないけど､どうもKB5043145が原因っぽい｡

https://learn.microsoft.com/ja-jp/troubleshoot/windows-client/shell-experience/fix-problems-in-windows-search
を一通りやったけど､ダメ｡

現状､SearchHostを2回落とすと動くが､なぜか1回だとダメ｡

taskkill /f /im SearchHost.exe
timeout 5 /nobreak
taskkill /f /im SearchHost.exe
pause

taskkill /f /im SearchHost.exe

timeout 5 /nobreak

taskkill /f /im SearchHost.exe

pause

2024-10-042024-10-04

AutoHotkey MButton↔RButton/Chrome

#HotIf WinActive("ahk_exe chrome.exe") or WinActive("ahk_exe msedge.exe")
RButton::MButton
MButton::RButton

#HotIf WinActive("ahk_exe chrome.exe") or WinActive("ahk_exe msedge.exe")

RButton::MButton

MButton::RButton

このような感じで､ChromeだけMButtonとRButtonを入れ替えていたけど､
Chromeがアクティブな状態から､デスクトップなどを直接右クリックすると､マウスの左クリックが反応しなくなってしまう｡(中央ボタンが押された状態?)一度､中央ボタンを押せば直るが､時々発生するので､以下のように変更

MButton::
{
  MouseGetPos(,,&id)
  if InStr(WinGetClass(id), "Chrome")
  {
    MouseClick "R"
  }
  else
  {
    MouseClick "M"
  }
}
RButton::
{
  MouseGetPos(,,&id)
  if InStr(WinGetClass(id), "Chrome")
  {
    MouseClick "M"
  }
  else
  {
    MouseClick "R"
  }
}

MButton::

{

MouseGetPos(,,&id)

if InStr(WinGetClass(id), "Chrome")

{

MouseClick "R"

}

else

{

MouseClick "M"

}

RButton::

{

MouseGetPos(,,&id)

if InStr(WinGetClass(id), "Chrome")

{

MouseClick "M"

}

else

{

MouseClick "R"

}

2024-10-032024-10-03

VBA 文字列分割ForEach,RCからA1アドレス取得,条件付書式

Sub SetColor()

Set w = Sheets("Sheet1")

For Each c In Split("2,3,17,23,24,38,39", ",")

  alphabet = Split(w.Cells(1, CInt(c)).Address, "$")(1)
 
  For r = 2 To 300
 
    Set f = w.Cells(r, CInt(c)).FormatConditions.Add(xlExpression, xlEqual, "=" & alphabet & r & "=""未""")
    f.Font.Color = RGB(255, 0, 0)
    f.Interior.Color = RGB(255, 255, 0)
    f.StopIfTrue = False
   
    Set f = w.Cells(r, CInt(c)).FormatConditions.Add(xlExpression, xlEqual, "=" & alphabet & r & "=""済み""")
    f.Font.Color = RGB(0, 0, 0)
    f.Interior.Color = RGB(150, 150, 150)
    f.StopIfTrue = False
 
  Next

Next

End Sub

Sub SetColor()

Set w = Sheets("Sheet1")

For Each c In Split("2,3,17,23,24,38,39", ",")

alphabet = Split(w.Cells(1, CInt(c)).Address, "$")(1)

For r = 2 To 300

Set f = w.Cells(r, CInt(c)).FormatConditions.Add(xlExpression, xlEqual, "=" & alphabet & r & "=""未""")

f.Font.Color = RGB(255, 0, 0)

f.Interior.Color = RGB(255, 255, 0)

f.StopIfTrue = False

Set f = w.Cells(r, CInt(c)).FormatConditions.Add(xlExpression, xlEqual, "=" & alphabet & r & "=""済み""")

f.Font.Color = RGB(0, 0, 0)

f.Interior.Color = RGB(150, 150, 150)

f.StopIfTrue = False

End Sub

2024-09-23

Google検索タイトル一覧取得ブックマークレット

javascript:(() => { const t = [...document.querySelectorAll('.MBeuO')].map(e => e.innerText).join('\n'); console.log(t); })();

1	javascript:(() => { const t = [...document.querySelectorAll('.MBeuO')].map(e => e.innerText).join('\n'); console.log(t); })();