当从数据库中重新获取的值不同时，如何更改Excel单元格？

Question

单元格的符号是$ {detalhes.origim.name（）}，在单元格中返回一个字符串，但字符串的名称始终为＆＃34; TEST_TEST＆＃34;但我需要在这个电子表格上重命名为＆＃34; Teste漂亮的形式＆＃34;。这种表示法只能返回4个不同的名称。有没有办法在Excel上使用开关盒？ TY。

我在vba上尝试模块但没有工作，我怎么能重命名呢？ 代码我尝试：

Dim score As String, result As String
score = Range("F5").Value

Select Case score
   Case "CONTAS_PAGAR"
      result = "Contas a pagar"
   Case "CONTAS_RECEBER"
      result = "Contas a receber"
   Case "MOVIMENTO_BANCARIO"
      result = "Movimento bancário"
   Case "MOVIMENTO_CAIXA"
      result = "Movimento de caixa"
   Case Else
      result = "Não encontrado"
End Select
Range("F6").Value = result

Answer 1

如果打包在 SUB（）：

中，您的代码就可以使用

Sub vini()
    Dim score As String, result As String

    score = Range("F5").Value

    Select Case score
       Case "CONTAS_PAGAR"
          result = "Contas a pagar"
       Case "CONTAS_RECEBER"
          result = "Contas a receber"
       Case "MOVIMENTO_BANCARIO"
          result = "Movimento bancário"
       Case "MOVIMENTO_CAIXA"
          result = "Movimento de caixa"
       Case Else
          result = "Não encontrado"
    End Select
    Range("F6").Value = result
End Sub

修改＃1：

作为一项功能：

Function vini(score As String) As String
    Select Case score
       Case "CONTAS_PAGAR"
          result = "Contas a pagar"
       Case "CONTAS_RECEBER"
          result = "Contas a receber"
       Case "MOVIMENTO_BANCARIO"
          result = "Movimento bancário"
       Case "MOVIMENTO_CAIXA"
          result = "Movimento de caixa"
       Case Else
          result = "Não encontrado"
    End Select

    vini = result
End Function