{"id":1056,"date":"2020-08-07T18:45:13","date_gmt":"2020-08-07T09:45:13","guid":{"rendered":"http:\/\/www.d0web.com\/?p=1056"},"modified":"2020-08-07T18:50:49","modified_gmt":"2020-08-07T09:50:49","slug":"excel-vba%e3%81%a7worksheet%e3%81%a7%e3%81%af%e3%81%aa%e3%81%8f%e3%83%a6%e3%83%bc%e3%82%b6%e3%83%bc%e5%ae%9a%e7%be%a9%e3%81%ae%e3%82%aa%e3%83%96%e3%82%b8%e3%82%a7%e3%82%af%e3%83%88%e3%82%92%e5%8f%96","status":"publish","type":"post","link":"https:\/\/www.d0web.com\/blog\/archives\/1056","title":{"rendered":"Excel VBA\u3067Worksheet\u3067\u306f\u306a\u304f\u30e6\u30fc\u30b6\u30fc\u5b9a\u7fa9\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b"},"content":{"rendered":"\n<p>\u691c\u8a3c\u74b0\u5883 Excel 2013<\/p>\n\n\n\n<p>\u666e\u901a\u306b\u8003\u3048\u305f\u3089\u5358\u7d14\u306a\u3093\u3067\u3059\u304c\u5730\u5473\u306b\u30cf\u30de\u30c3\u305f\u306e\u3067\u30e1\u30e2\u3002<\/p>\n\n\n\n<p>\u4f8b\u3048\u3070\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u540d&#8221;unko&#8221;\u306e\u30b7\u30fc\u30c8\u540d&#8221;Sheet1&#8243;\u306e\u30b7\u30fc\u30c8\u304c\u3042\u3063\u305f\u5834\u5408\u306f\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>    Dim sheet As Worksheet\n    Set sheet = Worksheets(\"Sheet1\")<\/code><\/pre>\n\n\n\n<p>\u3067\u306f\u306a\u304f<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>    Dim sheet\n    Set sheet = Worksheets(\"Sheet1\")<\/code><\/pre>\n\n\n\n<p>As Worksheet \u629c\u304d\u3067\u53d6\u5f97\u3057\u3066\u3084\u308b\u3068 Worksheet \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3067\u306f\u306a\u304f\u3001\u30e6\u30fc\u30b6\u30fc\u5b9a\u7fa9\u306eunko\u304c\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u53d6\u5f97\u3067\u304d\u308b\u3002<\/p>\n\n\n\n<p>\u3053\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u5834\u5408\u3001\u3082\u3061\u308d\u3093unko(Sheet1)\u306b\u5b9a\u7fa9\u3055\u308c\u305f\u95a2\u6570\u3084\u5909\u6570\u306b\u30a2\u30af\u30bb\u30b9\u53ef\u80fd\u3002worksheet\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3067\u53d6\u5f97\u3059\u308b\u3068\u30a2\u30af\u30bb\u30b9\u3067\u304d\u306a\u3044\u3002<\/p>\n\n\n\n<ul class=\"wp-block-list\"><li>unko(Sheet1)<\/li><\/ul>\n\n\n\n<pre class=\"wp-block-code\"><code>Option Explicit\n\nDim kuso As Long\n\nSub SetKuso(value As Long)\n    kuso = value\nEnd Sub\n\nFunction GetKuso() As Long\n    GetKuso = kuso\nEnd Function<\/code><\/pre>\n\n\n\n<p>\u4ee5\u4e0b\u306eVBA\u3092\u5b9f\u884c\u30b3\u30fc\u30c9<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>    sheet.SetKuso 1\n    Debug.Print \"kuso = \" &amp; sheet.GetKuso()<\/code><\/pre>\n\n\n\n<p>\u51fa\u529b<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>kuso = 1<\/code><\/pre>\n\n\n\n<p>\u8a00\u3044\u63db\u3048\u308c\u3070\u3001Worksheets()\u3084\u3001ActiveSheet()\u306a\u3069\u3001Worksheet\u3092\u53d6\u5f97\u3059\u308b\u7cfb\u306e\u95a2\u6570\u306f\u30e6\u30fc\u30b6\u30fc\u5b9a\u7fa9\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u8fd4\u5374\u3055\u308c\u308b\u306e\u3067\u3001\u5909\u6570\u306b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u5165\u308c\u308b\u6642\u3060\u3051\u6ce8\u610f\u3059\u308c\u3070\u826f\u3044\u3002<\/p>\n\n\n\n<p>unko\u30b7\u30fc\u30c8\u3092\u30b3\u30d4\u30fc\u3057\u3066\u4f7f\u7528\u3059\u308b\u3053\u3068\u3067\u3001\u5225\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3068\u3057\u3066\u751f\u6210\u3055\u308c\u308b\u305f\u3081\u30e1\u30f3\u30d0\u5909\u6570\u3001\u95a2\u6570\u3092\u6301\u3063\u305f\u30af\u30e9\u30b9\u306e\u7528\u306a\u4f7f\u3044\u65b9\u304c\u3067\u304d\u308b\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>    Worksheets(\"Sheet1\").Copy After:=Worksheets(\"Sheet1\")\n    \n    Worksheets(1).SetKuso 1\n    Worksheets(2).SetKuso 2\n\n    Debug.Print \"kuso = \" &amp; Worksheets(1).GetKuso()\n    Debug.Print \"kuso = \" &amp; Worksheets(2).GetKuso()<\/code><\/pre>\n\n\n\n<p>\u51fa\u529b<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>kuso = 1\nkuso = 2<\/code><\/pre>\n\n\n\n<p>\u30b3\u30d4\u30fc\u6642\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u540d\u306f\u5fc5\u305a\u91cd\u8907\u3057\u306a\u3044\u540d\u524d\u3068\u306a\u308a\u3001\u4e0a\u8a18\u306e\u4f8b\u306e\u5834\u5408\u3001\u65b0\u898f\u306b\u4f5c\u6210\u3057\u305f\u30b7\u30fc\u30c8\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u540d\u306f&#8221;unko1&#8243;\u3068\u306a\u308b\u3002<\/p>\n\n\n\n<p>\u307e\u305f\u3001\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u540d\u306fObject\u306e\u30e1\u30f3\u30d0\u3068\u3057\u3066&#8221;CodeName&#8221;\u306b\u8a2d\u5b9a\u3055\u308c\u3066\u3044\u308b\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>    Debug.Print \"CodeName = \" &amp; Worksheets(1).CodeName\n    Debug.Print \"CodeName = \" &amp; Worksheets(2).CodeName<\/code><\/pre>\n\n\n\n<p>\u51fa\u529b<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>CodeName = unko\nCodeName = unko1<\/code><\/pre>\n\n\n\n<p>\u3053\u308c\u3092\u5229\u7528\u3057\u3066\u3001\u30b7\u30fc\u30c8\u306b\u914d\u7f6e\u3057\u3066\u3044\u308b\u30dc\u30bf\u30f3\u306e\u30de\u30af\u30ed\u7b49\u3092\u52d5\u7684\u306b\u8a2d\u5b9a\u304c\u3067\u304d\u308b\u3002<\/p>\n\n\n\n<p>\u30b7\u30fc\u30c8\u306b\u30e9\u30d9\u30eb&#8221;kuso_button&#8221;\u3068\u8a2d\u5b9a\u3057\u305f\u30b7\u30fc\u30c8&#8221;Sheet1&#8243;\u3092\u4f5c\u6210\u3002<\/p>\n\n\n\n<figure class=\"wp-block-image size-large\"><img decoding=\"async\" width=\"196\" height=\"125\" src=\"https:\/\/www.d0web.com\/blog\/wp-content\/uploads\/2020\/08\/SnapCrab_Book1xlsm-Excel_2020-8-7_18-35-51_No-00.png\" alt=\"\" class=\"wp-image-1073\"\/><\/figure>\n\n\n\n<p>unko(Sheet1)\u306b\u4ee5\u4e0b\u306eVBA\u8ffd\u52a0<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Function KusoButton() As Long\n    Debug.Print Name &amp; \" kuso = \" &amp; kuso\nEnd Function<\/code><\/pre>\n\n\n\n<p>\u4ee5\u4e0b\u306eVBA\u3092\u5b9f\u884c<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>    Worksheets(\"Sheet1\").Copy After:=Worksheets(\"Sheet1\")\n    \n    Dim sheet1\n    Set sheet1 = Worksheets(1)\n    Dim sheet2\n    Set sheet2 = Worksheets(2)\n    \n    sheet1.SetKuso 1\n    sheet2.SetKuso 2\n\n    ' \u30dc\u30bf\u30f3\u30de\u30af\u30ed\u8a2d\u5b9a\n    sheet1.Shapes(\"kuso_button\").OnAction = sheet1.CodeName &amp; \".KusoButton\"\n    sheet2.Shapes(\"kuso_button\").OnAction = sheet2.CodeName &amp; \".KusoButton\"<\/code><\/pre>\n\n\n\n<p>&#8220;Sheet1(2)&#8221;\u30b7\u30fc\u30c8\u304c\u8ffd\u52a0\u3055\u308c\u308b\u306e\u3067\u3001&#8221;Sheet1&#8243;\u3001&#8221;Sheet1(2)&#8221;\u305d\u308c\u305e\u308c\u306e\u30dc\u30bf\u30f3\u3092\u62bc\u4e0b\u3059\u308b\u3068\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u51fa\u529b\u3055\u308c\u308b\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Sheet1 kuso = 1\nSheet1 (2) kuso = 2<\/code><\/pre>\n\n\n\n<p>\u304a\u308f\u3044<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u691c\u8a3c\u74b0\u5883 Excel 2013 \u666e\u901a\u306b\u8003\u3048\u305f\u3089\u5358\u7d14\u306a\u3093\u3067\u3059\u304c\u5730\u5473\u306b\u30cf\u30de\u30c3\u305f\u306e\u3067\u30e1\u30e2\u3002 \u4f8b\u3048\u3070\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u540d&#8221;&#46;&#46;&#46;<\/p>\n","protected":false},"author":1,"featured_media":1073,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[4],"tags":[16,15],"class_list":["post-1056","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-4","tag-excel","tag-vba"],"aioseo_notices":[],"jetpack_featured_media_url":"https:\/\/www.d0web.com\/blog\/wp-content\/uploads\/2020\/08\/SnapCrab_Book1xlsm-Excel_2020-8-7_18-35-51_No-00.png","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.d0web.com\/blog\/wp-json\/wp\/v2\/posts\/1056","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.d0web.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.d0web.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.d0web.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.d0web.com\/blog\/wp-json\/wp\/v2\/comments?post=1056"}],"version-history":[{"count":21,"href":"https:\/\/www.d0web.com\/blog\/wp-json\/wp\/v2\/posts\/1056\/revisions"}],"predecessor-version":[{"id":2266,"href":"https:\/\/www.d0web.com\/blog\/wp-json\/wp\/v2\/posts\/1056\/revisions\/2266"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.d0web.com\/blog\/wp-json\/wp\/v2\/media\/1073"}],"wp:attachment":[{"href":"https:\/\/www.d0web.com\/blog\/wp-json\/wp\/v2\/media?parent=1056"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.d0web.com\/blog\/wp-json\/wp\/v2\/categories?post=1056"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.d0web.com\/blog\/wp-json\/wp\/v2\/tags?post=1056"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}