Excel催化剂开源第23波-VSTO开发辅助录入功能关键技术

2019.01.12 14:10* 字数 2948 阅读 41评论 0喜欢 0

在Excel催化剂的几大辅助录入功能中（数据验证保护、数据多级联动输入、关键词模糊智能匹配输入）中，用了一些customxmlPart技术来存储配置信息，同时在关键词模糊智能匹配输入中，用了一个VSTO开发才能满足的自定义控件技术，很值得启发，拿出来给大家作一分享。

一般来说控件都是放到窗体或任务窗格中，但Excel同样支持将控件放到工作表单元格上，如前面提到的picturebox容器，放到单元格区域上，然后在容器上发图片，实现插入图片功能，同样地也可以存放单选、复选这些控件，当然，严格来说，在VBA环境下也可以完成这些工作。

在VSTO框架下，有一革命性的突破是，可以放我们的自定义控件，这个具体和VBA的自定义Active控件有什么不一样，就不太知道，但起码VSTO放自定义控件，开发成本极低。

自定义控件，可直接用到工作表单元格中

具体实现原理

通过用户配置操作，将需要进行快速录入的区域记录下来，用SelectionChange事件来响应，若用户选择到这些单元格时，就激发事件方法，显示自定义控件，并让光标定位到自定义控件的查找控件TextBox等待用户输入。输入过程中动态控制下方DataGridView的查找结果，用户可以按方向箭下上在结果中选择对应的条目，再按Enter或Tab键确定内容录入。

具体代码

先绑定事件

        internal void ExcelApp_SheetSelectionChangeFastInput(object Sh, Excel.Range Target)
        {
            try
            {
                Globals.ThisAddIn.Application.SheetSelectionChange -= this.ExcelApp_SheetSelectionChangeFastInput;
                FormFastInput.UscFastInput.UserControlTextBox.KeyDown -= FormFastInput.UscFastInput.textBox1_KeyDown;

                if (Target.Cells.CountLarge == 1)
                {
                    FormFastInput.SelectionChangeOfFastInput(Target);
                }
            }
            catch (Exception ex)
            {
                Common.OutMsgError(ex);
            }
            finally
            {
                Globals.ThisAddIn.Application.SheetSelectionChange += this.ExcelApp_SheetSelectionChangeFastInput;
                FormFastInput.UscFastInput.UserControlTextBox.KeyDown += FormFastInput.UscFastInput.textBox1_KeyDown;
            }
        }

响应录入单元格区域的代码，将自定义控件显示尺寸变大，之前有个关键点是隐藏了自定义控件后再显示，焦点不能顺利落到自定义控件的搜索TextBox上，采用了迂回的隐藏时不是真隐藏，只是缩小成1*1像素大小，好像后来其他位置发现了更好解决方案，原代码没有来得及重新改过来。

    public static void SelectionChangeOfFastInput(Excel.Range Target)
    {

        FormFastInput.CurrentSelectCell = Target;

        int fastInputID = GetFastInputID(Target);//找不到有交集时返回int最大值

        if (fastInputID < int.MaxValue)
        {
            FormFastInput.UscFastInput.FastInputID = fastInputID;//传入usc中，下一次textbox事件可以直接用，不用再找。

            ShowUscAndSettingUscFastInputTextBox(Target);

            FormFastInput.UscFastInput.IsTextChanged = false;

            FormFastInput.UscFastInput.DgvSelectedRowIndex = 0;
            FormFastInput.UscFastInput.IsFirstEnterDgv = true;//为了能够在首次为0时仍然是0而不是+1的效果

            SettingUscLableAndFilterDgv(fastInputID);
        }
        else
        {
            //FormFastInput.InputUserControl.Visible = false;
            FormFastInput.InputUserControl.Width = 1; //缩小成1而不是隐藏，为了下次激活时可以顺利进入textbox激活
            FormFastInput.InputUserControl.Height = 1;
        }
    }

有个小细节，在窗体中，怎样控制默认的Enter和Tab键的功能，默认为窗体退出键和TabIndex跳转键，这里有个对一个方法进行重写即可。

        protected override bool ProcessDialogKey(Keys keyData)
        {
            if (keyData == Keys.Enter || keyData == Keys.Tab)
            {
                ReturnValueFromUserControl(keyData);
                return true;
            }
            return base.ProcessDialogKey(keyData);
        }

改变其默认功能后，就可以像其他键一样捕捉其KeyDown事件，例如此处的录入功能中，按Enter是跳转到下一行，按Tab是跳转到右侧列，实现键盘盲打录入不依赖鼠标实现。

   internal void textBox1_KeyDown(object sender, KeyEventArgs e)
        {
            try
            {
                if (this.IsTextChanged)
                {
                    switch (e.KeyCode)
                    {
                        case Keys.Down:
                            if (this.IsFirstEnterDgv == true || this.DgvSelectedRowIndex == this.dataGridView1.Rows.Count - 1)
                            {
                                this.DgvSelectedRowIndex = 0;
                                this.IsFirstEnterDgv = false;
                            }
                            else
                            {
                                this.DgvSelectedRowIndex++;
                            }
                            RedirectDgvRow();
                            break;
                        case Keys.Up:
                            if (this.DgvSelectedRowIndex == 0)
                            {
                                this.DgvSelectedRowIndex = this.dataGridView1.Rows.Count - 1;
                            }
                            else
                            {
                                this.DgvSelectedRowIndex--;
                            }
                            RedirectDgvRow();
                            break;

                        case Keys.Tab:
                            ReturnValueFromUserControl(Keys.Tab);
                            break;
                        case Keys.Enter:
                            ReturnValueFromUserControl(Keys.Enter);
                            break;
                        default:
                            break;
                    }
                }
                else//刚刚进到文本框中，想跳出来选择其他单元格时
                {
                    switch (e.KeyCode)
                    {
                        case Keys.Down:
                        case Keys.Enter:
                            FormFastInput.CurrentSelectCell.Offset[1, 0].Select();
                            break;
                        case Keys.Up:
                            FormFastInput.CurrentSelectCell.Offset[-1, 0].Select();
                            break;
                        case Keys.Left:
                            FormFastInput.CurrentSelectCell.Offset[0, -1].Select();
                            break;
                        case Keys.Right:
                        case Keys.Tab:
                            FormFastInput.CurrentSelectCell.Offset[0, 1].Select();
                            break;
                    }
                }


            }
            catch (Exception)
            {
            }
            finally
            {
            }
        }


        private void ReturnValueFromUserControl(Keys keys)
        {

            bool isDgvSelected = this.dataGridView1.Rows.Cast<DataGridViewRow>().Any(s => s.Selected); //当dgv有选择列时

            if (isDgvSelected)
            {
                FormFastInput.CurrentSelectCell.Value2 = this.dataGridView1.SelectedRows[0].Cells[FormFastInput.ReturnColIndex].Value;
            }
            else
            {
                FormFastInput.CurrentSelectCell.Value2 = this.textBox1.Text;
            }

            if (keys == Keys.Tab)
            {
                FormFastInput.CurrentSelectCell.Offset[0, 1].Select();
            }
            else if (keys == Keys.Enter)
            {
                FormFastInput.CurrentSelectCell.Offset[1, 0].Select();
            }
        }

结语

在VSTO框架下，有大量微软工程师为我们搭建好的底层技术，使我们在上层构建业务代码时变得如此轻松，此篇给大家展示了在工作表单元格区域上创建自定义控件的能力，发挥得当，较直接弹出窗体的效果要友好得多。

技术交流QQ群

QQ群名：Excel催化剂开源讨论群， QQ群号：788145319

Excel催化剂开源讨论群二维码

关于Excel催化剂

Excel催化剂先是一微信公众号的名称，后来顺其名称，正式推出了Excel插件，插件将持续性地更新，更新的周期视本人的时间而定争取一周能够上线一个大功能模块。Excel催化剂插件承诺个人用户永久性免费使用！

Excel催化剂插件使用最新的布署技术，实现一次安装，日后所有更新自动更新完成，无需重复关注更新动态，手动下载安装包重新安装，只需一次安装即可随时保持最新版本！

Excel催化剂插件下载链接：https://pan.baidu.com/s/1Iz2_NZJ8v7C9eqhNjdnP3Q

联系作者

公众号

取名催化剂，因Excel本身的强大，并非所有人能够立马享受到，大部分人还是在被Excel软件所虐的阶段，就是头脑里很清晰想达到的效果，而且高手们也已经实现出来，就是自己怎么弄都弄不出来，或者更糟的是还不知道Excel能够做什么而停留在不断地重复、机械、手工地在做着数据，耗费着无数的青春年华岁月。所以催生了是否可以作为一种媒介，让广大的Excel用户们可以瞬间点燃Excel的爆点，无需苦苦地挣扎地没日没夜的技巧学习、高级复杂函数的烧脑，最终走向了从入门到放弃的道路。

最后Excel功能强大，其实还需树立一个观点，不是所有事情都要交给Excel去完成，也不是所有事情Excel都是十分胜任的，外面的世界仍然是一个广阔的世界，Excel只是其中一枚耀眼的明星，还有其他更多同样精彩强大的技术、工具等。*Excel催化剂也将借力这些其他技术，让Excel能够发挥更强大的爆发！

关于Excel催化剂作者

姓名：李伟坚，从事数据分析工作多年（BI方向），一名同样在路上的学习者。
服务过行业：零售特别是鞋服类的零售行业，电商（淘宝、天猫、京东、唯品会）

技术路线从一名普通用户，通过Excel软件的学习，从此走向数据世界，非科班IT专业人士。
历经重重难关，终于在数据的道路上达到技术平原期，学习众多的知识不再太吃力，同时也形成了自己的一套数据解决方案（数据采集、数据加工清洗、数据多维建模、数据报表展示等）。

擅长技术领域：Excel等Office家族软件、VBA&VSTO的二次开发、Sqlserver数据库技术、Sqlserver的商业智能BI技术、Powerbi技术、云服务器布署技术等等。

2018年开始职业生涯作了重大调整，从原来的正职工作，转为自由职业者，暂无固定收入，暂对前面道路不太明朗，苦重新回到正职工作，对Excel催化剂的运营和开发必定受到很大的影响（正职工作时间内不可能维护也不可能随便把工作时间内的成果公布于外，工作外的时间也十分有限，因已而立之年，家庭责任重大）。

和广大拥护者一同期盼：Excel催化剂一直能运行下去，我所惠及的群体们能够给予支持（多留言鼓励下、转发下朋友圈推荐、小额打赏下和最重点的可以和所在公司及同行推荐推荐，让我的技术可以在贵司发挥价值，实现双赢（初步设想可以数据顾问的方式或一些小型项目开发的方式合作）。