{"id":11294,"date":"2019-02-28T08:30:49","date_gmt":"2019-02-27T23:30:49","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=11294"},"modified":"2019-02-28T16:05:54","modified_gmt":"2019-02-28T07:05:54","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%b0%e3%83%ab%e3%83%bc%e3%83%97%e3%81%ae%e8%a1%a8%e7%a4%ba%e3%83%bb%e9%9d%9e%e8%a1%a8%e7%a4%ba%e3%82%92-2","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=11294","title":{"rendered":"[\u30ea\u30dc\u30f3\u30fb\u30ab\u30b9\u30bf\u30de\u30a4\u30ba]\u30b0\u30eb\u30fc\u30d7\u306e\u8868\u793a\u30fb\u975e\u8868\u793a\u3092\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306e\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u3067\u5207\u308a\u66ff\u3048\u308b\u3002"},"content":{"rendered":"

\u5148\u65e5\u66f8\u3044\u305f\u8a18\u4e8b<\/a>\u306b\u4e0b\u8a18\u30b3\u30e1\u30f3\u30c8\u3092\u3044\u305f\u3060\u304d\u307e\u3057\u305f\u3002<\/p>\n

\u8907\u6570\u306e\u300c\u30b0\u30eb\u30fc\u30d7\u300d\u306e\u8868\u793a\/\u975e\u8868\u793a\u3092\u30ea\u30dc\u30f3\u304b\u3089\u3067\u306f\u306a\u304f\u3001\u30a2\u30c9\u30a4\u30f3\u306e\u30e6\u30fc\u30b6\u30d5\u30a9\u30fc\u30e0\u306e\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\uff08\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u7b49\uff09\u304b\u3089\u884c\u3046\u65b9\u6cd5\u3092\u3054\u6559\u793a\u4e0b\u3055\u3044\u3002\u3053\u308c\u306b\u3088\u308aExcel\u30af\u30ed\u30fc\u30ba\u6642\u306e\u72b6\u614b\u3092\u30d5\u30a1\u30a4\u30eb\u7b49\u306b\u4fdd\u5b58\u3057\u3066\u304a\u3044\u3066\u6b21\u56de\u306eExcel\u8d77\u52d5\u6642\u306e\u30c7\u30d5\u30a9\u30eb\u30c8\u306b\u3057\u305f\u3044\u3068\u601d\u3063\u3066\u3044\u307e\u3059\u3002<\/p><\/blockquote>\n

\u30b7\u30fc\u30c8\u306b\u8a2d\u5b9a\u5024\u3092\u4fdd\u5b58\u3059\u308b\u306e\u306f\u73fe\u5728\u306e\u30a2\u30d7\u30ea\u306b\u5b9f\u88c5\u305a\u307f\u306a\u306e\u3067OK\u3067\u3059\u3002
\n\u554f\u984c\u306f\u30e6\u30fc\u30b6\u30d5\u30a9\u30fc\u30e0\u4e0a\u306e\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u306b\u3088\u3063\u3066\u30c8\u30b0\u30eb\u3067\u7279\u5b9a\u306e\u30b0\u30eb\u30fc\u30d7\u306e\u8868\u793a\/\u975e\u8868\u793a\u3092\u52d5\u7684\u306b\u5207\u308a\u66ff\u3048\u305f\u3044\u3067\u3059\u3002\u305d\u306e\u3068\u304d\u306eInvalidateControl\u5468\u308a\u306e\u8a18\u8ff0\u65b9\u6cd5\u304c\u5206\u304b\u308a\u307e\u305b\u3093\u3002<\/p>\n

UI\u306eonLoad\u3067Public\u5909\u6570\u306e\u30ea\u30dc\u30f3\u3092\u30bb\u30c3\u30c8\u3057\u305f\u3042\u3068\u306b\u3001\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u306e\u8a18\u8ff0\u306f\u3069\u3046\u306a\u308b\u306e\u3067\u3057\u3087\u3046\u304b\uff1f\u304a\u624b\u6570\u3067\u3059\u304c\u3054\u6559\u793a\u9802\u3051\u307e\u3059\u3068\u5e78\u3044\u3067\u3059<\/p><\/blockquote>\n

\u30b0\u30eb\u30fc\u30d7\u306e\u8868\u793a\u30fb\u975e\u8868\u793a\u3092\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u4e0a\u306e\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u3067\u5207\u308a\u66ff\u3048\u3001\u305d\u306e\u8868\u793a\u72b6\u614b\u3092\u3069\u3053\u304b\u306b\u8a18\u9332\u3057\u3066\u304a\u304d\u305f\u3044\u3001\u3068\u3044\u3046\u3082\u306e\u3067\u3059\u3002<\/p>\n

\u3053\u306e\u5834\u5408\u3001\u4f7f\u7528\u3059\u308b\u306e\u306f\u3082\u3061\u308d\u3093\u3001group\u8981\u7d20\u306egetVisible<\/span>\u5c5e\u6027\u3067\u3059\u3002<\/p>\n

\u554f\u984c\u306a\u306e\u306f\u3001\u8868\u793a\u30fb\u975e\u8868\u793a\u3092\u8a2d\u5b9a\u3059\u308b\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u95a2\u6570\u306e\u7b2c\u4e8c\u5f15\u6570\u3092\u3069\u3046\u3084\u3063\u3066\u8a2d\u5b9a\u3059\u308b\u304b\u3067\u3059\u304c\u3001\u4eca\u56de\u306f\u30b7\u30fc\u30c8\u306b\u8a2d\u5b9a\u5024\u3092\u4fdd\u5b58\u3059\u308b\u3068\u3044\u3046\u3053\u3068\u306a\u306e\u3067\u3001\u4e0b\u8a18\u306e\u3088\u3046\u306b\u8a2d\u5b9a\u4fdd\u5b58\u7528\u306e\u30b7\u30fc\u30c8\u304b\u3089\u8aad\u307f\u53d6\u308b\u3053\u3068\u306b\u3057\u307e\u3059\u3002<\/p>\n

\u4e0b\u6e96\u5099<\/h4>\n

\u8a2d\u5b9a\u4fdd\u5b58\u7528\u306e\u30b7\u30fc\u30c8(\u30b7\u30fc\u30c8\u540d\uff1a\u8a2d\u5b9a)\u3092\u4f5c\u6210\u3057\u3001\u4e0b\u56f3\u306e\u3088\u3046\u306b\u30bb\u30ebB1\uff5eB3(3\u3064\u306e\u30b0\u30eb\u30fc\u30d7\u306e\u8868\u793a\u72b6\u614b\u3092\u5236\u5fa1\u3059\u308b\u3068\u3057\u3066)\u306b\u30b0\u30eb\u30fc\u30d7\u306e\u8868\u793a\u72b6\u614b\u306e\u521d\u671f\u5024\u3092\u5165\u529b\u3057\u307e\u3059\u3002<\/p>\n

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

\u30ea\u30dc\u30f3XML<\/h4>\n
<?xml version="1.0" encoding="utf-8"?>\r\n<customUI onLoad="rbnSample_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="Group 1" getVisible="grpSample_getVisible">\r\n          <button id="btnDummy1" label="Button 1" imageMso="HappyFace" size="large" \/>\r\n          <button id="btnDummy2" label="Button 2" imageMso="HappyFace" size="large" \/>\r\n          <button id="btnDummy3" label="Button 3" imageMso="HappyFace" size="large" \/>\r\n          <button id="btnDummy4" label="Button 4" imageMso="HappyFace" size="large" \/>\r\n        <\/group>\r\n        <group id="grpSample2" label="Group 2" getVisible="grpSample_getVisible">\r\n          <button id="btnDummy5" label="Button 1" imageMso="SadFace" size="large" \/>\r\n          <button id="btnDummy6" label="Button 2" imageMso="SadFace" size="large" \/>\r\n          <button id="btnDummy7" label="Button 3" imageMso="SadFace" size="large" \/>\r\n          <button id="btnDummy8" label="Button 4" imageMso="SadFace" size="large" \/>\r\n        <\/group>\r\n        <group id="grpSample3" label="Group 3" getVisible="grpSample_getVisible">\r\n          <button id="btnDummy9" label="Button 1" imageMso="HappyFace" size="large" \/>\r\n          <button id="btnDummy10" label="Button 2" imageMso="HappyFace" size="large" \/>\r\n          <button id="btnDummy11" label="Button 3" imageMso="HappyFace" size="large" \/>\r\n          <button id="btnDummy12" label="Button 4" imageMso="HappyFace" size="large" \/>\r\n        <\/group>\r\n        <group id="grpSample4" label="Group 4">\r\n          <button id="btnSample" label="\u30d5\u30a9\u30fc\u30e0\u8868\u793a" imageMso="HappyFace" size="large" onAction="btnSample_onAction" \/>\r\n        <\/group>\r\n      <\/tab>\r\n    <\/tabs>\r\n  <\/ribbon>\r\n<\/customUI><\/pre>\n
\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb<\/h4>\n
'\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\r\nOption Explicit\r\n\r\nPublic myRibbon As Office.IRibbonUI\r\n\r\nPublic Sub rbnSample_onLoad(ribbon As IRibbonUI)\r\n  Set myRibbon = ribbon\r\nEnd Sub\r\n\r\nPublic Sub grpSample_getVisible(control As IRibbonControl, ByRef returnedVal)\r\n  Dim sh As Excel.Worksheet\r\n  \r\n  Set sh = ThisWorkbook.Worksheets("\u8a2d\u5b9a")\r\n  Select Case control.ID\r\n    Case "grpSample1": returnedVal = sh.Range("B1").Value\r\n    Case "grpSample2": returnedVal = sh.Range("B2").Value\r\n    Case "grpSample3": returnedVal = sh.Range("B3").Value\r\n  End Select\r\nEnd Sub\r\n\r\nPublic Sub btnSample_onAction(control As IRibbonControl)\r\n  UserForm1.Show False\r\nEnd Sub<\/pre>\n
\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0(UserForm1)<\/h4>\n
'UserForm\r\nOption Explicit\r\n\r\nPrivate configSheet As Excel.Worksheet\r\n\r\nPrivate Sub CheckBox1_Change()\r\n  configSheet.Range("B1").Value = Me.CheckBox1.Value\r\n  myRibbon.InvalidateControl "grpSample1"\r\nEnd Sub\r\n\r\nPrivate Sub CheckBox2_Change()\r\n  configSheet.Range("B2").Value = Me.CheckBox2.Value\r\n  myRibbon.InvalidateControl "grpSample2"\r\nEnd Sub\r\n\r\nPrivate Sub CheckBox3_Change()\r\n  configSheet.Range("B3").Value = Me.CheckBox3.Value\r\n  myRibbon.InvalidateControl "grpSample3"\r\nEnd Sub\r\n\r\nPrivate Sub UserForm_Initialize()\r\n  Set configSheet = ThisWorkbook.Worksheets("\u8a2d\u5b9a")\r\n  Me.CheckBox1.Value = configSheet.Range("B1").Value\r\n  Me.CheckBox2.Value = configSheet.Range("B2").Value\r\n  Me.CheckBox3.Value = configSheet.Range("B3").Value\r\nEnd Sub<\/pre>\n
\u30dd\u30a4\u30f3\u30c8\u306f\u4e0b\u8a184\u70b9\u3067\u3059\u3002<\/p>\n
    \n
  1. IRibbonUI\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u5909\u6570(myRibbon)\u3092Public\u306b\u3059\u308b\u3002<\/li>\n
  2. getVisible\u5c5e\u6027\u306e\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u3092\u4e00\u3064\u306b\u307e\u3068\u3081\u308b\u5834\u5408\u306f\u3001\u7b2c\u4e00\u5f15\u6570\u3067\u3042\u308bIRibbonControl\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306eID\u30d7\u30ed\u30d1\u30c6\u30a3\u3067\u51e6\u7406\u3092\u5206\u3051\u308b\u3002<\/li>\n
  3. group\u8981\u7d20\u306e\u8868\u793a\u72b6\u614b\u3092\u3001\u8a2d\u5b9a\u7528\u306e\u30b7\u30fc\u30c8\u304b\u3089\u8aad\u307f\u53d6\u308b\u3088\u3046\u306b\u3059\u308b\u3002<\/li>\n
  4. \u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u306e\u30a4\u30d9\u30f3\u30c8\u3067\u3001\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u306e\u5024\u3092\u8a2d\u5b9a\u7528\u30b7\u30fc\u30c8\u306e\u5024\u3068\u9023\u52d5\u3055\u305b\u3001InvalidateControl\u30e1\u30bd\u30c3\u30c9\u306b\u3088\u3063\u3066\u8868\u793a\u30fb\u975e\u8868\u793a\u3092\u5207\u308a\u66ff\u3048\u308b\u3002<\/li>\n<\/ol>\n
    \"\"<\/a><\/p>\n
    \u4eca\u56de\u306f\u7c21\u5358\u306a\u30b5\u30f3\u30d7\u30eb\u306a\u306e\u3067\u51e6\u7406\u304c\u5197\u9577\u306a\u307e\u307e\u3067\u3059\u304c\u3001\u4e0b\u8a18thom\u6c0f\u306e\u30d6\u30ed\u30b0\u8a18\u4e8b\u306e\u3088\u3046\u306a\u65b9\u6cd5\u3092\u4f7f\u3048\u3070\u3001\u3088\u308a\u30b7\u30f3\u30d7\u30eb\u306b\u8a2d\u5b9a\u7528\u30b7\u30fc\u30c8\u304b\u3089\u5024\u3092\u8aad\u307f\u51fa\u305b\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
    \"\"<\/div>
    t-hom\u2019s diary<\/div><\/div>
    \"\"<\/figure>
    VBA \u30de\u30af\u30ed\u306e\u8a2d\u5b9a\u3092\u30b7\u30fc\u30c8\u306b\u4fdd\u5b58\u3059\u308b\u5834\u5408\u306e\u30c6\u30af\u30cb\u30c3\u30af - t-hom\u2019s diary<\/div>
    https:\/\/thom.hateblo.jp\/entry\/2015\/06\/21\/021207<\/div>
    Excel\u30de\u30af\u30ed\u306e\u8a2d\u5b9a\u3092\u30b7\u30fc\u30c8\u306b\u4fdd\u5b58\u3057\u3066\u304a\u304f\u3053\u3068\u304c\u3088\u304f\u3042\u308b\u3002\u305f\u3060\u30e1\u30a4\u30f3\u30de\u30af\u30ed\u304b\u3089\u76f4\u63a5Range\u6307\u5b9a\u3067\u8a2d\u5b9a\u3092\u53d6\u308a\u51fa\u3059\u3068\u3001\u30b7\u30fc\u30c8\u306e\u69cb\u6210\u304c\u5909\u308f\u3063\u305f\u5834\u5408\u306b\u30de\u30af\u30ed\u3092\u7de8\u96c6\u3057\u306a\u3051\u308c\u3070\u306a\u3089\u306a\u3044\u306e\u3067\u9762\u5012\u3067\u3042\u308b\u3002 \u305d\u3053\u3067\u3001\u30b7\u30fc\u30c8\u306e\u8a2d\u5b9a\u306f\u30b7\u30fc\u30c8\u81ea\u8eab\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u3068\u3057\u3066\u6301\u305f\u305b\u3066\u304a\u304f\u3068\u3001\u5909\u66f4\u7b87\u6240\u304c\u5c40\u6240\u7684\u306b\u306a\u3063\u3066\u5f8c\u3005\u30e1\u30f3\u30c6\u30ca\u30f3\u30b9\u3057\u3084\u3059\u3044\u3002\u6587\u7ae0\u3060\u3051\u3067\u306f\u610f\u5473\u304c\u5206\u304b\u3089\u306a\u3044\u3068\u601d\u3046\u306e\u3067\u30b3\u30fc\u30c9\u3092\u66f8\u3044\u3066\u89e3\u8aac\u3059\u308b\u3002 \u30b7\u30fc\u30c8\u306e\u6e96\u5099 \u307e\u305a\u3001Book1.xlsm\u306b\u8a2d\u5b9a\u30b7\u30fc\u30c8\u3092\u6b21\u306e\u3088\u3046\u306b\u4f5c\u308b\u3002\u3053\u306e\u3068\u304d\u3001VBE\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u30a6\u30a4\u30f3\u30c9\u30a6\u3067\u3001\u8a2d\u5b9a\u30b7\u30fc\u30c8\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u540d\u3082\u300c\u8a2d\u5b9a\u300d...<\/div><\/div>
    <\/div><\/div><\/a><\/div><\/div>\n
    \"\"<\/div>
    t-hom\u2019s diary<\/div><\/div>
    \"\"<\/figure>
    VBA \u30de\u30af\u30ed\u3067\u5229\u7528\u3059\u308b\u8a2d\u5b9a\u5024\u3092\u30b7\u30fc\u30c8\u306b\u4fdd\u5b58\u3057\u3001\u6587\u5b57\u5217\u3067\u30a2\u30af\u30bb\u30b9\u3059\u308b\u30c6\u30af\u30cb\u30c3\u30af - ...<\/div>
    https:\/\/thom.hateblo.jp\/entry\/2018\/06\/16\/035609<\/div>
    \u4eca\u56de\u306f\u30de\u30af\u30ed\u3067\u5229\u7528\u3059\u308b\u8a2d\u5b9a\u5024\u3092\u30b7\u30fc\u30c8\u306b\u4fdd\u5b58\u3057\u3001\u6c4e\u7528\u7684\u306b\u6587\u5b57\u5217\u3067\u30a2\u30af\u30bb\u30b9\u3067\u304d\u308b\u3088\u3046\u306b\u3059\u308b\u30c6\u30af\u30cb\u30c3\u30af\u306e\u7d39\u4ecb\u3002 \u4f5c\u308a\u65b9 \u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u633f\u5165\u3057\u3001\u30d7\u30ed\u30d1\u30c6\u30a3\u30a6\u30a3\u30f3\u30c9\u30a6\u304b\u3089\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u540d\u3092Confg\u306b\u5909\u66f4\u3059\u308b\u3002 Config\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u5f35\u308a\u4ed8\u3051\u308b\u3002 Option Explicit Private configurations As Variant '<- configulations is keepd here as variant array. Private Property Get InitialSettings() As Collection Set InitialSettings\u2026<\/div><\/div>
    <\/div><\/div><\/a><\/div><\/div>\n
    \u307e\u305f\u3001\u5236\u5fa1\u3057\u305f\u3044\u8981\u7d20\u304c\u591a\u3044\u5834\u5408\u306b\u306f\u3001\u30af\u30e9\u30b9\u3092\u5229\u7528\u3057\u3066\u51e6\u7406\u3092\u307e\u3068\u3081\u305f\u65b9\u304c\u30b3\u30fc\u30c9\u3082\u3059\u3063\u304d\u308a\u3059\u308b\u3067\u3057\u3087\u3046\u3002<\/p>\n
    \"\"<\/div>
    t-hom\u2019s diary<\/div><\/div>
    \"\"<\/figure>
    VBA \u30d5\u30a9\u30fc\u30e0\u306e\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u30a4\u30d9\u30f3\u30c8\u3092\u5171\u901a\u5316\u3059\u308b - t-hom\u2019s diary<\/div>
    https:\/\/thom.hateblo.jp\/entry\/2016\/03\/11\/204324<\/div>
    \u3053\u3061\u3089\u306e\u8a18\u4e8b\u3092\u8aad\u3093\u3060\u3068\u3053\u308d\u3001\u540c\u3058\u3088\u3046\u306aChange\u30a4\u30d9\u30f3\u30c8\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u304c\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u6570\u3060\u3051\u3067\u304d\u3066\u3057\u307e\u3046\u3053\u3068\u306b\u304a\u60a9\u307f\u306e\u69d8\u5b50\u3002 kantoku.hatenablog.com\u9762\u767d\u305d\u3046\u306a\u306e\u3067\u8272\u3005\u8abf\u3079\u306a\u304c\u3089\u3084\u3063\u3066\u307f\u305f\u3002\u53c2\u8003\u306b\u3057\u305f\u30da\u30fc\u30b8\u306f\u3053\u3061\u3089 3.4.3 \u5171\u901a\u30a4\u30d9\u30f3\u30c8\u51e6\u7406\u30af\u30e9\u30b9 - EXCEL-VBA\u958b\u767a\u8b1b\u5ea7ateitexe.com \u307e\u305aEventControl\u3068\u3044\u3046\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u7528\u610f\u3057\u305f\u3002 \u30b3\u30fc\u30c9\u306f\u3053\u3061\u3089 Public WithEvents chk As MSForms.CheckBox Public WithEvents txt As MSForms.TextBox Public Sub \u30bb\u30c3\u2026<\/div><\/div>
    <\/div><\/div><\/a><\/div><\/div>\n
    \"\"<\/div>
    Ateitexe \u30a2\u30c6\u30fc\u30af\u30bc<\/div><\/div>
    \"\"<\/figure>
    ExcelVBA\u3067Control\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306eChange\u30a4\u30d9\u30f3\u30c8\u3092\u4e00\u62ec\u5236\u5fa1\u3059\u308b\u65b9\u6cd5<\/div>
    https:\/\/ateitexe.com\/excelvba-control-change-event\/<\/div>
    \u305f\u304f\u3055\u3093\u3042\u308bTextBox\u306a\u3069\u306eChange\u30a4\u30d9\u30f3\u30c8\u3092\u3001\u3072\u3068\u307e\u3068\u3081\u306b\u3057\u3066\u5236\u5fa1\u3059\u308b\u65b9\u6cd5\u3092\u89e3\u8aac\u3057\u3066\u3044\u307e\u3059\u3002<\/div><\/div>
    <\/div><\/div><\/a><\/div><\/div>\n
    \n
    \n