.net实战(VB):Excel侧边栏窗口

xwLink1996

已于 2024-08-16 14:32:09 修改

阅读量932

点赞数 17

分类专栏： VB.net 文章标签： .net excel

于 2024-08-12 10:24:39 首次发布

本文链接：https://blog.csdn.net/nianfen/article/details/141122647

版权

先上效果图

再上代码

Public Class ThisAddIn
    Public WithEvents AboutTaskPan As Microsoft.Office.Tools.CustomTaskPane
    Dim userAbout As New UserControl2
    Dim sheet As Excel.Worksheet
    Private Sub ThisAddIn_Startup() Handles Me.Startup
        ' 获取当前活动的工作表
        sheet = Globals.ThisAddIn.Application.ActiveSheet
        ' 为SelectionChange事件添加事件处理器
        AddHandler sheet.SelectionChange, AddressOf Sheet_SelectionChange
        Debug.WriteLine(sheet.Name)
        'MessageBox.Show(sheet.Name)
        AboutTaskPan = Globals.ThisAddIn.CustomTaskPanes.Add(userAbout, "查询库存")
        AboutTaskPan.Width = 840
        AboutTaskPan.Visible = False
        AboutTaskPan.DockPosition = Microsoft.Office.Core.MsoCTPDockPosition.msoCTPDockPositionRight
        '添加自定义任务面板，将会显示