一键开启关闭函数

TyTools · 发表于 2024-10-19 07:37

各位老师达人我想自由随时的开启一个应用程序就是我写了一个程序我想用时我就按一个功能键比如“f1”
就开启反之就关闭
不知道我这想法excel原来就有还是没有没有要怎么实现呢？

wp231957 · 发表于 2024-10-19 08:37

这东西很难，excel你就别想了

wj65134 · 发表于 2024-10-19 09:16

不用函数用vba

你是那块小饼干 · 发表于 2024-10-19 09:34

去VBA模板那玩意儿能搞

mykitami · 发表于 2024-10-19 09:37

函数是不行，用VBA吧

leepoison · 发表于 2024-10-19 09:37

本帖最后由 leepoison 于 2024-10-18 14:36 编辑

VBA,
1.先判断sheet2是否为空。
如果为空，将sheet1有公式的所有格内的公式不带等号，剪切到sheet2对应的位置，并隐藏sheet2
如果不为空，将sheet2有公式的所有格内的公式带等号，剪切到sheet1对应的位置，并隐藏sheet2

Sub MoveFormulasWithCheck()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = ThisWorkbook.Sheets("Sheet1")
Set ws2 = ThisWorkbook.Sheets("Sheet2")
Dim isSheet2Empty As Boolean
isSheet2Empty = True
' 判断 Sheet2 是否为空
For Each cell In ws2.UsedRange
If Not IsEmpty(cell.Value) Then
isSheet2Empty = False
Exit For
End If
Next cell
If isSheet2Empty Then
MoveFormulasFromSheet1ToSheet2 ws1, ws2
ws2.Visible = xlSheetHidden
Else
MoveFormulasFromSheet2ToSheet1 ws1, ws2
ws2.Visible = xlSheetHidden
End If
End Sub
Sub MoveFormulasFromSheet1ToSheet2(ws1 As Worksheet, ws2 As Worksheet)
Dim cell As Range
For Each cell In ws1.UsedRange
If cell.HasFormula Then
ws2.Cells(cell.Row, cell.Column).Value = Mid(cell.Formula, 2)
cell.ClearContents
End If
Next cell
End Sub
Sub MoveFormulasFromSheet2ToSheet1(ws1 As Worksheet, ws2 As Worksheet)
Dim cell As Range
For Each cell In ws2.UsedRange
If Not IsEmpty(cell.Value) Then
ws1.Cells(cell.Row, cell.Column).Formula = "=" & cell.Value
cell.ClearContents
End If
Next cell
End Sub

复制代码

TyTools · 发表于 2024-10-19 11:12

谢谢各位我去Vba版块发个帖看看

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

[求助] 一键开启关闭函数

评分