VBA

傍点マクロの改良 目次 傍点マクロのイマイチなところ 傍点マクロを改良する 使ってみる 終わりに 傍点マクロのイマイチなところ akashi-keirin.hatenablog.com このときに紹介した傍点マクロ。 便利だと思っていたが、ショートカットキーでサクッと使えるようになると、コロナの弱点が見えてきた。大阪府の吉村知事ばりに！ こいつをご覧ください。 おわかりだろうか。傍点を施した箇所が選択されたままなのである。 しかも！ 続けて文字を入力すると、このようなみじめな状態になるのである！ これはめちゃくちゃ不便である！ ……ではなくって、さあ改良だ！ 傍点マクロを改良する 前回のリスト…

ここ一週間ほど、（私にとっての）大規模マクロを作成していて、泥沼に はまっている（絶賛継続中）。そこから抜け出そうとして得た教訓を一つ二つ、覚書として残しておこう。 例えば、こんなテーブル。 これについて「品名列をF2～F4に転記したい」とする。その際、各品名の頭に 「品名：」を追加したい。↓ 完成形は、こんな感じだ。 今までは、Index関数を用いて配列をスライスし、編集して貼り付けていた。 Sub Test() Dim Tb As Excel.ListObject Set Tb = ActiveSheet.ListObjects(1) Dim SourceArray As Variant …

ListViewを新規で作成した場合、VBE画面左下プロパティウィンドウ内に表示される［オブジェクト名］の使い方について説明します。 【目次】 ListViewプロパティ内にあるオブジェクト名とは オブジェクト名を変更設定（ListView名の変更）する方法 おわりに ListViewプロパティ内にあるオブジェクト名とは 以下のListViewプロパティウィンドウ内の赤枠箇所が［オブジェクト名］となります。オブジェクト名はListViewに名前を付ける事（名前を変更する事）ができます。既定値はListView1からListViewを作成する毎にListView2・ListView3と番号が増え…

元データと同じ階層にブック内のシートを保存する。 '同じ階層に指定したシートを保存するSub 保存() Dim Path As String 'マクロブックのフルパス+日付を取得 Path = ThisWorkbook.Path & "￥" & Sheets(1).Name & Format(Date, "mmdd") 'Sheet1を新規ブックとしてコピー Sheets(1).Copy 'アクティブブック（Sheet1）を保存 ActiveWorkbook.SaveAs Path MsgBox ActiveWorkbook.Name & "を保存しました" 'アクティブブック（Sheet1）…

前回アドインにはメニューが不可欠だというお話をしました。アドイン内のプロシージャを呼ぶためのトリガーとして、メニューがなければならないという話でした。 エクセルのメニューについてはExcel2007からリボンUIが導入されたので、それまで使われていたメニューバーはすっかり影をひそめてしまいました。メニューバーが使えなくなったのかというとそういうことはなく、現在のExcel2019でもまったく支障なく使うことができます。リボンUIのようなデザイン性はありませんが、ツリー表示ができるのでプログラム内の構造を直観的に表現することに優れています。 メニューバーを追加すると［アドイン］という名前のリボン…

ざっくり説明 ①ユーザーに起動用VBSを配布（ショートカットの方が何かと楽かも） ②起動用VBSからデータベースを実行→デスクトップに本体がコピーされる ③データベースを閉じる時に削除用VBSが実行され、コピーされた本体が削除される 作り方 ①サーバーからローカルへ本体をコピーするVBSを作成 ↓のコードをメモ帳（.txt）に入れて拡張子を.vbsにして、文字コードを「UTF-16 LE」にして保存。 データベースが開かれているかどうか確認し（laccdbの有無）、開かれていたら二重起動しないように処理終了。開かれていなければ起動する。 強制終了でロックファイルが残った場合でも開けるように対応…

参考 https://lil.la/archives/4117 前提 ChromiumベースのEdgeが対象 本記事作成時のEdgeのバージョンは88.0.705.74 (公式ビルド) (64 ビット) Step 1. Selenium Basicの入手 Selenium BasicはVBAなどで制御するためのライブラリ。 こちらからダウンロード 中段のDownload > Release page を開く 開いたページ内の「.exeファイル」をダウンロード*1 ダウンロード後は基本規定値のままインストールをする。こだわりがあれば規定値から変更する。インストール先の規定値は「%LOCALAPP…

ツールボックスへのListViewコントロールのを組み込む方法について説明します。ListViewコントロールはExcelの標準ではなく、ユーザーが組み込む外部コントロールとして用意されています。他のPCでの実行時やネットにてファイルを配布する時には注意が必要となります。 ツールボックスへのListViewコントロールの組み込み方法 （1）フォームを作成します。 ※フォームの作成方法については、こちらの手順を参考にして下さい。 （2）上部にある<ツールボックス>ボタンをクリックします。 （3）ツールボックスが表示されます。 （4）ツールボックスの余白を右クリックして、［その他のコントロール］を…

今回もエクセルの神髄様の Twitter 企画「VBA100本ノック」の便乗記事です。 今回のお題はその25本目です。 配列数式を使ってみます。 お題：VBA100本ノック 25本目：マトリック表をDB形式に変換 #VBA100本ノック 25本目画像1のように「売上」シートに横に日付と金額が入力されています。行数・列数(日数)は増減します。A列はセル結合されています。画像2のようにデータベース形式に変換して「売上DB」シートに出力してください。※「売上DB」は既存で見出しも入っています。 pic.twitter.com/3fcmsUgPQC— エクセルの神髄 (@yamaoka_ss) 202…

フォームを閉じる直前に処理を実行するには、フォームのQueryCloseイベントプロシージャを使用します。その使い方について説明します。 【目次】 構文 QueryCloseイベントプロシージャの記述方法 サンプル おわりに 構文 イベントプロシージャの記述方法は以下の通りです。 ======================================================= Private Sub ［オブジェクト名］_QueryClose() ［実行する処理内容］ End Sub =================================================…

フォームが非アクティブになった時に処理を実行するには、フォームのDeactivateイベントプロシージャを使用します。その使い方について説明します。 【目次】 構文 Deactivateイベントプロシージャの記述方法 サンプル おわりに 構文 イベントプロシージャの記述方法は以下の通りです。 ======================================================= Private Sub ［オブジェクト名］_Deactivate() ［実行する処理内容］ End Sub ===========================================…

以前、失敗談としてこんな話を書いた。 Transpose関数には、行列入れ替えの上限があるらしい、という話だ。 infoment.hatenablog.comところがよくよく調べてみると、失敗談として紹介したかった内容を、 正しく再現できていないことに気づいた（偶然）。当時掲載したコードがこちら。 Sub Test() Dim arr(1, 1) As Variant Dim i As Long Dim temp As Variant On Error Resume Next Do i = i + 1 arr(0, 0) = WorksheetFunction.Rept("あ", i) tem…

熱くなったり寒くなったり、お外も忙しい感じな今日この頃です こんちくわ 壁|ω・)ﾉ さて、前回の記事の続きです。 今回は作った翻訳ツールで利用したクリップボード内の文字列情報取得について紹介したいと思います。 でわいきます￣▽￣)ﾉ Contents 前回の記事では・・・ それで、作った翻訳マクロではどんな工夫したの？ クリップボードの中身を取り出して変数に代入する クリップボードの中身を空にする クリップボードの中身が空かどうかを確認する クリップボードの中身を返すFunction プロシージャ まとめ 因みに 前回の記事では・・・ 以下のことを書きました 英語のPDF文献をコピーしてWe…

駆け出したWebスクレイパー（🐦） ツイートURL:https://twitter.com/1254373451529216000/status/1365686696952487938 ツイート:RT @tech_bibo_log: GASって聞いてピンとくる方はいますか？ これは「Google Apps Script」の略でガスって読みます。文字通りGoogleが開発・提供しているJavaScriptをベースにしたプログラミング言語です！Googleのサービス… ゆき@Web Developer（🐦） ツイートURL:https://twitter.com/13147837283091620…

ListViewを新規で作成した場合、VBE画面左下プロパティウィンドウ内に表示される［オブジェクト名］の使い方について説明します。 【目次】 ListViewプロパティ内にあるオブジェクト名とは オブジェクト名を変更設定（ListView名の変更）する方法 おわりに ListViewプロパティ内にあるオブジェクト名とは 以下のListViewプロパティウィンドウ内の赤枠箇所が［オブジェクト名］となります。オブジェクト名はListViewに名前を付ける事（名前を変更する事）ができます。既定値はListView1からListViewを作成する毎にListView2・ListView3と番号が増え…

ひとくちに情シスといっても、会社によって情シスのスタンスは大きく違います。 こんにちは！松田軽太です。 「感謝される情シスって何だろう？」とふと思ったのは、この記事を読んだからでした。 xtech.nikkei.com この記事ではローコード開発を導入して、業務担当者が必要とする業務システムを内製化しているというものでした。 業務システムを内製化しているか、すべてベンダーに丸投げしているかで、その立ち位置は大きく異なります。 嫌われる情シスとは？ まずは嫌われる情シスのパターンを考えてみましょう。 業務システムをすべてパッケージや外注して作ってもらっていて、システムの中身がブラックボックス化し…

本当に軽い気持ちで手を出したら頭から離れなくなってしまって…1人で静かに溺れていたんですけど、1度整理しよう、そうしなければ前に進めない…と思って書いています。そう、『新テニミュ』こと、ミュージカル『新テニスの王子様』The First Stageの話です。 www.tennimu.com 完全に興味本位でした。私の好きな7ORDERのメンバーが出る舞台にはよくテニミュ出身メンバーが出演しており、1回ちゃんと通して履修してみたいな〜と思っていたものの*1あまりの歴史の長さに手を出せず…でも『新テニミュ』なら新しいから見やすいかな、と思って。しかも岸祐二さん、相葉裕樹さんなどがっつりミュージカル…

もしかしたら近々一年ぶりに出社することになるかもしれなくてドキドキしている。— りょう (@ogataryo) 2021年2月24日 ↑来週か、再来週か・・・？ こんばんは、りょうです。相変わらず空前のせくぞ（Sexy Zone）ブーム中です。 狂ったようにCDやDVDを買い漁り、狂ったように映像をガン見しています。 新曲のPVは毎日数回は視聴。 自分でも、何がそんなにいいのかわからなくなってくるくらいですが、まぁ、今しばらく続きそうな予感。 そんなわけで、ブログの更新も編み物も滞りがちでございます。編み物に関しては、ベビー用の帽子のサンプルを作ったのですが、写真を撮る前に実家に置いてきてしま…

楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdzコレカラスタイル特集 No.４１ 【正規紙袋＆箱付】ヨンドシー ピアス ホワイトデー 4°c 4℃ カナルヨンドシー レディース 4ドシー canal4℃ プレゼント ハートモチーフ アクアマリン K10ホワイトゴールド 151136553226 女性 ギフト お返し 楽天で購入 ２ 【正規紙袋＆箱付】canal4℃ ピアス ホワイトデー 4°c カナル ヨンドシー 4度 4c レディース 星モチーフ 女性 プレゼント ギフト K10ホワイトゴ…

まえきんです！ 今回は特定のセルの下に行を挿入する 方法について学習しましたのでご紹介します。 A列に文字列が入力されています。今回は「Excel VBA スキルアップ」の 下に新しい行を挿入するマクロを考えます。行を挿入することで、 調べるセル範囲の大きさが変化するため、繰り返しの回数をあらかじめ 決められずFor Nextステートメントが使えません。 そこで、Do Loopステートメントの登場です。イメージ的には、 「セルが空欄になるまで」を繰り返し調べる感じです。 簡易的にマクロの実行ボタンを作成して、上記のコードを 実行すると下記のように結果が得られます。 【実行前】 【実行後】 A列…

カテゴリーの分類として、「アダルト BL ビジネス・経済 その他 趣味・実用 文学・評論 絵本・児童書 ライトノベル 雑誌 分冊 期間限定無料」だけになっている。それを倍以上に増やそうと思う。 ２月１８日発売の本 ２月１９日発売の本 ２月２０日発売の本 ２月２１日発売の本 ２月２２日発売の本 ２月２３日発売の本 ２月２４日発売の本 ２月１８日発売の本 ホラー女優が天才子役に転生しました ２ ～今度こそハリウッドを目指します！～ (ガガガ文庫) 作者:鉄箱 発売日: 2021/02/18 メディア: Kindle版 塩対応の佐藤さんが俺にだけ甘い ４ (ガガガ文庫) 作者:猿渡かざみ 発売日: …

楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdzジュエリー特集 ４℃ No.２３１ 【正規紙袋＆箱付】canal4℃ ピアス ホワイトデー 4°c ヨンドシー カナル レディース 4ドシー 4度 4c ハートモチーフ ジュエリー アクセサリー アメシスト トルマリン ローズクォーツ K10ピンクゴールド 151636153105 プレゼント ギフト お返し 楽天で購入 ２ 【正規紙袋＆箱付】canal 4°c ブレスレット ホワイトデー 4℃ カナル ヨンドシー レディース 4度 4c 3石…

楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdzステンレスジュエリーSTENCY NANA特集（その１２５）１ 【別発送】金属アレルギー対応 ペアリング2本セット EVE アラベスクステンレスペアリング 安心 316L ニッケルフリー 楽天で購入 ２ 【別発送】金属アレルギー対応 ペアペンダント2本セット EVEベビークロスリングダイヤモンドステンレスペアペンダント 天然ダイヤモンド ペアネックレス 安心 316L 楽天で購入 ３ 金属アレルギー対応 ステンレスペンダント ハンドカフス ネッ…