{"id":2856,"date":"2013-04-07T22:08:34","date_gmt":"2013-04-07T13:08:34","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=2856"},"modified":"2013-04-07T22:08:34","modified_gmt":"2013-04-07T13:08:34","slug":"%e3%83%aa%e3%83%9c%e3%83%b3%e3%83%bb%e3%82%ab%e3%82%b9%e3%82%bf%e3%83%9e%e3%82%a4%e3%82%ba%e3%82%a2%e3%82%af%e3%83%86%e3%82%a3%e3%83%96%e3%82%b7%e3%83%bc%e3%83%88%e3%81%ab%e3%82%88%e3%82%8a%e8%a1%a8","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=2856","title":{"rendered":"[\u30ea\u30dc\u30f3\u30fb\u30ab\u30b9\u30bf\u30de\u30a4\u30ba]\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306b\u3088\u308a\u8868\u793a\u3059\u308b\u30b0\u30eb\u30fc\u30d7\u3092\u5207\u308a\u66ff\u3048\u308b\u3002"},"content":{"rendered":"

Excel\u3067\u3001\u9078\u629e\u3057\u3066\u3044\u308b\u30b7\u30fc\u30c8\u306b\u3088\u3063\u3066\u8868\u793a\u3059\u308b\u30b0\u30eb\u30fc\u30d7\u3092\u5207\u308a\u66ff\u3048\u305f\u3044\u3068\u3044\u3046\u8cea\u554f\u3092\u3044\u305f\u3060\u304d\u307e\u3057\u305f\u306e\u3067\u51e6\u7406\u3092\u8003\u3048\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

\u30ea\u30dc\u30f3XML\uff1a<\/strong><\/p>\n

<?xml version="1.0" encoding="utf-8"?>\r\n<customUI onLoad="ThisWorkbook.Ribbon_onLoad" xmlns="http:\/\/schemas.microsoft.com\/office\/2006\/01\/customui">\r\n  <ribbon>\r\n    <tabs>\r\n      <tab id="tabSample" label="Sample Tab">\r\n        <group id="grpSample1" label="Sample Group1" getVisible="ThisWorkbook.group_getVisible" tag="1">\r\n          <button id="btnSample1" label="Sample Button1" size="large" imageMso="HappyFace" \/>\r\n          <button id="btnSample2" label="Sample Button2" size="large" imageMso="HappyFace" \/>\r\n          <button id="btnSample3" label="Sample Button3" size="large" imageMso="HappyFace" \/>\r\n        <\/group>\r\n      <group id="grpSample2" label="Sample Group2" getVisible="ThisWorkbook.group_getVisible" tag="2">\r\n          <button id="btnSample4" label="Sample Button4" size="large" imageMso="SadFace" \/>\r\n          <button id="btnSample5" label="Sample Button5" size="large" imageMso="SadFace" \/>\r\n          <button id="btnSample6" label="Sample Button6" size="large" imageMso="SadFace" \/>\r\n        <\/group>\r\n      <\/tab>\r\n    <\/tabs>\r\n  <\/ribbon>\r\n<\/customUI><\/pre>\n
VBA\u30b3\u30fc\u30c9(ThisWorkbook)\uff1a<\/strong><\/p>\n
Option Explicit\r\n\r\nPrivate myRibbon As Office.IRibbonUI\r\nPrivate flg(1 To 2) As Boolean\r\n\r\nPublic Sub Ribbon_onLoad(ribbon As IRibbonUI)\r\n  Set myRibbon = ribbon\r\n  Select Case LCase$(ActiveWorkbook.ActiveSheet.Name)\r\n    Case "sheet1"\r\n      flg(1) = True\r\n      flg(2) = False\r\n    Case "sheet2"\r\n      flg(1) = False\r\n      flg(2) = True\r\n    Case Else\r\n      flg(1) = True\r\n      flg(2) = True\r\n  End Select\r\nEnd Sub\r\n\r\nPublic Sub group_getVisible(control As IRibbonControl, ByRef returnedVal)\r\n  returnedVal = flg(CLng(control.Tag))\r\nEnd Sub\r\n\r\nPrivate Sub Workbook_SheetActivate(ByVal Sh As Object)\r\n  Select Case LCase$(Sh.Name)\r\n    Case "sheet1"\r\n      flg(1) = True\r\n      flg(2) = False\r\n    Case "sheet2"\r\n      flg(1) = False\r\n      flg(2) = True\r\n    Case Else\r\n      flg(1) = True\r\n      flg(2) = True\r\n  End Select\r\n  myRibbon.Invalidate\r\nEnd Sub<\/pre>\n
\"\"<\/a><\/p>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u3067\u306f\u3001Sheet1\u304c\u9078\u629e\u3055\u308c\u3066\u3044\u308b\u3068\u304d\u306f”grpSample1<\/strong>“\u304c\u3001Sheet2\u304c\u9078\u629e\u3055\u308c\u3066\u3044\u308b\u3068\u304d\u306f”grpSample2<\/strong>“\u3001\u305d\u308c\u4ee5\u5916\u306e\u30b7\u30fc\u30c8\u306e\u6642\u306f”grpSample1<\/strong>“\u3068”grpSample2<\/strong>“\u306e\u4e21\u65b9\u304c\u8868\u793a\u3055\u308c\u308b\u3088\u3046\u3001getVisible<\/span>\u5c5e\u6027\u306e\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u3092\u8a2d\u5b9a\u3057\u3066\u3044\u307e\u3059\u3002
\n\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306b\u9650\u3089\u305a\u3001\u4f55\u3089\u304b\u306e\u6761\u4ef6\u3067\u30ea\u30dc\u30f3\u306e\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u5207\u308a\u66ff\u3048\u305f\u3044\u5834\u5408\u306b\u306f\u4fbf\u5229\u306a\u51e6\u7406\u3060\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"Excel\u3067\u3001\u9078\u629e\u3057\u3066\u3044\u308b\u30b7\u30fc\u30c8\u306b\u3088\u3063\u3066\u8868\u793a\u3059\u308b\u30b0\u30eb\u30fc\u30d7\u3092\u5207\u308a\u66ff\u3048\u305f\u3044\u3068\u3044\u3046\u8cea\u554f\u3092\u3044\u305f\u3060\u304d\u307e\u3057\u305f\u306e\u3067\u51e6\u7406\u3092\u8003\u3048\u3066\u307f\u307e\u3057\u305f\u3002 \u30ea\u30dc\u30f3XML\uff1a <?xml version="1.0" encodin […]","protected":false},"author":1,"featured_media":7130,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[4,1],"tags":[7,11,12],"class_list":["post-2856","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-ribbon","tag-ribbon-2","tag-office-2","tag-12"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t