Corretc Excel VBA宏以文本和日期形式返回值

Question

我需要一些帮助。我有一个宏来安排一些DATAS如下：

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 

我需要的colums N5和N5记录格式DDMMYY的数据，以及N1准确记录数据，因为它是在纸板（1） （00050661），这可能吗？

今天，列nn5和n6将以dd/mm/yy显示，列N1将从50661以正面显示零。

Answer 1

使用range.numberformat这样的：

Sheets(2).Cells(6 + (i - 1) * 38, 1).numberformat = "ddmmyy" 

与其他的数字格式将在零点 “00000000” 所需的位数

，你也可以尝试：

Sheets(2).Cells(6 + (i - 1) * 38, 1) = "'" & N5 

通过增加“'”&它将强制数字保持字符串。