VBA コーディングガイドライン - You.Activate
このガイドラインについて システム開発の会社には、通常コーディングルールというものが存在します。それぞれ会社ごとに異なりますが、コードの品質を一定に保てるよう各社工夫されているようです。 VB.NETやC#、Javaにはコーディングルールを集めた書籍が存在します。 VB.NETルールブック ～読みやすく効率的なコードの原則 C#ルールブック ～読みやすく効率的なコードの原則 Javaルールブック ～読みやすく効率的なコードの原則 これらは何もシステム開発の標準というわけではありませんが、一例として誰でも見られる形で販売されているのは素晴らしいことです。 私はVBAにおいても一応指針となるようなものが欲しいと思い、そのような書籍を待ち望んでいますがどうにも発売される気配はありません。 一応QiitaというサービスでExcel VBAコーディング ガイドライン案というものを見つけましたが、少し
ExcelVBAでXMLを作成(1/3) - ×××Diary
たまたまExcelVBAからXMLを作成する話が浮上したので VBAで生成する方法を調べてみました。 実際にコードを示してみたいと思います。 まずは、こんなXMLを出力したいとします。 (ネットで適当に見つけた物を拝借：ここ) <?xml version="1.0" encoding="UTF-8" ?> <venture> <company> <name>ソフトバンク株式会社</name> <url>http://www.softbank.co.jp/</url> </company> <company> <name>楽天株式会社</name> <url>http://www.rakuten.co.jp/info/</url> </company> </venture> ではVBAでやってみます。 Option Explicit Sub SampleCode() Dim xmlNode
ExcelのVBAでJSON形式のデータを解析する
WebサーバーからJSON形式のデータを取得し、セルに表示してみようと思います。 ・・・というのも、Webアプリのマスタ系のデータ保守を行うにあたり、 いちいち管理画面を作るのが面倒なので、サーバー側でマスタデータを JSON形式で参照できるようにしておき、Excelで表示。 最終的には、編集後のデータをPOSTしてデータ更新を行うようにしたいです。 Excelマクロでhttp通信 Webサーバーに通信して、JSON形式のデータを取得したいので、 http通信が出来ないとお話になりません。 データ取得用のサンプルを作るにあたり、Webサーバーに「test.json」という ファイルを作成しました。 test.jsonの内容は以下の通り。 idとnameという属性を持つ簡単な内容です。 これをたとえば、 http://www.example.com/test.json というようなURLで閲
VBAでJSONファイルをパースする - SO NOTE そうのて (；^ω^)
COMオブジェクトのScriptControlを使うと、VBA上でJScriptが実行出来ます。って事は、VBAでもJSONファイルのパースが出来るんじゃね？と前々から思ってたのを試してみたところ、拍子抜けするくらい簡単に出来ました。 ソース Option Explicit Sub VBA_de_JSON() Const cnsJSONString As String = "{ ""familyname"":""yamada"", ""personalname"":""tarou"" }" Dim sc As Object Dim strFunc As String Dim objJSON As Object Set sc = CreateObject("ScriptControl") sc.Language = "JScript" 'jsonにパースする関数文字列 strFunc = "
Excel VBA+IEでのスクレイピング - プログラマでありたい
書くと宣言しながら、すっぽかしていたクローラー／スクレイピング Advent Calendar 2014の11日目です。ExcelのVBAで、IEの操作が出来ます。またその中の機能にDOM操作があります。この二つがあれば、Excelだけでスクレイピングできますよという話です。 何を隠そう、私が初めてスクレイピングに手を染めたのはこのExcel VBAスクレイピングでした。毎月定期的に所定のデータを観測するという仕事があって、面倒くさくて仕方がない私は記録用のExcelを魔改造して勝手に取得するようにしました。1時間くらい掛かってた作業も、ボタンポチになったので随分楽になったと記憶しています。（結局、ボタンを押すのも面倒くさくなって、毎日サーバサイドで動かすようにしましたが） スクレイピングの手始めにピッタリのExcel VBAスクレイピングです。環境の用意が簡単なので、ノンプログラマーでも
（VBA・SSIS）VBAからSSISを実行する : topotopopitapo
2011年10月27日16:30 カテゴリSSISExcelVBA （VBA・SSIS）VBAからSSISを実行する 調べて一番最初に出てきた方法がDTS.Packageを使う方法だったんだけど、 「指定ファイルはパッケージではありません」みたいなエラーで実行できなかった（なんでだ） というわけで別の方法を考えました。 （１）VBAからSSIS実行用のバッチをたたく （２）VBAコード上でSSIS実行コマンドを送信する どっちもほぼおなじじゃないかーということで（２）を採用。 以下コード例。 Dim wsh As Object Set wsh = CreateObject("WScript.Shell") Dim pkgpath As String 'パッケージの絶対パス Dim command As String command = "dtexec /File " & pkgPath
ピボットテーブルの内容をセルに転記
Excelでクロス集計を行うには、ピボットテーブルを使うのが一番簡単なのですが、 ピボットテーブルって結構使いにくかったりしませんか？ データを集計したあと、うっかり関係ないところをドラッグしてしまって 表の形式が崩れたり･･････。 クロス集計したデータさえ見れればOK、というときはピボットテーブルを作成した後、 セルに転記して元のピボットテーブルは削除してしまう、というのも手です。 以下は、ピボットテーブルのデータをセル範囲に転記するサンプルです。 サンプルコード Sub ピボットテーブルの内容をセルに転記() Dim strPivotName As String 'ピボットテーブル名 Dim DataArea As Range 'ピボットテーブルのセル範囲 Dim aryData As Variant 'データ範囲から値を取り込む2次元配列 strPivotName =
Excelの仕様・上限・制限値:Excel(エクセル)の使い方
『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。 Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VB
Excel ワークシートをリンクする際のデータ型問題を回避する方法
概要 Excel からのリンクテーブルを作成した際、各列に適用されるデータ型は Jet プロバイダによって自動で決定されます。 このため、データ型が混在する Excel ワークシートからリンクテーブルを作成すると、ユーザーの希望と反するデータ型になったり、「#Num!」のエラー表示になってしまうことがあります。 今回は、Excel からのリンクテーブルとデータ型の関係を整理し、意図通りのリンクテーブルを作成するコツについてまとめてみることにしましょう。 ※ Access 2000 での動作確認を基にしています。Access 97 以前でも同様と思われますが、未確認のため対象バージョンから外しています。 ※ 断定的に記述している箇所が有りますが、YU-TANG は特に Excel に詳しいわけではなく、動作確認からの推測に基づく仮定が含まれています。誤認・誤謬が有りましたら、ご指摘いただけれ
シートの再計算を設定する(EnableCalculationプロパティ)：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug
シートの再計算を設定する(EnableCalculationプロパティ) (Excel 2000/2002/2003/2007/2010/2013/2016) EnableCalculationプロパティは、Trueのときにシートの再計算を行い、Falseのときには再計算を行いません。 シートに多数の計算式があるときは、再計算をオフにすると処理速度が速くなります。 処理速度に問題があり、処理の途中で再計算が不要な場合は、いったんEnableCalculationプロパティをオフにするとよいでしょう。 次のマクロは、アクティブシートにデータと数式を入力し、EnableCalculationプロパティの値を変更しています。 EnableCalculationプロパティの状態と、数式が設定されたセルA6の値を確認してください。 ●サンプル● Sub Sample() With ActiveShe
フォルダー(ディレクトリ)に関するパス操作色々(VB6.0) - VBレスキュー(花ちゃん)
下記プログラムコードに関する補足・注意事項 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option ：[Option Explicit] 参照設定：Microsoft Scripting Runtime (scrrun.dll) / Windows Script Host Object Model(wshom.ocx) 参照設定方法参照 使用 API：なし その他 ： ： Private Sub Command1_Click() Dim Fso As New FileSystemObject 'Windows のパスを取得 Debug.Print Fso.GetSpecialFolder(WindowsFolder) 'C:\Windows 'System フォルダーのパスを取得 Debug.Print Fso.GetSp
Selenium VBAを使って自動でブラウザーを操作してスクショをExcelに張り付けてみた
クライアントからシステム開発案件を受注し、開発成果物を納品する際に、エビデンスとして、Excel上に貼り付けたスクリーンショット（以下、スクショ）を、成果物の仕様書や納品書と共に納品する場合がある。この作業は、クライアントに「こういったテストを実行しました」という証拠を提示するものとなる。クライアントに成果物の機能や制限事項などを説明する場合に大変に有効なものとなっているのが現状だ。 実際、Excel上に記述したテスト仕様書や納品書にスクショを張り付けて、成果物の一部として納品しておくと、後々何らかのトラブルが発生した場合も問題解決に大きく寄与することになる。 しかし現実問題として、成果物の機能のスクショを、Excel上に手作業で延々と張り付けていく作業は単純作業であることもあり、開発者にとっては苦痛この上ない作業だ。 そこで、そのような作業を自動化し手助けをしてくれるツールとして「Sel
スクショをExcelに張り付けるのに役立つ4つのテクニック
スクショをExcelに張り付けるのに役立つ4つのテクニック：テストエビデンス取得自動化の秘技（後編）（1/3 ページ） システム開発におけるソフトウェアテスト（結合テスト～システムテスト）において重要視されるエビデンス（作業記録）。前後編の2回にわたって、エビデンスとしてスクリーンショットをキャプチャし、テスト仕様書や納品書に張り付けていく作業を自動化するためのVBA／マクロのテクニックを紹介する。後編は、画像ファイルをシートに張り付け、Excel 2013のメニューからスクショを直に張り付け、画像を縮小し、指定した時間にマクロを実行する方法を解説。 前編「Selenium VBAを使って自動でブラウザーを操作してスクショをExcelに張り付けてみた」では、エビデンスとしてスクリーンショット（以下、スクショ）を撮る意義や、Selenium VBAのインストール方法と使い方、スクリーンショッ
Excel VBA を学ぶなら moug モーグ | 即効テクニック | 半角カナのみを選択的に全角に変換する
正規表現を利用して半角カナを全角に変換する（RegExpオブジェクト） (Excel 2002/2003/2007/2010/2013/2016) ツイート 正規表現を使って、アクティブシートに入力された半角カナを全角に変換します。 Sub Sample() Dim c As Range Dim myStr As String Dim Match As Object, Matches As Object With CreateObject("VBScript.RegExp") .Pattern = "[\uFF61-\uFF9F]+" '---(1) .Global = True For Each c In ActiveSheet.UsedRange myStr = c.Value If Len(myStr) > 0 Then Set Matches = .Execute(myStr) '
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
VBA リボンの追加に挑戦 | ろっひー
PivotTable インターフェイス (Microsoft.Office.Interop.Excel)
Excelシート集約ツール やじゅ＠アプリケーション・ラボ/ウェブリブログ
複数のワークシートを1枚にまとめる：Excel エクセルの使い方-マクロ/VBA
折れ線グラフで特定のデータを目立たせるためにマーカーを付けたり、線の太さを変えたり、滑らかにしたりする
サービス終了のお知らせ