日语谢谢怎么说老师帮帮忙，谢谢

来源：蜘蛛抓取(WebSpider) 时间：2017-01-30 04:26 标签： 老师帮帮忙utgreat
查看: 2066|回复: 10
[已解决]求一段代码，请各位老师帮帮忙，谢谢！
请各位老师帮帮忙写一段代码VBA代码，要求将工作簿内的C、D、E、F等多个工作表深度隐藏，谢谢！
最后登录 21:51&注册时间 08:20&金币20 &积分26&帖子&
c8/common_2_usergroup_icon.gif
金币20 &积分26&帖子&
爱疯发布于
Sub yc() '隐藏&&&&Dim arr, i%, j%&&&&arr = [{"C","D","E","F"}]&&&&For i = 1 To Worksheets.Count&&&&&&&&For j = 1 To
UBound(arr)&&&&&&&&&&&&If arr(j) = Sheets(i).Name Then&&&&&&&&&&&&&&&&Sheets(i).Visible = 0&&&&&&&&&&&&End
If&&&&&&&&Next j&&&&Next iEnd
SubSub byc() '不隐藏&&&&Dim arr, i%, j%&&&&arr = [{"C","D","E","F"}]&&&&For i = 1 To Worksheets.Count&&&&&&&&For j = 1 To
UBound(arr)&&&&&&&&&&&&If arr(j) = Sheets(i).Name Then&&&&&&&&&&&&&&&&Sheets(i).Visible = -1&&&&&&&&&&&&End
If&&&&&&&&Next j&&&&Next iEnd
等怎样界定呢？
需要隐藏的工作表，只要在VBA 添加上相应的工作表名即可实现隐藏。
[此贴子已经被作者于 15:46:35编辑过]
Sub 按钮1_Click()&&&&Dim arr&&&&Dim i%&&&&Dim str$, s$&&&&arr = [{"C","D","E"}]&&&&str = Join(arr, ",")&&&&For i = 1 To Worksheets.Count&&&&&&&&s = "*" & Sheets(i).Name & "*"&&&&&&&&If str Like s Then Sheets(i).Visible = xlSheetVeryHidden&&&&Next iEnd
"...只要在VBAH 添加上相应的工作表名..."这是什么意思呀
以下是引用爱疯在 11:03:00的发言：Sub 按钮1_Click()&&&&Dim arr&&&&Dim i%&&&&Dim str$, s$&&&&arr = [{"C","D","E"}]&&&&str = Join(arr, ",")&&&&For i = 1 To Worksheets.Count&&&&&&&&s = "*" & Sheets(i).Name & "*"&&&&&&&&If str Like s Then Sheets(i).Visible = xlSheetVeryHidden&&&&Next iEnd&&Sub　学习一下，这也用上数组啦
可以写成自动运行的VBA代码吗？
请楼主详细说明要求。
Dim i% 是什么意思啊
要取消隐藏呢，该怎样改动VBA?
|||Excel精英培训
Powered by下载作业帮安装包
扫二维码下载作业帮
1.75亿学生的选择
帮忙翻译成日语，会的帮帮忙，谢谢时光飞逝，多少坎坷岁月在足下踏过，多少风风雨雨曾经走过，童年与少年的两把钥匙已经埋葬在每个人的的心底，可是过去的就让它过去吧，如今手中抓住的是青春花朵的钥匙。每个人都拥有青春，无论那是否是曾经，是否紧握手中，是否是翘首一待，我们总是相信，并且坚信不移！中间夹杂着幸福的甜蜜，悲伤的苦涩，不忍的酸楚，惊险的火辣；一个深邃眼神的陶醉，一句平淡蕴籍的话语，一段粉色罗曼的邂逅，一声最最温暖的的祝福，美幻得如此倾国倾城，感动得如此泪流满面，纯净得如此冰魂雪魄，执着得如此无怨无悔……此刻的我更加相信这含苞欲放的青春花朵是生命的奇迹，是人生的回忆，是成长的路程。是啊！少年是无忧无虑，青春是梦想，是向往！年热情奔放，少年朝气蓬勃，相信青春是一盆火，融融的热烈，汪汪的光明。人生仅此一回，青春也不会久远，人生有许多年代，童年与少年的我们懵懂天真。既没有鸡尾酒的轰轰烈烈，也没有清茶的平淡而浓郁，青春时期我们该去理解，该去尝试，该去享受。青春是活力，让我们抓紧现在，青春是向往，让我们勇攀高峰，青春是被激起的浪花，让我们充满动力。将来有一天，当我们站在人生最后的门槛前，回首这段乐章，它永远是一个闪光点，正是因为它曾经给我们的创造空间，让我们以最博大的爱和关怀呼喊道；炫耀吧！璀璨的明珠---青春！
自然醒猩戏4
时间飞んで死去して、どれだけのでこぼこな歳月贵下で踏んだことがあって、どれだけの风雨は歩いたことがあってことがある、少年时代少年の2つの键とすでにすべての人の心の底で埋葬して、しかし过去のはそれの过去を譲るようにしましょう、今のところ手は捉えるの青春の花の键です。すべての人はすべて青春を持って、あれはでことがあるかどうかに関わらず、手を强く握るかどうか、头を上げて待つのとだかどうか、私达はいつも信...
光阴が飞んでいって、数えられぬ歳月を足元で踏んでいた。いくつの风雨から抜け出したが子供时代や少年时代へ通る键もう心底に埋められた。过去のことを过去にして、今さら、青春の键をしっかり握っている筈のところだ。谁にも青春が持てられる、昔のことになっても、手に握られているかどうか、期待されているかどうか、青春には梦があると信じる。青春の旅には幸せの楽しさ、悲伤の悲しさ、忍べない时の辛さ、スリル时のひりひり...
长い歳月、多少はバンピー歳月足下を踏んだことが、どのくらいの风雨のこと、子供が少年の键はふたつが埋葬された一人一人の心の底だったけれど、过去のは过去かですが、最近では取った青春花の键。毎人が保有しているかどうかを问わず、それは青春を握りしめていたのか、それとも手があるのかどうか、一首を信じて、そして、私たちは常にと信じ込んでいる!中间に混じって、幸せなスイート、悲しみの苦みのように忍びざるの酸楚、...
为您推荐：
扫描下载二维码

我要回帖

更多关于 老师帮帮忙utgreat 的文章

 

随机推荐