안녕하세요.
DDE(Dynamic Data Exchange)는 동적 데이터 교환 방법입니다.
주로 주식시세를 엑셀 파일과 연결해 보여주는 용도로 많이 쓰입니다.
완성 파일 다운로드
[A1] 셀에 바뀌는 데이터를 D열에 복사하도록 Worksheet_Change 이벤트에 코딩했습니다.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Range("C2").Value <> "" Then
위치 = Range("C1").End(xlDown).Row
Else
위치 = 1
End If
위치 = 위치 + 1
Range("C" & 위치).Value = Date & " " & Format(Time, "hh:mm:ss")
' Range("D" & 위치).Value = Range("A1").Value
Range("A1").Copy
Range("D" & 위치).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
'엑셀' 카테고리의 다른 글
고급 필터 매크로를 VBA로 보완(변수, InputBox 함수) (0) | 2022.01.06 |
---|---|
VBA로 범위 선택 방법과 매크로에 단축키 지정 방법 (1) | 2021.12.05 |
Worksheet _change 이벤트를 이용해 값이 바뀌면 자동으로 작업 처리하기 (0) | 2021.07.28 |
거래내역 중 취소된 항목을 찾아서 표시하는 VBA (0) | 2021.04.04 |
중복 항목에 채우기 후 삭제하기 (0) | 2021.03.27 |