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　　　　　　　　　　　　　　　　　'１回目だけは、そのまま抜ける
　End If
　If a_cell <> Cells(1, 1).Value Then　　　　　'セル値が変化した時のみ動作
　　Cells(1, 1).Interior.Pattern = xlNone　　　　　　'セル色なし
　　Application.Wait(Now + TimeValue("0:00:01"))　　'１秒待つ
　　Cells(1, 1).Interior.Color = RGB(256, 0, 0)　　　'セル色赤
　　Application.Wait(Now + TimeValue("0:00:01"))　　'１秒待つ
　　Cells(1, 1).Interior.Pattern = xlNone　　　　　　'セル色なし
　　Application.Wait(Now + TimeValue("0:00:01"))　　'１秒待つ
　　Cells(1, 1).Interior.Color = RGB(256, 0, 0)　　　'セル色赤
　　Application.Wait(Now + TimeValue("0:00:01"))　　'１秒待つ
　　Cells(1, 1).Interior.Pattern = xlNone　　　　　　'セル色なし
　　a_cell = Cells(1,1).Value　　　　　　　　　　　　　'セル値を更新
　End If
End Sub

ネタ元

• http://atsumitm.dip.jp/it/it-008.php

リッチリザルト

規定のコードを埋め込んでおくと、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
    'ダイアログが見えてるか調査
    If UserForm1.Visible = False Then
        Exit Sub
    End If

ネタ元

• https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1473461604

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"],

以下コード(テキストメール)

SEND_GRID_ENDPOINT = "https://api.sendgrid.com/v3/mail/send";
SEND_GRID_API_KEY = "あなたのAPIキー";

function sendEmailBySendGrid(to,subject,from,from_name,bcc,body_text){ 
  var body = {
    "personalizations": [
      {
        "to": [
          {
            "email": to
          }
        ],
        "bcc":[
          {
            "email": bcc
          }
        ],
        "subject": subject
      }
    ],
    "from": {
      "email": from,
      "name" : from_name
    },
    "content": [
      {
        "type": "text", // htmlメールにしたいなら"text/html"
        "value": body_text
      }
    ]
  }
  var payload = JSON.stringify(body);
  UrlFetchApp.fetch(SEND_GRID_ENDPOINT, {
    method: 'POST',
    headers: { "Content-Type": 'application/json',
             "Authorization": "Bearer "+SEND_GRID_API_KEY},
    payload: payload
  });
}

ネタ元

• https://qiita.com/erb_owl/items/c0ad0d60d93233afe02e
• https://qiita.com/h-sto/items/fdde0905d0a4070d18fc

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

せっかく便利だったのに。

ネタ元

• https://teratail.com/questions/272240

ExcelVBAでファイル追記

Dim fso As FileSystemObject
Set fso = New FileSystemObject

Dim ts As TextStream
Set ts = fso.OpenTextFile("D:\Tips.txt", ForAppending, True, TristateTrue)  ' ファイルを UTF-16 で開く
Set ts = fso.OpenTextFile("D:\Tips.txt", ForAppending, True, TristateFalse) ' ファイルを Shift_JIS で開く

ts.WriteLine ("追記") ' 書き込み

ts.Close ' ファイルを閉じる

' 後始末
Set ts = Nothing
Set fso = Nothing

ネタ元

• https://www.tipsfound.com/vba/18004