-2

所以我现在已经搜索了几个小时，目前被卡住了。我得到了 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
4

1 回答 1

0

这个怎么样：

Dim TransporterI As Integer
For TransporterI = 2 To rowCount + 1
 'Open Gauge Reading
 Sheet1.Cells(TransporterI, 11).Value = Format(Sheet3.Cells(TransporterI, 37),"00") & "-" & Format(Sheet3.Cells(TransporterI, 38),"00") & "-" & Format(Sheet3.Cells(TransporterI, 39),"00") & "/04"
Next TransporterI
于 2015-06-23T16:07:05.073 回答