excel - 在公式栏中隐藏公式

Question

当我在 Visual Basic 中使用下面所示的代码时，HYPERLINK 部分出现在工作表的公式栏中。我只想在公式栏中显示 "TextHere"。

我可以添加哪些额外代码？我尝试通过在保护选项卡中更改其属性来隐藏它，但它不允许我再编辑文本。我希望它仍然易于编辑。

Sub IndexingSheets()
    Sheets(1).Range("A1").Formula = _
    "=HYPERLINK(""#" & ThisWorkbook.Sheets(2).Name & "!A2"", ""TextHere"")"
End Sub

Answer 1

如何在公式栏中隐藏公式
让我演示一下从公式栏中隐藏公式的两种方法

<小时/>

No1。

要从公式栏中隐藏公式，您必须设置 HiddenFormula property the Range object为真
它仅在工作表受到保护时起作用
所以这里的技巧是:
-> 选择所有单元格并解锁它们以进行编辑
-> 选择您想要隐藏公式的单元格并锁定它们
-> 保护纸张

选择所有单元格并将其解锁以进行编辑
-> 选择所有单元格，右键单击任意位置以设置单元格格式。转到保护选项卡并取消选择锁定

选择要隐藏公式的单元格并锁定它们
-> 选择A1，右键单击，转到保护选项卡，然后选择锁定和隐藏

保护纸张
-> 单击Review 选项卡，然后单击Protect Sheet 并确定(无需密码)


现在请注意，您仍然可以编辑除 A1 之外的任何单元格。看看公式栏 - 没有公式!它是隐藏的!

<小时/>这是一个 VBA 解决方案:

Sub HideTheFormula()

    Dim ws As Worksheet
    Set ws = Sheets(1)

    Call IndexingSheets

    Call Setup(ws)
    Call ProtectSheet(ws)
    'Call UnprotectSheet(ws)

End Sub

Sub IndexingSheets()
    Sheets(1).Range("A1").Formula = _
    "=HYPERLINK(""#" & ThisWorkbook.Sheets(2).Name & "!A2"", ""TextHere"")"
End Sub

Sub ProtectSheet(ByRef ws As Worksheet)
    'ws.Protect userinterfaceonly:=True
    ws.Protect
End Sub

Sub UnprotectSheet(ByRef ws As Worksheet)
    ws.Unprotect
End Sub

Sub Setup(ByRef ws As Worksheet)
    With ws.Cells
        .Locked = False
        .FormulaHidden = False
    End With
    ws.Range("A1").Locked = True
    ws.Range("A1").FormulaHidden = True
End Sub

<小时/>

No2。

使用新电子表格将此代码插入新的 VBE(ALT+F11) 模块。从View Macros窗口执行Main宏(ALT+F8)

Sub Main()
    With Range("A1")
        .Formula = "=1+1"
    End With

    With Range("A2")
        .Formula = "=1+1"
        .Value = .Value
    End With
End Sub

执行后查看工作表范围A1和A2
当选择 A1 并查看公式栏时，您可以看到公式 =1+1，
但是，当您选择 A2 时，即使您已将公式放入单元格中，它也会被计算并隐藏所以现在它显示评估值(多酷!)


例如，当您从关闭的工作簿中提取值时，同样的原则也适用

Sub PullValueFromAClosedWorkbooksRange()
    With Range("A1")
        .Formula = "='C:\Users\admin\Desktop\[temp.xlsm]Sheet1'!A1"
        .Value = .Value
    End With
End Sub