파란바람 이야기

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

안녕하세요. 특정 셀의 값이 바뀌면 자동으로 다른 셀에 값을 복사하는 작업을 하려고 합니다. 이렇게 복사된 값을 이용해 차트를 만드는 일도 있습니다. 완성 파일 다운로드 사용자의 추가 작업 없이 동작해야 하므로 이벤트(Events)를 이용해야 합니다. 딱 생각난게 Change 이벤트 입니다. 키를 눌러 VBE를 엽니다. Sheet1 시트 Worksheet 개체 Change 이벤트에 작성합니다. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("A1")) Is Nothing Then Application.EnableEvents = False If Range("C2").Value "" Then 위치 = ..