VB.NET 开发Excel插件功能大全

VBNET开发的Excel插件功能齐全

以下是【E-大通】工具箱按钮功能源码

想要获取【E-大通工具箱】的朋友可以关注官方微信并回复E-大通即可获取

想要学习EdatongToolbox源码的朋友可以继续点击阅读更多

PrivateSub深层隐藏表单按钮Click(senderAsObject,eAsRibbonControlEventArgs)处理深层隐藏表单按钮ClickappActiveSheetviseble2MsgBox('隐藏成功!')Endsub

备份工作簿按钮PrivateSubClick(senderAsObject,eAsRibbonControlEventArgs)处理备份工作簿按钮。ClickappActiveWorkbookSaveAs(appActiveWorkbookPath''appActiveWorkbookName'-Backup'Format(Now,'yyyy-mm-dd-HH-MM-SS')'xls')MsgBox('备份成功，备份在原工作文件夹中')EndSub

PrivateSub从工作簿中提取注释按钮Click(senderAsObject,eAsRibbonControlEventArgs)Handles从工作簿中提取注释按钮ClickDimshtAsExcelWorksheetDimpzAsExcelCommentDimarr(),brr()Dimi0ForEachshtInappActiveWorkbookWorksheetsForEachpzInshtCommentsReDimPreservearr(0Toi)'保留原始数据并重置为Mark数组ReDimPreservebrr(0Toi)'保留原始数据并重置数组下标brr(i)shtName'提取sheetarr(i)pzText'提取i1NextNext注释

Dim启动单元格输出AsE??xcelRangeappInputBox('选择单元格开始输出',Type:8)启动单元格输出。Resize(UBound(brr)1,1)ValueappWorksheetFunctionTranspose(brr)开始从Cell输出。偏移(0,1)Resize(UBound(arr)1,1)ValueappWorksheetFunctionTranspose(arr)EndSub

PrivateSub提取有效性表达式按钮Click(senderAsObject,eAsRibbonControlEventArgs)Handles提取有效性表达式按钮ClickOnErrorGoToline1'错误跳转，当没有配置时，判断会导致错误----此时跳转到line1DimmyrangeAsExcelRangeDim输出AsExcelRangeappInputBox('选择输出单元格','提示',Type:8)Dimarr()'定义一维数组Dimbrr(,)'定义一维数组

myrangeappInputBox('选择有效单元格','提示',,,,,,8)

IfmyrangeValidationType>0Then'当不存在有效性时，使用myrange时会报错，跳转终止输出ValuemyrangeValidationFormula1'获取有效性字符串表达式如果单元格表达式$A$1选择：$A$10，需要处理EndIf

line1:MsgBox('该单元格没有设置有效性，无法提取数据！',vbCritical,'提取有效性字符串'):ExitSubEndSub

单元格内容导入注释按钮PrivateSubClick(senderAsObject,eAsRibbonControlEventArgs)处理单元格内容导入注释按钮ClickOnErrorResumeNextDimrngAsExcelRangeappInputBox('选择导入区域',Type:8)ForEachrgAsExcelRangeInrngWithrgIfMsgBox('附加文字?',MsgBoxStyleYesNo)MsgBoxResultYesThenDimpzAsStringrgCommentText'提取评论ClearComments()'删除评论AddCommentText(pzChr(10)rgValue)'引入注释中的内容ElseClearComments()'删除注释AddCommentText(rgValue)'输入注释中的内容EndIf

EndWithNextMsgBox('导入完成！')EndSub