2020-07-01から1ヶ月間の記事一覧

ExcelVBAで日付型への変換はCVDate()

ネタ元 http://officetanaka.net/excel/vba/function/CVDate.htm

php/pealなど、ブラウザ上でコードを書いて試せるwebtool

簡単コードチェックできて便利https://paiza.io/ja

outlook.comメールにこちらからのメールが届かない問題の対処方法

web

何らかの理由でブロックリストに入ってしまってる場合がある以下のURLより内容を入力し、申請する https://support.microsoft.com/ja-jp/supportrequestform/8ad563e3-288e-2a61-8122-3ba03d6b8d75 ネタ元 https://office-obata.com/report/memorandum/po…

ExcelVBAでセルに値書き込むときはValueでアクセスしよう

Range("A1") = "hoge" じゃなくて Range("A1").Value = "hoge"Valueの代入ならちょっぱや。数こなすと雲泥の差が出る ネタ元 http://officetanaka.net/excel/vba/speed/s13.htm

C#で排他オブジェクトのロック取得を待機しない方法

C#

ロックを取得できなかった場合に待機せず、即タイムアウトにしたい場合の方法 try { Monitor.TryEnter(lockObject, 0, ref acquiredLock); if (acquiredLock) { // ロック取得に成功したときの処理 } else { // ロック取得に失敗したときの処理 } } finally …

VirtualBoxにWindows10をインストール

windows10のisoファイルダウンロードしてVVirtualBoxにインストールする。 PCからisoダウンロードするにはコツが必要。 HDDの容量50GでOKって書いてあったけど500Gにしないとエラーになった。途中で謎のエラーがでることもあったが何回か試したら動いた。 ネ…

VB.netのIE操作でキャッシュクリア

'インターネット一時ファイルの削除 Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 8") 'パスワードの削除 Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 32") 'フォームデータの削除 Process.Start("RunDll32", "InetC…

adsenseの「ご迷惑をおかけいたしまして申し訳ございません。現在、お客様からのリクエストを処理することができません。Google のエンジニアが問題解決に取り組んでおりますので、しばらくお待ちください。」の自分なりの解決方法

Chromeの拡張機能を根こそぎOFFにしてみた。 AdBlockが相性悪かった感あります。 ネタ元 https://norikazu-miyao.com/?p=13002

visual studioで署名に失敗する場合の対策

コマンドラインでやれとのこと 代わりに、Visual Studioコマンドプロンプトからsigntoolを使用してください。 signtoolがパスワードが無効であると主張することもありますが、 通常は2、3回試行すると機能し始めます。signtool.exe sign /fd sha256 /td sha2…

ExcelVBAで高速化のための色々ON/OFF

Sub Focus(aSheet As Worksheet, aFlag As Boolean) Application.ScreenUpdating = aFlag Application.DisplayStatusBar = aFlag Application.Calculation = aFlag aSheet.EnableCalculation = aFlag Application.EnableEvents = aFlag aSheet.DisplayPageBr…

ReDocの使い方

redoc spec-urlのとこに表示したいjson指定するだけでOK。 超簡単。 redoc.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> </body></html>

ExcelVBAでワークシートからブック名を取得する

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 I…

ExcelVBAでセルの再更新要求

Range("A1:C3").Dirtyでもユーザー定義関数(Function)からの呼び出しでは機能しない。サブルーチン(sub)経由で呼べば使える ネタ元 https://archives.aotsuki.org/excel-vba-calculate/#ApplicationCalculateApplicationCalculateFull

ExcelVBAでセルが更新されたら点滅させる

Dim a_cell As Variant Private Sub Worksheet_Calculate() If a_cell = "" Then a_cell = Cells(1,1).Value 'セルに初期値が入っていない時に代入 Exit Sub '1回目だけは、そのまま抜ける End If If a_cell <> Cells(1, 1).Value Then 'セル値が変化した時…

リッチリザルト

SEO

規定のコードを埋め込んでおくと、Googleにてリッチな検証結果として表示してくれるらしい必要なコードはこのツールで作れる https://www.google.com/webmasters/markup-helper/u/0/ 確認はこちらで リッチリザルトテスト

ExcelVBAでフォームが開いてるか調査

Dim bOPen_UserForm1 As Boolean: bOPen_UserForm1 = False Dim f As UserForm For Each f In UserForms If TypeOf f Is UserForm1 Then bOPen_UserForm1 = True 'MsgBox "開かれている" End If Next If bOPen_UserForm1 = False Then Exit Sub End If 'ダイ…

ExcelVBAで文字列内の文字をカウントする

簡単な関数があるわけじゃないシンプルなのは、指定文字を削除した文字列をつくって、 その文字列と元の文字列の文字数の差分取る方法 ネタ元 http://officetanaka.net/excel/vba/tips/tips152.htm

ExcelVBAで変数宣言と初期値入力を一行で書く方法

Dim str As String: str = "ABC"てな感じ。 ネタ元 https://qiita.com/11295/items/056e7c3f99374145c43b

ExcelVBA データ入力されている最終セルの行を取得

A1列のデータ最終行の例 Cells(Rows.Count, Range(”A1").Row).End(xlUp).Row ネタ元 http://officetanaka.net/excel/vba/tips/tips130.htm

Google App ScriptでSendGridを利用したメール送信方法

マニフェストファイルappsscript.jsonに以下で許可登録 "oauthScopes": ["https://www.googleapis.com/auth/script.external_request","https://www.googleapis.com/auth/spreadsheets.currentonly","https://www.googleapis.com/auth/documents"],以下コー…

Google App ScriptでGmailApp.sendEmailでメールが送れなくなったのはG Suiteのアカウントを利用しないとダメという仕様変更のせい

せっかく便利だったのに。 ネタ元 https://teratail.com/questions/272240