본문 바로가기

만드는 이야기138

vba) 컨트롤 존재 여부 확인 If Not 목록링크라벨 Is Nothing Then ' 목록링크라벨.Caption = 스핀버튼.Value & "번째 시트부터 링크 연결." & vbCr & "행당 시트 하나" End If 2014. 3. 19.
vba 클래스 메크로 제작중 사무클래스 Option Explicit '이 클래스를 사용시'스핀버튼 하나, 텍스트박스 하나 필요'스핀 최대 최소값은 "스핀버튼설정" 를 호출해서 설정 Public WithEvents 스핀버튼 As MSForms.SpinButtonPublic WithEvents 텍스트박스 As MSForms.TextBox Public WithEvents 시트이름숫자로버튼 As MSForms.CommandButton Public WithEvents 시트이름라벨 As MSForms.Label '최대최소를 바꿔써넣지 않도록 주의Sub 스핀버튼설정(스핀버튼최대값 As Long, 스핀버튼최소값 As Long, Optional 최대최소값이_바뀌지_않도록_주의 As Byte) 스핀버튼.Max = 스핀버튼최대값 스핀버튼.Min = 스.. 2014. 3. 19.
vba) with 반복문을 쓸때 주의점 Sub test()'아래 두 반복문의 차이점을 확실히 알고 사용하자. 그러면 with의 특징을 확실히 알수 있다 Dim i As Byte Cells(1, 1).Select For i = 1 To 10 With Selection .Offset(i, 0) = i .Offset(i, 0).Select End With Next Cells(1, 2).Select With Selection For i = 1 To 10 .Offset(i, 0) = i .Offset(i, 0).Select Next End With End Sub 2014. 3. 18.
오토핫키) 메모장이 종료되면 다시실행시키고 숫자 입력 및 툴팁 표시 coordmode,tooltip,screen CoordMode , Mouse, screen ;마우스 정대좌표로 인식,안할시 활성창 기준SetTimer, MSG_TXT1 , 1000j:=0 loop{ GoChk1 = 0MouseGetPos, OutputVarX, OutputVarY, OutputVarWin, OutputVarControltooltip,%TXT1%%A_Index%,OutputVarX+10,OutputVarY+20,1 } return ~^!#m:: ; 노트패드를 실행후 노트패드에 키를 보내는 예GoChk1 = 1i:=1Loop{IfWinNotExist, ahk_class Notepad{run, NotepadWinWait, ahk_class Notepad}ControlSetText, Edit1,.. 2014. 3. 14.

티스토리툴바