엑셀자료 사용 안내 엑셀 매크로(VBA)를 이용하여 만든 간단한 프로그램과 엑셀 매크로(VBA)를 배울 수 있는 강좌가 있습니다.따라서, 대부분 프로그램을 이용하기 위해서는 엑셀 매크로 사용하기 설정을 하여야 합니다. (1.보안설정) 클릭 (2.개발도구설정) 클릭 3.매크로 차단 해제 방법

엑셀에서 가끔 나타나는 에러입니다.

엑셀에서 행의 마지막이 200번 이라면, 스크롤바의 박스는 아래에 위치해야 합니다.

하지만, 아래 그림과 같이 마지막 200번 행에 위치해도, 스크롤바 박스가 여전히 위에 있습니다.

 

2022-11-24 23 35 52.png

 

이런 에러가 발생하는 이유는 엑셀에서 스크롤바를 UsedRange로 마지막셀을 잘못 인식하기 때문입니다. 그래서, 정확한 마지막 셀의 위치를 찾아 주면 됩니다.

 

즉, UsedRange의 마지막 셀과 find로 찾은 마지막 셀을 비교해서 잘못된 정보를 제거해 줍니다.

 

아래는 코드 예제 입니다.

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub 스크롤바_일치_시키기()
 
Dim MR, MC As Long 'MaxRow MaxCol
Dim i_used_row, i_used_col As Long
 
'2가지 방법으로 마지막 셀의 행과 열을 구한다.
 
'1번 방법 : find를 이용해서 마지막 셀을 찾는다(find명령은 쉬트에 값이 없으면 에러, 그래서 에러 무시명령 넣어 준다)
'2번 방법 : UsedRange를 이용해서 마지막 셀을 찾는다.
 
'2번 방법으로(UsedRange) 정해진 셀의 마지막을 기준으로 스크롤바가 생성된다.
'그래서, find로 찾은 셀주소와 비교해서 불필요한 영역을 삭제해준다.
 
    On Error Resume Next
        MR = Cells.Find("*", , , , xlByRows, xlPrevious).row
            If Err.Number = 0 Then
                Err.Clear
            Else
                MR = 1
            End If
    On Error GoTo 0
        
    On Error Resume Next
        MC = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
            If Err.Number = 0 Then
                Err.Clear
            Else
                MC = 1
            End If
    On Error GoTo 0
 
    i_used_row = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).row
    i_used_col = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
    
'1번과 2번을 비교해서 데이터가 없는 영역을 삭제
    If MR < i_used_row Then Range(Rows(MR + 1), Rows(i_used_row)).EntireRow.Delete
    If MC < i_used_col Then Range(Columns(MC + 1), Columns(i_used_col)).EntireColumn.Delete
 
'UsedRange를 재 활성화
    ActiveSheet.UsedRange
 
End Sub
 
 
 
cs
사진 및 파일 첨부

여기에 파일을 끌어 놓거나 왼쪽의 버튼을 클릭하세요.

파일 용량 제한 : 0MB (허용 확장자 : *.*)

0개 첨부 됨 ( / )

  1. 엑셀 프로그램 요청하기(무료 또는 책 구입 후원)

    Date2021.06.07 By지천명영어 Views1253
    read more
  2. 엑셀 VBA로 PDF파일 페이지 나누기

    Date2022.12.13 By지천명영어 Views554
    Read More
  3. 이미지 속에 있는 표를 OCR로 인식 후, 테이블 데이터로 만들기

    Date2022.12.11 By지천명영어 Views1571
    Read More
  4. 엑셀 스크롤바 일치 시키기(UsedRange 에러)

    Date2022.11.24 By지천명영어 Views204
    Read More
  5. 엑셀 다운로드 후 매크로 차단(보안 위험 Microsoft는 이 파일의 출처를 신뢰할 수 없기 때문에 매크로 실행을 차단했습니다.

    Date2022.11.13 By지천명영어 Views5523
    Read More
  6. 엑셀 리본메뉴 imageMso (이미지 아이콘 검색)

    Date2022.08.25 By지천명영어 Views716
    Read More
  7. 수도쿠로 숫자와 친해지기(엑셀 매크로(VBA)로 스도쿠 프로그램 만들기(1/3)(2022.6.4 압데이트)

    Date2022.06.01 By지천명영어 Views1143
    Read More
  8. 엑셀 공백 행. 열 전부 삭제 (엑셀에서 공란인 행과 열을 찾아서 한번에 삭제해 줍니다.)

    Date2022.05.27 By지천명영어 Views4278
    Read More
  9. 파파고와 구글번역을 한번에(지천명영어) 프로그램 사용법

    Date2022.05.24 By지천명영어 Views2302
    Read More
  10. 엑셀 표를 웹형식의 html 코드로 만들기(글꼴 설정, 셀병합 , 하이퍼링크 , 테두리 표시 등을 코드로 만들어 줍니다.)

    Date2022.05.23 By지천명영어 Views3664
    Read More
  11. 대법원 부동산 경매 물건 검색 크롤링(엑셀) - 타 프로그램 없이 직접 엑셀에서 경매 물건 검색

    Date2022.05.13 By지천명영어 Views2457
    Read More
  12. 엑셀로 PPT파일을 자동으로 만들기

    Date2022.04.18 By지천명영어 Views5354
    Read More
  13. 영어, 일본어 듣기 공부 용 mp3 파일 가사 만들기 - 일괄 만들기

    Date2022.04.10 By지천명영어 Views478
    Read More
  14. 일본어 한자 후리가나 자동입력 및 파파고 한글번역 그리고, 구글 영어번역까지 한번에

    Date2021.11.17 By지천명영어 Views1688
    Read More
  15. MS오피스 언어가 일본어로 나올 때 한국어로 바꾸기

    Date2021.10.31 By지천명영어 Views1928
    Read More
  16. PDF 영어문장 합치기(PDF 문서 영어 글자를 정상적인 영문으로 일괄 바꿔주기)

    Date2021.06.28 By지천명영어 Views1057
    Read More
  17. 엑셀에 마이크로소프트(MS) 영어 음성합성시스템(TTS) 설치하기

    Date2021.06.13 By지천명영어 Views1046
    Read More
  18. 따옴표 없이 엑셀 글자 복사하기

    Date2021.06.08 By지천명영어 Views6499
    Read More
  19. 구글 번역을 엑셀로, 텍스트 문장을 한꺼번에 구글 번역하기

    Date2021.06.07 By지천명영어 Views5560
    Read More
  20. 엑셀 비어있는 셀(공란인 행 또는 열) 한번에 삭제하기

    Date2021.06.05 By지천명영어 Views2716
    Read More
  21. 엑셀 책 쪽수 자동 계산하는 법

    Date2021.06.05 By지천명영어 Views487
    Read More
Board Pagination Prev 1 2 Next
/ 2

LOGIN

SEARCH

MENU NAVIGATION