如何在自定义ui功能区中设置焦点以编辑框而不在VBA中发送密钥

Question

我有9个编辑框，它们按特定顺序填充，通常通常是连续填充的。 但是，我目前知道如何从编辑框移动到编辑框的唯一方法是单击鼠标或发送键命令。 使用此方法不是从编辑框移至编辑框的有效方法

我将Windows 7与Excel 2010一起使用。

Excel工作簿是.xltm。

我使用Microsoft Office的“自定义UI编辑器”编写了XML。

我知道如何编写回调函数，并且有几个工作回调。

我看了很多线程，但是没有一个让我知道如何做我需要做的事情。

我知道我下面的激活/将焦点设置到下一个编辑框的代码不正确，如果是的话，我不会问这个问题。

代码示例

VBA：

  OC STANDS FOR ON CHANGE GT STANDS FOR GET TEXT CB STANDS FOR CONTROL BOX 

Public Sub VOL1_OC_CB(IRIB As IRibbonControl, ByRef text)
    'CODE TO EDIT WORKSHEET'
    IRibbonControls("VOL1").ACTIVATE
End Sub

Public Sub VOL1_GT_CB(IRIB As IRibbonControl, ByRef text)
    'CODE TO SET EDIT BOX VALUE AT STARTUP'
End Sub

Public Sub VOL2_OC_CB(IRIB As IRibbonControl, ByRef text)
    'CODE TO EDIT WORKSHEET'    
    IRibbonControls("PCNT").ACTIVATE
End Sub

Public Sub VOL2_GT_CB(IRIB As IRibbonControl, ByRef text)
    'CODE TO SET EDIT BOX VALUE AT STARTUP'
End Sub

Public Sub PCT_OC_CB(IRIB As IRibbonControl, ByRef text)
    'CODE TO EDIT WORKSHEET'
    ThisWorkbook.Sheets("MAIN").Activate
End Sub

Public Sub PCT_GT_CB(IRIB As IRibbonControl, ByRef text)
    'CODE TO SET EDIT BOX VALUE AT STARTUP'
End Sub

XML：

    <ribbon>
        <tabs>
            <tab id="OBR" label="OBR" keytip="CD">
                <group id="MOQS" label="MOQs">
                    <editBox id="VOL1" label="VOL 1"
                        getText="VOL1_GT_CB" onChange="VOL1_OC_CB" keytip="V1"/>
                    <editBox id="VOL2" label="VOL 2"
                        getText="VOL2_GT_CB" onChange="VOL2_OC_CB" keytip="V2"/>
                </group>
                <group id="val" label="values">
                    <editBox id="PCNT" label="INCREASE  %"
                        getText="PCT_GT_CB" onChange="PCT_OC_CB" keytip="PCT"/>
                </group>
            </tab>
        </tabs>
    </ribbon>

我希望在更改“编辑框VOL1”时 ，“编辑框VOL2”将获得焦点/激活，但是当我更改VOL1时，它将激活工作表。

另外，如果我的格式和措词不方便，我也表示歉意，我不太擅长交流，并且倾向于做出奇怪的语言选择。 我命名函数和变量的方式也是如此。