qhgj.net
当前位置:首页 >> vBA有关SuB WorkshEEt_ChAngE(ByVAl TArgEt As RAn... >>

vBA有关SuB WorkshEEt_ChAngE(ByVAl TArgEt As RAn...

ran.Parent.Name 关键字Parent:父对象

如果你需要一打开这个Excel文件就自动判断,那么新建一个模块,然后输入 Sub auto_open() With Sheets("sheet1") Dim tToday As Date tToday = Date Dim rRan As Range Set rRan = .Cells(1, 1) Do While rRan.Value "" .Rows(rRan.Row).Interio...

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