Excelグラフの基本的な作り方――わかりやすい効果的なプレゼン／会議資料作成のために
プログラミング初心者を対象にExcelマクロ／VBAを使った業務自動化プログラムの作り方を一から解説する本連載「Excelマクロ／VBAで始める業務自動化プログラミング入門」。前回の「Excelの醍醐味！ 明日からできるデータの並べ替え、検索、置換、抽出」で紹介したデータ操作と同じく、グラフはExcelとは切っても切れない仲だ。 各種統計データの値をいろいろなグラフとして表示させれば、売り上げの推移、何が一番よく売れているか、など、会社の将来への指針となるべき情報を得ることができる。このグラフを、ボタン1つで作成できるようなマクロを作れば、味気ない数値だらけのデータも、意味するところが一目瞭然で理解できるようになる。 データの理解を深める意味でもデータをグラフ化しておくことは重要だ。値を変更するとリアルタイムに変更がグラフに反映される。なんと素晴らしいことではないか。このようなグラフ作成を
2次元配列にセルのデータを格納するExcelマクロ:エクセルマクロ・Excel VBAの使い方/配列
Sub 選択されているセル範囲から新規ブックを作成する() Dim arr As Variant Dim r As Long Dim c As Long arr = Selection.Value ' ←ここで配列にデータを格納 If IsArray(arr) Then r = UBound(arr, 1) c = UBound(arr, 2) Else r = 1 c = 1 End If Workbooks.Add Range("A1", Cells(r, c)).Value = arr End Sub 例えば、B2:G11セルが選択させた状態で上記のマクロを実行すると、新規ブックが作成され、その新規ブックのA1:F10セルに、元のブックのB2:G11セルのデータが入力されます。 サンプルマクロの解説 以下の1行で配列・arrにデータが格納されます。 arr = Selection.V
Microsoft Excel VBA - ExcelでWebページを表示する方法
◆概要 VBAからInternet Explorerを起動し、制御することができます。VBAからWebページを表示するには、IEオブジェクトを利用する方法、Shell関数を利用する方法、WSHを利用する方法などがあります。最も簡単に表示する方法はShell関数を利用する方法ですが、高度に制御したいときは、IEオブジェクトを利用します。 ◆IEオブジェクトを利用する方法 IEのインスタンスを作成し、Navigateメソッドで指定のWebサイトを表示します。IEオブジェクトを作成すると、そのメソッドで特定のWebサイトを表示したり、Webサイトにメッセージを送ってボタンクリックなど特定の操作を行うこともできます。そのほか、IE本体を非表示にしたり、ページの本文をテキスト形式で保存したり、IDやパスワードなどが必要なページを表示することも可能です。 Sub WebShow() Dim ie As
【VBA】UTF-8のBOM取り - いちSEの自己他己IT教育
職場ではソース管理とドキュメント管理に Apache Subversionを利用しています Apacheには主に認証とログ出力の役割を持たせています 認証自体は外部のドメインコントローラが行い、 認証後の権限はテキストファイル(svnaccessfile)で制御しています svnaccessfileには権限を設定するリポジトリパスと、 そのパスに対してユーザーに与える権限を記述します この時、Excelにてユーザー名やリポジトリ名・権限を記載し、 svnaccessfileを出力するようなマクロを利用しています このsvnaccessfileは文字コードがUTF-8でなければいけないため、 マクロによるテキスト出力はADODBオブジェクトを利用して行っています (TextStreamオブジェクトではUTF-8は出力できません) しかし、ただUTF-8にするだけでは正常に作動せず、 BOM(
第15回 写真を貼り付ける
本業はエンジニア。ICに様々な機械をつなぎ，電流やら電圧を測定する。もちろん，これらの測定器もVBAでコントロールし，取り込んだデータもマクロで処理する。人呼んで，マクロの鬼軍曹！ 診断(15) 写真を貼り付ける 「先生，壊れたPCはどうなりました？」 「データ・ファイルは，ほぼサルベージできた。でも，OSとアプリケーションはゼロからインストール。おかげでレジストリもすっきり。便秘が治った気分である」 「ほほ～，それは不幸中の幸いですね」 「ところがじゃ，ExcelとWordのカスタマイズしたオプション設定がキレイさっぱり初期化されて，ちょっとご立腹」 「あらま～」 「勝手に段落になったり，見出しになったり，変数の小文字のiが大文字のIになったり」 「それは，Wordの話ですね」 「そうそう，Wordの話なんじゃが，イライラして原稿を書くどころの話じゃない」 「それは，仕事をしたくないとい
[ファイルを開く] ダイアログを表示する方法
概要 今回は、Access 2000 以降で [ファイルを開く] ダイアログを表示する方法です。 .....あっ、今アナタ、こう思いましたね？ [ファイルを開く] ダイアログ？ FAQ だね、FAQ。 Access 2000 には [ファイルを開く] ダイアログを表示する機能は無いんだから。 アレでしょ、Developer 版に付属しているコモンダイアログ コントロールを使うか、Excel 経由で GetOpenFileName メソッドを呼び出すか、さもなくば Windows API を使うっていう。 あ、それとも Access 2002 から追加された新機能の FileDialog メソッドを使う方法かな？ でもそれだと Access 2000 では使えないから、やっぱり最初の 3 つの方法でしょ。 そんなの他のサイトにもたくさん載ってるし、毎週どこかの掲示板に上がってくる定番ネタじゃ
Access VBA:TransferTextを使用せずにVBAでCSVなどの区切り記号つきテキストファイルを既存のテーブルにインポートするサンプルプログラム
AccessのVBAでCSVファイルなどの区切り記号付きテキストファイルをインポートするサンプルプログラムを覚書。 ［ファイルを開く］ダイアログボックスの表示と組み合わせたサンプルプログラムも作成しておいた。 AccessでCSVファイルなどの区切り記号付きテキストファイルをインポートするには、通常"TransferText"を使用する。 しかし、TransferTextでは、一括してデータを読み込むため個々のデータをインポート時に加工したりデータ型を変換するなどの細かい処理を指定できない。 インポート時の定義を作成し、定義を指定することである程度はカバーできるが、インポートするデータに何かしらの加工処理を実行した結果を保存する場合には役に立たない。 以下に、VBAの標準I/Oである"Line Input #"ステートメントを使用して区切り記号付きテキストファイルを読み込んでテーブルにレコ
外部テキストファイルとの接続方法
Shell 関数 機能 外部テキストファイルを開くだけで何も操作をしなくてよい場合は、もっとも簡単なのがこの Shell 関数です。 Call Shell("NOTEPAD C:\Temp.txt", 1) Shell 関数自体は別にテキストファイルを操作するための関数ではなく、単にアプリケーションを呼び出すだけで、呼び出し先はメモ帳でも秀〇でも Excel でも何でもかまいません。上記例ではコマンドライン オプションでテキストファイルのフルパスを渡すことによって、メモ帳に起動と同時にテキストファイルを開かせています。 なおテキストファイルのフルパス中に半角スペース文字が混じる場合は、下記のようにパスをさらに二重のダブル クォーテーションで括る必要があります。 Call Shell("NOTEPAD ""C:\Documents and Settings\YU-TANG\デスクトップ\Te
インデントの設定
設定する値はインデントする文字数です。1文字と指定した場合には全角1文字に相当します。 注意する点としては、「IndentLevel」プロパティを設定すると、「HorizontalAlignment」プロパティが「xlLeft」に自動的に変更されてしまいます。その為、右詰めや均等割り付けでインデントを設定する場合には、まず「IndentLevel」プロパティを設定してからその後で「HorizontalAlignment」プロパティを設定して下さい。 サンプルプログラム では簡単なサンプルで試してみましょう。 Sub テスト() Range("A1:B3").Value = "日本語" Range("A1:A3").IndentLevel = 1 Range("B1:B3").IndentLevel = 3 Range("A1:B1").HorizontalAlignment = xlLef
7.マクロのパスワードを忘れたとき
クレジットカード現金化の高還元率の優良店を選ぶためには クレジットカード現金化の優良店を選ぶポイントは、換金率やスピードもありますが、そのほかにも見ておきたいポイントもあります。 お金に厳しい人が利用しますので、手数料やキャンペーンの有無、価格交渉ができる業者ということは見ておきたいところです。 それぞれどのような内容なのでしょうか。 手数料が無料であるクレジットカード現金化の業者には、手数料をすべて無料でしてくれるところがあります。 業者によっては、単純に手数料という名目で業者側の利益がとられていたり、振込手数料、事務手数料という名目で少額ながらお金がかかることがあります。 せっかく高い換金率が記載されていても、手数料の分が差し引かれることで、損をしたような気持ちになったり後から気づくこともあります。 これらの手数料は最初から公式ホームページに記載がある場合は了承したうえで申し込みもでき
If OpenFileName <> "False"とIf OpenFileName <> Falseの違い
開くブックをユーザーに選択してもらう場合は、[ファイルを開く]ダイアログボックスを表示するといいでしょう。 Sub Sample1() Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") Workbooks.Open OpenFileName End Sub [ファイルを開く]ダイアログボックスを表示するには、ApplicationオブジェクトのGetOpenFilenameメソッドを使います。GetOpenFilenameメソッドによる[ファイルを開く]ダイアログボックスは、ユーザーが選択したファイルのフルパスを返すだけで、自動的には開きません。GetOpenFilenameメソッドの書式は次の通りです。 GetOpenFilename Fil
オートフィルタ(AutoFilter)でのデータ抽出:Excel VBA入門
オートフィルタ(AutoFilterメソッド)でのデータ抽出 Topへ データリストから必要なデータを表示し、他のデータは非表示にします。 expression.AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown) Field 必ず指定します。フィルタの対象となるフィールド番号を整数で指定します。 フィールド番号は、リストの左端列が「1」となります。 Criteria1 省略可能。抽出条件となる文字列 ("101" など) を指定します。 "=" と指定すると、空白セルが抽出されます。 "<>" と指定すると空白以外のフィールドが抽出されます。 この引数を省略すると、抽出条件はALLになります。 引数OperatorにxlTop10Itemsが指定されている場合は、引数Criteria1に項目数を指定します
オートフィルタの設定/解除: .xls
'オートフィルタモードになっているかどうか調べ、 'ONならOFF、OFFならONにする If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False 'オートフィルタを解除する Else ActiveSheet.Range("A1").AutoFilter 'A1セルを含む表をオートフィルタ設定する End If 'オートフィルタでフィルタされていれば解除して全ての行を表示させる If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If ※If文を使わずにフィルタされていないシートに対して実行すると、 実行時エラー'1004': WorksheetクラスのShowAllDataメソッドが失敗しました。 というエラーがでます。
No.8 ワークシートの最終行、最終列を取得する
ワークシートの最終セル（最終行、最終列）を取得する… VBAをはじめた人は誰しも最初に引っかかる問題ではありますが、幸いにもインターネットで検索するといくつもの解決法が見つかります。 ところが…動いたり動かなかったり、想定外の動作をすることがあります。そもそもいくつもの解決法があること自体おかしい、いったい本当の答えはどれ？この際、白黒はっきりさせようじゃないかというのがこのページの趣旨です。 <S1> ワークシートの最大行、最大列を取得する MaxRow = Rows.Count MaxCol = Columns.Count まず基本からですが、ワークシートの最大行、最大列を取得するコードです。もちろんこれ自体は最終行、最終列を取得するものではありません。 Rowsはワークシートの行全体をあらわすオブジェクトで、Columnsは列全体をあらわすオブジェクトです。そのメソッドCountは数
クレジットカード現金化の高還元率の優良店を選ぶためには
クレジットカード現金化の高還元率の優良店を選ぶためには クレジットカード現金化の優良店を選ぶポイントは、換金率やスピードもありますが、そのほかにも見ておきたいポイントもあります。 お金に厳しい人が利用しますので、手数料やキャンペーンの有無、価格交渉ができる業者ということは見ておきたいところです。 それぞれどのような内容なのでしょうか。 手数料が無料であるクレジットカード現金化の業者には、手数料をすべて無料でしてくれるところがあります。 業者によっては、単純に手数料という名目で業者側の利益がとられていたり、振込手数料、事務手数料という名目で少額ながらお金がかかることがあります。 せっかく高い換金率が記載されていても、手数料の分が差し引かれることで、損をしたような気持ちになったり後から気づくこともあります。 これらの手数料は最初から公式ホームページに記載がある場合は了承したうえで申し込みもでき
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://www.crystal-creation.com/software/technical-information/programming/vba/sample/web.htm
accessclub.jp - このウェブサイトは販売用です！ - アクセスクラブ リソースおよび情報
accessclub.biz - このウェブサイトは販売用です！ - accessclub リソースおよび情報
すぐに役立つエクセルVBAマクロ集 - FAQ カレンダーコントロールをユーザーフォームで使うには - Excel VBA Macro Collection
Excel VBA を学ぶなら moug モーグ｜