[B! VBA] takamR1のブックマーク

takamR1 id:takamR1

VBAに関するtakamR1のブックマーク (6)

俺がリボン登録している業務用Excelマクロ - 本しゃぶり
Excelの作業はマクロを使うことで自動化できるものもある。俺が仕事で多用しているマクロの中から、比較的汎用性の高いものを紹介しよう。マクロ3つ今回紹介するマクロは、特にいじらなくても使えるものである。さすがに全ての人がとは言わないが、それでも使うことで生産性が高まる人は多くいると思っている。俺はExcel中級者*1なので、そう高度なマクロは組めない。この記事は「Excelを仕事で使っていてマクロに興味はあるけれど、どんなことができるのかよく分からない」ぐらいの人をメインターゲットとしている。Excel上級者の人は、もっと使えるマクロを俺に教えて欲しい。それではマクロの紹介を始める。それっぽい表を作るマクロこのようなそれっぽいデザインの表を作るマクロ。それっぽい表課題以前なにかで読んだのだが*2、表のデザインとしてただの格子はよろしくない。よろしくない表罫線が多く、
takamR1 2018/07/03
VBA

Excel
リンク
doruby.jp
takamR1 2018/03/15
VBA

JSON
リンク
[VBA]VBAでjsonをパースする
[2014/09/30修正]記事の構成を変更、vba-jsonの紹介前書きせっかくVBAでHTTP通信が出来るんだから未だに流行のjsonでもパースしてみましょう。とりあえず一つだけ言えることは、やめとけってことです。jsonを扱うなら素直に別の言語を使うか別のデータ形式を使った方が絶対にいいです。本当に死ぬほど面倒です。記事を読む前に頑張ってパースする方法を書いたんですが、Google謹製のvba-jsonを使うのが一番簡単ですし、安全です。（2014/11/19追記：よく見たらGoogle謹製とはどこにも書かれていませんでしたね…。テスト用のjsonを見る限り日本人作なんでしょうか？何者なんでしょう…。）と言うのも、これから説明する方法は64bit版のOfficeでは動かないからです。（互換モードなら動くらしいけど。）理由を説明してもいいんですが、「ScriptControl
takamR1 2018/03/13
JSON

VBA
リンク
Excel VBAでWebサービス - ExcelでJScriptの機能を利用しよう
JSONデータの解析（プロパティの利用）まず、解析部分をVBAのユーザ定義関数にします。以前のWikipediaの処理を書き換えたものなので、詳細はそちらも参照してください。［リスト9］jsonデータの解析 '(1)JSONデータを解析し、オブジェクト変数に格納 Dim objJson As Object Set objJson = js.CodeObject.eval("(" + resText + ")") '(2)解析済みのJSONデータの件数を取得 Dim objRowCount As Integer objRowCount = CallByName(objJson, "length", VbGet) '(3)結果をワークシートへ転記 For idx = 0 To objRowCount - 1 'データの件数だけ繰り返す '(4)JSONデータ1件分を取り出し、オブジェクト変
takamR1 2018/03/12
VBA
リンク
ExcelでJSONを扱う場合のつまずきポイント - Qiita
ExcelでJSONを扱う場合のよく使われる手法は、 ScriptControlのオブジェクトでJSONパースの関数を作るというもの。インターネットで調べるとこれが一般的なようである。以下に簡単なサンプルを書く。 Sub ボタン1_Click() Dim obj As Object Dim json As Object Set obj = CreateObject("ScriptControl") obj.Language = "JScript" obj.AddCode "function jsonParse(s) { return eval('(' + s + ')'); }" Set json = obj.CodeObject.jsonParse("{id:5,name:'山田',age:20}") MsgBox json.age End Sub これは正常にjson.ageが出力
takamR1 2018/03/12
VBA
リンク
【VBA】JSONファイルの内容をEXCELファイルに読み込む - マイナー・マイナー
JSONファイルから各キーの値を読み込んでEXCELファイルに出力するサンプルプログラムを書きました。VBA-JSONを利用してJSONデータをパースします。準備下記よりVBA-JSONをダウンロードします。ここではVBA-JSON-2.2.1.zipをダウンロードしました。 https://github.com/VBA-tools/VBA-JSON/releases 解凍すると「JsonConverter.bas」が含まれているので、これをインポートします。VBAの開発ツールを開き、File -> Import Fileより「JsonConverter.bas」を選択します。また、Tools -> Referencesより「Microsoft Scripting Runtime」にチェックを入れます。データモデル上図のようなJSONデータを保持するTypeを用意します。 Jso
takamR1 2018/03/12
VBA
リンク
1