如何取出excel中的工作表名和工作薄名说课材料.docVIP

如何取出excel中的工作表名和工作薄名 1、如果[kl.xls]Sheet1!a3:b8在A1 工作簿名=mid（A1，find（[，A1)+1,find(],A1)-find（[，A1)-1) 工作表名=mid（A1，find（]，A1)+1,find(!,A1)-find（]，A1)-1) 2、如果 没有可以输入没有可以把A1换成cell（filename) 工作薄名 =MID(CELL(filename),FIND([,CELL(filename))+1,FIND(],CELL(filename))-FIND([,CELL(filename))-1) 工作表名 =MID(CELL(filename),FIND(],CELL(filename))+1,255) 3、取出工作薄中所有工作表名 方法一：定义名称X=GET.WORKBOOK(1)就可以了 然后，在A1中以数组公式输入=index(x,row(1:1)),向下复制，可以得到本工作簿所有的表名。 方法二：不过定义A=GET.WORKBOOK(1)，通过公式=INDEX(a,ROW(1:1))求出的结果包括工作簿名和工作表名。我只想要工作表名。 定义工作表=REPLACE(GET.WORKBOOK(1),1,FIND(],GET.WORKBOOK(1)),)T(NOW())然后输入=工作表即可得出首个工作表。 再定义“所有工作表”==LOOKUP(ROW(INDIRECT(1:COLUMNS(工作表))),MATCH(工作表,工作表,),工作表),输入=所有工作表 可以得出所有工作表。（必须选中多个单元格以数组形式输入） 方法三：能取得工用表名，并自动链接，给我工作带来不少方便，代码如下： Sub 输出工作表并链接() Dim i As Integer Application.ScreenUpdating = FTrue With ActiveSheet For i = 1 To Sheets.Count .Hyperlinks.Add .Range(a i), , Sheets(i).Name !A1, , Sheets(i).Name With Sheets(i) If .Name 目录 Then .Activate .Hyperlinks.Add .Range(a1), , Sheets(1).Name !A1, , 返回目录 Sheets(目录).Activate End If End With Next i End With Application.ScreenUpdating = True End Sub 小学音乐乐理知识汇总 一年级： 1.要掌握好歌曲节奏，认识五线谱或简谱音阶，要学会说唱音高，纠正走调。 2.能读出四分.和八分节奏的不同。 3.能感觉出两拍子和三拍子的不同。 4.能听辩出音的长短。 二年级： 1.要学会手势音阶，唱准，能够听唱歌曲，认识简单音符。 2.认识弱起小节。 3.认识附点 4.认识反复记号，知道其作用。 5.认识字母谱，用唱名唱出旋律。 6.认识重音记号。 三年级： 1.会识谱唱歌。 2.掌握个别音符时值。 3.认识升降记号，掌握其作用。 4.巩固弱起小节的唱法。 5.复习附点的知识，将附点音符唱准。 6.认识五线谱中的八分休止符。 四年级： 1.要进入二声部训练，能够识唱整首歌曲乐谱，能够听出敲击的节奏，并记录。可自己创编节奏。 2.认识附点四分音符.附点八分音符.顿音记号.连线.升级号.强弱记号。 3.掌握二.三.四拍子的指挥简单手势。 4.初步培养学生的欣赏能力，并能简述音乐含义。 5.了解简单的音乐创编知识，间奏.乐器等。 五年级：