---------------------------------------------------------------------
'저장 범위를 설정하고 저장 범위를 새로운 이름으로 정의해서 콤보박스의 RowSource로 사용한다.
Dim 저장범위 As Range
Set 저장범위 = Range([단가표!K2], [단가표!K65536].End(xlUp).Offset(0, 0))
저장범위.Name = "자료"
With Me.mcCombo2
.RowSource = "자료"
.ListIndex = 0
End With
---------------------------------------------------------------------
'상대 참조를 이용한 셀들 사이의 연산
Range("S8:V8").Select
ActiveCell.FormulaR1C1 = "=RC[-6]*RC[-3]"
---------------------------------------------------------------------
현재 시트에서 전체거래처 시트로 복사해 넣는 매크로
현재 시트에서 A2에서 부터 E의 마지막행까지를 복사하여
전체거래처 시트의 마지막 행에 이어 붙이는 방식..
Option Explicit
Sub DataInput()
Dim lA As Long
Dim iA As Integer
Dim iB As Integer
Dim Sht As Worksheet
Set Sht = Worksheets("전체거래처")
lA = Sht.Range("A1").CurrentRegion.Rows.Count + 1
iA = Range("A1").CurrentRegion.Rows.Count
iB = Range("A1").CurrentRegion.Columns.Count
Range("A2").Resize(iA - 1, iB).Copy Sht.Range("A" & lA)
Application.Goto Sht.Range("A" & lA)
End Sub
---------------------------------------------------------------------
'시트에서 데이터의 끝 행 번호 알아내서 작업하기..
' 행번호 = 시트이름.Range("A65536").End(x|Up).Row + 1
Dim k As Integer
If OptionButton1 Then
k = Sheet3.Range("A65536").End(xlUp).Row + 1 '신고완료시트
With Sheet3
.Cells(k, 1) = mc_textDate
.Cells(k, 2) = TextBox1
.Cells(k, 3) = TextBox2
.Cells(k, 4) = TextBox3
.Cells(k, 5) = TextBox4.Value
.Cells(k, 6) = TextBox5
End With
Else
End If
---------------------------------------------------------------------
---------------------------------------------------------------------
---------------------------------------------------------------------
---------------------------------------------------------------------
---------------------------------------------------------------------
---------------------------------------------------------------------
---------------------------------------------------------------------
'저장 범위를 설정하고 저장 범위를 새로운 이름으로 정의해서 콤보박스의 RowSource로 사용한다.
Dim 저장범위 As Range
Set 저장범위 = Range([단가표!K2], [단가표!K65536].End(xlUp).Offset(0, 0))
저장범위.Name = "자료"
With Me.mcCombo2
.RowSource = "자료"
.ListIndex = 0
End With
---------------------------------------------------------------------
'상대 참조를 이용한 셀들 사이의 연산
Range("S8:V8").Select
ActiveCell.FormulaR1C1 = "=RC[-6]*RC[-3]"
---------------------------------------------------------------------
현재 시트에서 전체거래처 시트로 복사해 넣는 매크로
현재 시트에서 A2에서 부터 E의 마지막행까지를 복사하여
전체거래처 시트의 마지막 행에 이어 붙이는 방식..
Option Explicit
Sub DataInput()
Dim lA As Long
Dim iA As Integer
Dim iB As Integer
Dim Sht As Worksheet
Set Sht = Worksheets("전체거래처")
lA = Sht.Range("A1").CurrentRegion.Rows.Count + 1
iA = Range("A1").CurrentRegion.Rows.Count
iB = Range("A1").CurrentRegion.Columns.Count
Range("A2").Resize(iA - 1, iB).Copy Sht.Range("A" & lA)
Application.Goto Sht.Range("A" & lA)
End Sub
---------------------------------------------------------------------
'시트에서 데이터의 끝 행 번호 알아내서 작업하기..
' 행번호 = 시트이름.Range("A65536").End(x|Up).Row + 1
Dim k As Integer
If OptionButton1 Then
k = Sheet3.Range("A65536").End(xlUp).Row + 1 '신고완료시트
With Sheet3
.Cells(k, 1) = mc_textDate
.Cells(k, 2) = TextBox1
.Cells(k, 3) = TextBox2
.Cells(k, 4) = TextBox3
.Cells(k, 5) = TextBox4.Value
.Cells(k, 6) = TextBox5
End With
Else
End If
---------------------------------------------------------------------
---------------------------------------------------------------------
---------------------------------------------------------------------
---------------------------------------------------------------------
---------------------------------------------------------------------
---------------------------------------------------------------------
---------------------------------------------------------------------
댓글 '2'
현대자동차님..
VBA를 처음 시작하시는거라면..
아래 2개 자료를 참고해보세요..
VBA를 익히시는데 도움이 많이 될 것입니다. ^^
http://www.abyul.com/zbxe/92721
http://www.abyul.com/zbxe/73779
그럼.. 오늘 하루도 즐거운 하루 되세요.. ^^)/