hhjc.net
当前位置:首页 >> shEEts >>

shEEts

Sub aaa() For n = 1 To ThisWorkbook.Sheets.Count If Sheets(n).Name = "文件" Then Exit For Next MsgBox "工作表“文件”的编号n是" & n End Sub

nsheets指的是excel文件内sheets的数目,range就是Python的语法了,这句话的意思就是生成sheets的索引列表。 如果解决了您的问题请采纳! 如果未解决请继续追问

worksheets是指你当前非活动表,而sheets是当前活动表,每个是Sheet是一个工作簿,各个sheet就构成了 sheets,也就是工作表了。如果你同时打开book1和book2,但你对book1进行操作的时候,book1所属的就可以写sheets,而book2就是worksheets。

Sheets.Count '获取本工作簿工作表的数目 Sheets(Sheets.Count) '调用排在最后一位的工作表 Sheets(Sheets.Count).Name '获取最后一个工作表的名称 Val(Sheets(Sheets.Count).Name) '利用Val函数将最后一个工作表的名称转换成数值 i = Val() '将...

直接用sheet1.activavte

Sheets 对象 指定的或活动工作簿中所有工作表的集合。 说明 Sheets 集合可以包含 Chart(代表工作簿中的图表工作表) 或 Worksheet(代表一个工作表) 对象。 如果希望返回所有类型的工作表,Sheets 集合就非常有用。 Worksheets 对象 指定的或活动...

使用如下代码将实现,输入一个名称,如果存在名为该输入值的sheet则跳转,不存在则创立后跳转。 Sub SheetSelect()On Error GoTo 1Dim mySheet As StringmySheet = Application.InputBox("输入要寻找的sheet", Type:=1)Worksheets(mySheet).Sele...

Sub aaa() For i = 1 To 20 Sheets.Add(after:=Sheets(Sheets.Count)).Name = "mysheets" & i NextEnd Sub

for i=1 to 9 sheets("sheet1").range("a" & i)=sheets("sheet2").range("a" & i) next i

active针对工作簿或者工作表不作激活操作使用,而是作为判定使用。应该使用Activate。 ActiveWorkbook或者ActiveSheet都没问题,但是workbook.active或者worksheet.active都存在问题。 另外sheets需要指明sheet的序号或者名称。 正确如下: Acti...

网站首页 | 网站地图
All rights reserved Powered by www.hhjc.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com