타산지석

엑셀 매크로 VBA 11. 나의 함수 : 선택된세로줄에서 중복제거한 데이타를 새로운 위치에 넣기 소스코드 선택된세로줄에서 중복제거한 데이타를 새로운 위치에 넣기 Option Explicit Sub 선택값중중복피하여새로운곳에넣기() Dim AreaStr(1 To 5000) As String Dim ASlen As Integer Dim curval As String Dim i As Integer Dim j As Integer Dim last As Integer Dim dcol As Object Dim tf As Boolean Dim sela1 As Range Dim startx As Long Dim starty As Long Dim lenx As Long Dim leny As Long On Error GoT..

엑셀 매크로 VBA 10. 나의 함수 : 여러셀 가로줄,세로줄선택기 소스코드 셀을 선택후 반복해서 가로줄 / 세로줄을 선택한다. Sub 여러가로줄선택기() Dim a Dim sela1 As Range Dim sela2 As Range Dim sela3 As Range Dim cnts As String Dim cnt As Long Dim incx As Long Dim incy As Long Dim i As Long Dim j As Long On Error GoTo errhandler Set sela2 = Application.InputBox(Type:=8, prompt:="기준 셀을 선택하세요 ?", Title:="틀반복복사기") basex = CLng(sela2.Column) basey = CLng(se..

엑셀 매크로 VBA 9. 나의 함수 : 여러셀 선택기 소스코드 셀을 선택해서 반복해서 선택한다.(?) Option Explicit Dim startx As Long Dim starty As Long Dim lenx As Long Dim leny As Long Dim basex As Long Dim basey As Long Dim refx As Long Dim refy As Long Dim idx As Long Sub 여러칸선택기() Dim a Dim sela1 As Range Dim sela2 As Range Dim sela3 As Range Dim cnts As String Dim cnt As Long Dim incx As Long Dim incy As Long Dim i As Long Dim j As..

엑셀 매크로 VBA 8. 나의 함수 : 값을 나눌값을 입력받아 나머지 구하기 소스코드 숫자가 들어있는 셀을 블럭으로 선택해서 일정한 값으로 나머지를 구한다 Sub 값의나머지() Dim sela1 As Range Dim i As Long Dim j As Long Dim startx As Long Dim starty As Long Dim lenx As Long Dim leny As Long Dim strVal As String Dim valNo As Double On Error GoTo ERR1 Set sela1 = Application.InputBox(Type:=8, prompt:="영역을 선택하세요(단일블럭으로선택) ?", Title:="값나머지") strVal = InputBox("나머지값은 ? ", ..

엑셀 매크로 VBA 7. 나의 함수 : 값을 곱할 값을 입력받아 곱셈 소스코드 숫자가 들어있는 셀을 블럭으로 선택해서 일정한 값으로 곱셈을 실행한다 Sub 값을곱하기() Dim sela1 As Range Dim i As Long Dim j As Long Dim startx As Long Dim starty As Long Dim lenx As Long Dim leny As Long Dim strVal As String Dim valNo As Double On Error GoTo ERR1 Set sela1 = Application.InputBox(Type:=8, prompt:="영역을 선택하세요(단일블럭으로선택) ?", Title:="값곱하기") strVal = InputBox("곱할값은 ? ", "입력",..

엑셀 매크로 VBA 6. 나의 함수 : 값을 뺄 값을 입력받아 뺄셈수행 소스코드 숫자가 들어있는 셀을 블럭으로 선택해서 일정한 값으로 뺄셈을 실행한다 Sub 값을빼기() Dim sela1 As Range Dim i As Long Dim j As Long Dim startx As Long Dim starty As Long Dim lenx As Long Dim leny As Long Dim strVal As String Dim valNo As Double On Error GoTo ERR1 Set sela1 = Application.InputBox(Type:=8, prompt:="영역을 선택하세요(단일블럭으로선택) ?", Title:="값빼기") strVal = InputBox("뺄값은 ? ", "입력", "..

엑셀 매크로 VBA 4. 나의 함수 : 값을 더할 값을 입력받아 더하기 소스코드 숫자가 들어있는 셀을 블럭으로 선택해서 일정한 값으로 덧셈을 실행한다. Sub 값을더하기() Dim sela1 As Range Dim i As Long Dim j As Long Dim startx As Long Dim starty As Long Dim lenx As Long Dim leny As Long Dim strVal As String Dim valNo As Double On Error GoTo ERR1 Set sela1 = Application.InputBox(Type:=8, prompt:="영역을 선택하세요(단일블럭으로선택) ?", Title:="값더하기") strVal = InputBox("더하기값은 ? ", "입..

엑셀 매크로 VBA 4. 나의 함수 : 값을 나눌값을 입력받아 나누기 소스코드 숫자가 들어있는 셀을 블럭으로 선택해서 일정한 값으로 나눗셈을 실행한다. Sub 값을나누기() Dim sela1 As Range Dim i As Long Dim j As Long Dim startx As Long Dim starty As Long Dim lenx As Long Dim leny As Long Dim strVal As String Dim valNo As Double On Error GoTo ERR1 Set sela1 = Application.InputBox(Type:=8, prompt:="영역을 선택하세요(단일블럭으로선택) ?", Title:="값나누기") strVal = InputBox("나눌값은 ? ", "입력..

엑셀 매크로 VBA 3. 나의 함수 : 수식을 값으로 변경 소스 코드 영역을 지정해서 해당 셀의 수식을 값으로 변경한다. Sub 식을값으로변경() Dim sela1 As Range Dim i As Long Dim j As Long Dim startx As Long Dim starty As Long Dim lenx As Long Dim leny As Long On Error GoTo ERR1 Set sela1 = Application.InputBox(Type:=8, prompt:="영역을 선택하세요(단일블럭으로선택) ?", Title:="식을 값으로") startx = CLng(sela1.Column) starty = CLng(sela1.row) lenx = CLng(sela1.Columns(sela1.C..