5. VBA,매크로 (16) 썸네일형 리스트형 [임시/기능] 엑셀에서 전자서명 추가하기 어떻게 하면 할 수 있을까요? [그림] 제목1 1. 수식은 상자에, 수식 설명은 막대에. = FORMULA (X, Y) [수식 설명] FORMULA (X, Y) = FORMULA는 X를 Y하겠다는 뜻임 결국. 2. 대표 이미지, 썸넬은 before/after로 3. 첨부파일과 참조를 반드시 포함할 것. 4. 본문은 친절한 경어체로, 인용/각주는 일반말투로. [첨부 예시] 참조: ExtendOffice, 어쩌구 저쩌구 title 태그 Excel, 엑셀, 함수명, 기타 키워드 [엑셀 매크로/VBA] 문서를 만들고 마지막으로 저장한 날짜 찾기 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 문서가 언제 생성되고 마지막으로 언제 저장되었는지 새로운 시트를 만들어서 알려줍니다. =========아래를 붙여넣기 하세요========== Sub Workbook_dateNtime() Set WS = Sheets.Add Range("A1").Value = "최초 생성 날짜/시간" Range("A2").Value = "마지막 저장 날짜/시간" Range("B1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "general date") Range("B2").Value = Format(ThisWorkbook.BuiltinDocumentProperties(".. [엑셀 매크로/VBA] 한 셀에 VLOOKUP 결과를 모두 넣어서 표현하기 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) VLOOKUP에서 나온 결과값을 하나의 셀에 모두 묶어서 표현하고 싶을때 쓰는 매크로 입니다. - VLOOKUP 결과값이 여러개가 나오는 경우, 한 셀에서 보고싶을 떄 쓰면 좋습니다. =========아래를 붙여넣기 하세요========== Function Onecellvlookup(lookupvalue, lookuprange As Range, indexcolumn As Long, separator) Dim r As Range Dim result As String result = "" For Each r In lookuprange If r = lookupvalue Then If result = "" Then result = r.Offset.. [엑셀 매크로/VBA] Unpivot, 크로스탭 데이터를 리스트/목록으로 바꿔주기 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 세로 열로 구성된 데이터를 행으로 내리는 매크로입니다. (제가 가장 자주 쓰고, 가장 필요로 하는 unpivot 매크로입니다.) - 엑셀 2016부터는 파워쿼리라는 기능을 이용하면서부터, 매크로 없이도 구현이 가능하게 되었습니다만, - 파워쿼리 자체에 대한 설치/활용에 대한 거부감이 있는 분들에게는 아직 매크로가 더 나은 대안이 될 수있죠. - 필요할때만 한번, 열어서 활용하시면 좋습니다. =========아래를 붙여넣기 하세요========== Sub Unpivoting() On Error Resume Next Selection.CurrentRegion.Select Set TotRng = Application.InputBox("범위 선택.. [엑셀 매크로/VBA] 모든 링크 하이퍼링크로 바꿔주기 엑셀로 해결할 수 없는 기능은 VBA/매크로를 쓰시는게 맞습니다. - 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 링크가 없는 주소들을 모두 하이퍼링크로 바꿔줍니다. - 주소가 텍스트로만 되어있다면, 하이퍼링크로 바꿔줍니다. - 몇개 없다면, VBA쓰지 마시고 [F2 + Enter]로 하세요! =========아래를 붙여넣기 하세요========== Sub Hyperlinks_add() Dim WorkRng, i As Range On Error Resume Next Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("선택 범위", "주소 범위를 선택해주세요.", WorkRng.Address, Type:=8).. 이전 1 2 3 4 다음
