[컴활] 1급 실기 엑셀(Excel) 프로시저 정리

프로시저 작성

  개발도구 > 디자인 모드 > 버튼 더블 클릭

 

폼이 화면에 나타나도록 프로시저 작성

  폼이름.Show

 

 

종료 버튼을 클릭하면 폼이 닫히도록

  Unload Me

 

 

셀에 값 입력

  Cells(행, 열)

 

 

문자열을 숫자로(계산할 때)

  Val(txt어쩌구)

 

 

데이터를 추가하거나 삭제하여도 항상 마지막 데이터 다음에 입력

  Range("내용이 시작하는 위치").CurrentRegion.Rows.Count + 시작하는 위치의 행 번호

표 위에 글이 붙어있을 경우

표만 있을 경우

  ex) Range("B3").CurrentRegion.Rows.Count + 3

 

 

폼이 초기화되면

  Private Sub UserForm_Initialize()
  End Sub

 

 

[H5:H10] 영역의 값이 콤보상자(cmb콤보)/목록상자(Lst목록)의 목록에 나타나도록 설정

  cmb콤보.RowSource = "H5:H10"

  Lst목록.RowSource = "H5:H10"

 

 

ColumnCount를 이용하여 지정한 열이 모두 보이도록

  Lst목록.ColumnCount = 5

 

 

[B10] 셀에 "어쩌구저쩌구" 문자열이 출력

  Range("B10") = "어쩌구저쩌구"

 

 

입력상자들이 비어있도록

  cmb콤보상자 = ""

  txt텍스트 = ""

 

 

목록상자(Lst목록)는 첫 번째 항목이 선택되어 있도록

  Lst목록.ListIndex = 0

 

 

목록상자(Lst목록)에서 선택된 값 입력

  Lst목록.List(Lst목록.ListIndex, 몇 번째)

 

  → 목록상자의 첫번째는 0임. 

  → 목록상자의 1행 1열 항목은 Lst목록.List(Lst목록.ListIndex, 0)

 

 

콤보상자(cmb콤보)에는 'a', 'b'가 목록으로 추가되도록

  cmb콤보.AddItem "a"

  cmb콤보.AddItem "b"

 

 

글꼴(Name) / 크기(Size) / 굵게(Bold)

  Target.Font.Name = "글꼴"

  Target.Font.Size = 10

  Target.Font.Bold = True

 

 

번호는 스핀단추를 통해 입력하도록

  Private Sub Spin번호_Change()
  Text번호 = Spin번호
  End Sub

 

 

"D15"에 오늘 날짜가 나오도록

  Range("D15") = Date

 

 

날짜 : Date

날짜 + 현재시간 : Now()

현재시간 : Time

 

 

메세지상자 "내용", , "제목"

  MsgBox "Message", , "Title"

 

옵션단추 (Caption 이용)

  opt단추.caption

 

 

형식지정

  Format(txt가격, "#,###")