글자 크기 변경 매크로 문의

VBA
작성자
박예린
작성일
2021-12-20 12:13
조회
87
엑셀버전 : M365

운영체제 : 윈도우10

매크로를 사용하여 하이퍼링크시 글짜크기가 커지는데,

문구를 추가하여 글자크기가 제한이 가능한가요?

 

현재 매크로 내용입니다.

Sub 링크()

Dim faddress As String
Dim hRng, c As Range
Dim i As Integer
Set hRng = Range("rng링크")
i = 1
For Each c In hRng
faddress = ActiveCell.Offset(i, 0).Value
ActiveCell.Offset(i, 0).Hyperlinks.Add Anchor:=c, Address:=faddress
i = i + 1
Next
End Sub

aaa.jpg

aaa-2.jpg

회원등급 : 4레벨
포인트 : 225 EP
총질문 : 5 개 (마감율 : 100%)
채택답변 : 1 개
전체 7

  • 2021-12-21 16:24
    채택된 답변

    파일이 있어야 정확히 확인하겠지만 하이퍼링크 명령어 아랫줄에 요렇게 추가하면 될것같아요!

    ActiveCell.Offset(i, 0).Hyperlinks.Add Anchor:=c, Address:=faddress

    ActiveCell.Offset(i, 0).Font.Size = 숫자


    • 2021-12-21 22:34

      @엑셀복지사 님 ActiveCell.Offset(i, 0).Hyperlinks.Add Anchor:=c, Address:=faddress
      이게 마지막줄인데 중복해서 적어야하는건가요?

      두줄을 모두 적어도 밑에줄만 적어도 에러는 없는데 글씨체 변화는 없네요..ㅠㅠ

      Sub 링크()

      Dim faddress As String
      Dim hRng, c As Range
      Dim i As Integer
      Set hRng = Range("rng링크")
      i = 1
      For Each c In hRng
      faddress = ActiveCell.Offset(i, 0).Value
      ActiveCell.Offset(i, 0).Hyperlinks.Add Anchor:=c, Address:=faddress
      i = i + 1
      ActiveCell.Offset(i, 0).Hyperlinks.Add Anchor:=c, Address:=faddress
      ActiveCell.Offset(i, 0).Font.Size = 3
      Next
      End Sub

       

      이렇게 적었습니다. 링크버튼을 누르면 파일위치 열에있는 셀들이 하이퍼링크되는 매크로 입니다.


    • 2021-12-22 09:17

      @엑셀복지사 님 파일 함께 올려드려봅니다.

      첨부파일 : 샘플.xlsm


      • 2021-12-22 10:43

        @박예린 님 안녕하세요! 코드 수정해서 올려드립니다.

        For Each로 구문을 짜셨길래 Activecell.Offset(i, 0)과 i = i+1을 사용하지 않았구요

        Range로 지정해두신 c를 활용했어요.

        첨부파일 : 샘플.xlsm


        • 2021-12-28 14:27

          @엑셀복지사 님 너무 감사합니다! 딱원하는대로 됬어요 정말 감사드립니다.

          하나더 여쭤보면 제가 짠 구문이아니라 도움받은 구문이고 vba 자체를 거의 몰라서 주먹구구로 하는중인데,

          c가 약자인건가요?


          • 2021-12-28 23:11

            @박예린 님 '약자'의 의미도 없지는 않지만, '변수'로 지정된 이름이라고 보시면 돼요.

            코드를 보시면 Sub 링크() 안에

            Dim hRng, c As Range

            이렇게 써있는게 있죠?(사실 저것도 Dim hRng As Range, c As Range 라고 써야 맞습니다만 큰문제는 안되니까 나중에 한번 검색해보셔요)

            여기에서 Dim c As Range는, c라는 변수를 '범위'로 활용하겠다는 명령어입니다.

            Sub 링크()를 한줄씩 해석하자면,

            Dim faddress As String              '◀ faddress라는 변수를 문자(String)로 지정
            Dim hRng As Range, c As Range '◀ hRng와 c라는 변수를 범위(Range)로 지정
            Set hRng = Range("rng링크")      '◀ 'rng링크'라는 이름이 지정된 범위를 hRng라고 부르겠다
            For Each c In hRng                   '◀ hRng의 각 셀(c)마다 아래 명령어 실행 (hRng의 좌상단에서 우하단으로 1행씩)
            faddress = c.Value                    '◀ faddress는 셀(c)의 값으로 하겠다
            c.Hyperlinks.Add Anchor:=c, Address:=faddress '◀ 셀(c)에 하이퍼링크 생성
            c.Font.Size = 3                         '◀ 셀(c)의 폰트 사이즈 조정
            Next                                      '◀ 다음 셀

            요렇게 되겠네요

            여기에서 faddress, hRng, c는 본인이 원하시는 단어로 변경 가능해요!

            다만 숫자로 시작하면 안되고, 밑줄(_)외 특수문자 안되고, 이미 있는 명령어(ex: If, For, While 등) 안되고, 한 프로시저 내에서 중복된 이름 안됩니다.

             

            www.oppadu.com/엑셀-vba-변수란-무엇인가-자주-사용하는-변수-7가지-정/

            위 강의 한번 읽어보세요 🙂


            • 2021-12-29 09:23

              @엑셀복지사 님 헐 ㅠㅠ 최고에여 너무감사드려요


전체 5,235
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (32)
트로피 오빠두엑셀 | 2021.10.12 | 추천 23 | 조회 834
트로피 오빠두엑셀 2021.10.12 23 834
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (23)
오빠두엑셀 | 2021.10.28 | 추천 33 | 조회 2513
트로피 오빠두엑셀 2021.10.28 33 2513
26508 함수/공식
New 중복데이터 찾아서 삭제하는 방법(3천개정도 됩니다) 첨부파일
따뜻한아메리카노 | 17:10 | 추천 0 | 조회 5
따뜻한아메리카노 17:10 0 5
26504 VBA
New HTML 코드안의 원하는 값 가져오기
엑셀초보(LV.1) | 15:49 | 추천 0 | 조회 11
엑셀초보(LV.1) 15:49 0 11
26501 VBA
New VBA 유저폼 리스트박스에 배열 정렬방법문의드립니다 (1)
98e | 15:04 | 추천 0 | 조회 16
98e 15:04 0 16
26498 VBA
New vba 그래프 영역 변경 구문 간단질문
H.B | 14:23 | 추천 0 | 조회 17
H.B 14:23 0 17
26497 함수/공식
New 엑셀 수식 계산 (4)
스미스 | 14:07 | 추천 0 | 조회 34
스미스 14:07 0 34
26489 함수/공식
New 특정 셀이 공란일시, 저장이 안되게끔 할 수 있을까요? (8) 답변완료
쿠몬은내친구 | 12:45 | 추천 1 | 조회 36
쿠몬은내친구 12:45 1 36
26487 VBA
New 셀서식을 숫자로 변환후, 오름차순 정렬하는 매크로 (4) 답변완료
길리 | 12:16 | 추천 0 | 조회 34
길리 12:16 0 34
26486 VBA
New 특정셀값이 "ID"일 경우, vba를 실행시키고자 합니다 (4) 답변완료
길리 | 12:06 | 추천 0 | 조회 33
길리 12:06 0 33
26484 기능/도구
New 표시형식 도와주세요 첨부파일 (1) 답변완료
김상준 | 11:30 | 추천 0 | 조회 33
김상준 11:30 0 33
26479 함수/공식
New (ㅜㅜ)항목이 다른 각 데이터들 취합하기 문의드립니다. 첨부파일 (2) 답변완료
해룡 | 06:20 | 추천 0 | 조회 39
해룡 06:20 0 39
26468 함수/공식
New 똑같은 수식으로 텍스트의 바이트수를 계산하는데 다르게 나옵니다.ㅠ 첨부파일 (1)
turtle**** | 2022.01.26 | 추천 0 | 조회 40
turtle**** 2022.01.26 0 40
26466 VBA
New 재고관리 filtered_db 함수 사용관련 질문입니다. (db가 empty인 경우 사용법)
탄만두 | 2022.01.26 | 추천 0 | 조회 36
탄만두 2022.01.26 0 36
26462 VBA
New VBA오빠두님의 Listfiles함수 중에 (2)
H.B | 2022.01.26 | 추천 1 | 조회 31
H.B 2022.01.26 1 31
26460 VBA
New vba 일치하는 값 찾기 질문 드립니다. 첨부파일 (6) 답변완료
qkrwo**** | 2022.01.26 | 추천 0 | 조회 41
qkrwo**** 2022.01.26 0 41
26454 VBA
New Excel VBA _ Select 하지않고 바로 작업하는 방법 (2) 답변완료
백일호 | 2022.01.26 | 추천 1 | 조회 45
백일호 2022.01.26 1 45
26444 VBA
New 네이버 웹페이지 특정 정보 가져오기 질문
엑셀초보(LV.1) | 2022.01.26 | 추천 0 | 조회 21
엑셀초보(LV.1) 2022.01.26 0 21
26441 VBA
New vba 코딩으로 다른 시트 데이터 가져오기 질문입니다. 첨부파일 (2) 답변완료
qkrwo**** | 2022.01.26 | 추천 0 | 조회 47
qkrwo**** 2022.01.26 0 47
26440 피벗테이블
New 3개의 피벗테이블 필터 값을 동시에 변경하는 방법이 알고 싶어요 첨부파일
forest choi | 2022.01.26 | 추천 0 | 조회 30
forest choi 2022.01.26 0 30
26439 VBA
New VBA 네이버 부동산 크롤링 질문 (1)
엑셀초보(LV.1) | 2022.01.26 | 추천 0 | 조회 31
엑셀초보(LV.1) 2022.01.26 0 31
26421 문서서식
New 엑셀과 워드 메일머지 강의에는 예제파일이 없나요?
pcs**** | 2022.01.26 | 추천 0 | 조회 28
pcs**** 2022.01.26 0 28
26420 함수/공식
New 회원자료실 커스텀 일정표에서 조건추가하여 사용하고싶은데 질문있습니다 !
창동명 | 2022.01.26 | 추천 0 | 조회 32
창동명 2022.01.26 0 32
26410 피벗테이블
New 피벗 테이블에서 취소선을 표현하는 방법 첨부파일 (1)
퉁퉁이 | 2022.01.25 | 추천 0 | 조회 49
퉁퉁이 2022.01.25 0 49
26408 기능/도구
New 표에서 바로만든 슬라이서도 보고서연결 기능과 비슷하게 만들 수 있나요? (3)
차가운열매 | 2022.01.25 | 추천 0 | 조회 43
차가운열매 2022.01.25 0 43
26405 함수/공식
New 최고점/최저점 찾아내기 첨부파일 (14) 답변완료
km**** | 2022.01.25 | 추천 0 | 조회 73
km**** 2022.01.25 0 73
26403 VBA
New VBA를 이용하여 euc-kr로 인코딩된 site 크롤링 방법 (1)
콩순이 | 2022.01.25 | 추천 0 | 조회 29
콩순이 2022.01.25 0 29
26401 VBA
New 목표값 계산 자동 매크로 방법 첨부파일 (1)
박우성 | 2022.01.25 | 추천 0 | 조회 45
박우성 2022.01.25 0 45
26399 피벗테이블
New 데이터 새로고침 시 피벗테이블 연결 오류 첨부파일 (1)
유정 | 2022.01.25 | 추천 0 | 조회 31
유정 2022.01.25 0 31
26392 함수/공식
New MINIFS 함수 사용시 0으로 값 반환됨 (초보자에게 도움 부탁드립니다...ㅜㅜ) 첨부파일 (3) 답변완료
김원석 | 2022.01.25 | 추천 0 | 조회 45
김원석 2022.01.25 0 45
26387 VBA
New VBA 엑셀에서 다른 프로그램 실행하기 (2) 답변완료
병욱 | 2022.01.25 | 추천 0 | 조회 43
병욱 2022.01.25 0 43
26378 피벗테이블
New 피벗테이블 집계 오류 (5) 답변완료
가을남자 | 2022.01.25 | 추천 0 | 조회 51
가을남자 2022.01.25 0 51