Как объединить ячейки с числами в пользовательский формат номера?

Question

Итак, я искал пару часов и сейчас застрял. Мне дали 3 столбца с номерами в них. В этом конкретном сценарии они представляют собой измерения (футы, дюймы, четверть дюйма). Меня попросили объединить столбцы в очень конкретный формат чисел, который выглядит так: ft-in-qt/04. Так например: столбец ног говорит 10, колонка дюймов говорит 4, а четверть дюйма колонка говорит 1. Я хочу вернуть 10-04-01/04 в новый столбец.

Я использую цикл For в подмножестве VBA, чтобы выполнить кучу других операций, поэтому я включил этот бит в код цикла 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

Как об этом:

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