매크로 텍스트 상자 적용

VBA
작성자
열심히살자
작성일
2020-09-14 10:06
조회
37
 

안녕하세요

항상 감사드립니다.

 

제가 오빠두엑셀을 통해서

폰트 지정 및 글씨크기 바꾸는 매크로를 만들어서

아주 잘 쓰고있는데...

 

▶ 폰트지정 매크로

하기와 같이 쓰고있는데...

이거는 텍스트상자에서 쓰면 텍스트상자 전체 글씨체가 바뀌더라구요 ㅠㅠ

텍스트 상자 내에서 블록지정한것만 바꿀수는 없는지...ㅠㅠ 문의드립니다.

 

Sub ArialNarrow()
Selection.Font.Name = "Arial Narrow"
End Sub

 

 

▶ 폰트글씨크기 변경 매크로

알려주신 것처럼 하기와 같이 쓰고있는데...

이거는 텍스트상자에서는 적용이 안되더라구요 ㅠㅠ

Sub 폰트확대()

Dim Rng As Range
Dim cRng As Range

Set cRng = Selection

For Each Rng In cRng
Rng.Font.Size = Rng.Font.Size + 1
Next

End Sub

 

방법이 있을까요 선생님 ..ㅠㅠ

 
전체 1

  • 2020-09-14 14:46

    안녕하세요.

    텍스트상자의 폰트까지 확대하시려면 아래 명령문을 사용해보세요.

    제시해드린 답변이 도움이 되셨길 바랍니다.

    Sub 폰트확대()
    
    '오빠두엑셀
    'www.oppadu.com
    '범위 및 텍스트상자 포함
    
    Dim Rng As Variant
    Dim cRng As Variant
    
    Set cRng = Selection
    
    If VarType(cRng) = 9 Then
        cRng.Font.Size = cRng.Font.Size + 1
    Else
        For Each Rng In cRng
        Rng.Font.Size = Rng.Font.Size + 1
        Next
    End If
    
    End Sub

    전체 1,187
    번호 카테고리제목작성자작성일추천조회
    1183 함수/공식
    New (연평균 증가률 질문 드려요) 시작값, 종료값이 마이너스 또는 플러스일때
    푸우 | 14:25 | 추천 0 | 조회 4
    푸우14:2504
    1182 함수/공식
    New xfilter함수 다중범위 이용하는게 가능할까요?
    David Cho | 14:23 | 추천 0 | 조회 3
    David Cho14:2303
    1181 함수/공식
    New Sum(Sumifs) 함수로 조건에 맞는 월별 합계를 구하고자 하는데 다른 방법이 있을지 질문드립니다.
    Hannah | 14:02 | 추천 0 | 조회 6
    Hannah14:0206
    1180 함수/공식
    New 중복 카운트 (2)
    유리비 | 11:08 | 추천 0 | 조회 19
    유리비11:08019
    1179 함수/공식
    New 도움이 필요합니다 (배열형태 개수를 구하는 함수) 첨부파일
    벗님들 | 07:51 | 추천 0 | 조회 13
    벗님들07:51013
    1178 VBA
    New HTS연동 된 값 질문 입니다.
    COXMAN | 2020.09.27 | 추천 0 | 조회 22
    COXMAN2020.09.27022
    1177 차트/그래프
    New 조건부서식 규칙관리자 첨부파일 (2)
    강재성 | 2020.09.27 | 추천 0 | 조회 28
    강재성2020.09.27028
    1176 문서서식
    New 행 2개로 구분되어 있는 텍스트를 열 2개로 만드는 방법은 없을까요..? (4)
    찬찬 | 2020.09.26 | 추천 0 | 조회 33
    찬찬2020.09.26033
    1175 함수/공식
    New 함수 참조 문제 첨부파일 (1)
    1oi1oi1oi | 2020.09.26 | 추천 0 | 조회 22
    1oi1oi1oi2020.09.26022
    1174 피벗테이블
    New 시간슬라이서와 피벗테이블 주 간격 생성방법 첨부파일 (3)
    iviolin**** | 2020.09.26 | 추천 0 | 조회 23
    iviolin****2020.09.26023
    1173 함수/공식
    New 섬프로덱트+인덱스매치 조합 외에도 다른 방식이 있는지 궁금합니다. 첨부파일 (1)
    달퐁이 | 2020.09.26 | 추천 0 | 조회 40
    달퐁이2020.09.26040
    1172 기능/도구
    New 엑셀늅인데 정렬에 관해서 궁금합니다 ㅠ (3)
    유녕 | 2020.09.25 | 추천 0 | 조회 36
    유녕2020.09.25036
    1171 파워쿼리/피벗
    데이터셋을 재구성하는 방법 질문.. 첨부파일 (2)
    김연수 | 2020.09.25 | 추천 0 | 조회 31
    김연수2020.09.25031
    1170 VBA
    VBA에서 변수로 영역 지정하는 방법과 구문의 구조에 대한 질문입니다 (3)
    공대생 | 2020.09.24 | 추천 0 | 조회 37
    공대생2020.09.24037
    1169 VBA
    웹 크롤링 관련 질문드립니다. (5)
    hall**** | 2020.09.24 | 추천 2 | 조회 52
    hall****2020.09.24252
    1168 함수/공식
    NaverFinanceSearch 함수 기능 문의 첨부파일 (2)
    알파보이 | 2020.09.24 | 추천 0 | 조회 40
    알파보이2020.09.24040
    1167 차트/그래프
    동적범위를 이용한 날짜 합계 구하는 함수 문의 (1)
    째쨈 | 2020.09.24 | 추천 0 | 조회 36
    째쨈2020.09.24036
    1166 피벗테이블
    대량의 두개의 데이터를 합친후 데이터수정 및 합계결과 뽑아내는법이 궁금합니다 (1)
    자유인 | 2020.09.24 | 추천 0 | 조회 39
    자유인2020.09.24039
    1165 VBA
    VBA 여러개 시트를 활용한 피벗데이블 질문 첨부파일 (4)
    sundaychefchef | 2020.09.23 | 추천 0 | 조회 41
    sundaychefchef2020.09.23041
    1164 VBA
    if문의 조건에 대해 질문드립니다. (6)
    엑셀늅늅이 | 2020.09.23 | 추천 0 | 조회 41
    엑셀늅늅이2020.09.23041
    1163 함수/공식
    엑셀 배열을 합칠 수 있는 방법이 있을까요? (7)
    나그네 | 2020.09.23 | 추천 0 | 조회 52
    나그네2020.09.23052
    1162 함수/공식
    경우의 수 관련 질문드립니다. (10)
    speedoo | 2020.09.23 | 추천 0 | 조회 52
    speedoo2020.09.23052
    1161 함수/공식
    데이터 뽑기 첨부파일 (1)
    soung**** | 2020.09.23 | 추천 0 | 조회 48
    soung****2020.09.23048
    1160 VBA
    기초적인 질문 하나만 할께요 2차원 배열에서 range값을 배열로 받아서 다른 시트에 배열 붙여넣는 방법이 어떻게 되나요 (1)
    밍장군 | 2020.09.23 | 추천 0 | 조회 22
    밍장군2020.09.23022
    1159 VBA
    (VBA) 도형서식 -> 채우기 -> 그림 또는 질감 채우기 -> 다음에서 그림 삽입 -> 클립보드 선택 구현 (1)
    건주 | 2020.09.23 | 추천 0 | 조회 29
    건주2020.09.23029
    1158 VBA
    엑셀이서도 검색어 자동완성기능을 구현할 수 있을까요? 첨부파일 (1)
    fre | 2020.09.23 | 추천 0 | 조회 31
    fre2020.09.23031
    1157 차트/그래프
    차트 최대값 및 Xfilter 함수 문의드립니다. (1)
    Elkins | 2020.09.23 | 추천 0 | 조회 27
    Elkins2020.09.23027
    1156 VBA
    WorkSheet_Change 와 같은 사용자 정의 함수를 만드는 방법은 없나요? (1)
    엑셀늅늅이 | 2020.09.22 | 추천 0 | 조회 29
    엑셀늅늅이2020.09.22029
    1155 파워쿼리/피벗
    상단바가 잠금 걸렸는데 왜이러는지 모르겠습니다. 첨부파일 (4)
    신윤재 | 2020.09.22 | 추천 1 | 조회 28
    신윤재2020.09.22128
    1154 문서서식
    이미지 삽입 후 크기를 조절해도 압축되지 않고 원본 해상도 유지하는 방법? (5)
    악순환의 굴레 | 2020.09.22 | 추천 0 | 조회 27
    악순환의 굴레2020.09.22027