gpt4 book ai didi

java - 当从数据库检索的值不同时如何更改 Excel 单元格?

转载 作者:行者123 更新时间:2023-12-02 12:44:47 26 4
gpt4 key购买 nike

单元格的符号是 ${detalhes.origim.name()},在单元格中返回一个字符串,但字符串的名称始终是“TEST_TEST”,但我需要在此电子表格上重命名为“Teste beautiful form”之类的名称。此表示法只能返回 4 个不同的名称。有没有办法在Excel上使用switch case? 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

最佳答案

如果打包在 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

enter image description here

编辑#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

enter image description here

关于java - 当从数据库检索的值不同时如何更改 Excel 单元格?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/44808356/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com