엑셀 vba/기타

중복 데이터값 합산하기

2019.12.20

종종 방문하는 카페에 질문글이 올라와서 한번 만들어 봤습니다. 왼쪽에 있는 데이터의 중복코드를 1개로 표시하고 각 코드의 수량을 합산해달라는 내용이었습니다. 세번째처럼 합산 표시하는 매크로를 만들어 봤어요. 코드는 아래와 같습니다. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Option Explicit Sub add_each_code() Dim r As Long Dim rowsCnt As Long Application.ScreenUpdating = False Columns("A:B").Copy 'A:B열을 복사 Columns("E:E").Insert Shift:=xlToRight 'E열에 삽입 Application.CutCopyM..

엑셀 vba/기타

SQL SERVER 연결

2019.12.17

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Option Explicit Dim Cn As ADODB.Connection Dim rs As ADODB.Recordset Dim SQL As String Sub DataBase연결() On Error Resume Next Dim a, b, c, d As String a = "DB IP 어드레스" 'IP 어드레스 b = "DB 이름" 'DB c = "ID" 'ID d = "password" 'PW Set Cn = New ADODB.Connection Set rs = New ADODB.Recordset Cn.Open "Provider = SQLOLEDB;Data Source=" & a & ";Initial Catalog= " ..

중복 데이터값 합산하기

SQL SERVER 연결

티스토리툴바