Corretc Excel VBAmacros以文本和dateforms返回值
我需要一些帮助。 我有一个macros来安排一些数据如下：
Sub Espelho_OM() Dim Linha As Integer Dim Data_Vencimento As String Dim N1 As String Dim N2 As String Dim N3 As String Dim N4 As String Dim N5 As String Dim N6 As String Dim N7 As String Dim N8 As Double Dim i As Integer Sheets(2).Cells.Clear Sheets(1).Select Cells(100000, 1).End(xlUp).Select Linha = ActiveCell.Row - 1 For i = 1 To Linha N1 = Sheets(1).Cells(i + 1, 1) N2 = Sheets(1).Cells(i + 1, 2) N3 = Sheets(1).Cells(i + 1, 3) N4 = Sheets(1).Cells(i + 1, 4) N5 = Sheets(1).Cells(i + 1, 5) N6 = Sheets(1).Cells(i + 1, 6) N7 = Sheets(1).Cells(i + 1, 7) N8 = Sheets(1).Cells(i + 1, 8) Sheets(2).Cells(1 + (i - 1) * 38, 1) = N1 Sheets(2).Cells(2 + (i - 1) * 38, 1) = N2 Sheets(2).Cells(4 + (i - 1) * 38, 1) = N3 Sheets(2).Cells(5 + (i - 1) * 38, 1) = N4 Sheets(2).Cells(6 + (i - 1) * 38, 1) = N5 Sheets(2).Cells(7 + (i - 1) * 38, 1) = N6 Sheets(2).Cells(8 + (i - 1) * 38, 1) = N7 Sheets(2).Cells(10 + (i - 1) * 38, 1) = N8 Next Sheets(2).Select End Sub 我需要Colum N5和N5以ddmmyy格式logging数据，而N1需要logging数据（1）（00050661），这是可能的吗？
今天列nn5和n6将来年/月/年，列N1来到50661从前面零。
使用range.numberformat是这样的：
Sheets(2).Cells(6 + (i - 1) * 38, 1).numberformat = "ddmmyy"
另一个数字格式将是在零“00000000”
你也可以尝试：
Sheets(2).Cells(6 + (i - 1) * 38, 1) = "'" & N5
增加“'”＆通过它将迫使数字保持string。