VBAでRangeメソッドが失敗するので、少し悩みました。
エラーがでるのは .Range("A1") = "テスト"
のところ、値を入れるだけでエラーが?
と思いましたが、
WorkSheetChangeのなかで、A1の値が変更されると、A1に書き込むようにループになっていたようでした。
ループしてWorkSheetChangeが起きないようにしたら、治りました。
VBAでRangeメソッドが失敗するので、少し悩みました。
エラーがでるのは .Range("A1") = "テスト"
のところ、値を入れるだけでエラーが?
と思いましたが、
WorkSheetChangeのなかで、A1の値が変更されると、A1に書き込むようにループになっていたようでした。
ループしてWorkSheetChangeが起きないようにしたら、治りました。
会社で購入したPCの画面がちらつくため(画面一体型)、
対処しました。
中古で壊れかかっているのかと思ったら、
ノートンをインストールしているのが原因。
screen_fix というパッチをダウンロードして、セーフモードで実行したら治りました。
※ 2018/06/15 追記
Windows Update後、症状が再発しました。
再び、screen_fixを実行したところ、症状は治まりました。
※ 2018/07/06 追記
再び発生しています。前回の、screen_fixでは症状は改善していなかった模様。
今度はノートンの再インストールを試してみます。
※ 2018/07/14 追記
ノートンの再インストールを行ったところ、ちらつきは治りませんでした。
再インストール後、screen_fixを再び実行したところ、改善しました。
オートフィルタの結果をコピーして別シートに張り付けているのですができません。
???
.Range("A3:F" & maxRow).CurrentRegion.SpecialCells(xlVisible).Copy Workbooks("抽出用.xlsm").Worksheets("Sheet2").Range("A3")
みたいな感じです。
ブレイクポイントを設定して、フィルタずみのエクセル画面を見るときちんとフィルタされているのですが・・・。
手動でフィルタを行おうとすると、該当するコードがフィルタのチェックボックスに表示されていない・・・。
よく調べると、空白行がいくつかあり、そこまでの範囲しかフィルタリングされていなかった様子。しかし、VBA実行中に見ると、確かにフィルタされているのですがね。
空白行を削除したところ、きちんとコピーされるようになりました。
先日カーネルのアップデートを行いました。
が、起動しなくなるので、以前のカーネルで動かしています。
yum update でエラーが出ているのを解消したかったのです。
そして、再起動して無事起動するか確認。
Raidドライバの都合で、起動しなくなることがあるのです。
もちろん、前のバージョンで起動するように設定してあるので、
そのまま起動するはずですが。
無事起動。
? httpd が自動起動していない。自動起動設定がされていなかったか?
!? radiusd が起動できずに失敗する。
時間が遅かったのであとは翌日です。
翌朝、systemctl start radiusd あっさりきどうしました。?????
あああ、radiusdを起動しようとしたときに、mariadbが起動していなかったから起動できなかったのですね。ログを見ればわかったのかな。