VBA在单个单元格中用斜线分隔两个两位数值

我觉得这应该是相对直接的，但我似乎无法找到有效的东西。VBA在单个单元格中用斜线分隔两个两位数值

我希望能够分开VBA宏中的两个值，这些值在进行一些初步计算之后被定义为值。然后我希望能够将这两个值放在同一个单元格中，并用斜杠（“/”）分隔。

以下是我已经没有写过两码似乎把工作做好：

Sub Macro3() 

TotalK = 10 
BB = 15 

ActiveCell.Value = "=TotalK &""/""& BB" 

End Sub

我试图这样做的另一种方式（这是极其低效）：

If TotalK > 9 Then 
    wsNew.Range("E45").NumberFormat = "00""/""0": wsNew.Range("E45").Value = TotalK & BB 
ElseIf BB > 9 Then 
    wsNew.Range("E45").NumberFormat = "0""/""00": wsNew.Range("E45").Value = TotalK & BB 
ElseIf TotalK > 9 And BB > 9 Then 
    wsNew.Range("E45").NumberFormat = "00""/""00": wsNew.Range("E45").Value = TotalK & BB 
Else 
    wsNew.Range("E45").NumberFormat = "0""/""0": wsNew.Range("E45").Value = TotalK & BB 
End If

第二方法字，除了TotalK和BB都超过9时。输出为211/7，例如，应该是21/17。

来源

2017-07-07 rahlf23

能够找到一个简单的解决方法：

ActiveCell.NumberFormat = "@" 
ActiveCell.Value = TotalK & "/" & BB

来源

2017-07-07 18:50:59 rahlf23

可能是你可以试试这个，

Sub Macro3() 
TotalK = 10 
BB = 15 
ActiveCell.Value = TotalK & "/" & BB 
End Sub

来源

2017-07-08 06:18:48

VBA在单个单元格中用斜线分隔两个两位数值

回答

相关问题