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

2023-04-19

VBA モジュールエクスポート

Sub export()

' VBAプロジェクトオブジェクトモデルへのアクセスを信頼する
' 参照設定　Microsoft Visual Basic for Applications Extensibility

For Each m In ThisWorkbook.VBProject.VBComponents

  extension = ""

  If m.Type = vbext_ct_ClassModule Then extension = "cls"
  If m.Type = vbext_ct_MSForm Then extension = "frm"
  If m.Type = vbext_ct_StdModule Then extension = "bas"
  If extension <> "" Then m.export (ThisWorkbook.Path & "\" & m.Name & "." & extension)
  
Next
    
End Sub

Sub export()

' VBAプロジェクトオブジェクトモデルへのアクセスを信頼する

' 参照設定　Microsoft Visual Basic for Applications Extensibility

For Each m In ThisWorkbook.VBProject.VBComponents

extension = ""

If m.Type = vbext_ct_ClassModule Then extension = "cls"

If m.Type = vbext_ct_MSForm Then extension = "frm"

If m.Type = vbext_ct_StdModule Then extension = "bas"

If extension <> "" Then m.export (ThisWorkbook.Path & "\" & m.Name & "." & extension)

End Sub

2023-04-182023-04-19

Power Automate Desktop サインインできない

Power Automate Desktop を使って見ようと思ってインストールしてみたが、サインインしようとメールアドレスを入力すると、
メッセージ = Invalid cloudType value: Invalid
パラメーター名:cloudType
エラー = System.ArgumentException
全文 = System.ArgumentException: Invalid cloudType value: Invalid
パラメーター名:cloudType
というエラーがでる。

どうもメールアドレスに問題があるようなので、
・test@gmail.comでサインイン
(エラーが出ず次の画面に進む)
・パスワードを忘れた場合をクリック
・キャンセルをクリック
ここまではサインイン情報はtest@gmail.comになっていたが、これで自分のメールアドレスに切り替わるので、パスワードを入力すれば完了。

2023-04-022023-04-05

C# 画像表示(縦横比固定＋タイマー更新)

LAN経由で現場のディスプレイに資料を表示させておくアイデアの検証用。

何かしらのスクリプトで資料のファイルを自動で開く方法も考えたけど、資料を準備する側が画像に変換する手間をかけれるならプログラムが簡単で済む。

using System;
using System.Drawing;
using System.Windows.Forms;

namespace WindowsFormsApp1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            var timer = new Timer();

            timer.Tick += (s, e) => { DisplayImage(); };
            timer.Interval = 1000 * 60 * 15; // 15分
            timer.Start();

            this.Resize += (s, e) =>
            {
                var w = this.Width - 50;
                var h = this.Height - 70;

                pictureBox1.Left = 10;
                pictureBox1.Top = 10;
                pictureBox1.Width = w / 2;
                pictureBox1.Height = h / 2;

                pictureBox2.Left = w / 2 + 20;
                pictureBox2.Top = 10;
                pictureBox2.Width = w / 2;
                pictureBox2.Height = h / 2;

                pictureBox3.Left = 10;
                pictureBox3.Top = h / 2 + 20;
                pictureBox3.Width = w / 2;
                pictureBox3.Height = h / 2;

                pictureBox4.Left = w / 2 + 20;
                pictureBox4.Top = h / 2 + 20;
                pictureBox4.Width = w / 2;
                pictureBox4.Height = h / 2;
            };

            pictureBox1.SizeMode = PictureBoxSizeMode.Zoom;
            pictureBox2.SizeMode = PictureBoxSizeMode.Zoom;
            pictureBox3.SizeMode = PictureBoxSizeMode.Zoom;
            pictureBox4.SizeMode = PictureBoxSizeMode.Zoom;

            pictureBox1.BorderStyle = BorderStyle.FixedSingle;
            pictureBox2.BorderStyle = BorderStyle.FixedSingle;
            pictureBox3.BorderStyle = BorderStyle.FixedSingle;
            pictureBox4.BorderStyle = BorderStyle.FixedSingle;

            pictureBox1.BackColor = Color.White;
            pictureBox2.BackColor = Color.White;
            pictureBox3.BackColor = Color.White;
            pictureBox4.BackColor = Color.White;

            this.WindowState = FormWindowState.Maximized;

            DisplayImage();
        }

        private void DisplayImage()
        {
            string dir = System.IO.Path.GetDirectoryName(Application.ExecutablePath) + @"\image\";

            pictureBox1.ImageLocation = dir + "1.jpg";
            pictureBox2.ImageLocation = dir + "2.jpg";
            pictureBox3.ImageLocation = dir + "3.jpg";
            pictureBox4.ImageLocation = dir + "4.jpg";
            Text = DateTime.Now.ToString("工場掲示板 MM月dd日HH時mm分") + " 更新";
        }
    }
}

using System;

using System.Drawing;

using System.Windows.Forms;

namespace WindowsFormsApp1

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

var timer = new Timer();

timer.Tick += (s, e) => { DisplayImage(); };

timer.Interval = 1000 * 60 * 15; // 15分

timer.Start();

this.Resize += (s, e) =>

{

var w = this.Width - 50;

var h = this.Height - 70;

pictureBox1.Left = 10;

pictureBox1.Top = 10;

pictureBox1.Width = w / 2;

pictureBox1.Height = h / 2;

pictureBox2.Left = w / 2 + 20;

pictureBox2.Top = 10;

pictureBox2.Width = w / 2;

pictureBox2.Height = h / 2;

pictureBox3.Left = 10;

pictureBox3.Top = h / 2 + 20;

pictureBox3.Width = w / 2;

pictureBox3.Height = h / 2;

pictureBox4.Left = w / 2 + 20;

pictureBox4.Top = h / 2 + 20;

pictureBox4.Width = w / 2;

pictureBox4.Height = h / 2;

};

pictureBox1.SizeMode = PictureBoxSizeMode.Zoom;

pictureBox2.SizeMode = PictureBoxSizeMode.Zoom;

pictureBox3.SizeMode = PictureBoxSizeMode.Zoom;

pictureBox4.SizeMode = PictureBoxSizeMode.Zoom;

pictureBox1.BorderStyle = BorderStyle.FixedSingle;

pictureBox2.BorderStyle = BorderStyle.FixedSingle;

pictureBox3.BorderStyle = BorderStyle.FixedSingle;

pictureBox4.BorderStyle = BorderStyle.FixedSingle;

pictureBox1.BackColor = Color.White;

pictureBox2.BackColor = Color.White;

pictureBox3.BackColor = Color.White;

pictureBox4.BackColor = Color.White;

this.WindowState = FormWindowState.Maximized;

DisplayImage();

}

private void DisplayImage()

{

string dir = System.IO.Path.GetDirectoryName(Application.ExecutablePath) + @"\image\";

pictureBox1.ImageLocation = dir + "1.jpg";

pictureBox2.ImageLocation = dir + "2.jpg";

pictureBox3.ImageLocation = dir + "3.jpg";

pictureBox4.ImageLocation = dir + "4.jpg";

Text = DateTime.Now.ToString("工場掲示板 MM月dd日HH時mm分") + " 更新";

}

2023-04-01

Windows BitLocker無効化

新しいノートPC(HP)の設定をしていたらBitLockerが有効化されていた。
特に持ち歩く訳でもないし、KB5012170のような不具合もあるので無効化しておく。有効化すると(HDDだと特に)パフォーマンスが低下するという理由もある。

・無効化
control＞BitLockerドライブの暗号化＞BitLockerを無効化する
※数十分かかるので注意

・回復キーのバックアップする場合
control＞BitLockerドライブの暗号化＞回復キーのバックアップから保存できる。
Microsoftアカウントでログインしている場合、
Web＞Microsoftアカウント＞デバイス
からも確認できる。

・仕組み
BitLockerはTPMを利用しストレージを暗号化している。TPMはハードウェアの一部として鍵を生成している。

・注意
リカバリ、CMOS、BIOS、ドライブのクローンなどでBitLockerを有効化してあると不具合が出やすい。

Microsoftアカウントでログインしていると、BitLockerが自動で有効化されることがある。

もしPIN認証を複数回失敗しTMPロックアウトしたら
Win+R＞tpm.msc＞TPMをクリア

2023-03-192023-05-22

Windows パス色々メモ

・IEブックマーク

%userprofile%\Favorites

・Edge(従来)ブックマーク

%userprofile%\AppData\Local\Packages\Microsoft.MicrosoftEdge_8wekyb3d8bbwe\AC\MicrosoftEdge\User\Default\DataStore\Data\nouser1\120712-0049\

%userprofile%\AppData\Local\Packages\Microsoft.MicrosoftEdge_8wekyb3d8bbwe\AC\MicrosoftEdge\User\Default\Favorites

・Edge(Chromium)ブックマーク

%userprofile%\AppData\Local\Microsoft\Edge\User Data\Default
Bookmarks
Bookmarks.bak

・スタートメニュー

C:\ProgramData\Microsoft\Windows\Start Menu\Programs
%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs

・Chrome拡張機能

%userprofile%\AppData\Local\Google\Chrome\User Data\Default\Extensions

・VBA証明書

C:\Program Files\Microsoft Office\root\Office16\SELFCERT.EXE

certmgr.msc＞個人＞証明書
inetcpl.cpl＞コンテンツ＞証明書

2023-03-172023-03-19

Windows アカウントから管理者権限がなくなる+PINが削除できない

Microsoftと紐づいているxxxというアカウントで、
netplwiz＞xxx＞プロパティ＞ユーザー名
を変更してみたら、ユーザーアカウント制御で「はい」が出てこなくなった。
(このアプリがデバイスに変更を加えることを許可しますか？)
control userpasswords
で確認してみたらxxxアカウントから管理者権限がなくなっていた。
(この操作を他のPCでも実行してみたら問題なかったのでエラーっぽい挙動)
他のユーザーがなかったので詰んでしまった。

まずローカルアカウントへ切り替えてみたがダメだった。
設定＞アカウント＞ユーザー情報＞
ローカルアカウントのサインインに切り替える。

セーフモード(Shift+再起動)で起動、Administratorでサインインし、
cmd＞net user yyy /add
を実行しyyyでサインイン。
netplwiz＞xxx＞プロパティ＞グループメンバーシップ
からxxxを管理者に変更。パスワードも変わってしまっていたので、
netplwiz＞xxx＞パスワードのリセット
を実行。yyyをサインアウトしxxxでサインインし、
netplwiz＞yyy＞削除
※今回は深く考えずyyyを作成したけど、Administratorを有効化しても解決できたかもしれない。

xxxをMicrosoftと紐づける。
設定＞アカウント＞サインイン

PINが再度設定されたのでPINを削除しようとしたら、
この暗証番号(PIN)は組織のリソースでは使用できません。修正するには、ここをタップまたはクリックしてください。
となってしまった。

設定＞アカウント＞職場または学校へのアクセス＞zzz＞このアカウントの接続を切断する＞切断
を実行。
設定＞アカウント＞PIN＞削除

どうやら、以前Office365を Business Standardで契約していたとき、Windowsのアカウント(xxx)とOfficeのアカウント(zzz)が違っていたの原因っぽい。ただ、今回の症状が発生するまでは問題なくPINを削除してあったので詳細は不明。

2023-03-092023-03-09

OLE DB プロバイダー登録解除(削除)

・対象のCLSIDを調べる

(New-Object data.oledb.oledbenumerator).getElements() | Where-Object{$_.sources_description -match “ole\s?db”} | Format-List sources_name, sources_description, sources_clsid
にて確認できる。

※32bitを確認したい場合、
%systemroot%\syswow64\windowspowershell\v1.0\powershell.exe
のPowerShellを起動する。

※CLSIDは
dee35070-506b-11cf-b1aa-00aa00b8de95
のような感じになる。

※.UDLの空ファイルを作成し、クリックでもOLE DBは確認できる。CLSIDは調べられないが、接続テストも可能。

・レジストリのキー削除

レジストリエディターを起動(regedit)
HKEY_LOCAL_MACHINE
以下でCLSIDを検索する。

HKEY_LOCAL_MACHINE\[WOW6432Node]\CLSID\xxx
見つかった該当のキーを削除する。※32bitの場合WOW6432Node

そのままでは削除できないため、
右クリック＞アクセス許可＞詳細設定
所有者を自分に変更。
右クリック＞アクセス許可＞追加
自分を追加しフルコントロールへ。

サブキーそれぞれ実施が必要。

これで削除完了。

＊＊＊

・OLE DBの実体(dllファイル)のパスを調べる場合

HKEY_LOCAL_MACHINE\[WOW6432Node]\CLSID\xxx\InprocServer32
以下にdllのパスが入っている。

COMコンポーネント一覧、登録解除

・COM一覧
Get-WmiObject Win32_ClassicCOMClassSetting
Get-WmiObject Win32_ClassicCOMClass

・DCOM一覧
Get-WmiObject Win32_DCOMApplication

・登録解除
regsvr32 /u “C:\Windows\SysWOW64\xxx.dll”
※32bitの場合
C:\Windows\SysWOW64\regsvr32 /u “C:\Windows\SysWOW64\xxx.dll”

2023-03-082023-03-08

富士通LIFEBOOK SSD化

今回は少し古い法人向けのLIFEBOOKをSSD化してみる。

・電池パックを外す。
スライドではなくひねる(回転させる)ように外す。

・底面のネジを外す。

・ヒンジ下のカバーを外す。
両側面がツメでとまっているので、スパッジャーなど使用する。

・キーボードを外す。
キーボードは両面テープでとまっていて、フレキも繋がっているので注意。

・キーボードの下のプレートのネジ、フレキ等を外す。

・プレートを持ち上げると、HDDが見えるので手前にスライドさせる。(写真は既に外してある)
ここもフレキが邪魔になるので外しておく。

HDD→SSDのクローンは、
・Acronis True Image for Crucial
・玄人志向 KURO-DACHI/CLONE/ESKP/MU3
のどちらかを利用しているが、今回は玄人志向を利用。

2023-03-07

GmailからOutlook アドレス帳コピー

・Gmial
右上アプリ一覧＞連絡先＞エクスポート＞Outlook CSV

・Outlook
ファイル＞開く/エクスポート＞インポート/エクスポート＞他のプログラムまたはファイルからインポート＞テキストファイル (コンマ区切り)
重複してもインポートする＞連絡先

実行すると、
フィールドのマップ(一致)情報を作成するためにコンバーターを初期化中にテキストファイル(コンマ区切り)コンバーターでエラーが発生しました。ファイル”xxx”からデータを取得できませんでした。ファイルが正しいこと、ファイルを開くための権限があること、別のプログラムによってファイルが開かれていないことを確認してください。
というエラーがでる。

エクスポートしたファイルをエクセルで開いてみると文字化けしているので、一旦、EmEditorで開いてShiftJISに変更する。さらに、エクセルで開いて不要な行を削除したら、Outlookからインポートできるようになった。

2023-02-15

VBA 印刷設定(すべての列を1ページ)

With Sheets("集計").PageSetup

  ' 範囲
  .PrintArea = "A1:M" & target_row + 3
  
  ' 余白
  .LeftMargin = Application.CentimetersToPoints(1)
  .RightMargin = Application.CentimetersToPoints(1)
  .TopMargin = Application.CentimetersToPoints(1)
  .BottomMargin = Application.CentimetersToPoints(1)
  .HeaderMargin = Application.CentimetersToPoints(0)
  .FooterMargin = Application.CentimetersToPoints(0)
  
  ' 中央
  .CenterHorizontally = True 'CenterVertically
  
  ' 向き
  .Orientation = xlLandscape ' xlPortrait
  
  ' ズーム(すべての列を1ページ)
  .Zoom = False
  .FitToPagesWide = 1
  .FitToPagesTall = False
  
End With

With Sheets("集計").PageSetup

' 範囲

.PrintArea = "A1:M" & target_row + 3

' 余白

.LeftMargin = Application.CentimetersToPoints(1)

.RightMargin = Application.CentimetersToPoints(1)

.TopMargin = Application.CentimetersToPoints(1)

.BottomMargin = Application.CentimetersToPoints(1)

.HeaderMargin = Application.CentimetersToPoints(0)

.FooterMargin = Application.CentimetersToPoints(0)

' 中央

.CenterHorizontally = True 'CenterVertically

' 向き

.Orientation = xlLandscape ' xlPortrait

' ズーム(すべての列を1ページ)

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = False

End With