Question

我需要记录四个单元格的日期和当前值。在下面的循环中，它保持打印日期而不是两个值，如下所示：

Date      DRI_1        DRI_2     DRI_3  PRI

3/1/2016  33.33333333  8.75      12     54.08333333

3/1/2016  2/2/1900     8.75      12     54.08333333

3/1/2016  33.33333333  1/8/1900  12     54.08333333

3/1/2016  33.33333333  8.75      12     54.08333333

日期在日期之后直接占据第二行，在日期之后的值之后占据第三行。

Option Explicit

Sub Copypaste()
'
' Copypaste Macro
'
' Keyboard Shortcut: Ctrl+p
'
    Dim i As Integer, j As Integer, k As Integer
    Dim this_date As Date
    Dim ls As Boolean

    i = 2
    j = 24
    k = 0
    this_date = DateValue(Now)
    ls = True

    Do While ls = True

        If IsEmpty(Cells(i, j).Value) = True Then

            For k = 1 To 3
                Cells(i, j + k).Value = Cells(2, 19 + k).Value
            Next k

            Cells(i, 28).Value = Cells(3, 20).Value

            Cells(i, j).Value2 = this_date

            ls = False

        Else
            ls = True
        End If

        i = i + 1

        If i > 1000 Then
            ls = False
        End If
    Loop
End Sub

我的代码似乎是一个孤立的问题！

Answer 1

道歉这是细胞的格式化，他们之前有一个日期，我需要做的就是将常规细胞复制到那些位置然后停止了！

任何浪费时间的道歉！

Answer 2

如果DRI_1和DRI_2是B列和C列，那么您可以使用

将其格式化为常规

Range("B:C").NumberFormat = "General"

单元格显示日期而不是值

2 个答案: