VBA中的输出分数而不是小数

Question

我试图将VBA中的等式的解决方案显示为未减少的分数，但VBA会自动将等式计算为小数。有人知道如何将它保留为原始分数吗？

我尝试将整数转换为字符串然后将它们分开，但excel仍会自动将所有内容转换为小数。

Dim workingmegawattsint As Integer
workingmegawattsint = workingturbinesint * turbineCapacity
Dim totalmegawattsint As Integer
totalmegawattsint = totalturbinesint * turbineCapacity
ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Value = workingmegawattsint / totalmegawattsint

Answer 1

只需输入一个字符串：

ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Value = workingmegawattsint & "/" & totalmegawattsint

可能希望使用TEXT()进行调整，具体取决于数字的长度/数量。