如何从数据库检索值不同时更改Excel单元格？

单元格的符号是$ {detalhes.origim.name（）}，在单元格中返回一个string，但string的名称总是“TEST_TEST”，但是我需要在这个电子表格上重命名为“Teste beautiful form”。 这个符号可以返回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：

 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