VBA

VBAで「Functionプロシージャ」と「Subプロシージャ」の使い分けの説明に悩んだので、考え方のメモ。 個人的な結論として、悩んだときは全て「Functionプロシージャ」で良いになりました。 VBAでしている業務を別担当に引き継ぐことになり、少し整理してみました。 一般論としては、「Functionプロシージャ」と「Subプロシージャ」の主な違いは、次のとおりです。 項目 Function Sub 「マクロの表示」から実行できるか （単独で実行できるか） × 〇 戻り値があるか 〇 × ユーザー定義関数として、EXCELワークシートから使用できるか 〇 × 「マクロの表示」から実行でき…

知恵袋の質問に答えてみた。: detail.chiebukuro.yahoo.co.jp 下記のようなoutlookvbaでメール返信をしたいのですが、埋め込み図形がそのまま反映してくれません。何か方法はありませんか？ Dim objReItem As Outlook.MailItem Set objReItem = ActiveInspector.CurrentItem.ReplyAll objReItem.Recipients.ResolveAll objReItem.Display Set objReItem = Nothing に答えてみた。図を含んだ返信メールを作成したかったので、 …

表から特定の行にだけ処理をしたいことがある。例えば、バスケットボールチームの選手リストがあって、ポジションがPGの選手の行にだけ色を塗りたいといった場合だ。 とりあえず、Wリーグの公式サイトに載っているシャンソンVマジックの選手リストから作成した表を例にしてコードを書いてみる。 シャンソンVマジック サマーキャンプ22のロスター '---------------------------------------- ' PGの行に色を塗る '---------------------------------------- Sub ChansonAutoFilterTest01() Dim data…

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 行や列のコピー等と共に条件付き書式が増殖するのは、もはや宿命と言って 良いほど、定期的に遭遇する問題だと思う。また、VBAで条件付き書式を設定することの是非についても、自分の中で 肯定派と否定派が定期的に順位を入れ替えている。それはさておき、今回作成したのがこちら。 Sub VBA_100Knock_35() Dim TargetRange As Range Set TargetRange = Intersect(Rang…

仕事で使っているExcelマクロにゼロ埋めする処理があったのだが、その書き方が酷いものだったので記しておこう。 処理の内容は、数値を、4桁に満たない数値の場合はゼロ埋めして、4桁の文字列にするというものである。 'ゼロ埋めの悪い書き方 Dim disp As String If num < 10 Then disp = "000" & num ElseIf num < 100 Then disp = "00" & num ElseIf num < 1000 Then disp = "0" & num Else disp = "" & num End If Debug.Print disp たか…

VBAでエクセルを処理する中でセルのカットやコピーをすることがある。その際、そのままでいるとセルが選択されて点線で囲われたような状態のままになるが、どうやらクリップボードに値が格納されている状態らしい。 そのままでも問題ないかと思われるがメモリが解放されていないので処理が重たくなる原因になる… といった記事を見かけた。(どこの記事だったかは忘れた。。。) ”なるほど…じゃあ、Pasteしたあとは必ずApplication.CutCopyMode = Falseとした方がいいだろう” と早速そうしてみた。 そして実行してみた。 すると、通常、３時間くらいで終わる処理が一晩たっても終わっていない。…

長男の勉強を切っ掛けに、高校数学を少しずつ再学習している。 今回はこれを応用して、Excelで連立二元一次方程式を解いてみた。 問題： 鶴と亀がいます。鶴と亀の頭数の合計は14です。 鶴の足と亀の足の合計は、40本です。 鶴と亀は、それぞれ何羽・何匹でしょうか。 中学校で習う連立方程式では、例えばこのように式を立てる。 鶴の数をｘ、亀の数をｙとおいて、 これを代入法なり加減法で解くわけだが、Excelだと何れの方法もやりにくい。そこで今回は、行列を用いることにした。 manabitimes.jpまず、先の連立方程式を行列で表すと、次のようになる。これを、先程のリンク先にある逆行列で整理すると、…

このブログは別の場所でSOCにも携わっている経験のあるArmoris株式会社のseanが、本人の興味範囲に基づいて収集したサイバーセキュリティ関連の出来事をまとめたものです。各出来事に関するコメントは個人の意見です。 ６月２９日収集 NIST NIST Finalizes macOS Security Guidance https://www.darkreading.com/dr-tech/nist-finalizes-macos-security-guidance ガイダンス https://nvlpubs.nist.gov/nistpubs/SpecialPublications/NIST…

お盆ぼんぼぼん、なお平常営業(2：10) 先週の週記通りしばらくVBA＆Edgeと戦う。 正攻法での進展も多少あり、自分用ならこっちルートもありかもしれん。 最初の段階で起動済みedgeがあってはいけないっていう条件が ちょっとというかだいぶ致命傷な気がするが、まぁ 自分用ならそこは人間の運用でごまかせんこともなかろう。 参考にするひとはいないと思うが自分用メモとしてここにも残しておくか。 https://www.codeproject.com/Tips/5307593/Automate-Chrome-Edge-using-VBA Chrome DevTools ProtocolでEdgeを操…

VBAスタンダードを取得しなければと書いて早3ヶ月。 無事に、VBAエキスパートの、Excel VBAベーシックを取得しました。 ええと、ベーシックを取得したのは、6月なんですが。 そのままの勢いで、Excel VBAエキスパートも取得しまして。 Excel VBAの資格を無事にゲットしましたので、ご報告をば。 取得前のExcelスキルレベル VBEの立ち上げ方は知ってる。 マクロの記録は知ってる。 他人のコードをネットで調べながらなんとなく読むことはできるけど、あんま理解はしていない感じ。 つまり、自分では書けないので、何かツール的なものを作る場合、関数を使ってなんとかやってる感じ。…つまり…

このようなテーブルがあって、個数の昇順、同値なら価格の昇順にソートしたい。 using Microsoft.Office.Interop.Excel;まずはファイルを開く。 var xlapp = new Application(); var xlbook = xlapp.Workbooks.Open("ファイル名");テーブルはWorksheet配下のListObjectsコレクションの中に格納されている。ので、まずはそれを取得する。 Worksheet xlsheet = xlbook.Worksheets["Sheet1"];var tablename = "テーブル1"; ListOb…

エクセルVBAマクロを、簡単に作成してみませんか？

少し前から取り組んでいるプログラミングについて、 ExcelのVBAとアップルのSWIFTを、UdemyやYoutubeを使って勉強し、少しづつ身についてきました。 VBAでは作業の自動化のコードを書くことができて仕事に活かせていますし、Xcodeを使ってiOSアプリっぽいものも徐々にできてきています。（教えられるがままに作って応用の効かないレベルですが） まだまだ勉強中で、いつかニッチなニーズがありそうなiOSアプリが作れたら、リリースにトライしてみてのいいかなとか思ってます。（開発者登録料年間1万円強をペイできるかわかりませんが・・・） osagoto.hatenablog.jp osag…

２年前くらいの仕事を離れて自宅療養していた時のことです。 それまで、介護現場で、折り紙やらクラフト手芸やらを利用者さんに教えるにあたり、自宅に大量の折り紙やら、画用紙やら、クラフトバンドなどがありました。 この頃は「もう無理はしない」と強く思っていたので、「手元に材料があると、手芸の試作づくりに追われてしまうから」と全て処分する事にしました。処分と言っても、仲の良い相談員さんを通じて、現在の職場に貰ってもらいました。 「これで、ひとつ楽になれる…」そんな風に感じていました。 ところが…実際に働き始めると、「楽になる為」に手放した手芸ができない事が、物凄くストレスになりました。 手芸の担当に選ば…

こちらの記事に触発されて、あ、そういえばVBAでもパーティクルうまく使えば花火っぽいことできるかなぁと思ってやってみた。 karaage.hatenadiary.jp 結果。。超絶劣化コピー(間違えた、もはや別物)が爆誕。 実際作って気づいたんだけど、これちゃんとやろうとすると球面上で三角関数を使った計算だったり、重力計算したりと色々とやらないとそれっぽい花火にはならない。 コード 注) お遊びなので変数宣言もしてません。良識のある大人は実務コードにおいてこんな真似しないように。。Particle クラス Private Declare Function ColorHLSToRGB Lib "…

やりたいこと VBAで、マウスポインタが矢印カーソルなのか、待機カーソルなのか知りたい。 待機カーソルになったらVBAの処理を中断、というプログラムを作ろう。 方針 VBAには、Application.Cursor でカーソルの状態を取得することができる。 しかし、これは残念なことに、Excel の外にマウスカーソルが出ると全く機能しない。 Excel の外のマウスポインタの形状を知るには、Win32 API を使う必要がある。 マウスカーソルの形状や位置を得るための API ⇒ GetCursorInfo 待機カーソルの番号を得るための API ⇒ LoadCursor strong {co…

こんにちは！するどいプランナーです！今日は予定を変更して簡単なVBAの使用例を説明していこうかと思います。 プランナーの資料作成が楽になるようなものとして前編：マップ上アイコンの表示をON/OFFする後編：マップ上にアイコンからの範囲を描画するの２回に分けて説明していきます。 どちらも「if文とfor文が読める人なら改修して使える」くらいの難易度かなと思います。エクセルファイル上でVBAが使用できる状態にする方法は記事内で説明しません。 完成イメージ マップ画像上に敵と宝箱の配置情報を表示する 種類ごとにまとめて表示のON/OFFを切り替える というものを作っていきます。 方法としては、地図画…

こんにちは VBAの実践編の3回目です。指定期間の抽出マクロを一から作る方法をシリーズ化して説明しています。前回 画面遷移を行いました。 今回 一括データ消去について解説します。一人で考えると結構時間がかかります。 なので、一連の流れを把握して効率的に学ぶのにお役立ちできれば幸いです。 rpx.a8.net■データ消去 ソース側 (プロジェクト) Step1 Alt+F11 キーにて、プロジェクトを開きます。 フォームにクリアボタンを作成しておきましょう。 ※詳しくは、 実践 ①と②を参照ください。Step2 ボタンをダブルクリックして、ソースを開きます。 今回は、CommandButton2…

今日は上島珈琲で午後からVBAの勉強をしました。 学習に利用したサイトは下記のとおりです。 VBAとマクロの違い│使いこなせばExcelの効率アップ！｜ファイル共有サービスBoxとの連携で業務効率化 Excel VBA 入門講座 現在入門講座の4章まで学習しました。 内容としてはセルに対して値を入れたりするのをコードで指定するといったものです。 カフェにPCを持ち込んで勉強していましたが、やはり苦痛ですね。 ですが、自身のスキルアップのため、割り切って1日1時間くらい、 曲などを聞きながら自分を騙し騙し学習していきたいと思います。