{"id":3425,"date":"2017-03-02T22:47:50","date_gmt":"2017-03-02T13:47:50","guid":{"rendered":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/?p=3425"},"modified":"2017-09-26T05:04:50","modified_gmt":"2017-09-25T20:04:50","slug":"vba-on-libreoffice","status":"publish","type":"post","link":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/2017\/03\/02\/vba-on-libreoffice\/","title":{"rendered":"LibreOffice\u3067VBA\u3092\u4f7f\u3046\u65b9\u6cd5\u30021\u884c\u304a\u307e\u3058\u306a\u3044\u3092\u66f8\u304f\u3060\u3051\uff01"},"content":{"rendered":"

\u524d\u56de\u306f\u3001LibreOffice\u306eMicroOffice\u304b\u3089\u306e\u518d\u73fe\u6027\u304c\u9ad8\u304f\u306a\u3063\u3066\u3001\u56f3\u5f62\u306f\u307b\u307c100%\u518d\u73fe\u3067\u304d\u305f\u3053\u3068\u3092\u66f8\u304d\u307e\u3057\u305f\u3002<\/p>\n

\u975eIT\u4f01\u696d\u306b\u52e4\u3081\u308b\u4e2d\u5e74\u30b5\u30e9\u30ea\u30fc\u30de\u30f3\u306eIT\u65e5\u8a18<\/div>
1 Pocket<\/div><\/div><\/div>
\"\"<\/figure>
\u30d1\u30ef\u30dd\u3067\u4f5c\u3063\u305f\u56f3\u5f62\u304cLibreOffice\u3067100%\u8aad\u307f\u8fbc\u3081\u305f\u885d\u6483<\/div>
MicroSoft PowerPoint\u3067\u4f5c\u3063\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u3001\u3068\u3042\u308b\u4e8b\u60c5\u3067LibreOffice\u3067\u958b\u304f\u3053\u3068\u304c\u3042\u308a\u3001\u305d\u306e\u969b\u306b\u3042\u307e\u308a\u306e\u518d\u73fe\u6027\u306e\u9ad8\u3055\u306b\u30d3\u30d3\u308a\u3063\u3066\u3057\u307e\u3044\u307e\u3057\u305f\u3002\u3044\u3064\u306e\u9593\u306b\u3053\u3093\u306a\u30ec\u30d9\u30eb\u307e\u3067\u5230\u9054\u3057\u3066\u3044\u305f\u306e\u304b\uff01\u3068\u9a5a\u304d\u3092\u96a0\u305b\u305a\u3002\u7279\u306b\u3001\u3072\u3068\u6614\u524d\u306f\u3042\u307e\u308a\u518d\u73fe\u6027\u306e\u9ad8\u304f\u306a\u304b\u3063\u305f\u56f3\u5f62\u304c\u3001\u307b\u307c100%\u518d\u73fe\u3067\u304d\u3066\u3044\u308b\u3053\u3068\u306b\u885d\u6483\u3092\u53d7\u3051\u305f\u6b21\u7b2c\u3067\u3059\u3002\u305f\u3068\u3048\u3070\u3053\u3093\u306a\u611f\u3058\u3002\u4e0a\u304cPowerPoint2010\u3001\u4e0b\u304cLibreOffice5.1\u3002\u3053\u306e\u30d6\u30ed\u30b0\u306e\u30a2\u30a4\u30ad\u30e3\u30c3\u30c1\u753b\u50cf\u306f\u3060\u3044\u305f\u3044\u30d1\u30ef\u30dd\u3067\u4f5c\u3063\u3066\u3044\u305f\u306e\u3067\u3059\u304c\u3001\u3053\u308c\u304cLibreOffice\u3067\u307b\u307c\u518d\u73fe\u3002\u30b0\u30e9\u30c7\u30fc\u30b7\u30e7\u30f3\u3082\u518d\u73fe\u3067\u304d\u3066\u3044\u307e\u3059\u3002\u6614\u306f\u3053\u3093\u306a\u3093...<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n

 <\/p>\n

\u3053\u3053\u3067\u3001\u300c\u3042\u3068\u306fVBA\u3055\u3048\u30b5\u30dd\u30fc\u30c8\u3067\u304d\u308c\u3070\u5b8c\u74a7\u3060\u300d\u3068\u3044\u3046\u3088\u3046\u306a\u3053\u3068\u3092\u66f8\u304d\u307e\u3057\u305f\u304c\u3001\u306a\u3093\u3068\u3059\u3067\u306bVBA\u304c\u4f7f\u3048\u308b\u3088\u3046\u306b\u306a\u3063\u3066\u3044\u305f<\/strong>\u3053\u3068\u3092\u77e5\u3063\u3066\u9a5a\u3044\u3066\u304a\u308a\u307e\u3059\u3002<\/p>\n

\u3055\u3063\u305d\u304f\u8a66\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

[ad#top-1]<\/p>\n

\u666e\u901a\u306bVBA\u66f8\u304f\u3068\u30a8\u30e9\u30fc\u51fa\u307e\u3059<\/h2>\n

\u8a66\u3057\u306bLibreOffice Clac\u306e\u30de\u30af\u30ed\u30a8\u30c7\u30a3\u30bf\u30fc\u3067\u3001VBA\u3092\u8a18\u8ff0\u3057\u3066\u5b9f\u884c\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

A1\u30bb\u30eb\u306b\u300cTest\u300d\u3068\u3044\u3046\u6587\u5b57\u5217\u3092\u5165\u529b\u3059\u308b\u3068\u3044\u3046\u610f\u5473\u306e\u3001Range(“A1”) = “Test” \u3068\u3044\u3046\u304a\u306a\u3058\u307f\u306e\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n

\u7d50\u679c\u306f\u3054\u89a7\u306e\u901a\u308a\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3057\u307e\u3057\u305f\u3002<\/p>\n

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

 <\/p>\n

LibreOffice\u306e\u30de\u30af\u30ed\uff08LibreOffice Basic\uff09\u3067\u3001A1\u30bb\u30eb\u306b\u6587\u5b57\u5217\u3092\u5165\u308c\u305f\u3044\u5834\u5408\u306f\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u30b3\u30fc\u30c9\u306b\u306a\u308a\u307e\u3059\u3002VBA\u3068\u306f\u5927\u304d\u304f\u9055\u3044\u307e\u3059\u306d\u3002<\/p>\n

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

 <\/p>\n

LibreOffice\u3067VBA\u3092\u4f7f\u3063\u3066\u307f\u3088\u3046<\/h2>\n

LibreOffice\u3067\u3082\u3001\u201d\u3042\u308b\u304a\u307e\u3058\u306a\u3044\u201d\u3092\u3059\u308b\u3068VBA\u304c\u4f7f\u3048\u308b<\/strong>\u3093\u3067\u3059\u3002<\/p>\n

\u305d\u308c\u306f\u3001\u30a8\u30c7\u30a3\u30bf\u306e\u30c8\u30c3\u30d7\u306b\u3001Option VBASupport 1<\/strong><\/span> \u3068\u3044\u3046\u4e00\u6587\u3092\u5165\u308c\u308b\u3060\u3051\u3002\u3053\u308c\u3060\u3051\u3067VBA\u304c\u4f7f\u3048\u307e\u3059\u3002<\/p>\n

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

 <\/p>\n

\u4e0a\u8a18\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001\u3054\u89a7\u306e\u901a\u308a\u3061\u3083\u3093\u3068A1\u30bb\u30eb\u306bTest\u3068\u3044\u3046\u30c6\u30ad\u30b9\u30c8\u304c\u5165\u308a\u307e\u3059\u3002<\/p>\n

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

 <\/p>\n

\u3069\u3053\u307e\u3067VBA\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u3066\u3044\u308b\u306e\u304b\uff1f<\/h2>\n

VBA\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u3066\u3044\u308b\u3068\u306f\u3044\u3048\u3001\u3059\u3079\u3066\u30d5\u30eb\u30b5\u30dd\u30fc\u30c8\u3057\u3066\u3044\u308b\u3068\u306f\u601d\u3048\u305a\u3001\u3069\u3053\u307e\u3067\u6a5f\u80fd\u304c\u4f7f\u3048\u308b\u306e\u304b\u6c17\u306b\u306a\u308b\u3068\u3053\u308d\u3067\u3059\u3002\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u30b5\u30af\u30c3\u3068\u4f5c\u3063\u3066\u307f\u307e\u3057\u305f\u304c\u3001\u3068\u308a\u3042\u3048\u305a\u3061\u3083\u3093\u3068\u52d5\u304d\u307e\u3057\u305f\u3002Cells\u306b\u3088\u308b\u30bb\u30eb\u53c2\u7167\u3084\u3001For\u6587\u3068While\u6587\u306f\u5927\u4e08\u592b\u305d\u3046\u3067\u3059\u3002<\/p>\n

\r\nOption VBASupport 1\r\n\r\nsub Main\r\n   Range("A1") = "Test"\r\n\r\n   For r=2 to 7\r\n      Cells(r, 1) = r-1\r\n   Next r\r\n\r\n   r = 2\r\n   Do While Cells(r, 1)&lt;&gt;""\r\n      Cells(r, 2) = Cells(r, 1) * 10\r\n      r=r+1\r\n   Loop\r\nend sub\r\n \r\n<\/pre>\n
 <\/p>\n
\u5b9f\u884c\u3059\u308b\u3068\u3053\u3093\u306a\u611f\u3058\u3067\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
 <\/p>\n
\u305d\u308c\u4ee5\u5916\u306b\u3082\u30fb\u30fb\u30fb<\/p>\n
Application \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306f\u4f7f\u3048\u305f<\/h5>\n
\r\nRange("A1") = Application.Round(1.222, 0)\r\nRange("A2") = Application.Min(1.222, 1.32, 2.5, 0.98)\r\nRange("A3") = Application.Max(1.222, 1.32, 2.5, 0.98)\r\n \r\n<\/pre>\n
\"\"<\/a><\/p>\n
 <\/p>\n
Function\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3082\u4f7f\u3048\u308b<\/h5>\n
\r\nsub Main3\r\n   Range("A1") = TestFnc(10)\r\nend sub\r\n\r\nFunction TestFnc(a)\r\n   TestFnc = a*10\r\nEnd Function\r\n \r\n<\/pre>\n
\"\"<\/a><\/p>\n
 <\/p>\n
\u4eca\u65e5\u306e\u7d50\u8ad6\uff1a\u610f\u5916\u3068\u4f7f\u3048\u305d\u3046<\/h2>\n
\u4eca\u56de\u306f\u57fa\u672c\u7684\u306a\u3055\u308f\u308a\u3060\u3051\u3067\u3057\u305f\u304c\u3001\u3053\u308c\u304b\u3089\u8272\u3005\u8a66\u3057\u3066\u307f\u307e\u3059\u3002\u7d50\u679c\u304c\u51fa\u305f\u3089\u307e\u305f\u5831\u544a\u3057\u307e\u3059\u3002<\/p>\n
\u6b63\u76f4\u3001\u3053\u3053\u307e\u3067\u30b5\u30dd\u30fc\u30c8\u3067\u304d\u3066\u3044\u308b\u3068\u306f\u7d20\u76f4\u306b\u9a5a\u304d\u307e\u3057\u305f\u3002<\/strong><\/p>\n
 <\/p>\n
\u25a0\u95a2\u9023\u8a18\u4e8b\u25a0<\/p>\n
\u975eIT\u4f01\u696d\u306b\u52e4\u3081\u308b\u4e2d\u5e74\u30b5\u30e9\u30ea\u30fc\u30de\u30f3\u306eIT\u65e5\u8a18<\/div>
 
1 User<\/div><\/div><\/div>
\"\"<\/figure>
VBA\u901f\u5ea6\u5bfe\u6c7a\uff01Excel VS LibreOffice Calc<\/div>
\u4ee5\u524d\u3001LibreOffice\u3067VBA\u304c\u4f7f\u3048\u308b\u3068\u3044\u3046\u3053\u3068\u3092\u7d39\u4ecb\u3057\u307e\u3057\u305f\u3002 LibreOffice\u3067VBA\u304c\u4f7f\u3048\u308b\u3068\u3044\u3046\u70b9\u306f\u3046\u308c\u3057\u3044\u3067\u3059\u304c\u3001\u679c\u305f\u3057\u3066\u901f\u5ea6\u304c\u3069\u3046\u306a\u3063\u3066\u3044\u308b\u304b\u6c17\u306b\u306a\u308b\u3068\u3053\u308d\u3067\u3059\u3002\u305d\u3053\u3067\u3001Exccel\u3068LibreOffice Calc\u3068\u3067\u540c\u3058\u30b3\u30fc\u30c9\u3092\u8d70\u3089\u305b\u3066\u3069\u3061\u3089\u304c\u901f\u3044\u304b\u78ba\u8a8d\u3057\u307e\u3057\u305f\u3002\u6e2c\u5b9a\u3057\u305f\u30b3\u30fc\u30c9\u306f\u3053\u3061\u3089Sub Main()   dt1 = CDbl(Timer())   result = 0   For i = 1 To 100000      result = result + i   Next i   dt2 = CDbl(Timer())   Range("A1") = result   Range("A2") = dt2 - dt1End Sub  \u4ee5\u4e0b\u306e\u901a\u308a\u305d\u308c\u305e\u308c\u306b\u540c...<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n
[ad#ad-1]<\/p>\n","protected":false},"excerpt":{"rendered":"
\u524d\u56de\u306f\u3001LibreOffice\u306eMicroOffice\u304b\u3089\u306e\u518d\u73fe\u6027\u304c\u9ad8\u304f\u306a\u3063\u3066\u3001 … <\/p>\n","protected":false},"author":1,"featured_media":3430,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[22],"tags":[],"class_list":["post-3425","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-beanshell-for-libreoffice"],"aioseo_notices":[],"_links":{"self":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts\/3425","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/comments?post=3425"}],"version-history":[{"count":8,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts\/3425\/revisions"}],"predecessor-version":[{"id":4952,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts\/3425\/revisions\/4952"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/media\/3430"}],"wp:attachment":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/media?parent=3425"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/categories?post=3425"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/tags?post=3425"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}