VisualBasic for Applicationsの略。 マイクロソフト社製の各Office製品に附属している、それぞれのアプリケーション（Excel、Accessなど）の操作に特化したVisualBasicの亜種。
印刷マクロでちょっとハマる（Word） フォルダ内にたくさんあるWordドキュメントの先頭ページだけを印刷する必要があって（どんな「必要」やねん。）、 ちょろっとマクロ書いて片付けるか！ と意気込んで始めたにもかかわらず、ちょっとハマったので、報告。 先頭ページだけを印刷するマクロ 先頭ページだけを印刷するには、[Document].PrintOutメソッドを用いたら楽勝だと思った。 リスト１ Private Sub test08() Dim tgtDoc As Document Set tgtDoc = ActiveDocument Call tgtDoc.PrintOut(Range:=w…
先日体験した失敗談からのご紹介。 例えば、こんなテーブルでのお話。 納期は基本的に、発注日の１４日後だ。 ところが、このテーブルの使用者から、こんな要望が寄せられた。 果物によっては、納期が変わる場合があって、納期のセルを上書きしたい。 上書きの条件は複数様々あり、定まっていない。 手入力用の列は設けたくない。 列の内容が数式と手書きで混在するなどやりたくなかったが、要望だから 仕方がない。とここで、閃いた。例えば、こんな方法はどうだろう？ 納期列に値を張り付けるための配列を準備する。 もともと設定されていた数式を取得する。 各行をループし、上書き条件を満たす場合は値を、それ以外の場合は数式を…
はじめに 定義 URLを指定して開く URLを取得 待機（単位はミリ秒）*1 各種エレメントを取得 要素の数を数える 値を入力 ドロップダウン（プルダウン）メニューの選択 値を取得 ボタンをクリック 複数画面の処理 ポップアップ（アラート）の処理 *5 はじめに 「VBAでEdgeを使用する方法① 準備編」の続き 調べながらの作業のため間違いあり 参考：VBAのスクレイピングを簡単楽にしてくれるSelenium ここではよく使うものをメモとして残している。 定義 Dim driver As New Selenium.EdgeDriverDim keyword as String, myStri…
傍点マクロの改良 目次 傍点マクロのイマイチなところ 傍点マクロを改良する 使ってみる 終わりに 傍点マクロのイマイチなところ akashi-keirin.hatenablog.com このときに紹介した傍点マクロ。 便利だと思っていたが、ショートカットキーでサクッと使えるようになると、コロナの弱点が見えてきた。大阪府の吉村知事ばりに！ こいつをご覧ください。 おわかりだろうか。傍点を施した箇所が選択されたままなのである。 しかも！ 続けて文字を入力すると、このようなみじめな状態になるのである！ これはめちゃくちゃ不便である！ ……ではなくって、さあ改良だ！ 傍点マクロを改良する 前回のリスト…
文書内に挿入した画像に枠を付ける Wordの文書内に挿入した画像に枠囲いを付けるのは、結構めんどくさいので、枠で囲うマクロを作った。 こんなことができます Wordの文書内に挿入した画像に、ワンクリックで囲みを付ける。ただ、それだけ。 目次 画像に枠囲みを施すのはめんどくさい 画像に枠囲みを施すマクロ 使ってみる おわりに 画像に枠囲みを施すのはめんどくさい Wordで文書中に画像を挿入し、枠囲みを施すのは実にめんどくさい。 このことをまず示す。 画像の挿入 まず、「挿入」タブをクリックする。 次は、「画像」をクリック。 画像ファイルのある場所をクリックする。 ファイルを選び、［挿入］をクリッ…
ここ一週間ほど、（私にとっての）大規模マクロを作成していて、泥沼に はまっている（絶賛継続中）。そこから抜け出そうとして得た教訓を一つ二つ、覚書として残しておこう。 例えば、こんなテーブル。 これについて「品名列を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のようなデザイン性はありませんが、ツリー表示ができるのでプログラム内の構造を直観的に表現することに優れています。 メニューバーを追加すると［アドイン］という名前のリボン…
フォームにコントロールと呼ばれる部品を配置する事で、ユーザへの入力方法を促す事やユーザからのデータ入力を受ける事ができる様になります。今回はそのコントロールの中でもListViewの配置方法について説明します。 配置方法 （1）フォームを作成します。 ※フォームの作成方法については、こちらの手順を参考にして下さい。 （2）上部にある<ツールボックス>ボタンをクリックします。 （3）ツールボックスが表示されます。 （4）今回はコントロール中のListViewを配置しますので、<ListView>ボタンをクリックした後にフォーム上でクリックします。（フォーム上にListViewが配置されます） ※…
ざっくり説明 ①ユーザーに起動用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…
今回もエクセルの神髄様の Twitter 企画「VBA100本ノック」に便乗させていただきます。 今回はその91本目への解答です。Date 型の使い方もまとめました。 VBA100本ノック 91本目：時間計算（残業時間の月間合計） #VBA100本ノック 91本目「勤怠」に複数月の勤怠データが入っています。9:00～18:00の休憩1hの実動8hです。id・月ごとに残業時間を算出し「残業」に一覧出力。残業：単純に1日8hを超える時間数。ただし9時前出勤は9時とする。日々1分単位、月間30分単位で切り捨て。※時間計算の練習問題です。 pic.twitter.com/ROf5vsuL7N— エクセ…
今日はオンライン交流会のはずですが・・・まだ何にも連絡がありませんね。時間ギリギリに設定するのでしょうか？うーん、トラブルが起きそうな予感がしますが・・・・。 さて、昨日は一日確定申告準備で、帳簿の修正です。やはり楽天ポイントでの資材購入等も確定申告に入れ込もうと思い、修正をし始めているのですが、結構記録数が多いので時間がかかっています。 私の場合、Excelで帳簿を作成しているので、会計ソフトと違って修正するには確認をしながら修正していく必要があるのですが、見落としも多くて大変です。よくあるのがデータの追加削除によって、セルの参照がズレてしまうことによる数値が変わってしまうこと。これがあると…
楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdzステンレスジュエリーSTENCY NANA特集（その１２７）１ 金属アレルギー対応 ステンレスリング prie フラワーリーフジルコニアリング 指輪 シルバー ゴールド ピンクゴールド ピンキーリング ミディリング ファランジリング 安心 316L 楽天で購入 ２ 【別発送】金属アレルギー対応 ペアリングにもおすすめ！刻印無料 名入れ EVE アトラスダイヤモンドステンレスリング 天然ダイヤモンド 指輪 安心 316L 楽天で購入 ３ 金属アレ…
ルル（🐦） ツイートURL:https://twitter.com/96232866/status/1366769931342155783 ツイート:Google Apps ScriptのUrlFetchを使って、CRONと同じく任意時間でURLをリクエスト方法 #googleappsscript #CRON #script https://t.co/mggTPx274i 優衣唄（🐦） ツイートURL:https://twitter.com/91792843/status/1366769903454195713 ツイート:RT @look_mam_look: Google Apps Scrip…
2/28の続きです。前回の記事では、新しいタブを開くところまでできましたが、きょうは、その新しく開いたタブをオブジェクト化して制御できるようにします。 制御するといっても、制御の前段階。先ずはオブジェクト化して「捕まえる」というところまでをやります。 debug.print と注釈で長くなってしまいましたが、処理として追加したのは以下の2行のみです。 Dim objIE2 As Object Set objIE2 = objShell.Windows(objShell.Windows.Count - 1) objIE2 に新しく開いたタブをオブジェクトとしてセットできました。 以降は、objI…
まえきんです！ 今回は特定のセルの右に列を挿入する 方法について学習しましたのでご紹介します。 あらかじめ作成された表について、特定の位置に列を挿入してみます。 今回は「Excel VBA スキルアップ」と入力されているセルの右に新しい 列を挿入するマクロを考えます。 列の挿入自体はEntireColumn.Insertで実現できます。 後は指定の文字列を検索して見つかったタイミングで 列挿入の処理を実行することになります。 簡易的にマクロの実行ボタンを作成して、上記のコードを 実行すると下記のように結果が得られます。 【実行前】 【実行後】 前回の#57と違うのは、Offsetを使ってある起…
楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdz丸井（マルイ）楽天市場店 ジュエリー特集 No.２１ K10チャーム／アガット（agete） 楽天で購入 ２ 【6mm用】オーバルフェイスジュエリーウォッチ（NO6）／ノジェス（NOJESS） 楽天で購入 ３ ダイヤモンド一粒ネックレス0. 03ct( WG)／テイクアップ ピュア（TAKE-UP PURE） 楽天で購入 ４ 革ベルトジュエリーウォッチ【AGETE33BK時計】／アガット（agete） 楽天で購入 ５ 淡水パールベルトジュエリー…
特定の名前のシートを取り出すVBAコードはコチラ Sub 売上から始まるワークシート名の一覧を取り出す() Dim i As Long 'ダミーのワークシートを一番左に新規挿入 Worksheets.Add before:=Worksheets(1) For i = 1 To Worksheets.Count '売上から始まるシート名ならば If Worksheets(i).Name Like "売上*" Then 'ダミーのワークシートのセルA1からシート名を取り出す Cells(i, 1) = Worksheets(i).Name End If Next End Sub
楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdz丸井（マルイ）楽天市場店 ジュエリー特集 No.１１ オーバルフェイスジュエリーウォッチ【A.CNO.1YG時計】／アガットクラシック（ageteCLASSIC） 楽天で購入 ２ ラウンドフェイスジュエリーウォッチ【AGETE29SV時計】／アガット（agete） 楽天で購入 ３ K10チャーム／アガット（agete） 楽天で購入 ４ フローラルアイアンクロスペンダントPAVE／アルテミスクラシック（Artemis Classic） 楽天で購入…
楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdz丸井（マルイ）楽天市場店 バッグ、財布特集 No.２１ ボヤージュ/ルガトー(レッド)【ウォレット L字ファスナー】／アジリティーアッファ（AGILITY Affa） 楽天で購入 ２ メトロ/カルロスナイロン(ブラック)【リュック 2way】／アジリティービゾン（AGILITY Bisogn） 楽天で購入 ３ メトロ/カルロスナイロン(レッド)【リュック 2way】／アジリティービゾン（AGILITY Bisogn） 楽天で購入 ４ バナーヌI…
楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdz丸井（マルイ）楽天市場店 レディースファッション特集 No３<BR>１ 【結婚式・お呼ばれ対応】リボン＆コットンパールパーティーネックレス／プールヴー（PourVous） 楽天で購入 ２ パーティードレス／プールヴー（PourVous） 楽天で購入 ３ 【結婚式・お呼ばれ対応】ランダムパールネックレス／プールヴー（PourVous） 楽天で購入 ４ 結婚式 パンツドレス／プールヴー 楽天で購入 ５ 結婚式 パンツドレス／プールヴー 楽天で購入 …
楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdz丸井（マルイ）楽天市場店 バッグ、財布特集 No.１１ バッグ（レザーショルダーバッグ）／アジリティアッファ【レディースバッグ】 楽天で購入 ２ バッグ（毛付きレザー製トートバッグ）／アジリティー ビゾン(AGILITY Bisogn)【レディースバッグ】 楽天で購入 ３ リュック（馬革リュック）／アジリティー アッファ(AGILITY Affa)【リュック】 楽天で購入 ４ キャンバスボディバッグ／アルテミスクラシック（Artemis Cla…
楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdz丸井（マルイ）楽天市場店 レディースファッション特集 No.1<BR> １ 結婚式 ワンピース パーティードレス／プールヴー（PourVous） 楽天で購入 ２ 【二次会・女子会対応】ラメパールリボンパンプス／プールヴー（PourVous） 楽天で購入 ３ 【結婚式・お呼ばれ対応】ガーリーリボンハンドバッグ／プールヴー（PourVous） 楽天で購入 ４ 【結婚式・お呼ばれ対応】タッセル付きレタークラッチバッグ／プールヴー（PourVous） …
こんにちは😃昨日から3月となりました。特に2月は日数が少ないので終わるのが早く感じます。 午後からも引き続き、充実した一日をお過ごしください。++++++++++++++++++++++++++++++オーディオブック紹介シリーズ（No.200）「逃げる力」私が実際に購入した作品の中から購入順に不定期にご紹介します。この作品を購入したのは、2019/11/10日でした。こちらのオーディオブックは購入後、1回聴きました。百田尚樹さんと聞くと、嫌がる人もいると思いますが、私は決してそんなことはないと思っています。この作品では、タイトルが「逃げる力」とあるので何のことか分からないと思います。日本人で…
お金の余裕もないことから、卒業要件を満たすギリギリ単位にしようかと悩みつつ、もし、もしも、一つでも単位を落とすことがあれば「卒業できなくなる」という恐怖心から18単位申請した。楽な科目にしようかと悩みつつも自分的にチャレンジ枠（ナニソレ）科目に登録してしまった。でも、後悔はない。 放送授業８科目（16単位）とオンライン授業２科目（2単位）＝18単位。まぁいい。オンライン授業はJavaプログラミングの基礎をチョイス。絶対独学では勉強しない科目だけどC言語よりもなんとなく親近感があるから選んだんだけど、そのノリで表計算プログラミングの基礎もとってしまった。復習がわりにとExcelとかマイクロソフト…
空白行を削除するコードはこちら Sub Macro210301_03() Dim i As Long, LastRow As Long '最終セルの行番号の変数指定 LastRow = Cells(Rows.Count, 1).End(xlUp).Row '最終セルの行から2行目までの範囲指定 For i = LastRow To 2 Step -1 'C列が空白だったら If Cells(i, 3) = "" Then '列全体を削除する Cells(i, 3).EntireRow.Delete End If Next i End Sub 色分けすると… こんな感じで動きます いかがでしょう…
papasensei365.com
qiita.com
earningmoney.hatenablog.com
www.excelspeedup.com
www.officepro.jp
risa.hatenablog.com
forest.watch.impress.co.jp
www.atmarkit.co.jp
nattou-curry-2.hatenadiary.org
