カメラ系youtubeサイト

◯カメラ部TV：メーカ色無し
技術的解説
https://www.youtube.com/@camera_club_TV

△カメラ記者クラブ：メーカ色無し
カメラグランプリの受賞内容
https://www.youtube.com/watch?v=7DEt3Xh3ZR4

△カメラトーク：パナソニック
呑みながらなので長い
位相差⇨いぞうさ、黄変⇨きへん　等、漢字が苦手らしくいちいち引っかかる。
「この機能はう〜んなんだよね。」と、「う〜ん」を多用する。言葉にすれば良いのに。
https://www.youtube.com/@CameraTalk

TEAMSチャットに投稿

https://mofumofupower.hatenablog.com/entry/2021/01/14/165340

Sub button1_Click()

Dim httpReq As XMLHTTP60
Set httpReq = New XMLHTTP60
httpReq.Open "POST", "ここにTeamsのWebhook URL"
httpReq.setRequestHeader "content-type", "application/json"
httpReq.Send Range("B6").Value

Do While httpReq.readyState < 4
DoEvents
Loop

Debug.Print httpReq.responseText

Set httpReq = Nothing

End Sub

VBA 文字列を含む判定

https://www.relief.jp/docs/excel-vba-if-like-instr.html

Sub InStr関数で文字列が含まれているか判定する()
　If InStr(ActiveCell.Value, "本部") <> 0 Then
　　MsgBox "○"
　Else
　　MsgBox "×"
　End If
End Sub

VBAで#N/Aエラーを判定する－CVErr関数

https://www.relief.jp/docs/excel-vba-check-na-error.html

Sub NAエラーを判定する_CVErr()
　If IsError(ActiveCell.Value) Then
　　MsgBox "エラー"
　　If ActiveCell.Value = CVErr(xlErrNA) Then
　　　MsgBox "#N/Aエラー"
　　Else
　　　MsgBox "別のエラー"
　　End If

　Else
　　MsgBox "エラーは発生していません。"
　End If
End Sub

シートの存在確認

on error resume next

set mysh = sheets(B")

if mysh in nothing then
msgbox "シートは存在しません"
else
msgbox "シート有ります"
'処理
end if

THE FARM コテージ

千葉県香取市