管理人Kのひとりごと

デジモノレビューやプログラミングや写真など

ExcelVBA

コマンドを途中で折り返すときの「\」の呼称

docker run --rm -it \ centos:7 \ bash のような、コマンドを途中で折り返す際の「\」の呼称について、Bing AI Chatで聞いてみた。 docker run --rm -it \ centos:7 \ bash のようなコマンドを折り返す際の「\」の呼称を教えてください 「\」は、シェルスク…

グラフの横軸ラベルを90度回転させる(ExcelVBA)

Excelのグラフの横軸ラベルを回転させたかった。応用が効きそう。 コード Option Explicit Sub 表の横軸ラベルを90度回転させる() Dim chartCount As Integer Dim i As Integer chartCount = ActiveSheet.ChartObjects.Count For i = 1 To chartCount ' 90で…

ExcelVBAで列番号→列名、列名→列番号変換

ExcelVBAで列番号→列名、列名→列番号変換する場面がありますが、毎度忘れてしまいます。 シンプルなやり方を見つけたのでメモです。 qiita.com

ExcelVBAをVSCodeで編集できるXVBAについて

ExcelVBAのエディタはいつまでたっても今一つ...VSCodeで編集したいなーと思って探していたらありました、「XVBA」です。 詳細は以下記事をご参照ください。記事の通り設定したらVSCodeで編集できるようになりました。 しかしながら、入力補完まではXVBAでは…

ExcelVBAで連想配列を使って、キーをソートして出力する

ExcelVBAで、連想配列を使って、キーをソートして出力したかったのでメモです。 Dictionaryだけではキーのソートを行うことはできず、ひと手間必要でした。 実行環境 対象データ ソースコード 参考にしました

ExcelVBAでシートの内容をUTF-8,LFのCSVファイルに出力したい

ExcelVBAで、シートの内容をUTF-8,LFのCSVファイルに書き出したかったのでメモです。 UTF-8の場合は、ADODBを使う必要があるそうです。 また、BOMなしのUTF-8とする場合にはひと手間必要でした。関連↓ www.k-hitorigoto.online 実行環境 ソースコード 参考に…

ExcelVBAでCRLF,UTF-8のTSVファイルを読み込みたい

ExcelVBAでCRLF,UTF-8のTSVファイルを読み込みたいということがあったのでメモです。 UTF-8の場合は、ADODBを使う必要があるそうです。 実行環境 ソースコード 参考にしました

ExcelVBAでよく使う図形を一発で描画する

ExcelVBAで個人的によく使う図形(赤枠、矩形、吹き出し)を一発で描画します。 実行環境 ソースコード 実行結果

ExcelVBAで正規表現(パターンマッチした文字列を抽出)

ExcelVBAで正規表現を使って対象文字列から特定パターンに合致する文字列を抽出する。 やりたいこと ソースコード 実行結果

いろんな言語で「else if」その2

「else if」って何気に言語ごとに違いありません?(elsifとか、elifとか、else ifとか) 個人的によく使う言語について改めて整理しました。その2その1↓ Javascript(else if) ExcelVBA(ElseIf)

Excelブックの各シートをCSV出力してみる

Excelブックの各シートをCSV出力することがあったので、楽できないかと思って取り組んだメモ 検証環境 コード 実行例 補足 参考にしました

ExcelVBAで改ページ変動を検知したい

Excelで難しいのが、環境差異等により生じる改ページ変動(想定している改ページ通りに印刷されない状況) これを検出する方法はないもんかとやってみた。まだ課題はあるものの、メモっておく メモ 実行例

ExcelVBAでグループごとの縦→横変換をする(ExcelVBA)

Excelでグループごとに縦横変換したい、ということがあったのでメモ。 グループごとの縦横変換とは すでに答えはあった 少しアレンジ

Excelでデータを処理するときのあれこれ(ExcelVBA)

表で整理するようなデータをExcelで処理するとき、準備として以下の処理を行うことが多いですよね。 見出し行をつける 項番列をつける オートフィルタをかける 上記処理を一発でできるように、ExcelVBAで処理を書いてみました 以下ソース 実行例

個人用マクロブックにモジュールをインポートする(ExcelVBA)

こないだの、個人用マクロブックのモジュールをエクスポートする奴のついになる奴です。 エクスポートする奴はコチラ☟ コードを動かすときのポイント さて、コードです まとめ

個人用マクロブック内のモジュールをエクスポートする(ExcelVBA)

個人用マクロブックに保存している各種モジュールをエクスポートして、別の端末とも共有したいなと思ったので書いてみた。 コードを動かすときのポイント さて、コードです

【改訂版】「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」設定画面を開くためのマクロを作ってみました

前回☟のもの、Office2013同士でも、また、Office2016では挙動が異なることが判明。 オプション画面を開いたとき、左ペインにフォーカスがあるため、そのまま下へ移動するよう修正しました。 Office2013でも、Office2016でも動いていました。

【訂正版あります】「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」設定画面を開くためのマクロを作ってみました

Excel2003くらいからですかね、VBAProjectオブジェクトへアクセスする際、「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」にチェックが入っていないといけなくなったじゃないですか。 普段からチェック入れたまま、というのもアレですし、…

可視シート名を列挙する(ExcelVBA)

Excelで、アクティブブックの可視シート名を列挙する方法。結構使うけど忘れがちなのでメモ。 Option Explicit Sub 可視シート名を列挙する() Dim sheetCnt As Integer Dim i As Integer Dim tmpSheet As Worksheet sheetCnt = ActiveWorkbook.Worksheets.Co…

Excel2003迄の印刷ダイアログを開く(Excel)

Excel2007あたりから、印刷ダイアログが変わり、特定シートのみの印刷や、ブック全体指定のショートカットキーが煩雑になりました。 そこで、ExcelVBAを使い、旧来の印刷ダイアログを出せるようにしたいと思います。 下記サブルーチンを「Ctrl-P」に割り当て…

ExcelファイルをPDF化する(ExcelVBA編)

Excel2007以降なら、VBAでPDF化できるようですね。 そんなわけで書いてみました。変換元Excelファイルと同じ場所にPDFが格納されます。 表示されたシート、印刷範囲が適用され、全シートが1PDFファイルになります。 https://msdn.microsoft.com/ja-jp/librar…

最下行アドレスを取得する(ExcelVBA)

カレントセルの列の、最下行アドレス(値の入力された最下行のアドレス)を取得する。 Option Explicit Sub カレントセル列の最後尾アドレスを取得する() Dim currentRange As Range Dim maxRowNum As Integer Dim tmpColumnName As String Dim columnName As …

任意の複数のExcelブックのセルの値を取得する(ExcelVBA)

掲題の通り、任意の複数のExcelブックのセルの値を取得する方法。 「の」が多いな。 Sub ボタン1_Click() Dim fileNames As Variant Dim fileName As Variant Dim tmpSheet As Worksheet fileNames = Application.GetOpenFilename(MultiSelect:=True) If IsA…

全シートA1セルを選択する(ExcelVBA)

掲題の通り、全シートA1セルを選択するExcelVBAコード。 非表示シートがあるとアレですが、まぁ。 最後1シート目に移るのは好みです、はい。 Sub 全シートA1選択() Dim loopCount As Integer Dim sheetCount As Integer Dim tmpSheet As Worksheet sheetCoun…

F1キーでヘルプを立ち上げない(ExcelVBA)

最近家PCにExcelを入れまして。 まずやることといえば、F1キーでヘルプを立ち上がらなくさせる、でしょう! セル編集のためにF2キーを押そうとして、ミスタッチでF1キーを押してしまったとき「あっ...」を防止したいじゃないですか... ということで、思い立っ…