VBA 代码将此公式放在除当前 (MAIN) 活动工作表之外的所有工作表上

rayhen · 发表于 2022-11-26 13:12

本帖最后由 rayhen 于 2022-11-26 13:54 编辑

将此公式 =HYPERLINK("#"&"MAIN"&"!A1","Go Home") 复制到除当前 (MAIN) 活动工作表之外的所有工作表单元格 Q1 位置

除了 MAIN 工作表 Q1 單元格不要公式,其它工作表 Q1 都要那公式 =HYPERLINK("#"&"MAIN"&"!A1","Go Home")

有人可以帮帮我吗？将不胜感激

02761752696 · 发表于 2022-11-26 13:24

简单操作一下就行，同时选中要添加的工作表，在选中单元格写入要写的信息就行
不明白具体看动画

rayhen · 发表于 2022-11-26 13:31

请问老师这代码为舍不起作用呢 ?

Sub addformula()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "MAIN" Then
[Q1] = "=HYPERLINK(""#""&""MAIN""&""!A1"",""Go Home"")"
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

复制代码

rayhen · 发表于 2022-11-26 13:35

本帖最后由 rayhen 于 2022-11-26 13:40 编辑

谢谢老师!不是这意思,MAIN 工作表Q1单元格不要,其它工作表 Q1单元格要置入这公式 =HYPERLINK("#"&"MAIN"&"!A1","Go Home")

是很多张工作表 (1~60) 不止 1~3 张

02761752696 · 发表于 2022-11-26 13:47

rayhen 发表于 2022-11-26 13:35
谢谢老师!不是这意思,MAIN 工作表Q1单元格不要,其它工作表 Q1单元格要置入这公式 =HYPERLINK("#"&"MAIN"&" ...

除MAIN表其它都写入

rayhen · 发表于 2022-11-26 13:55

太感谢老师了帮了大忙

		自动登录	找回密码
密码			免费注册

[已解决] VBA 代码将此公式放在除当前 (MAIN) 活动工作表之外的所有工作表上

评分

评分