需求：基于Volatile function或宏实现电子表格双值交替切换轮次系统

一、宏实现（手动触发切换） #

编写VBA宏，每次运行时直接切换B1单元格的显示内容：

Sub ToggleText()
    ' 指定目标工作表，可替换为实际表名，如ThisWorkbook.Sheets("Sheet1")
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 读取A列的两个文本值
    Dim text1 As String, text2 As String
    text1 = ws.Range("A1").Value
    text2 = ws.Range("A2").Value
    
    ' 判断当前值并执行切换
    If ws.Range("B1").Value = text1 Then
        ws.Range("B1").Value = text2
    Else
        ws.Range("B1").Value = text1
    End If
End Sub

使用步骤： #

• 按下Alt+F11打开VBA编辑器
• 右键当前工作簿 → 插入 → 模块
• 将上述代码粘贴到模块中
• 回到工作表，按下Alt+F8选择ToggleText宏运行，每次运行即可完成一次切换

二、Volatile易失性函数实现（自动/手动触发切换） #

通过易失性函数实现，每次工作表计算时自动切换，也可手动触发刷新：

Function ToggleVolatile() As String
    ' 标记为易失性函数，强制每次计算时刷新
    Application.Volatile True
    
    Dim ws As Worksheet
    Set ws = Application.Caller.Parent
    
    Dim text1 As String, text2 As String
    text1 = ws.Range("A1").Value
    text2 = ws.Range("A2").Value
    
    ' 用C1单元格存储切换状态（0=显示TEXT1，1=显示TEXT2），可隐藏该单元格避免误操作
    If ws.Range("C1").Value = "" Then
        ws.Range("C1").Value = 0
        ToggleVolatile = text1
    Else
        If ws.Range("C1").Value = 0 Then
            ws.Range("C1").Value = 1
            ToggleVolatile = text2
        Else
            ws.Range("C1").Value = 0
            ToggleVolatile = text1
        End If
    End If
End Function

使用步骤： #

• 按上述宏的方式插入模块并粘贴代码
• 在B1单元格输入公式 =ToggleVolatile()，初始会显示TEXT1
• 手动触发切换：按下F9刷新工作表；或修改任意单元格触发自动计算，即可完成切换

可选优化： #

如果不想用单元格存储状态，可通过名称管理器创建一个名为ToggleState的名称，将状态值存在名称中，修改函数代码读取该名称的值即可。

内容的提问来源于stack exchange，提问作者Ralu Carmichael