首页 > 解决方案 > 将单位厘米 (Cm) 转换为米 (m) 和反之亦然的优雅方式

问题描述

我期待一种方法来开发一种优雅的方式来将 Cm 转换为 Meter,反之亦然,而不使用 IF 条件或 Select Case,仅适用于布尔类型。这些“tmp”变量操作将以一种优雅的方式进行,当值已经在米中时不会改变。

MyVariable
tmp= Not(MyVariable>100)
tmp= (MyVariable*tmp)/100 '(Converting to meters in case the Value is in Cm)

标签: excelvbaboolean

解决方案


这不是好坏的问题。它正在寻找/开发不同的方法来达到结果。有时优雅有时优化。

Sub ToggleTrueOrFalseSlower()
 Dim bYesNo As Boolean

 If bYesNo = False Then
  bYesNo = True
 Else
  bYesNo = False
 End If
End Sub

Sub ToggleTrueOrFalseFaster()
 Dim bYesNo As Boolean
 bYesNo = Not bYesNo
End Sub

推荐阅读