{"id":7603,"date":"2022-12-07T13:00:00","date_gmt":"2022-12-07T04:00:00","guid":{"rendered":"https:\/\/www.alta.co.jp\/blog\/?p=7603"},"modified":"2023-03-28T12:33:06","modified_gmt":"2023-03-28T03:33:06","slug":"post-7603","status":"publish","type":"post","link":"https:\/\/www.alta.co.jp\/blog\/post-7603\/","title":{"rendered":"Excel VBA\u3067\u4eca\u6708\u306e\u30b7\u30fc\u30c8\u306b\u81ea\u52d5\u3067\u8272\u3092\u3064\u3051\u308b\u65b9\u6cd5"},"content":{"rendered":"\n

Excel\u3067\u4e0b\u8a18\u753b\u50cf\u306e\u3088\u3046\u306b\u300c\u6708\u3054\u3068\u300d\u3067\u30b7\u30fc\u30c8\u3092\u5206\u3051\u3066\u3044\u308b\u6642\u306f\u3042\u308a\u307e\u305b\u3093\u3067\u3057\u3087\u3046\u304b\uff1f\uff1f<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u300c\u6708\u5225\u306b\u96c6\u8a08\u300d\u3001\u300c\u6708\u5225\u3067\u30c7\u30fc\u30bf\u3092\u5165\u529b\u300d\u3092\u3057\u305f\u3044\u6642\u306b\u7b46\u8005\u306f\u4f7f\u3063\u3066\u3044\u307e\u3059\u3002

\u4eca\u56de\u306f\u300cExcel VBA\u3067\u4eca\u6708\u306e\u30b7\u30fc\u30c8\u306b\u81ea\u52d5\u3067\u8272\u3092\u3064\u3051\u308b\u65b9\u6cd5<\/span><\/strong>\u300d<\/span>\u306b\u3064\u3044\u3066\u3054\u7d39\u4ecb\u3057\u307e\u3059\u3002<\/p>\n\n\n\n

\u662f\u975e\u6700\u5f8c\u307e\u3067\u3054\u89a7\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n

Excel\u306e\u300cVBA\u300d\u3092\u4f7f\u3063\u3066\u5b9f\u88c5\u3057\u307e\u3059<\/h2>\n\n\n\n

Excel\u306e\u300cVBA<\/span><\/strong>\u300d\u3092\u4f7f\u3063\u3066\u5b9f\u88c5\u3057\u307e\u3059\u3002
\u203b\u300cVBA<\/a>\u300d\uff08Visual Basic for Applications\uff09\u306fExcel\u3084Access\u306a\u3069\u306eOffice\u88fd\u54c1\u3067\u5229\u7528\u3067\u304d\u308b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e\u3067\u3059\u3002

\u4eca\u56de\u4f7f\u3046VBA\u306e\u30b3\u30fc\u30c9\u306f\u3053\u3061\u3089\u3067\u3059\u3002<\/p>\n\n\n\n

Private Sub Workbook_Open()\n    Dim seat As Object\n    For Each seat In Sheets\n        seat.Tab.ColorIndex = xlNone\n    Next seat\n    \n    With Sheets(Month(Date) & \"\u6708\")\n        .Activate\n        .Tab.Color = rgbYellow\n    End With\nEnd Sub<\/code><\/pre>\n\n\n\n
 \u305d\u308c\u3067\u306f\u5b9f\u88c5\u3092\u884c\u3063\u3066\u3044\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
\u2460Excel\u30d5\u30a1\u30a4\u30eb\u3092\u7528\u610f<\/h3>\n\n\n\n
\u300c1\u6708\u300d\u304b\u3089\u300c12\u6708\u300d\u3001\u8a0812\u679a\u306e\u30b7\u30fc\u30c8\u3092\u4f5c\u6210\u3057\u307e\u3059\u3002
\u203b\u30b7\u30fc\u30c8\u679a\u6570\u306f\u4f7f\u7528\u7528\u9014\u306b\u6cbf\u3063\u3066\u5909\u66f4\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u672c\u8a18\u4e8b\u3067\u306f12\u679a\u306e\u30b7\u30fc\u30c8\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
\"\"
Excel\u3078\u5404\u6708\u306e\u30b7\u30fc\u30c8\u3092\u7528\u610f\u3059\u308b<\/figcaption><\/figure>\n\n\n\n
\u300cVBA\u300d\u3092\u8d77\u52d5<\/h3>\n\n\n\n
VBA\u306e\u8d77\u52d5\u65b9\u6cd5\u306f2\u3064\u3042\u308a\u307e\u3059\u3002
\u2460\u300c\u958b\u767a\u300d\u2192\u300cVisual Basic\u300d\u3092\u62bc\u3059\u3002<\/strong>
\u2461\u300cAlt\u300d+\u300cF11\u300d\u3092\u62bc\u3059\u3002<\/strong><\/p>\n\n\n\n
\"\"
VBA\u3092\u8d77\u52d5<\/figcaption><\/figure>\n\n\n\n
VBA\u306e\u30b3\u30fc\u30c9\u3092\u66f8\u304f\u524d\u306b<\/h3>\n\n\n\n
VBA\u3092\u8d77\u52d5\u3057\u305f\u3089\u2460\u2192\u2461\u306e\u9806\u756a\u306b\u4f5c\u696d\u3092\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
\u2460\u300cThis Worklbook<\/strong>\u300d\u3092\u30c0\u30d6\u30eb\u30af\u30ea\u30c3\u30af
\u2461\u300cGereral\u300d\u304b\u3089\u300cWorkbook<\/strong>\u300d\u3078\u5909\u66f4\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n
\"\"
VBA\u306e\u9078\u629e\u9805\u76ee<\/figcaption><\/figure>\n\n\n\n

\u2460\u3001\u2461\u304c\u7d42\u308f\u308b\u3068<\/p>\n\n\n\n
Private Sub Workbook_Open()\n\nEnd Sub<\/code><\/pre>\n\n\n\n
\u304c\u51fa\u73fe\u3057\u307e\u3059\u3002

\u4e0b\u8a18\u753b\u50cf\u306e\u3088\u3046\u306b\u3001\u8d64\u7dda\uff12\u7b87\u6240\u306e\u90e8\u5206\u304c\u300cWorkbook\u300d\u3001\u300cOpen\u300d\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n\n\n\n
\"\"
VBA\u306e\u30a8\u30c7\u30a3\u30bf<\/figcaption><\/figure>\n\n\n\n
 VBA\u306e\u30b3\u30fc\u30c9\u3092\u8a18\u8ff0\u3059\u308b<\/h3>\n\n\n\n
\u5192\u982d\u306b\u8a18\u8f09\u3057\u305fVBA\u306e\u30b3\u30fc\u30c9\u3092\u8a18\u8ff0\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
Private Sub Workbook_Open()\n    Dim seat As Object\n    For Each seat In Sheets\n        seat.Tab.ColorIndex = xlNone\n    Next seat\n    \n    With Sheets(Month(Date) & \"\u6708\")\n        .Activate\n        .Tab.Color = rgbYellow\n    End With\nEnd Sub<\/code><\/pre>\n\n\n\n
\u3053\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002\uff08\u203b\u30b3\u30d4\u30da\u3067\u3082\u5927\u4e08\u592b\u3067\u3059\uff09<\/p>\n\n\n\n
\"\"
VBA\u306e\u30b3\u30fc\u30c9<\/figcaption><\/figure>\n\n\n\n
\u30b3\u30fc\u30c9\u306e\u8a18\u8ff0\u3092\u3057\u305f\u3089\u3001\u30b3\u30fc\u30c9\u306e\u3069\u3053\u304b\u306b\u30ab\u30fc\u30bd\u30eb\u3092\u5408\u308f\u305b\u305f\u72b6\u614b\u3067\u3010\u300cF5\u300d\uff08\u30c7\u30d0\u30c3\u30b0\uff09\u3011<\/strong>\u3092\u62bc\u3057\u307e\u3059\u3002
\u6b63\u3057\u304f\u30b3\u30fc\u30c9\u304c\u8a18\u8ff0\u3055\u308c\u3066\u3044\u308c\u3070\u3001\u30b3\u30fc\u30c9\u304c\u5b9f\u884c\u3055\u308c\u307e\u3059\u3002

\u5b9f\u884c\u3055\u308c\u3066\u3044\u308b\u304b\u78ba\u8a8d\u3059\u308b\u305f\u3081\u306bExcel\u306b\u623b\u308a\u307e\u3059\u3002

\u203bVBA\u304b\u3089Excel\u306b\u623b\u308b\u65b9\u6cd5\u306f\u4ee5\u4e0b\u306e2\u901a\u308a\u3067\u3059\u203b
\u2460\u300c\u8868\u793a\u300d\u30bf\u30d6\u2192\u300cMicrosoft Excel\u300d\u3092\u9078\u629e\u3059\u308b
\u2461\u300cAlt\u300d+\u300cF11\u300d

\u30b3\u30fc\u30c9\u304c\u5b9f\u884c\u3055\u308c\u3066\u3044\u308b\u3068\u300c\u4eca\u6708\u306e\u30b7\u30fc\u30c8\u3092\u9078\u629e\u3057\u305f\u72b6\u614b\u3067\u3001\u30b7\u30fc\u30c8\u306e\u8272\u304c\u9ec4\u8272\u306b\u306a\u3063\u3066\u3044\u308b<\/span><\/strong>\u300d\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n\n\n\n
\"\"
Excel\u306e\u4eca\u6708\u306e\u30b7\u30fc\u30c8\u306e\u8272\u304c\u5909\u5316<\/figcaption><\/figure>\n\n\n\n
\u3053\u306e\u72b6\u614b\u3067Excel\u306e\u4fdd\u5b58\u3092\u884c\u3063\u3066\u5b8c\u6210\u3067\u3059\uff01

\u203b\u4fdd\u5b58\u3092\u884c\u3046\u969b\u306f\u300cExcel \u30de\u30af\u30ed\u6709\u52b9\u30d6\u30c3\u30af\uff08*.xlsm\uff09<\/span><\/strong>\u300d\u3067\u884c\u3063\u3066\u304f\u3060\u3055\u3044\u3002
\u203b\u300cExcel \u30d6\u30c3\u30af\uff08*.xlsx\uff09<\/strong>\u300d\u3060\u3068\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/span><\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
\u3055\u3044\u3054\u306b<\/h2>\n\n\n\n
\u3044\u304b\u304c\u3060\u3063\u305f\u3067\u3057\u3087\u3046\u304b\uff1f\uff1f
\u3061\u306a\u307f\u306b\u3082\u3057\u5f53\u6708\u3067\u306f\u306a\u3044\u30b7\u30fc\u30c8\u3092\u9078\u3093\u3060\u307e\u307eExcel\u3092\u9589\u3058\u3066\u3001\u518d\u3073\u958b\u304f\u3068\u4eca\u6708\u306e\u30b7\u30fc\u30c8\u304c\u9078\u3070\u308c\u305f\u72b6\u614b\u306b\u306a\u308a\u307e\u3059\u3002

VBA\u3092\u6271\u3048\u308b\u3068\u3001Excel\u3092\u66f4\u306b\u52b9\u7387\u5316\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
\u3053\u308c\u3092\u6a5f\u4f1a\u306b\u5c0f\u3055\u306aDX\u5316\u3092\u9032\u3081\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n
<\/div>\n\n\n\n
 👑\u3054\u3063\u305f\u716e\u30d6\u30ed\u30b0\u4eba\u6c17\u8a18\u4e8b\u3000TOP3👑<\/span> <\/p>\n\n\n\n
1\u4f4d<\/p>\n\n\n\n
\u3010Microsoft Forms\u3011Teams\u3067\u7c21\u5358\u306b\u30a2\u30f3\u30b1\u30fc\u30c8\u304c\u3068\u308c\u308b\uff01 \u56de\u7b54\u306e\u8a73\u7d30\u3092\u898b\u308b\u306b\u306f\uff1f<\/a><\/div>\n\n\n\n
2\u4f4d<\/p>\n\n\n\n
\u3010Microsoft Word\u30112\u3064\u306eWord\u30d5\u30a1\u30a4\u30eb\u9593\u3067\u3069\u3053\u304c\u5909\u308f\u3063\u305f\u306e\u304b\u3092\u8abf\u3079\u308b\u65b9\u6cd5<\/a><\/div>\n\n\n\n
3\u4f4d<\/p>\n\n\n\n
Windows10\u306a\u3089\u7d75\u6587\u5b57\u304c\u7c21\u5358\u306b\u5165\u529b\u3067\u304d\u308b\u3063\u3066\u77e5\u3063\u3066\u305f\uff1f<\/a><\/div>\n\r\n\r\n","protected":false},"excerpt":{"rendered":"
Excel\u3067\u4e0b\u8a18\u753b\u50cf\u306e\u3088\u3046\u306b\u300c\u6708\u3054\u3068\u300d\u3067\u30b7\u30fc\u30c8\u3092\u5206\u3051\u3066\u3044\u308b\u6642\u306f\u3042\u308a\u307e\u305b\u3093\u3067\u3057\u3087\u3046\u304b\uff1f\uff1f \u300c\u6708\u5225\u306b\u96c6\u8a08\u300d\u3001\u300c\u6708\u5225\u3067\u30c7\u30fc\u30bf\u3092\u5165\u529b\u300d\u3092\u3057\u305f\u3044\u6642\u306b\u7b46\u8005\u306f\u4f7f\u3063\u3066\u3044\u307e\u3059\u3002 \u4eca\u56de\u306f\u300cExcel VBA\u3067\u4eca\u6708\u306e\u30b7\u30fc\u30c8\u306b\u81ea\u52d5\u3067\u8272\u3092\u3064\u3051\u308b\u65b9…<\/p>\n","protected":false},"author":8,"featured_media":8003,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[299,361],"tags":[307,328,368],"_links":{"self":[{"href":"https:\/\/www.alta.co.jp\/blog\/wp-json\/wp\/v2\/posts\/7603"}],"collection":[{"href":"https:\/\/www.alta.co.jp\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.alta.co.jp\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.alta.co.jp\/blog\/wp-json\/wp\/v2\/users\/8"}],"replies":[{"embeddable":true,"href":"https:\/\/www.alta.co.jp\/blog\/wp-json\/wp\/v2\/comments?post=7603"}],"version-history":[{"count":56,"href":"https:\/\/www.alta.co.jp\/blog\/wp-json\/wp\/v2\/posts\/7603\/revisions"}],"predecessor-version":[{"id":8035,"href":"https:\/\/www.alta.co.jp\/blog\/wp-json\/wp\/v2\/posts\/7603\/revisions\/8035"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.alta.co.jp\/blog\/wp-json\/wp\/v2\/media\/8003"}],"wp:attachment":[{"href":"https:\/\/www.alta.co.jp\/blog\/wp-json\/wp\/v2\/media?parent=7603"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.alta.co.jp\/blog\/wp-json\/wp\/v2\/categories?post=7603"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.alta.co.jp\/blog\/wp-json\/wp\/v2\/tags?post=7603"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}