■ 행높이를 복사하는 예제 ※ 아래 예제는 엑사모 latinum님이 만든 소스입니다. 제가 필요에 의해서 블로그에 정리하는 차원에서 올린소스이니 착오없으시길 바랍니다. Option ExplicitSub dhTest() dhRowHeightCopy Worksheets(1).Range("A1").CurrentRegion, Worksheets(2).Range("A1")End SubSub dhRowHeightCopy(rngOrg As Range, rngTo As Range)Dim i As LongDim k As LongDim objH As ObjectDim dblH As DoubleDim v As VariantDim vX As VariantDim rngTemp As RangeDim r As LongDim j A..<
안녕하세요 낭만고양이 입니다. 오늘은 MP3 파일을 WMA (Windows Media Audio) 오디오 파일로 간단하게 변환하는 방법에 대해 알려드리고자 합니다. 간혹 wma 확장자의 파일이 필요할때가 있을것입니다. 유틸을 이용하면 좋겠지만 급하게 변환해야할때 인터넷상에서 바로 변환해주는 사이트가 있어서 저만 알고 있기에는 너무 아까워서 공유하고자 합니다. ■ MP3 파일을 WMA (Windows Media Audio) 오디오 파일로 간단하게 변환하는 방법 ※ 아래 사이트로 클릭해서 이동하세요 https://www.onlineconverter.com/mp3-to-wma 위 주소를 클릭하시면 아래와 같은 사이트가 뜰것입니다. ※ 사용방법은 아래와 같습니다. 1. 파일선택 버튼을 눌러서 변환하고자하는 파일..<
안녕하세요 낭만고양이 입니다. 오늘은 오디오 파일 (예 : *.mp3, *.mp4, *.m4p, *.m4b, *.m4v, *.wma, *.wav, *.wave, *.flac, *.m4a, *.m4a, *.amr, *.3ga, *.ogg, *.oga, *.mid, *.midi, *.rmi, *.aiff, *.aif, *.aifc, *.m4a, *.m4b, *.m4p, *.m4r, *.aac, *.wmv, *.avi, *.mpeg, *.mpg, *.mp1, *.mp2, *.m1v, *.mpv) 을 MP3 로 간단하게 변환하는 방법에 대해 알려드리고자 합니다. 인터넷상에서 바로 변환해서 다운받을수가 있어서 유틸이 없을때 아주 편리하게 사용이 가능합니다. ■ 오디오 파일을 MP3 로 변환하기 ※ 아래 사이트로 ..<
안녕하세요 낭만고양이 입니다. 오늘은 MPEG 파일 (예 : * .mpeg, * .mpg, * .mp1, * .mp2, * .m1v, * .mpv)을 MP3 로 간단하게 변환하는 방법에 대해 알려드리고자 합니다. 제가 텍스트를 음성으로 변환된 파일을 블로그에 올리니 동영상으로 인식을 해서 보기가 너무 안좋아서 MP3 로 변환할려고 찾다보니 좋은 사이트가 있어서 저만 알고 있기에는 너무 아까워서 공유하고자 합니다. ■ MPEG 파일 (예 : * .mpeg, * .mpg, * .mp1, * .mp2, * .m1v, * .mpv)을 MP3 로 변환하기 ※ 아래 사이트로 클릭해서 이동하세요 https://www.onlineconverter.com/mpeg-to-mp3 위 주소를 클릭하시면 아래와 같은 사이트가 ..<
엑셀에 숨겨진 행이 있을때 필요에 의해 숨겨진 행만 삭제해야할경우가 있습니다. 양이 많다면 vba를 이용하는것이 훨신 빠르겠죠. 아래 소스는 숨겨진 행을 삭제하는 vba 입니다. 개인에 맞게 활용하시면 될것 같습니다. ■ 엑셀파일에서 숨겨진 행 삭제하는 vba ※ 아래 예제는 엑사모 latinum님이 만든 소스입니다. 제가 필요에 의해서 블로그에 정리하는 차원에서 올린소스이니 착오없으시길 바랍니다. Sub dhMain()Const Es As String = "MagicSheet & 엑사모" If MsgBox("선택한 영역의 숨겨진 행들을 삭제하시겠습니까?", vbYesNo + vbQuestion, Es) = vbYes Then dhDeleteHideRow Selection Else End IfEnd Su..<
매크로를 이용하여 그림을 삽입하고자 하실때 유용한 예제소스입니다. ■ 활성셀에 그림삽입하기 ※ 아래 예제는 엑사모 latinum님이 만든 소스입니다. 제가 필요에 의해서 블로그에 정리하는 차원에서 올린소스이니 착오없으시길 바랍니다. Option Explicit Const Es As String = "MagicSheet & 엑사모"Sub dhInsertPicinActiveCell()Dim strFile As StringDim rngAct As RangeDim s As ShapeConst cFile As String = "Image Files (*.bmp;*.gif;*.tif;*.jpg;*.jpeg;*.wmf;*.png)," & _ "*.bmp;*.gif;*.tif;*.jpg;*.jpeg;*.wmf;*.pn..<
엑셀로 매크로를 짜다보면 활성셀의 열주소를 알아야할 경우가 발생합니다. 이럴때 아래 소스를 이용하시면 됩니다. ■ 활성셀의 열주소를 반환하는 vba ※ 아래 예제는 엑사모 latinum님이 만든 소스입니다. 제가 필요에 의해서 블로그에 정리하는 차원에서 올린소스이니 착오없으시길 바랍니다. Sub dhTest() MsgBox dhGetColName(ActiveCell) '활성셀의 열주소End SubFunction dhGetColName(v As Variant) As String'*************************'열 주소 알아내기'**************************Dim rngF As RangeDim strAddress As StringDim i As Long If TypeName(..<
엑셀을 사용하다가 인터넷 익스폴로러를 뛰워야할 경우가 종종 생긴다. 이럴때 아래 소스를 사용하면 매우 유용할것이다. ■ VBA 를 이용해 인터넷 익스플로러를 열고 창을 최대화 하기 ※ 아래 예제는 엑사모 latinum님이 만든 소스입니다. 제가 필요에 의해서 블로그에 정리하는 차원에서 올린소스이니 착오없으시길 바랍니다. Option Explicit#If VBA7 Then Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long#Else Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCm..<
엑셀의 바꾸기 기능을 이용해 서식을 변경할 수 있지만, 셀 내용의 일부분만 글꼴 색을 변경할 수는 없다. VBA를 이용해 사용자가 선택한 범위 또는 전체 워크시트 범위를 대상으로, 특정 글자만 찾아 글자 색상을 변경할 수 있다. ■ 특정 글자만 찾아 색상 바꾸기 ※ 아래 예제는 엑사모 latinum님이 만든 소스입니다. 제가 필요에 의해서 블로그에 정리하는 차원에서 올린소스이니 착오없으시길 바랍니다. Option Explicit'***************************************'특정 글자 찾아서 색상을 변경하기'엑셀의 모든 것 - MagcicSheet & 엑사모'만든이: 황기성'***************************************Const Es As String =..<
■ 일정한 범위내에서 중복되지 않는 난수 배열 만들기 [로또번호 만드는 예제포함] ※ 아래 예제는 엑사모 latinum님이 만든 소스입니다. 제가 필요에 의해서 블로그에 정리하는 차원에서 올린 소스이니 착오없으시길 바랍니다. 사용자가 지정한 임의의 범위에서 필요한 개수만큼의 중복되지 않는 임의의 수를 정수형 배열로 반환하는 사용자 정의 함수입니다.예를 들어, 1,000에서 10,000 사이의 임의의 중복되지 않는 50개의 난수를 생성하고 이를 워크시트에 뿌려주려고 한다면 아래 소스를 참조하세요. Sub dhTestMe_1()Dim i As LongDim lngMn As LongDim lngMx As LongDim lngC As Long lngMn = 1000 lngMx = 10000 lngC = 50 R..<