파란바람 이야기

안녕하세요. 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") '..

안녕하세요. 셀에 값을 입력하면 자동으로 동작하는 작업을 원하는 경우가 있습니다. Worksheet_change 이벤트가 이럴 때 사용하는 이벤트입니다. 완성 파일 다운로드 [G2:H4], [J2:K4] 셀 범위에 값을 입력하면 [D2:E4] 셀 범위 수식이 계산되고 D열과 E열 값이 1 이상이고, 두 값이 같으면 A열에 'a'를 나타내고 B열에 시간을 나타내는 동작을 합니다. Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("G2:H2,J2:K2") If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Th..