태터데스크 관리자

도움말
닫기
적용하기   첫페이지 만들기

태터데스크 메시지

저장하였습니다.

Hokey

'MS Office/Excel'에 해당되는 글 2건

  1. 엑셀 maxif 사용하기
  2. 엑셀 오토마우스

엑셀 maxif 사용하기

MS Office/Excel

엑셀 MAX IF 사용하기



엑셀 함수에는 조건에 해당하는 일정 범위의 MAX값을 가져오는 함수가 없다.

※ 2016부터 maxif 존재


예를 들면 SUMIF 함수처럼


SUMIF 함수는 SUMIF(조건범위,조건,합계범위)로 사용하며

조건에 해당하는 값을 조건범위에서 찾아 더한다.



MAXIF 함수는 없으므로 배열수식을 이용해 해결한다.


위 와같이 MAX(IF(조건범위=조건,최대값범위))입력 후

배열수식을 사용하기 위해 Ctrl+Shift+Enter 입력


결과값 원리는 다음과 같다.


 계산순서

설명 

 MAX(IF{TRUE;FALSE;FALSE;FALSE;TRUE;FALSE;FALSE;FALSE;FALSE;FALSE;TRUE;FALSE;FALSE;}

 IF(조건범위=조건)에서 논리값을 찾음

 MAX({10;FALSE;FALSE;FALSE;10;FALSE;FALSE;FALSE;FALSE;FALSE;13;FALSE;FALSE;}

 논리값을 최대값 범위 값으로 치환

 13

 FALSE를 제외한 값에서 MAX값 찾음


위와 같은 원리로 MAX IF를 2016버전 이하에서 사용할 수 있다.




'MS Office > Excel' 카테고리의 다른 글

엑셀 maxif 사용하기  (0) 2018.07.31
엑셀 오토마우스  (0) 2018.07.29

엑셀 오토마우스

MS Office/Excel

엑셀 오토마우스



업무 시 보안때문에 오토키보드 등 마우스를 사용하지 못하는 경우

엑셀로 이를 대체하는 방법이 있다.



엑셀에서 Alt+F11로 VBA로 진입하여 좌측의 VBA Provject에 우클릭 후 삽입-모듈 클릭


생성된 모듈에서 다음과 같은 코드 입력


Public Declare Function SetCursorPos Lib "user32" (ByVal X As Integer, ByVal Y As Integer) As Long

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_LEFTDOWN = &H2

Public Const MOUSEEVENTF_LEFTUP = &H4

Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8

Public Const MOUSEEVENTF_RIGHTUP As Long = &H10


Public Type POINTAPI

    X As Long

    Y As Long

End Type


Sub getCursor()

    

    Dim Cpos As POINTAPI

    GetCursorPos Cpos

    MsgBox Cpos.X & ", " & Cpos.Y

    

End Sub


Sub setCusor()


    SetCursorPos 600, 500


End Sub


Sub click()


    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0

    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0


End Sub


Sub doubleclick()


    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0

    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0

    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0


End Sub


Sub rightclick()


    mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0

    mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0


End Sub


닫은 후 엑셀 메뉴 중 보기-매크로-매크로보기에서 getCursor를 사용하여 현재 마우스 포인터의 위치를 알아낸다



위와 같이 알아 낸 후 setCursor를 사용하여 마우스의 위치를 변경가능하다.



이후 click, doubleclick, rightclick 등을 이용 및 응용하여 오토마우스를 만들어 사용한다.






'MS Office > Excel' 카테고리의 다른 글

엑셀 maxif 사용하기  (0) 2018.07.31
엑셀 오토마우스  (0) 2018.07.29

티스토리 툴바