엑셀 시트로 오늘 날짜를 어떻게 알 수 있습니까?

엑셀 시트로 오늘 날짜를 어떻게 알 수 있습니까?

오늘 날짜를 A열에 추가하려고 합니다.sheet2. 매크로가 선택한 항목을 붙여넣을 때마다sheet1, 열 B, 의 새 행에sheet2.

스크립트는 새 행을 추가하고 선택한 항목을 붙여넣는 작업을 수행합니다.sheet2, A열의 새 행에 대한 날짜를 어떻게 받아야 하는지 알 수가 없습니다.sheet2. 여기 제 매크로에 있는 스크립트가 있습니다.

Sub move()  
    Dim i As Integer 
    Application.ScreenUpdating = False
    ActiveWorkbook.Sheets("Sheet1").Range("A1,A2,A3,A4,A5").Copy
      
    Sheets("Sheet2").Select
    i = 3
    While Range("B" & i).Value <> ""
        i = i + 1
    Wend
    Range("B" & i).Select
   
    Selection.PasteSpecial (xlValues), Transpose:=True
 
    Worksheets("Sheet1").Range("A1:A5").Clear
 
End Sub

해보세요.Date기능.오늘 날짜는 MM/DD/YYYY 형식으로 알려드립니다.MM-DD-YYY 형식으로 오늘 날짜를 찾으실 경우 시도해 보십시오.Date$.Now()또한 현재 시간(필요하지 않을 수도 있음)도 포함합니다.필요한 것에 따라 다 달라집니다. :)

여기에 다음과 같은 예시가 있습니다.Now()열 A의 값.

Sub move()
    Dim i As Integer
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    Dim nextRow As Long
    Dim copyRange As Range
    Dim destRange As Range

    Application.ScreenUpdating = False

        Set sh1 = ActiveWorkbook.Worksheets("Sheet1")
        Set sh2 = ActiveWorkbook.Worksheets("Sheet2")
        Set copyRange = sh1.Range("A1:A5")

        i = Application.WorksheetFunction.CountA(sh2.Range("B:B")) + 4

        Set destRange = sh2.Range("B" & i)

        destRange.Resize(1, copyRange.Rows.Count).Value = Application.Transpose(copyRange.Value)
        destRange.Offset(0, -1).Value = Format(Now(), "MMM-DD-YYYY")

        copyRange.Clear

    Application.ScreenUpdating = True

End Sub

열 B의 마지막 행을 얻는 데는 a를 사용하는 것보다 더 나은 방법이 있습니다.While루프, 이 근처에 많은 예들이 있습니다.어떤 것들은 다른 것들보다 낫지만 여러분이 무엇을 하고 있는지와 여러분의 워크시트 구조가 어떻게 생겼는지에 따라 달라집니다.저는 여기서 B열이 이동하는 행/기록을 제외하고 모두 비어 있다고 가정하는 하나를 사용했습니다.만약 그렇지 않다면, 또는 만일B1:B3일부 값이 포함되어 있으므로 수정하거나 다른 방법을 사용해야 합니다.아니면 그냥 루프를 사용할 수도 있지만, 제가 대안을 찾아볼게요 :)

언급URL : https://stackoverflow.com/questions/19576402/how-can-i-get-todays-date-in-an-excel-sheet