何らかの理由でブロックリストに入ってしまってる場合がある
以下のURLより内容を入力し、申請する
何らかの理由でブロックリストに入ってしまってる場合がある
以下のURLより内容を入力し、申請する
Range("A1") = "hoge"
じゃなくて
Range("A1").Value = "hoge"
Valueの代入ならちょっぱや。数こなすと雲泥の差が出る
ロックを取得できなかった場合に待機せず、即タイムアウトにしたい場合の方法
try { Monitor.TryEnter(lockObject, 0, ref acquiredLock); if (acquiredLock) { // ロック取得に成功したときの処理 } else { // ロック取得に失敗したときの処理 } } finally { if (acquiredLock) Monitor.Exit(lockObject); }
windows10のisoファイルダウンロードしてVVirtualBoxにインストールする。
PCからisoダウンロードするにはコツが必要。
HDDの容量50GでOKって書いてあったけど500Gにしないとエラーになった。
途中で謎のエラーがでることもあったが何回か試したら動いた。
'インターネット一時ファイルの削除 Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 8") 'パスワードの削除 Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 32") 'フォームデータの削除 Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 16") 'Cookieの削除 Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 2") '閲覧履歴の削除 Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 1") '上記のすべてを削除 Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 255") '上記すべてと、アドオンによるファイル等も削除 Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 4351")
Chromeの拡張機能を根こそぎOFFにしてみた。
AdBlockが相性悪かった感あります。
コマンドラインでやれとのこと
代わりに、Visual Studioコマンドプロンプトからsigntoolを使用してください。 signtoolがパスワードが無効であると主張することもありますが、 通常は2、3回試行すると機能し始めます。
signtool.exe sign /fd sha256 /td sha256 /tr http://timestamp.digicert.com /f "YOUR.pfx" /p "YOURPASSWORD" "YOUR.exe"
Sub Focus(aSheet As Worksheet, aFlag As Boolean) Application.ScreenUpdating = aFlag Application.DisplayStatusBar = aFlag Application.Calculation = aFlag aSheet.EnableCalculation = aFlag Application.EnableEvents = aFlag aSheet.DisplayPageBreaks = aFlag Dim i For i = 0 To aSheet.PivotTables.Count - 1 aSheet.PivotTables(i).ManualUpdate = aFlag Next Application.PrintCommunication = aFlag End Sub
redoc spec-urlのとこに表示したいjson指定するだけでOK。
超簡単。
redoc.html
<!DOCTYPE html> <html> <head> <title>ReDoc</title> <meta charset="utf-8"/> <meta name="viewport" content="width=device-width, initial-scale=1"> </head> <body> <redoc spec-url="http://petstore.swagger.io/v2/swagger.json"></redoc> <script src="https://rebilly.github.io/ReDoc/releases/latest/redoc.min.js"></script> </body> </html>
Sub シート名がわかっているときにブック名を取得する() Const FIND_SH = "顧客マスター" Dim bk As Workbook Dim sh As Worksheet For Each bk in Workbooks For Each sh in bk.Worksheets If sh.Name = FIND_SH Then MsgBox sh.Parent.Name Exit Sub End If Next sh Next bk MsgBox "「" & FIND_SH & "」シートは存在しません。" End Sub