エクセルにデータを張り付けるときに、 分数や、ハイフンでつながった数字（住所等）を張り付けると、 日付に勝手に変換されてしまうことがあります。 これを避けるには、 ① 貼り付け先で、日付になってしまう列の書式を文字列にしておく ② 張り付けるときに…

Offce365 で 一度非アクティブ化してもう一度再認証したい場合。 アカウントに登録されたデバイス名をすぐに変更したい場合などに有効です。 （コンピュータ名を変更すると、そのうち自動で変更されるそうです。） エクセル等を開いても認証画面が出てこない…

何度も苦しんできた、.net の DataGridViewのパフォーマンスですが、 ここで一度パフォーマンスを上げるために（下げないために）必要なことを記録しておきます。 プロパティ ColumnHeaderHeightSIzeMode RowHeadersWidthSizeMode の二つは、「絶対にAuto」…

MDBにOleDbDataAdapter で sql を発行して DataTable を取得しています。 レコード件数がなければ、Table.Rows.Count = 0 になります。 ということで、 Dim Table As DataTable = GetTable("select * from MasterTable1;") For i as Integer = 0 to Table.Ro…

Chronyd で同期できない現象が起こっていましたが。 セグメント３つを許可していたのですが、一行で設定してはだめっだったようです。 allow 192.168.1.0/24 allow 192.168.2.0/24 allow 192.168.3.0/24 のように、３行にわけたらできました。 ちなみに、all…

Base64はShift -JISなどの文字列を、US-ASCII で表現するための符号化方式です。 US-ASCII は64文字で構成されています。 元のShift-JISをビット列に変換してつなげ、6ビットずつに区切りなおすと、 64文字で表現可能になります。 (２の6乗は64)

LIKEのSQLをACCESS 上でを記述するときは、 SELECT staffcode FROM StaffMaster WHERE StaffCode LIKE '1*'; （頭が１で始まるコードを抽出する）になりますが。 VB.NET からSQLで抽出する場合は、 SELECT staffcode FROM StaffMaster WHERE StaffCode LIKE …

System.Web.HttpException: 'メール アタッチメント 'C:\Users\***\Scan\log\2018-0915-103252.txt' が無効です。' と表示される。 良く調べたら、ファイルパスの最後に、間違ってvbCrlf がくっついていました。

val.split(vbCrlf) → ２行目以降の先頭に、vbCrlfがつく。 split(val, vbCrlf) → vbCrlf はつかない。 です。

まずは、filter の IN とOUTについて。 ルータに向かう方がIN ルータから出てくる方がOUT です。 dynamic の動作がよくわからなかったので実験。 ip secure filter in 1000 1001 9999 dynamic 1010 ip secure filter out 9999 9999は全てreject さて、これで…

さて、この間会社で起こった不具合です。 メーラーは OUTLOOK 2016です。 受信したメールをOUTLOOK 2016で開き、添付ファイル（zip ファイルでした）を、 保存して中身を見ると。中身がありません。 何かの間違いかと思い、お客様にお願いしてもう一度添付フ…

先日から、visual studio2017でエラーが発生するようになりました。 「Visual Studio は例外を検出しました。拡張機能が原因である可能性があります。」 と表示される。そのたびにvisual studioを再起動していました。 [HKEY_CLASSES_ROOT\Wow6432Node\CLSID…

業務時間終了ぎりぎりで、ファイルサーバを使用している人たちがいなくなるのを見計らって、編集し終わったsmb.conf等を保存して、systemctl restart smb nmb 再起動OK! アクセスチェックもOK。となったところで、 念のため他のPCからもアクセスしてみると、…

社内ネットワークで、インターネット、メールセグメントを分割するために、RTX810を設置してIPマスカレードで、事務所ネットワークと接続することにしました。 事務所ネットワークセグメント 192.168.1.0/24 で インターネット、メールセグメント 192.168.2.…

以前、OutLookVBAで、送受信の終了を検知する記事を書きましたが、 今度は、「送受信の開始」を検出する必要が出てきました。 その方法。 以前とほとんど一緒ですが。 '以下をClass１に記述します。 Dim WithEvents mySync As Outlook.SyncObject Sub Initia…

BIOSで VT を 有効にしているのだが、 なぜか再起動しても VT-x が有効にならない。 何をしてもヴァーチャルマシンが起動しない。 asus のマザーなのだが、 BIOSをのCPUのところには、VT の設定がなくて、 他の場所に見つけた。 システムエージェント設置に…

一度の処理で、１００個くらいのエクセルファイルを出力する処理を作りました。 ループしながら、出力、保存を繰り返すのですが、 大体同じようなタイミングでエラーが発生し、 ２０個目のエクセルを出力、保存し終わって、 エクセルのオブジェクトをRelease…

さてさて、もともと指紋認証アプリのための仕組みだったのですが、 なぜか、バックアップバッチが走っているサーバ上で、タスクスケジューラに登録された指紋認証アプリが起動しないとのこと。 うーん。バックアップバッチが最初に走って、それが終わるまで…

VBAでRangeメソッドが失敗するので、少し悩みました。 エラーがでるのは .Range("A1") = "テスト" のところ、値を入れるだけでエラーが？ と思いましたが、 WorkSheetChangeのなかで、A1の値が変更されると、A1に書き込むようにループになっていたようでした…

なぜか昨日2018/06/16の夜から、FireFoxでアマゾンにログインできなくなっていました。 ？？？不正ログインとか思ったけれど、そうでもなさそう。 いつの間にか英語版になっていたFireFoxを一度アンインストールし、再度インストール。その際に情報をクリア…

会社で購入したPCの画面がちらつくため（画面一体型）、 対処しました。 中古で壊れかかっているのかと思ったら、 ノートンをインストールしているのが原因。 screen_fix というパッチをダウンロードして、セーフモードで実行したら治りました。 ※ 2018/06/1…

オートフィルタの結果をコピーして別シートに張り付けているのですができません。 ？？？ .Range("A3:F" & maxRow).CurrentRegion.SpecialCells(xlVisible).Copy Workbooks("抽出用.xlsm").Worksheets("Sheet2").Range("A3") みたいな感じです。 ブレイクポ…

保護ビューにならないようにしたらなおりました。 IEのインターネットオプションから、 セキュリティ → 信頼済みサイトに、 ファイルサーバのアドレス \\192.168.xx.xx を円マーク二つを付けたものと、 つけていないものを両方登録します。httpsでないばあい…

ntpd とchroyd が両方動いていたので、ntpdを停止。 チェックすると、同期できない。 ntpdを動かしても同期できない。 設定は変更していない。 ntpdate ntp.nict.jp で時刻を合わせようとすると、名前解決ができない。 DNSが動いていませんでした。 systemct…

先日カーネルのアップデートを行いました。 が、起動しなくなるので、以前のカーネルで動かしています。 yum update でエラーが出ているのを解消したかったのです。 そして、再起動して無事起動するか確認。 Raidドライバの都合で、起動しなくなることがある…

内部のIPを外部のIPに変換するPATですが、今回は内部ネットワークの別セグメントへの接続にPATを使用します。 192.168.0.0/24 と 192.168.40.0/24 の間にC841Mを設置し、 PATで192.168.2.※→ 192.168.40.1 に変換。というのが当初の目論見でした。□interface …

ディスプレイを変えてみると映ることもあります。 ダメならば、ウィンドウズのタイトル画面が表示されたときに、電源長押しで電源を切ります。３回目の起動で自動修復モードに入ります。 詳細オプションのスタートアップ設定で再起動します。 低解像ビデオモ…

さて、画面ロックのやり方がわかって喜んでいたのだが、 WindowsServer2016でテストしたところ、画面ロックが動作しない。 ・・・しばらく試した末に、あきらめかけましたが、 頑張って調べました。 アクティブなユーザートークンを取得して、そのユーザーと…

ここしばらく、WindowsServiceからWindowsをシャットダウンするソフトを作っていましたが。 シャットダウンではなくて画面ロックでできないか、ということでやってみました。 <DllImport("Advapi32.dll", EntryPoint:="CreateProcessAsUser", ExactSpelling:=False, SetLastError:=True, CharSet:=CharSet.Unicode)> Public Shared Function CreateProcessAsUser(ByVal hToken As IntPtr, ByVal lp</dllimport("advapi32.dll",>…

PN + 4 を 押すと 光らなくなります。 NUMLOCKは光ります。 MD600 のキーボードと接続して使用している場合は、色の設定もキーボードの方のマニュアルを参照しましょう。