如何将数字与数字组合成自定义数字格式？

Question

所以我现在已经搜索了几个小时，现在我被卡住了。我已经给了3列数字值。在这种特殊情况下，它们是测量值（英尺，英寸，四分之一英寸）。我被要求将列组合成一个非常具体的数字格式，如下所示：ft-in-qt / 04。例如：脚列表示10，英寸列表示4，四分之一英寸列表示1.我想在新列中返回10-04-01 / 04。

我在VBA子中使用For循环来执行一堆其他操作，所以我在for循环的代码中包含了这个位。我已经成功地以正确的格式返回了一个文本单元格，但是我发送给它的公司希望它采用自定义数字格式。我应该在我的代码中添加什么才能以ft-in-qt / 04格式获取它？

Dim TransporterI As Integer
For TransporterI = 2 To rowCount + 1
     'Open Gauge Reading
     Sheet1.Cells(TransporterI, 11).Value = Sheet3.Cells(TransporterI, 37) & "-" & Sheet3.Cells(TransporterI, 38) & "-" & Sheet3.Cells(TransporterI, 39) & "/04"
Next TransporterI

Answer 1

这个怎么样：

{{1}}