EXcelToolBox

한영 전환, 입력 모드 반환 사용자 정의 함수Chat-GPT o4-mini-high 버전을 이용해 생성한 코드다. 한글/영문 입력 모드를 반환하거나, 영문 모드, 한글 모드, 영문은 한글로, 한글은 영문으로 토글하는 코...cafe.naver.comOption Explicit#If VBA7 Then Private Declare PtrSafe Function GetForegroundWindow Lib "user32" () As LongPtr Private Declare PtrSafe Function ImmGetContext Lib "imm32.dll" (ByVal hWnd As LongPtr) As LongPtr Private Declare PtrSafe Function ImmRele..

Const VK_CAPITAL As Long = &H14 Const KEYEVENTF_KEYUP As Long = &H2 #If VBA7 Then Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) #Else Declare Function GetKeyState Lib "user32" (ByVal nVirtK..

Sub 바탕화면_경로()    Dim DeskTopPath As String   '바탕 화면 경로 가져오기    DeskTopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")        MsgBox DeskTopPath End Sub

Option Explicit Sub Total_Publish_To_Pdf()  '★★결합PDF저장★★  'PDF FILE 저장 POLDER 지정   Dim strPolderName As String  '확장자를 포함한 워크북명   Dim LATUS As String  '확장자를 제거한 워크북명   Dim strFileName As String   Dim iSplit As Integer   Dim sht As Worksheet   Dim vAry() As Integer   Dim ShtAry() As String   Dim i As Integer   Dim n As Integer        'PDF 출판 폴더를 지정   With Application.FileDialog(msoFileDialogFolder..

Option Explicit Sub Publish_To_Pdf()  '★★개별PDF저장★★  'PDF FILE 저장 POLDER 지정   Dim strPolderName As String  '확장자를 포함한 워크북명   Dim LATUS As String  '확장자를 제거한 워크북명   Dim strFileName As String   Dim iSplit As Integer   Dim sht As Worksheet   Dim vAry() As Integer   Dim ShtAry() As String   Dim i As Integer   Dim n As Integer        'PDF 출판 폴더를 지정   With Application.FileDialog(msoFileDialogFolderPicker..

Civil Tools 1/5 업데이트 대한민국 모임의 시작, 네이버 카페 cafe.naver.com

Option Explicit Option Base 1 #If VBA7 Then     Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long     Declare PtrSafe Function CloseClipboard Lib "user32" () As Long     Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long #Else     Declare Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long     Declare Function CloseClipboard Lib "use..

승승아빠 엑셀 추가기능 2024년 버전 기존에 사용하시는 분들은 덮어쓰기 하시면 됩니다. 그리고 맥에서는 작용하지 않습니다. 또한 다른 추가기... blog.naver.com

※ 샘플 : 한글은 지원 안됨. 1. Code128(strText) - strText : 바코드를 나타낼 문자열이나 문자열이 들어 있는 셀주소 2. DataMatrix(strText) - strText : 바코드를 나타낼 문자열이나 문자열이 들어 있는 셀주소 3. QRCode(strText, SecurityLevel, Version) - strText : 바코드를 나타낼 문자열이나 문자열이 들어 있는 셀주소 - SecurityLevel : 오류 복원 수준 지정, 생략가능(기본값="L") "L" - 낮음, "M" - 보통, "Q" - 높음, "H" - 최고 - Version : 2D를 구성하는 최소단위를 지정 (-3~40), 생략가능(기본값=1) 4. Aztec(strText, CheckPercent, L..

참조 : https://www.homeandlearn.org/introduction_to_treeviews.html A. TreeViw Control 추가 1. TreeView 추가 컨트롤 2. 도구상자 TreeView 컨트롤 추가 3. UserForm에 TreeView 컨트롤 추가 4. TreeView 컨트롤 속성 변경 B. 트리뷰에 상위 노드를 추가하려면 구문은 다음과 같으며, Dim node As node Set node = TreeView.Nodes.Add ( [Relative], [Relationship], [Key], [Text], [Image], [SelectedImage] ) as Node = 트리뷰오브젝트.Nodes.Add ( 상대, 관계, 키, 텍스트, 이미지, 선택된이미지 ) 1. 트..