{"id":5126,"date":"2013-09-09T00:44:49","date_gmt":"2013-09-08T15:44:49","guid":{"rendered":"http:\/\/www.moonmile.net\/blog\/?p=5126"},"modified":"2013-09-09T10:16:03","modified_gmt":"2013-09-09T01:16:03","slug":"%e8%89%a6%e5%a8%98%e6%89%80%e6%9c%89%e4%b8%80%e8%a6%a7%e3%82%92excel-vba%e3%81%8b%e3%82%89%e4%bd%9c%e3%82%8d%e3%81%86%ef%bc%88%e9%96%8b%e7%99%ba%e3%81%8c%e5%ae%8c%e4%ba%86%e3%81%97%e3%81%be%e3%81%97","status":"publish","type":"post","link":"http:\/\/www.moonmile.net\/blog\/archives\/5126","title":{"rendered":"\u8266\u5a18\u6240\u6709\u4e00\u89a7\u3092Excel VBA\u304b\u3089\u4f5c\u308d\u3046\uff08\u958b\u767a\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\u7de8\uff09"},"content":{"rendered":"

\u8266\u5a18\u6240\u6709\u4e00\u89a7\u3092Excel VBA\u304b\u3089\u4f5c\u308d\u3046\uff08\u958b\u767a\u958b\u59cb!!\u7de8\uff09 – Moonmile Solutions Blog
\nhttp:\/\/www.moonmile.net\/blog\/archives\/5112<\/a><\/p>\n

\u306e\u7d9a\u304d\u3067\u3059\u3002<\/p>\n

\u8266\u5a18\u6240\u6709\u4e00\u89a7
\nhttp:\/\/dunkel.halfmoon.jp\/kancolle\/index.html<\/a><\/p>\n

\"image\"<\/a><\/p>\n

\u8266\u5a18\u6240\u6709\u4e00\u89a7\u306b\u3001\u8adc\u5831\u54e1\u3067CSV\u30d5\u30a1\u30a4\u30eb\u3092\u5410\u304d\u51fa\u3057\u305f\u5f8c\u3001Excel VBA \u3067\u6295\u7a3f\u3092\u3057\u307e\u3059\u3002\u76f4\u63a5\u6295\u7a3f\u3059\u308c\u3070\u3044\u3044\u306e\u3067\u3059\u304c\u2026\u307e\u3042\u3001Excel VBA\u3067\u8a66\u3057\u305f\u304b\u3063\u305f\u3068\u3044\u3046\u3068\u3053\u308d\u3067\u3002<\/p>\n

\u25a0\u8adc\u5831\u54e1\u3067\u30d1\u30fc\u30b9<\/p>\n

\u8266\u3053\u308c\u8adc\u5831\u54e1\u304c\u52d5\u3044\u3066\u3044\u308b\u72b6\u614b\u3067\u300c\u56f3\u9451\u8868\u793a\u300d\u304b\u3089\u3001\u8266\u8239\u56f3\u9451\u306e\uff11\uff0c\uff12\uff0c\uff13\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002\u3053\u306e\u3068\u304d\u306e\u30ec\u30b9\u30dd\u30f3\u30b9\uff08\/api_get_member\/book2\uff09\u3092\u8abf\u3079\u3066\u3001\u6240\u6709\u3057\u3066\u3044\u308b\u8266\u8239\u3092\u53ce\u96c6\u3057\u307e\u3059\u3002\u305f\u3076\u3093\u3001\u4ed6\u3067\u3082\u3067\u304d\u305d\u3046\u306a\u6c17\u3082\u3059\u308b\u3093\u3067\u3059\u304c\u2026\u3072\u3068\u307e\u305a\u3053\u308c\u3067\u3002<\/p>\n

\"image\"<\/a><\/p>\n

\u8adc\u5831\u54e1\u3092\u53f3\u30af\u30ea\u30c3\u30af\u3057\u3066\u300c\u30aa\u30d7\u30b7\u30e7\u30f3\u300d\u3092\u9078\u629e\u3057\u305f\u5f8c\u306b\u300c\u8266\u5a18\u6240\u6709\u4e00\u89a7\u300d\u3067OK\u3092\u62bc\u3059\u3068\u3001CSV\u3092\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u306b\u51fa\u529b\u3057\u307e\u3059\u3002\u30d5\u30a1\u30a4\u30eb\u306f\u9762\u5012\u306a\u306e\u3067\u6c7a\u3081\u6253\u3061\u3002<\/p>\n

\"image\"<\/a><\/p>\n

\u3053\u3093\u306a\u611f\u3058\u3067\u56f3\u9451\u756a\u53f7\u304c\u53d6\u308c\u307e\u3059\u3002<\/p>\n

\r\npublic List<Ship> ParseBook2( string json )\r\n{\r\n    var reader = JsonReaderWriterFactory.CreateJsonReader(\r\n        Encoding.UTF8.GetBytes(json),\r\n        XmlDictionaryReaderQuotas.Max);\r\n    var el = XElement.Load(reader);\r\n    var doc = ExDocument.Load(el);\r\n\r\n    var lst = doc * &quot;api_id&quot; != &quot;-1&quot;;\r\n    var res = new List<Ship>();\r\n    foreach (var it in lst)\r\n    {\r\n        var pa = it.Parent;\r\n        var ship = new Ship() {\r\n            id = pa \/ &quot;api_id&quot;,\r\n            index_no = pa \/ &quot;api_index_no&quot;,\r\n            ship_id = pa \/ &quot;api_table_id&quot;,\r\n            name = pa \/ &quot;api_name&quot;\r\n        };\r\n        res.Add(ship);\r\n    }\r\n    return res;\r\n}\r\n\r\n<\/pre>\n
JSON\u3092\u30d1\u30fc\u30b9\u3057\u3066\u3044\u308b\u3068\u3053\u308d\u306e\u629c\u7c8b\u306f\u3053\u3093\u306a\u611f\u3058\u3067\u3002JsonReaderWriterFactory \u304b\u3089 XElement \u3092\u4f7f\u3063\u3066 ExDocument \u3092\u4f5c\u308b\u3068\u3044\u3046\u6d41\u308c\u3067\u3059\u3002ExDoc \u306f\u3001\u306a\u3093\u3068\u306a\u304f\u30a4\u30a4\u611f\u3058\u306b XML \u304c\u6271\u3048\u308b\u81ea\u4f5c\u30e9\u30a4\u30d6\u30e9\u30ea\u3067\u3059\u3002XPath \u3067\u3082\u3044\u3044\u306e\u3067\u3059\u304c\u3001\u8a66\u884c\u932f\u8aa4\u304c\u3084\u308a\u3084\u3059\u3044\u304b\u306a\u3068\u3002<\/p>\n
\u25a0\u8266\u5a18\u6240\u6709\u4e00\u89a7\u306b\u6295\u7a3f\u3059\u308b\u3002<\/p>\n
\u3053\u306eCSV\u30d5\u30a1\u30a4\u30eb\u3092\u540c\u68b1\u3057\u3066\u3042\u308b\u300c\u8266\u5a18\u6240\u6709\u4e00\u89a7\u3078\u6295\u7a3f.xlsm\u300d\u306b\u8cbc\u308a\u4ed8\u3051\u3066\u6295\u7a3f\u3057\u307e\u3059\u3002\u6240\u6709\u4e00\u89a7\u306e\u30da\u30fc\u30b8\u306f\u3001\u30de\u30a6\u30b9\u3067\u307d\u3061\u307d\u3061\u30af\u30ea\u30c3\u30af\u3059\u308b\u306e\u3067\u3059\u304c\u3001\u3053\u308c\u306a\u3089\u3070\u4e00\u767a\u3067\u6295\u7a3f\u5b8c\u4e86\u2026\u3064\u30fc\u304b\u3001\u307d\u3061\u307d\u3061\u30af\u30ea\u30c3\u30af\u3057\u3066\u3044\u308b\u65b9\u304c\u697d\u3057\u304f\u3066\u3044\u3044\u611f\u3058\u304c\u3059\u308b\u306e\u3067\u3059\u304c\u3001\u307e\u3042\u3001\u3053\u306e\u3042\u305f\u308a\u306f\u30d7\u30ed\u30b0\u30e9\u30de\u306e\u6027\u3068\u3044\u3046\u3053\u3068\u3067\u3002<\/p>\n
\r\nPrivate Const url = &quot;http:\/\/dunkel.halfmoon.jp\/kancolle\/index.html&quot;\r\nPublic Sub \u8266\u5a18\u6240\u6709\u4e00\u89a7\u3092\u6295\u7a3f()\r\n    Dim ie As New InternetExplorer\r\n    ie.navigate url\r\n    ie.Visible = True\r\n    ' \u5b8c\u4e86\u5f85\u3061\r\n    While ie.Busy = True Or ie.readyState < READYSTATE_COMPLETE\r\n        DoEvents\r\n    Wend\r\n    ' option\u30bf\u30b0\u3092\u53d6\u5f97\r\n    Dim doc As HTMLDocument\r\n    Set doc = ie.document\r\n    Dim coll As IHTMLElementCollection\r\n    Set coll = doc.getElementsByTagName(&quot;option&quot;)\r\n    Dim dic As New Dictionary\r\n    Dim el As IHTMLOptionElement\r\n    For Each el In coll\r\n        dic.Add 0 + el.Value, el\r\n    Next\r\n\r\n    ' \u56f3\u9451\u306ecell\u3068\u30de\u30c3\u30c1\u30f3\u30b0\u3055\u305b\u308b\r\n    Dim i\r\n    For i = 2 To 1000\r\n        Dim \u56f3\u9451\u756a\u53f7\r\n        \u56f3\u9451\u756a\u53f7 = Sheet1.Cells(i, 2)\r\n        If \u56f3\u9451\u756a\u53f7 = &quot;&quot; Then Exit For\r\n        If dic.Exists(\u56f3\u9451\u756a\u53f7) Then\r\n            Set el = dic(\u56f3\u9451\u756a\u53f7)\r\n            el.Selected = True\r\n        End If\r\n    Next\r\n    ' \u30b5\u30d6\u30df\u30c3\u30c8\r\n    doc.forms(0).submit\r\nEnd Sub\r\n<\/pre>\n
Excel VBA \u306e\u5168\u6587\u306f\u3053\u3093\u306a\u611f\u3058\u3067\u3059\u3002\u3055\u3063\u304f\u308a\u3068\u77ed\u3044\u611f\u3058\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u3002\u3053\u308c\u306f\u3001yuki(siro) \u3055\u3093 \u306e\u30bd\u30fc\u30b9\u304c\u304d\u308c\u3044\u2252\u64cd\u4f5c\u3057\u3084\u3059\u3044\u3001\u3063\u3066\u306e\u3082\u3042\u308a\u307e\u3059\u306d\u3002option \u30bf\u30b0\u304c\u4e26\u3093\u3067\u3001jQuery \u3067\u64cd\u4f5c\u3057\u3066\u3044\u308b\u306e\u3067\u3001\u305d\u306e\u3042\u305f\u308a\u3092\u62fe\u3044\u96c6\u3081\u308c\u3070OK\u3067\u3059\u3002\u8266\u3053\u308c\u8adc\u5831\u54e1\u3058\u3083\u306a\u304f\u3066\u3082\u3001\u4f7f\u3048\u308b\u3088\u3046\u306b\u5225\u30c4\u30fc\u30eb\u306b\u3057\u3066\u3042\u308b\u306e\u3067\u3001\u9069\u5f53\u306b\u6d3b\u7528\u3057\u3066\u9802\u3051\u308c\u3070\u3068\u3002<\/p>\n
\u25a0\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9<\/p>\n
\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u306f\u3053\u3061\u3089 http:\/\/sdrv.ms\/19xmMD0<\/a><\/p>\n
\u305d\u306e\u3046\u3061\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u8266\u3053\u308c\uff01<\/a> \u306b\u3082\u5bfe\u5fdc\u3057\u305f\u3044\u3002\u3067\u3082\u3001\u3053\u308c\u3063\u3066\u6bcd\u6570\u304c\u4e0d\u660e\uff08\u5931\u6557\u306f\u6295\u7a3f\u3057\u306a\u3044\u3060\u308d\u3046\u304b\u3089\uff09\u306a\u306e\u3067\u3001\u76f8\u5bfe\u7684\u306b\u7279\u5b9a\u306e\u8266\u5a18\u304c\u3067\u3084\u3059\u3044\u3001\u3068\u3044\u3046\u898b\u65b9\u304c\u6b63\u3057\u3044\u304b\u3082\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u8266\u5a18\u6240\u6709\u4e00\u89a7\u3092Excel VBA\u304b\u3089\u4f5c\u308d\u3046\uff08\u958b\u767a\u958b\u59cb!!\u7de8\uff09 – Moonmile Solutions Blog http:\/\/www.moonmile.net\/blog\/archives\/5112 \u306e\u7d9a\u304d\u3067 … \u7d9a\u304d\u3092\u8aad\u3080 →<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":5078,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[23,57],"tags":[],"class_list":["post-5126","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-csharp","category-57"],"jetpack_featured_media_url":"http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2013\/09\/20130904_01.jpg","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/5126","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/comments?post=5126"}],"version-history":[{"count":4,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/5126\/revisions"}],"predecessor-version":[{"id":5128,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/5126\/revisions\/5128"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/media\/5078"}],"wp:attachment":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/media?parent=5126"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/categories?post=5126"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/tags?post=5126"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}