04번. IT 힌트얻기/▶ Excel 썸네일형 리스트형 Excel with VB 3번째 Option Explicit Sub searchDuplicate() Dim source_number As String Dim target_number As String Dim i As Integer Dim j As Integer Dim cnt As Integer Worksheets("DATA").Activate cnt = Range("a5").CurrentRegion.Rows.Count + 3 Debug.Print cnt For i = 6 To cnt source_number = CStr(Cells(i, 5).Value) For j = i + 1 To cnt target_number = CStr(Cells(j, 5).Value) If source_number = target_number Then Rang.. 더보기 Excel with VB 2번째 Option Explicit Sub for_mul() Dim i As Integer Dim j As Integer Worksheets(3).Activate For i = 1 To 10 For j = 1 To 10 Cells(i, j).Value = "서울" & i & j Next j Next i End Sub Sub for_mul2() Dim myRange As Range For Each myRange In Range("k1:n10") myRange.Value = "부산" Next myRange End Sub Sub fun1() Dim tr As Integer Dim wr As Object Set wr = Application.WorksheetFunction tr = wr.Sum(Range("a1:a10.. 더보기 excel with vb 기초 Option Explicit Sub totalList() Dim cntWorkBook As Integer Dim cntWorksheet As Integer Dim rowCnt As Single Dim i As Integer '1. 열기대화상자 Application.Dialogs(xlDialogOpen).Show '2. WorkBook의 수 cntWorkBook = Workbooks.Count '3. 새로 열기한 WorkSheet의 수 - 즉 가장 마지막에 연 workbook의 Sheet이다. cntWorksheet = Workbooks(cntWorkBook).Worksheets.Count '4. 작업하는 WorkBook의 행번호 rowCnt = ThisWorkbook.Worksheets(1).Range(.. 더보기 엑셀 비주얼베이직 강좌 엑셀 비주얼베이직 강좌 1강 : 일단 들이대보는 VBA http://sstorm.egloos.com/5330907 2강 : VBA 코드 뜯어먹기 http://sstorm.egloos.com/5332207 3강 : 컨트롤 다루기 http://sstorm.egloos.com/5332847 4강 : 유저폼에 데이터 불러오기 http://sstorm.egloos.com/5335895 5강 : 콤보상자 활용 http://sstorm.egloos.com/5338486 6강 : 스핀단추와 데이터 입력 http://sstorm.egloos.com/5343626 7강 : 옵션단추 활용 http://sstorm.egloos.com/5358361 출처 : 스톰의 게임기획 연구실(sstorm.egloos.com) 더보기 VB활용한 EXCEL활용 - 라이브러리 ◆ 엑셀과 비주얼베이직 관련 메소드 및 변수에 대한 Library http://msdn.microsoft.com/ko-kr/library/7fzyhc74(v=VS.80).aspx 더보기 이전 1 다음