有没有办法使用按钮而不是使用函数来反转一系列字符串?

时间:2016-10-26 19:37:19

标签: excel excel-vba vba

我知道有一种方法可以在excel中反转字符串(甚至这会在电子表格中引发一个#NAME?错误),但我不想在电子表格中调用函数。我反而想用一个按钮来为我执行操作。

但是,我可以亲自进入并反转一个,但我不确定语法(对于这种方法),如果我想这样做4次。这将反转我想要的值,并按下按钮将其切换回原始值,但是如何为同一范围内的其他条目执行此操作?

Private Sub btnReverse_Click()
Select Case btnReverse.Value
Case True
Sheet1.Range("D38:D41").Columns.Replace _
What:="iphone", Replacement:="enohpi" _

Case False
Sheet1.Range("D38:D41").Columns.Replace _
What:="enohpi", Replacement:="iphone" _
End Select
End Sub

1 个答案:

答案 0 :(得分:0)

StrReverse

Private Sub btnReverse_Click()
    For Each cell In [D38:D41]
        cell.Value = StrReverse(cell.Value)
    Next
End Sub