ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 253|回复: 3

很简单取表名的问题,但是我不明白,请大家帮帮忙

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-1-1 23:06 | 显示全部楼层 |阅读模式
初学者,请大家莫嫌弃.
是这样的,我需要在当前表取a列取得此工作簿的所有的表名.写了vba是这样的.

第一种写法---正确
Sub 取表名()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(1).Range("a" & i ) =Sheets(i).Name
Next

End Sub


第二种写法for each--正确
Sub test()
Dim sht As Worksheet
Dim i As Integer
For Each sht In Worksheets
  i = i+ 1

       Range("a" & i) = sht.Name
Next
End Sub

第三种写法---for each+for的循环--错误

Sub 取表名错误写法()

    Dim sht AsWorksheet
    Dim i AsInteger
    For Eachsht In Worksheets
    For i = 1To Sheets.Count
Range("a" & i)= sht.Name
‘就是这里出现了巨大错误,a1-a10都等于最后一张表的名字
    Next
    Next
End Sub


我就不明白了

for i=1 tosheets.count 与 i=i+1 大家不都差不多嘛???结果确实不一致.我的脑袋敲破了,也想不出来.请各位亲朋好友们帮帮忙~



TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-1 23:08 | 显示全部楼层
其实,我的问题集中在最后一句话哈,不想看代码的朋友们,直接看最后一句就好了

TA的精华主题

TA的得分主题

发表于 2020-1-2 23:08 来自手机 | 显示全部楼层
楼主你好,我也是一个初学者
看到你的帖子我仔细百度了一下
下面是我的理解,可能会有错误,注意分辨
1、首先For Each sht In Worksheets 就是一个有多少个工作表循环多少次。
2、   For i = 1To Sheets.Count
Range("a" & i)= sht.Name   
重点在sht.Name,它表示的是for each状态下第几次循环的工作表名字,在每次For Each sht In Worksheets的循环里面,它是一个定值,代表着第几次循环的工作表名字
不管For i = 1To Sheets.Count 中的i=多少
在每一次for each 那个大的循环中
Range("a" & i)= sht.Name   中sht.Name是一个循环中的工作表名字
所以每次a1-a10的值都是一样的
它是一个过程,先是全部等于第一张工作表名字,然后全部等于第二张工作表的名字,然后第三张,一直到等于最后一张工作表表的名字,这个时候For Each sht In Worksheets循环结束结束(看1、),也就导致了全部等于最后一张工作表的名字。

TA的精华主题

TA的得分主题

发表于 2020-1-4 10:48 | 显示全部楼层
Sub tt()
Dim sht As Worksheet
    Dim i As Integer
    i = 1
    For Each sht In Worksheets
    Range("a" & i) = sht.Name
    i = i + 1
    Next
End Sub
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-1-20 05:03 , Processed in 0.378678 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表