abyul.com > Excel > Tip > VBA by abyul - 엑셀에서 vba식으로 영역설정하기..

글 수 65

엑셀에서 vba식으로 영역설정하기..

조회 수 5874 추천 수 7 2004.10.21 11:55:22

a☆ *.106.104.1 http://abyul.com/zbxe/5447

---------------------------------------------------------------------

'저장 범위를 설정하고 저장 범위를 새로운 이름으로 정의해서 콤보박스의 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
---------------------------------------------------------------------

---------------------------------------------------------------------

---------------------------------------------------------------------

---------------------------------------------------------------------

---------------------------------------------------------------------

---------------------------------------------------------------------

---------------------------------------------------------------------

이 게시물을...