お久しぶりです！
1回目のワクチンがほとんど副反応なかったので調子乗ってたら2回目のワクチンで副反応出まくったなんプロです。
約3ヶ月ぶりの動画投稿になっちゃいました😅
いや～、ここまで面倒くさがり屋だと病気なのかな？😆
前回の動画のPowerAutomateやVBScriptバージョンを作ろうかな～と思いつつも作らず、基本情報の午後問題をベースにした動画を作ろうかな～と思いつつも作らず
コメントでリクエストを頂いたので動画にしてみました。
（リクエストでようやく重い腰が上がりましたｗ）
Outlook、ExcelやらVBScriptとかいろいろ使ってるので分かりにくいかもしれないですけど、勉強にはなるかなと思います。
意外と長尺になっちゃいました😫
Windows11も動画にしようかな～って思ってたけど、意外と動画にするようなのが無くて辞めちゃいました😄
次の動画はどうしようかな？
安心してください！生きてますよ！ 😆
気付いたら前回の動画投稿から約2ヶ月近く経ってるんですね💦
VBAベストプラクティスの動画を作ろうと思ってたんですが気持ちが乗らず…
ということで、久しぶりの動画投稿となります。
Outlook VBAでメールに返信してしまおう！というものになります。
私のチャンネルでは初Outlook VBAですね。
（VBScriptやらExcel VBAから操作するのはやってたんですが
改めて直Outlook VBAは初めてでした😁）
※動画は本日(6/20)17:00までは限定公開にしてあります。🙇
動画内で使用しているレジストリ追加用コマンド
REG ADD HKCU\SOFTWARE\Microsoft\Office\16.0\Outlook\Security /v EnableUnsafeClientMailRules /t REG_DWORD /d 1
ご質問に対して動画で回答する…
メールに電話で返答する的な感じですね😂
せっかくなんでPowerAutomateバージョンやVBScriptバージョンも
作っていこうかな～と思ってます。
（あくまで思ってるだけです💦）
いくつかのサイトに載っていたベストプラクティス
【参考サイト】
http://www.spreadsheet1.com/vba-development-best-practices.html
https://www.automateexcel.com/vba/best-practices/
https://riptutorial.com/excel-vba/topic/1107/vba-best-practices
https://www.microsoft.com/en-us/microsoft-365/blog/2009/03/12/excel-vba-performance-coding-best-practices/
https://bettersolutions.com/vba/macros/best-practices.htm
https://masterofficevba.com/vba-coding-constructs/best-practices-for-excel-vba-code/
こうやってリストにしてみると、すごい多いですね😲
中には古い考えなんじゃないかなって思うのもあるけど
基本的には納得できるベストプラクティスですね。
動画のネタになるかな？😅
※2021/07/12 追記あり
Power Automate Desktop は、Power Automate(クラウド)と連携することで
スケジューリングした時間に実行したり、トリガーしたりすることができるらしい。
でも、Power Automate(クラウド)は調べた感じ、無料では使えないっぽい😭
（試用期間中は無料らしいけど…）
トリガーは無理でも、スケジュール実行ぐらいはしたい。
でも、お金は掛けたくない😥
ということでVBAで Power Automate Desktop (PAD) のフローを
力技💪で起動してみました（笑）
（Let's Power Play!!）
クラスファイルにしたので興味があればどうぞ。
【ダウンロードページ】
※ページ内の"Source code (zip)"クリックでダウンロードできます。
【使用方法】
試してないけど、おそらくスクリーンセーバーや
画面ロックされている状態だと動かないと思います（多分）
作成過程を動画にしようと思ったけど、尺が長すぎてボツになりました😱
（編集無理っス💦）
クラスファイルを使うところだけでも、動画にしようかな～😒
（もったいないし…）
2021/07/12 追記
6月にPower Automate Desktopがバージョンアップしていたようで
ウィンドウタイトルが変わってました。
（「(プレビュー)」の文字がなくなってた💦）
YouTubeのコメントで教えてもらいました。助かります😊
GitHub上のコードを修正したので、ダウンロードしてもらえれば使えるはず…
もしくはウィンドウタイトルを設定できるようになっているので
タイトルに「Power Automate Desktop」を指定してもらえれば動くはず…
コード例）
Public Sub scheduleRun()
With New PadFlowLauncher
.windowTitle = "Power Automate Desktop" '←これ追加😎
.runFlow "Flow_Name_You_Wanna_Execute"
End With
End SubGitHub触るのが久しぶりで更新に手こずったのはナイショ…😅
ついつい飽きっぽい性格なんで
投稿予定の動画を書いとこうと思いますｗ
（投稿できなかったら、ごめんなちゃい(/ω＼)）
3/27(土) Webからファイルをダウンロード(VBA Selenium版) (中級シリーズ)
3/28(日) Webからファイルをダウンロード(Power Automate Desktop版) (中級シリーズ)
VBA IE版の流れで…
4/4(土) 正規表現 (入門シリーズ)
正規表現の説明をしてないのに動画で使ってたんで、そろそろ説明しようかな～と。
4/5(日) 再帰呼出 (中級シリーズ)
ファイル名に連番を付与する処理で使ってたんで、一応動画として出しとこうと…
出せるかな～(*‘ω‘ *)
YouTubeに投稿した動画内で使用しているコードを貼っておきます。
ご参考までに。
エラー処理など、きちんと作りこんでいないので
コードをコピペして使用するのはオススメしません (m´・ω・｀)m ｺﾞﾒﾝ…
また、実行時の条件によってXMLの形式が破損し、Excelデータを紛失する可能性がありますので、コードの内容を理解したうえでご使用ください。
※コードは自己責任でご使用ください。
Public Sub mainWithXml()
Dim objTarget As Range
Set objTarget = Selection
'先にセル内の書式をリセットしておく'
With objTarget.Font
.Color = 0
.Bold = False
End With
Dim objCell As Range
Dim objRngGrp As Range
'100セルずつ処理'
For Each objCell In objTarget.Cells
If objRngGrp Is Nothing Then '1つ目のセル'
Set objRngGrp = objCell
ElseIf objRngGrp.Cells.Count <= 99 Then '2～99個目のセル'
Set objRngGrp = Application.Union(objRngGrp, objCell)
Else '100個目のセル'
Set objRngGrp = Application.Union(objRngGrp, objCell)
Call setColorWithXml(objRngGrp, Application.Range("キーワードリスト"))
Set objRngGrp = Nothing
End If
Next
'100個に満たなかった最後のセル'
If Not objRngGrp Is Nothing Then
Call setColorWithXml(objRngGrp, Application.Range("キーワードリスト"))
End If
End Sub
'XMLレベルでセル内の文字色(&Bold)を設定するプロシージャ'
'検索文字列が重複している場合は正常動作しません'
Private Sub setColorWithXml(ByVal objRngGrp As Range, ByVal objRngFindString As Range)
Const FONT_ST = "<Font html:Color=""#[COLOR]"">"
Const FONT_ED = "</Font>"
Const B_ST = "<B>"
Const B_ED = "</B>"
Dim objRng As Range
Dim strXml As String
'XMLデータ取得'
strXml = objRngGrp.Value(XlRangeValueDataType.xlRangeValueXMLSpreadsheet)
'先にData要素を置換（リテラル決め打ち）'
strXml = Replace(strXml, "<Data ss:Type=""String"">", _
"<ss:Data ss:Type=""String"" xmlns=""http://www.w3.org/TR/REC-html40"">")
strXml = Replace(strXml, "</Data>", "</ss:Data>")
'検索文字分ループ'
For Each objRng In objRngFindString.Cells
Dim strRep As String
Dim lngColor As Long
'HTMLカラーに変換'
With objRng.Font
lngColor = (.Color And &HFF) * (2 ^ 16)
lngColor = lngColor + (.Color And &HFF00&)
lngColor = lngColor + ((.Color And &HFF0000) / (2 ^ 16))
End With
'タグ生成'
strRep = Replace(FONT_ST, "[COLOR]", Right(String(6, "0") & Hex(lngColor), 6))
If objRng.Font.Bold Then strRep = strRep & B_ST
strRep = strRep & objRng.Value
If objRng.Font.Bold Then strRep = strRep & B_ED
strRep = strRep & FONT_ED
'置換処理'
strXml = Replace(strXml, objRng.Value, strRep)
Next
'XMLデータを書き戻す'
objRngGrp.Value(XlRangeValueDataType.xlRangeValueXMLSpreadsheet) = strXml
End Sub
お久しぶりです！ 1回目のワクチンがほとんど副反応なかったので調子乗ってたら2回目のワクチンで副反応出まくったなんプロです。 約3ヶ月ぶりの動画投稿になっちゃいました😅 いや～、ここまで面倒くさがり屋だと病気なのかな？😆 前回の動画のPowerAutomateやVBScrip...
