使用vsto移植vba-預(yù)覽頁(yè)
【正文】 ”。 ( KB, 下載次數(shù): 10)下載附件 保存到相冊(cè)20101221 10:59 上傳拖放“Butten”到新建的Tab區(qū)域，在右下的屬性窗口中修改相應(yīng)的屬性，如Lable屬性值改為“遍歷工作表”，添加圖標(biāo)、更改ControlSize屬性為“RibbonControlSizeLarge”。Imports Imports Excel = Public Class Ribbon1Public ProtectOffOnamp。 i.range(B amp。, kamp。 Chr(10) amp。 獲取特定名稱工作表的位置: amp。 Chr(10) amp。 選擇工作表。數(shù)組從0開(kāi)始For i = j + 1 To .Arr(i j 1, 0) = .Worksheets(i).NameNext i = ArrEnd WithEnd SubSub Button2_Click(ByVal sender As , ByVal e As ) Handles With .Worksheets(工作表目錄).select()If ProtectOffOn = 0 Then.Worksheets(工作表目錄).protect(password:=123456)ProtectOffOn = 1MsgBox(工作表已保護(hù)！再次點(diǎn)擊此按鈕會(huì)解除保護(hù)。)With .Worksheets(.).delete()End WithEnd SubPrivate Sub Button5_Click(ByVal sender As , ByVal e As ) Handles MsgBox(此示例在最后增加一個(gè)工作表。 .).end(3).row.range(A1:B a
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1