Excelのグラフに3軸目を追加したい。そうだ二つのグラフを重ねることにしよう。【VBA使用】 - パソコン関連もろもろ
はじめに Excelのグラフに第3軸を追加したいときがあります。 こんなグラフを描きたい 前回二つのグラフを重ねることで折れ線グラフを棒グラフの後ろにもってくる方法を紹介しました。 touch-sp.hatenablog.com 同じテクニックで今回は第3軸を追加する方法を紹介します。 元のデータ 今回は例としてこのようなデータを使用することにします。 普通にグラフを描くと左のようになると思います。 方法 次のような二つのグラフを描いてそれらを重ね合わせて完成です。 まずはExcelシートを以下のように拡張します 左側のグラフを描くときには「A」と「B」は同じ軸（左側の軸）を使いますので「A」の値を10倍する必要があります。 右側のグラフは縦軸の最大値を60に設定して「100」という数字をプロットしています。「100」という数字はグラフ表示可能な範囲外ですので軸だけ残ります。「100」でな
MS Office Excel2016, Word2016： 図形の網掛け（塗りつぶし（パターン））と透明度の設定 - とあるヲタクの超電波ブログ
PC記事は自分用の備忘録（真似するときは自己責任で）。コメントへの返事が大変になってきたのでするの諦めました（ゴメン） Excel2016，Word2016にて図形の網掛けをしたのはいいが，透明度の設定がなくて背景を透かして見せることができず困った。 で，さっそくググって調べるとあっさり解決（＾＾）でも，時間が経てば忘れるのでメモに残しておくことにしました。 ちなみに，Excel2013，Word2013でも同様の方法でできるようです。 例えばExcelで上のようなギザギザの星図形を作ったとします。 この図形を「塗りつぶし（パターン）」にて網掛けをします。 1) 図形をワン・クリック（左クリック）して選択します。 2) 「書式タブ」にある「図形のスタイル」の右下の部分をクリックする すると右側に「図形の書式設定」が開きます。(ちなみに，図形を右クリックして「図形の書式設定」を選択しても同じ
VBA PowerPointのテキスト抽出｜のぶ
PowerPointのスライド上で選択したテキストボックスなどから、テキストを抽出してクリップボードにコピーするツールのご紹介です。 PowerPoint文書に記載されている文章を流用する時などに、対象のテキストが１つのテキストボックスに収まっていれば、そのテキストを１回選択コピーするだけで済みます。しかし、それが複数のテキストボックスに分かれていたりすると、選択コピーの操作を複数回行う必要があり面倒です。 そこで、PowerPoint文書にVBAプログラムを組み込んで、スライド上で選択したテキストボックスなどから、テキストを抽出してクリップボードにコピーするツールを作成してみましょう。 プログラムコードは、前回記事「10.VBA PowerPoint文書フォント変更の仕上げ」から一部流用して作成します。 新規文書の作成まずは、テスト環境も兼ねたVBAプログラムを組み込むための新規文書を作
［VBA便利技］PowerPointのスライドからテキストを抽出
PowerPointで作成したプレゼンテーションの内容を基に、Wordで文書を作成したり、Webページのコンテンツを作成したりすることがあります。その際、スライドのタイトルやテキストを1つずつコピー＆ペーストしていませんか。 そんな面倒な作業はマクロで自動化しましょう。ここでは、PowerPointのVBEで、スライド内のテキストをワンタッチで抽出してテキストファイルに吐き出すマクロを作成します（リスト1）。
Excelの定義書からVBAでSQLを作成する
CREATE文を作成するマクロ とりあえず、最も使いそうなCREATE文(DDL)を作成するVBAマクロを作ってみることにしました。 ソースは以下になります。 '=====定数定義===== 'テーブル物理名のセル番号 Private Const COL_TABLE_NAME As Integer = 4 Private Const ROW_TABLE_NAME As Long = 1 'テーブル論理名のセル番号 Private Const COL_TABLE_COMMENT As Integer = 4 Private Const ROW_TABLE_COMMENT As Long = 2 '項目開始行 Private Const ROW_COLUMNS_START As Long = 5 '項目の列定義 Enum enm_columns NO = 2 'No COLUMN_NAME '
ExcelからCreate文を | SQLServer大好き
Excelに記入したテーブル定義から、Create文をマクロで作成します。 Create文作成マクロ入りExcel：create_table_macro.xls テーブル定義書Excel：table_doc_sample.xlt ～使い方～ 1.C:\workフォルダを作成します。 2.テーブル定義書EXCELファイルを開いて、作成したいテーブルのシートを選択します。 テーブル定義書のサンプル：table_doc_sample.xlt 3.テーブル作成マクロ入りEXCELのマクロを実行します。 4.C:\work\create.txtが出来上がります。 作成されたcreate文を使って、DBにテーブルを作成します。 0 people found this article useful This article was helpful This article was helpful 0 p
VBA開発環境をモダンにする - RubberduckとVBEThemeColorEditorの紹介 - Qiita
VBAのIDEは古のVBE... なんだかんだでVBAを触る機会が結構あるが、IDEはVBE。 少なくともバージョン管理はほしい できる限りモダンな開発環境に近づけたい 見た目なんとかしたい ということで色々調べていたら、2つのアドイン・ツールを使うことでかなりそれっぽい感じにできることが分かった。ちなみに環境は windows10(64bit) + office2016(32bit) で確認。 紹介するアドイン・ツール RubberDuck VBEを現代のIDEっぽくしてくれるヤバいアドイン。1年前くらいに一度試してみるも、動作がかなり不安定でその時は使うのをあきらめた。 最近バージョン2.2がリリースされていたのでもう一度入れてみたところ、すんなりインストールできて動作もかなり安定している！ということで導入決定。 2018/06/10時点の安定版 VBAのエディタの色設定はデフォルトで
Accessのデータをエクセルファイルに出力する(Access2000以降） - パソコンカレッジ スタッフのひとりごと
今日も、アクセスを取り上げます。 任意のテーブルもしくはクエリーのデータをエクセルファイルに出力する方法をご紹介します。 その際、エクセルのファイル名だけではなく、シート名も指定してみます。 なお、シート名を指定しないと、テーブルもしくはクエリーの名前が シート名となりますよ。 なお、Accessファイルは、デスクトップに保存してあるものとします。 エクセルファイルは、同じディレクトリ（今回は、デスクトップとなります）に 出力されるようにします。 従って、マイドキュメントにAccessファイルが保存してあれば、 エクセルファイルも自動的にマイドキュメントに出力されます。 Access2007でご説明しますが、2003やXPバージョンでも、問題なく動作します。 以下の画像は、今回エクスポートするテーブルのデータです。 T講座 という名前のテーブルです。 フォームをデザインビューで開いて、ボタ
MS Access のVBAモジュールを全てエクスポート
Microsoft Access のVBAモジュール（プログラム ソースコード）を一括でファイルにエクスポートするには、VBComponent.Export メソッドを使います。 下にサンプルを挙げますが、参照設定として以下の２つが人必要です。 Microsoft Visual Basic for Applications Extensibility Microsoft Scripting Runtime 参照設定は、Visual Basic Editor(VBE)のメニューから、ツール(T) ＞ 参照設定(R) と辿ります。 VBAモジュールをファイルにエクスポートするサンプル Sub ExportComponents() Dim Fso As New Scripting.FileSystemObject Dim OutDir As String OutDir = Fso.GetPare
WindowsAPI をOffice64bit版または32bit版のVBAで使うには | hatena chips
いままでOfficeの32bit版のVBAでWindowsAPIを使用していたコードが、Officeを64bit版に変更するとコンパイルエラーになり使えないということが発生します。64bit版に対応させるためには、WindowsAPIのDeclareステートメントの宣言を書き換える必要があります。WEB検索するとMS公式のものも含めていろいろ情報が見つかりますが、分かりにくかったり、不正確な情報も多々あります。そこでhatenaなりに分かり安く整理してみました。 Office64bit版、Office32bit版どちらでも使用できるDeclare宣言詳しい解説は後回しにして、結論を先に書きます。 Office2010以降(VBA7)の場合Declare宣言実例で説明したほうか分かり安いと思いますので、SetWindowPos というAPIを例に説明します。 旧来の宣言は下記になります。 P
VBAでWindowsAPIを使うには - Qiita
概要 VBAでWinAPIを使用する際に気を付けるべきことなどを、頭の整理も兼ねてまとめてみる。 基本的な構文 Declare ステートメント を見て貰うのが最も確実です。 少し紛らわしい点としては VBA内で使用するプロシージャ名が、SUb|Functionの後ろに記述したもの。 Aliasの後ろにあるのが、DLL内の本来の関数名となります。 VBAのバージョンの確認 実行するVBAのバージョンによっては使用できない記述があるため、どのバージョンで実行するのかを確認する必要があります。 2017/1/8 では最新は7.1 MSOfficeでは2013,2016に搭載されています。 VBA 6.x MSOfficeでは2007以前が該当します（2007で6.5）。 32bit版しか存在しません。 古い記述でも動作しますが、VBA 7.x 64bit環境に備えて #If...Then...#
VBAにはユニットテストやリファクタリング機能がない・・・そんなふうに考えていた時期が俺にもありました - Qiita
コンテキストメニューまたは、メニューバーのRubberduckメニューからRefactorを実行することでリファクタリングが行えます。 下記の例では関数名を変更しています。 他にも引数の削除や順番が行えます。 テスト用のモジュールとメソッドの追加方法 Rubberduck→Unit Tests→Test Moduleでテストモジュールを追加、Rubberduck→Unit Tests→Test Methodでテストメソッドを追加します。 テストモジュール中の「'@TestMethod」というコメントが記載された関数がテストメソッドとなります。 テスト実行例 まず以下のようなテストモジュールを用意します。 Option Explicit Option Private Module '@TestModule '@Folder("Tests") Private Assert As Object
VBAマクロ向け関数。GenderEstimate。漢字の名前とふりがなから、性別を推定する関数
GenderEstimate.bas �M� �U 0�� �U Public Function GenderEstimate(ByVal strMK As String, Optional strMF As String = "") As String GenderEstimate = "" strMK = Replace(Replace(Replace(strMK, " ", ""), " ", ""), "「", "") strMF = Replace(Replace(StrConv(strMF, vbHiragana), " ", ""), " ", "") 'デバッグ用。こいつをブレークポイントに持ってきて挙動を確認する 'If strMK Like "理世" Then ' Debug.Print strMK 'End If Select Case True 'ひらがなが2文字以
【エクセルVBA】一瞬で結合セルを解除して値を埋めるマクロ
データベースとして使いたい表なのに、結合セルだらけで使い物にならない。 そんなときに、VBAで作ったマクロを起動するだけで、 結合セルを解除して 元々入っていた値を、結合されていたすべてのセルに入力する マクロを紹介します。 ソースコードを貼り付けて実行するだけなので、1分もかからずに、表を整形できます。 ソースコード 下記を、標準モジュールに貼り付けて実行してください。 Sub UnmergeCellsAndFillValues() Dim rng As Range For Each rng In ActiveSheet.UsedRange If rng.MergeCells Then With rng.MergeArea .UnMerge .Value = .Resize(1, 1).Value End With End If Next End Sub 解説 For Eachループ F
セル範囲の名前の設定と削除 ｜ Excel作業をVBAで効率化
Excelでのセル範囲の名前の設定と削除 セルはA1形式やR1C1形式での座標で表されますが、それとは別に、セル範囲に「名前」を付けて座標の変わりに使うことができます。 Excelでの名前を付ける手順は、名前を付けたいセル範囲を選択して、数式バーの左にある「名前ボックス」に任意の名前を入力します。 名前を削除したい場合は、数式タブ→定義された名前→名前の管理をクリックすると、名前の管理ダイアログが表示されるので、対象の名前を選択→削除ボタン、となります。 以降ではVBAで同じ操作を行う方法を紹介します。 RangeオブジェクトのNameプロパティは、Rangeオブジェクトに指定したセル範囲の名前の取得や設定を行うことができます。 ここで付けた名前を利用することで、セル範囲を参照する際にA1などのセルを指定せずに名前で指定することが可能になります。 名前の設定にはNameプロパティをそのまま
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Access 2013 ランタイムでのAccess起動 [VBScript] : スクリプトちょっとメモ
GitHub - Asmith0092/VBADoc: VBADocument from VBA Code by VBA Code
Access開発でバージョン管理をどのように使用しますか。 - Code Guides
Excel, Access: An MSForms (all VBA) treeview
Access VBA 入門講座