VBA

この記事ではExcelマクロ・VBAを活用して、ピボットテーブルを操作する方法を紹介します。中でも今回は、値フィールドの集計で最大値にする方法について紹介します。 できるだけコードをコピペするだけ活用できるようにしていますので、ぜひご参考にしてください。 マクロの使い方については以下の記事を参考にしてください。 開発タブをメニューバーに表示する方法を図解 プログラム・コードを書き始める方法を図解 作成したマクロの実行方法を図解 ではさっそく、方法を見ていきます。ピボットテーブルは作成している前提で説明します。ピボットテーブルについては以下を参考にしてください。 （作成中） 以下の画像のようなピ…

先日、このような困りごとをお見掛けした。 システムから吐き出された複数のExcelファイルがある。 機械的に吐き出されているため、列幅未調整で、文字が見切れている。 これらのファイル全てについて、列幅を自動調整する必要がある。 挑戦してみた。 まず、いつもの「なんちゃって個人情報」から、対象となるファイルっぽい ものを作成してみた。 中身は、こんな感じだ。 今回は、こんな作戦で行ってみよう。 まず、サブプロシージャは二つ作成する。 ファイル内の列幅調整用。 複数ファイルに対する処理ループ用。 列幅調整については、セル内で折り返されている場合を考慮して、 一旦びよーんと伸ばしてから自動調整してみ…

今回もエクセルの神髄様の Twitter 企画「VBA100本ノック」の便乗記事です。 今回はその94本目をやります。 ついでにはてなブログで使える Markdown 表組へ変換するマクロも作ります。 VBA100本ノック 94本目：表範囲からHTMLのtableタグを作成 #VBA100本ノック 94本目表をHTMLの<table>に変換するFunctionを作成。引数(セル範囲,見出行数)でHTMLで返す。見出行数：>=1は指定行数を<thead>で出力。セル結合：<td colspan="2" rowspan="2">等々空白セル："&nbsp;"を出力※出力サンプルを参考に※文字位置は…

今回もエクセルの神髄様の Twitter 企画「VBA100本ノック」の便乗させていただきます。 今回やってみるお題はその93本目です。 外部参照のスピルを使ってみます。 お題：VBA100本ノック 93本目：複数ブックを連結して再分割 #VBA100本ノック 93本目「月別」フォルダには同一フォーマット（1シートのみ）の年月別のファイルがあります。全データを集め、支店別に分割し直し「支店別」フォルダに「支店CD.xlsx」で出力してください。フォーマットは画像及びサンプルファイルにて。※「月別」「支店別」フォルダのパスは任意 pic.twitter.com/At32qZs8Hz— エクセルの…

この記事ではExcelマクロ・VBAを活用して、ピボットテーブルを操作する方法を紹介します。中でも今回は、値フィールドの集計で平均をする方法について紹介します。 できるだけコードをコピペするだけ活用できるようにしていますので、ぜひご参考にしてください。 マクロの使い方については以下の記事を参考にしてください。 開発タブをメニューバーに表示する方法を図解 プログラム・コードを書き始める方法を図解 作成したマクロの実行方法を図解 ではさっそく、方法を見ていきます。ピボットテーブルは作成している前提で説明します。ピボットテーブルについては以下を参考にしてください。 （作成中） 以下の画像のようなピボ…

先日体験した失敗談からのご紹介。 例えば、こんなテーブルでのお話。 納期は基本的に、発注日の１４日後だ。 ところが、このテーブルの使用者から、こんな要望が寄せられた。 果物によっては、納期が変わる場合があって、納期のセルを上書きしたい。 上書きの条件は複数様々あり、定まっていない。 手入力用の列は設けたくない。 列の内容が数式と手書きで混在するなどやりたくなかったが、要望だから 仕方がない。とここで、閃いた。例えば、こんな方法はどうだろう？ 納期列に値を張り付けるための配列を準備する。 もともと設定されていた数式を取得する。 各行をループし、上書き条件を満たす場合は値を、それ以外の場合は数式を…

はじめに 定義 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で文書中に画像を挿入し、枠囲みを施すのは実にめんどくさい。 このことをまず示す。 画像の挿入 まず、「挿入」タブをクリックする。 次は、「画像」をクリック。 画像ファイルのある場所をクリックする。 ファイルを選び、［挿入］をクリッ…

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のようなデザイン性はありませんが、ツリー表示ができるのでプログラム内の構造を直観的に表現することに優れています。 メニューバーを追加すると［アドイン］という名前のリボン…

楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdzエクセルブランドショッピング特集（その１７４）１ オメガ 腕時計 レディースウォッチ 【SEAMASTER：シーマスター】 AQUA TERRA 231.15.39.21.55.001 WHITE PEARL/SILVER OMEGA 【お取り寄せ】 楽天で購入 ２ オメガ 腕時計 レディースウォッチ 【SEAMASTER：シーマスター】 AQUA TERRA 231.10.39.21.57.001 GREY PEARL/SILVER OMEG…

日経平均株価が3万円を超え、そろそろ大きく下落するという情報やバブルが弾けたという情報がネット上に飛び交っていますが、確かに最近の相場は一瞬の雪崩がよく発生している気がします。 この記事では、日経225mini先物期近において一日のうち、どの時間帯にその日の高値・安値を記録していることが多いのか調べてみたので公開してみたいと思います。 分析したデータは2011年7月1日～2021年2月26日までのトータル2,363営業日です。 まずは以下の表をご覧ください・・・ ※ネット上にある過去データと証券会社が発表するデータを元に集計しています。1分未満の数値は切り捨てと思われます(確実ではありません)…

楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdz3月6日！楽天ショップお得情報 No.3１ バリー ショルダーバッグ バッグ メンズ セバート ブラック&マルチストームグレージュ SEBERT PBB 70 6235451 BALLY 楽天で購入 ２ バリー リュックサック/バックパック バッグ メンズ サルキス ブラック&マルチストームグレージュ SARKIS PBB 70 6235445 2020年秋冬新作 BALLY 楽天で購入 ３ グッチ ネックレス アクセサリー レディース ディア…

楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdz3月6日！楽天ショップお得情報 No.2＜BR> １ 結婚式 ワンピース パーティードレス／プールヴー（PourVous） 楽天で購入 ２ 【二次会・女子会対応】ラメパールリボンパンプス／プールヴー（PourVous） 楽天で購入 ３ 【結婚式・お呼ばれ対応】ガーリーリボンハンドバッグ／プールヴー（PourVous） 楽天で購入 ４ 【結婚式・お呼ばれ対応】タッセル付きレタークラッチバッグ／プールヴー（PourVous） 楽天で購入 ５ 【二次…

楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdz3月6日！楽天ショップお得情報 No.1１ Tシャツ 3L 4L 5L レース素材シャーリング衿プルオーバー (3L〜5L) 40代 50代 60代 ファッション レディースファッション 大人 ミセス ベルーナ Belluna 春 春服 シャツ トップス チュニック 大きいサイズ 長袖 楽天で購入 ２ チュニック M L LL カシミヤタッチニットチュニック (M〜LL) 40代 50代 60代 ファッション レディースファッション 大人 ミセ…

楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdzブルークウォッチカンパニー特集 No.６２１ モンブラン スター レガシー アリゲーターレザー メンズ 117576 楽天で購入 ２ オメガ シーマスター アクアテラ YG金無垢 レディース 231.50.30.20.06.002_5 楽天で購入 ３ フランクミュラー ヴァンガード ドラゴンキング リミテッド 世界限定188本 クロコレザー メンズ V45 SC DT AC NR DRAGON KING VR[FMV45SCDKPLSSGRLZ…

楽天検索リンクhttps://a.r10.to/hzs8qkAmazon検索リンク（商品の検索トップページ）http://amzn.to/2FUGRdz3月5日！楽天ショップお得情報 No.3１ 【別発送】金属アレルギー対応 ペアリング2本セット EVE アラベスクステンレスペアリング 安心 316L ニッケルフリー 楽天で購入 ２ 【別発送】金属アレルギー対応 ペアペンダント2本セット EVEベビークロスリングダイヤモンドステンレスペアペンダント 天然ダイヤモンド ペアネックレス 安心 316L 楽天で購入 ３ 金属アレルギー対応 ステンレスペンダント ハンドカフス ネックレス 安心 316…

ー超難関資格、高学歴。アクチュアリーとは、一体どんな人達なのか－ インタビュー企画第３弾！ 今回は、損保アクチュアリーの方々にインタビューしました！！ どうぞご高覧ください！ 【損保アクチュアリーの魅力】 【今、損保業界において、ご関心を持たれているトピック】 【どんな人が損保アクチュアリーに向いているか？】 【損保アクチュアリーには、実際どんな人が多いのか？】 【損保アクチュアリーを目指す人にひとこと】 【損保アクチュアリーの魅力】 産業や家計を取り巻くさまざまなリスクについて深く知り、考えることができます。人々の暮らしは決して同じではなく、住宅はその構造もたたずむ土地も異なり、自然の恵みに…

お題「#この1年の変化 」 どうも、私です。最近思うのは無職は辛かったよという話です。 無職のころは、やることなくて、お金ばかり使っていました。大した額じゃないけれど。会社があると、苦痛ですけれど、行って、拘束されるので、だらだらと仕事をして、時間になったら帰るを繰り返しています。ちゃんと働けよという感じです。 まあ、今も、無職みたいな収入量ですが、一応仕事はしているので、社会貢献をしているなあと思いました。まあ、そう思わないとやっていけないですけれどね。 あと、人の評価ほどあてにならないものはないなと思いました。先日仕事で、適当に作ったやつが、(適当に作るなよ）って感じですが。信じられないく…

なでしこプログラムの配布について書く約束だったが、それは、もう少しだけ先送りする。ただ、なでしこのメニューに、「実行ファイルの作成」というメニューがあった。やってみてもよかったが、それは、皆さんの誰もが、できることだ。 今回は、なでしこの関数についてと、なでしこのRPAとしての利用について話す。 まずは、関数。大抵の言語は、関数を持つ。なでしこでも使える。以下は、関数の記述例と呼び出し例。 #関数の定義例●大きく表示（文言を） 文字サイズは36。#引数にしてもよいが今回は固定 文言を表示。 #呼び出し例「はろーわーるど！」を大きく表示。 関数の定義は、●で始める。 次に、RPAとしてのなでしこ…

東京商工会議所では、新型コロナウイルスが感染拡大する中、企業での対策に活用できる情報として、産業医有志グループ（※）より提供される「企業向け新型コロナウィルス対策情報」を配信（不定期）しております。 （※）本対策情報は、産業医有志グループ（今井・櫻木・田原・守田・五十嵐）が作成し、厚生労働省新型コロナウイルス対策本部クラスター対策班・和田耕治先生（国際医療福祉大学・公衆衛生学教授）のサポートも受けたものです。詳細は本ページ下部の「文責」をご覧ください。 ※本内容は2021年2月26日に配信されたものです。経営者・総務人事担当者のみなさま、新型コロナウイルスワクチンに関する情報を従業員に周知され…