본문 바로가기

만드는 이야기138

엑셀vba) ParamArray : 인수 갯수 제한 없는 배열 함수로 넘기기 Sub test()AnyNumberArgs "Jamie", 10, 26, 32, 15, 22, 24, 16AnyNumberArgs "Kelly", "High", "Low", "Average", "High"End Sub Sub AnyNumberArgs(strName As String, ParamArray intScores() As Variant) Dim intI As Integer Debug.Print strName; " Scores" ' UBound 함수를 사용하여 배열의 상한값을 결정합니다. For intI = 0 To UBound(intScores()) Debug.Print " "; intScores(intI) Next intIEnd Sub 2014. 3. 7.
엑셀vba) 문자 배열 함수로 넘기기, 시트 여러개 랜덤 위치로 이동 Sub test()Const Max_Val As Long = 5Dim Ary(1 To Max_Val), i As Long'ReDim Preserve Ary(1 To 9)For i = 1 To Max_Val Ary(i) = "Sheet" & i & Int(Rnd() * 10)Next 'Ary = Array("Sheet4", "Sheet5") 시트여러개이동 Ary()End Sub Sub 시트여러개이동(Ary()) Dim i 'Ary() = Array("Sheet4", "Sheet5") For i = LBound(Ary) To UBound(Ary) AddWorksheet (Ary(i)) Next Sheets(Ary).Move before:=Sheets(Int(Rnd() * Sheets.Count) + 1)En.. 2014. 3. 7.
엑셀vba) 다음시트 이전시트 활성화 , 인쇄 미리보기 Sub NextSheet() ActiveSheet.Next.SelectEnd Sub Sub PreviousSheet() ActiveSheet.Previous.SelectEnd Sub Sub SheetPreview() ActiveSheet.PrintPreview '미리보기 'ActiveSheet.PrintOut'인쇠하기End Sub 2014. 3. 7.
엑셀,VBA) VBA로 메크로버튼 만들고 메크로 연걸시키기 Option Explicit Sub Make_Button() With ActiveSheet.Buttons '버튼 추가( '왼쪽에서부터 좌표,위에서부터 좌표 '가로크기,세로크기) '버튼 ID이름 설정 .Add( _ Range("a1").Left, Range("a1").Top, _ Range("a1").Width * 2, Range("a1").Height) _ .name = "DeleteButton" '버튼에 표시될 내용 설정 .Caption = "Button 지우기" '캡션 폰트 크기 .Characters.Font.Size = 9 '버튼 클릭시 실행될 메크로 설정 .OnAction = "Delete_Button" End With End Sub Sub Delete_Button() '버튼형 변수 생성 Dim .. 2014. 3. 6.

티스토리툴바