Excel(엑셀)에 해당되는 글 13건

글

Speed VLOOKUP

Excel(엑셀)/Excel 2021. 3. 27. 10:32

10만줄 이상의 Excel 의 Vlookup 사용시에 빠르게 진행할수 있는 방법

 

https://exceljet.net/formula/faster-vlookup-with-2-vlookups

저작자표시 비영리

'Excel(엑셀) > Excel' 카테고리의 다른 글

VLOOKUP 을 다중 조건으로 골라내기  (0) 2019.05.02
앞뒤 공백 있는 문자열 공백 제거  (0) 2019.04.26

설정

,

트랙백

댓글

글

[Excel VBA] Excel VBA 암호 걸기

Excel(엑셀)/Excel VBA 2019. 10. 4. 11:50

목적 : 

다른 곳에 해당 엑셀을 배포시에 특정 시트는 숨김처리하고 보내야 할경우가 있다.

VBA 상에서 해당 시트를 숨김처리 한후에 VBA 자체를 암호를 걸면 해당 작업이 가능하다.

 

방법 :

1. 탭 숨김처리

: VBA 상에서

보기 -> 속성창(W) -> 숨김처리 하고자 하는 Sheet 선택 -> Visible -> 2 - xlSheetVeryHidden 선택

 

2. VBA 암호 걸기

: VBA 상에서

도구 -> VBAProject 속성 -> 보호 탭 -> 암호 걸기 -> 껐다 키기

 

참고 싸이트

https://mainia.tistory.com/1310

저작자표시 비영리

'Excel(엑셀) > Excel VBA' 카테고리의 다른 글

[Excel VBA] 파일 생성 및 문자열 특정부분 추출  (0) 2019.08.06
[Excel VBA] 특정 시트 출력하기  (0) 2019.08.06
[Excel VBA] 폴더내 모든 엑셀열어 시트 복사후 저장  (0) 2019.08.06
[Excel VBA] 각 셀마다 파일 하이퍼 링크걸기  (0) 2019.08.06
[Excel VBA] 짝수/홀수만 진행하는 For문  (0) 2019.04.15

설정

,

트랙백

댓글

글

[Excel VBA] 파일 생성 및 문자열 특정부분 추출

Excel(엑셀)/Excel VBA 2019. 8. 6. 13:56

목적
: 엑셀 파일 생성 및 문자열에서 필요한 부분만 추출

실행결과
: 4,2 셀에 있는 값의 5부터 8개 글자의 파일명으로 추출해서 파일명 만든후 생성

코드


Sub create_file_device_string() 
    Dim template_sheet As Worksheet 
    Dim file_name As String 
     
    Set template_sht = Sheets("TEST") 
     
    file_name = Mid(template_sht.Rows(4).Columns(2).Value, 5, 8) '문자열 자르기 
     
    'F_name = file_name  'B열 1행의 값 -> F_name 변수지정 

    '생성할 파일이 이미존재하는지 여부확인 
    If Len(Dir(ThisWorkbook.Path & "\" & F_name & ".xlsx")) Then 
        ' 현 워크북 파일 디렉토리에 F_name 변수값의 엑셀파일이 있다면  True 
        MsgBox "파일명이 존재합니다."  '메시지 띄움 
         
    End If 

    Workbooks.Add  '워크북 추가 

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & file_name & ".xlsx" 
    '현 디렉토리에 "file_name".xlsx 로 저장 
End Sub 

 

저작자표시 비영리

'Excel(엑셀) > Excel VBA' 카테고리의 다른 글

[Excel VBA] Excel VBA 암호 걸기  (0) 2019.10.04
[Excel VBA] 특정 시트 출력하기  (0) 2019.08.06
[Excel VBA] 폴더내 모든 엑셀열어 시트 복사후 저장  (0) 2019.08.06
[Excel VBA] 각 셀마다 파일 하이퍼 링크걸기  (0) 2019.08.06
[Excel VBA] 짝수/홀수만 진행하는 For문  (0) 2019.04.15

설정

,

트랙백

댓글

글

[Excel VBA] 특정 시트 출력하기

Excel(엑셀)/Excel VBA 2019. 8. 6. 13:54

목적
: 엑셀 파일의 특정 시트를 출력하는 VBA
: 양식은 동일한데 내용을 바꿔가면서 출력할때 사용해도 좋음

실행결과
: 지정한 시트가 출력됨

코드

 

저작자표시 비영리

'Excel(엑셀) > Excel VBA' 카테고리의 다른 글

[Excel VBA] Excel VBA 암호 걸기  (0) 2019.10.04
[Excel VBA] 파일 생성 및 문자열 특정부분 추출  (0) 2019.08.06
[Excel VBA] 폴더내 모든 엑셀열어 시트 복사후 저장  (0) 2019.08.06
[Excel VBA] 각 셀마다 파일 하이퍼 링크걸기  (0) 2019.08.06
[Excel VBA] 짝수/홀수만 진행하는 For문  (0) 2019.04.15

설정

,

트랙백

댓글

글

[Excel VBA] 폴더내 모든 엑셀열어 시트 복사후 저장

Excel(엑셀)/Excel VBA 2019. 8. 6. 13:52

목적

: 특정 폴더내 모든 엑셀파일을 열어 마스터 파일의 시트를 복사후 저장하기

 

실행결과

: 폴더내 모든 파일내 동일 시트 복사됨

 

코드

Sub make_job_report()

    Application.DisplayAlerts = False  '경고 메시지 표시하지 않기

    Dim wb As Workbook
    Dim template_sheet, format_sheet As Worksheet
    Dim file_name As String
    Dim template_row As Integer, template_col As Integer
    Dim i, j, k As Integer
        
    Set format_sheet = Sheets("TEST") 'TEST 시트를 폴더내 다른 파일에 붙여 넣을 것임
    

    file_name = "TempFIle"
    
    
    Dim Filename, Pathname As String

    Dim wbOpen As Workbook

    Pathname = "D:\폴더\"

    Filename = Dir(Pathname & "*.xlsx")

    Do While Filename <> ""

        Set wbOpen = Workbooks.Open(Pathname & Filename) '새로 열 파일의 워크북

        format_sheet.Copy Before:=wbOpen.Sheets(1)

        wbOpen.Close SaveChanges:=True '작업 파일, 작업 후 저장. 저장하지 않을 경우 False

        Filename = Dir()

    Loop
    
End Sub
저작자표시 비영리

'Excel(엑셀) > Excel VBA' 카테고리의 다른 글

[Excel VBA] 파일 생성 및 문자열 특정부분 추출  (0) 2019.08.06
[Excel VBA] 특정 시트 출력하기  (0) 2019.08.06
[Excel VBA] 각 셀마다 파일 하이퍼 링크걸기  (0) 2019.08.06
[Excel VBA] 짝수/홀수만 진행하는 For문  (0) 2019.04.15
[Excel VBA] 파일생성 및 문자열 특정부분추출  (0) 2019.04.09

설정

,

트랙백

댓글

글

[Excel VBA] 각 셀마다 파일 하이퍼 링크걸기

Excel(엑셀)/Excel VBA 2019. 8. 6. 13:50

목적
: 각셀에 하이퍼 링크 파일을 걸어주기

실행결과
: 순환하면서 해당 셀의 값을 기초로 각 파일의 하이퍼 링크를 걸어준다.

코드


Sub hyperlinksub() 

    Dim wb As Workbook 
    Dim template_sheet, format_sheet, skill_sheet, jobdef_sheet As Worksheet 
    Dim pre_file_name, file_name, job_title, skill_value, jfg_value, vp_file_check As String 
    Dim template_row As Integer, template_col As Integer 
    Dim i, j, k, skill_length, skill_competency, skill_description, tb_value, tb1_col, end_num As Integer 
    Dim varTmp() As String 
    Dim skillTmp() As String 
         
    Set template_sht = Sheets("R&D") 
     
    template_row = template_sht.UsedRange.Rows.Count 
    template_col = template_sht.UsedRange.Columns.Count 
     
     
    For i = 3 To template_row 
        If Not IsEmpty(template_sht.Rows(i).Columns(8).Value) Then 
            file_name = Mid(template_sht.Rows(i).Columns(8).Value, 5, 9) 
            template_sht.Hyperlinks.Add Anchor:=template_sht.Rows(i).Columns(8), Address:="연구개발\" & file_name & ".xlsx" 
        End If 
    Next 
     
End Sub 

 

저작자표시 비영리

'Excel(엑셀) > Excel VBA' 카테고리의 다른 글

[Excel VBA] 특정 시트 출력하기  (0) 2019.08.06
[Excel VBA] 폴더내 모든 엑셀열어 시트 복사후 저장  (0) 2019.08.06
[Excel VBA] 짝수/홀수만 진행하는 For문  (0) 2019.04.15
[Excel VBA] 파일생성 및 문자열 특정부분추출  (0) 2019.04.09
[Excel VBA] 문자열 합치기  (0) 2019.03.15

설정

,

트랙백

댓글

글

VLOOKUP 을 다중 조건으로 골라내기

Excel(엑셀)/Excel 2019. 5. 2. 13:25

목적

: 조건1과 조건2 모두를 부합하는 것으로 VLOOKUP 을 하고자 할때

 

 

사용법

: 아래의 표를 예시로, Index 에 조건1과 조건 2를 & 기호로 합쳐두고, 해당 Index 로 찾는다.

Index 조건1 조건2 찾고자하는 것  
=B2&C2 a b c  

 

저작자표시 비영리

'Excel(엑셀) > Excel' 카테고리의 다른 글

Speed VLOOKUP  (0) 2021.03.27
앞뒤 공백 있는 문자열 공백 제거  (0) 2019.04.26

설정

,

트랙백

댓글

글

앞뒤 공백 있는 문자열 공백 제거

Excel(엑셀)/Excel 2019. 4. 26. 11:06

방법 : 이것은 VBA 사용이 아닌 Trim 함수를 사용하여 해결하는 것이 간편

 

함수 사용시 아래처럼 변환된다.

결론적으로, 가운데 많이 뛰어 쓰기 한것도 한칸으로 변환하고, 앞 뒤의 공백은 없애준다!

 

예시

=TRIM(A1)

 

           테스트 문구 테스트 문구
테스트 문구 테스트 문구
테스트                          문구 테스트 문구
저작자표시 비영리

'Excel(엑셀) > Excel' 카테고리의 다른 글

Speed VLOOKUP  (0) 2021.03.27
VLOOKUP 을 다중 조건으로 골라내기  (0) 2019.05.02

설정

,

트랙백

댓글

글

[Excel VBA] 짝수/홀수만 진행하는 For문

Excel(엑셀)/Excel VBA 2019. 4. 15. 10:03

목적
: 포문 돌때 짝수만 돌기

실행결과
: For문의 짝수만 돌아서 진행

코드

    For i = 0 To UBound(varTemp) Step 2      '배열내 증가값을 2씩 한다. 
        format_sheet.Rows(format_similar_job + (i / 2)).Columns(3).Value = varTemp(i) 
        'i = i + 2 '짝수만 돌리기 
        MsgBox i 
    Next 



저작자표시 비영리

'Excel(엑셀) > Excel VBA' 카테고리의 다른 글

[Excel VBA] 폴더내 모든 엑셀열어 시트 복사후 저장  (0) 2019.08.06
[Excel VBA] 각 셀마다 파일 하이퍼 링크걸기  (0) 2019.08.06
[Excel VBA] 파일생성 및 문자열 특정부분추출  (0) 2019.04.09
[Excel VBA] 문자열 합치기  (0) 2019.03.15
[Excel VBA] 특정 시트(Sheet)만 남기고 모두 삭제하기  (0) 2019.03.15

설정

,

트랙백

댓글

글

[Excel VBA] 파일생성 및 문자열 특정부분추출

Excel(엑셀)/Excel VBA 2019. 4. 9. 15:21

목적
: 엑셀 파일 생성 및 문자열에서 필요한 부분만 추출

실행결과
: 4,2 셀에 있는 값의 5부터 8개 글자의 파일명으로 추출해서 파일명 만든후 생성

코드

Sub create_file_device_string() 
    Dim template_sheet As Worksheet 
    Dim file_name As String 
     
    Set template_sht = Sheets("TEST") 
     
    file_name = Mid(template_sht.Rows(4).Columns(2).Value, 5, 8) '문자열 자르기 
 
    '생성할 파일이 이미존재하는지 여부확인 
    If Len(Dir(ThisWorkbook.Path & "\" & F_name & ".xlsx")) Then 
        ' 현 워크북 파일 디렉토리에 F_name 변수값의 엑셀파일이 있다면  True 
        MsgBox "파일명이 존재합니다."  '메시지 띄움 
         
    End If 

    Workbooks.Add  '워크북 추가 

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & file_name & ".xlsx" 
    '현 디렉토리에 "file_name".xlsx 로 저장 
End Sub 



저작자표시 비영리

'Excel(엑셀) > Excel VBA' 카테고리의 다른 글

[Excel VBA] 각 셀마다 파일 하이퍼 링크걸기  (0) 2019.08.06
[Excel VBA] 짝수/홀수만 진행하는 For문  (0) 2019.04.15
[Excel VBA] 문자열 합치기  (0) 2019.03.15
[Excel VBA] 특정 시트(Sheet)만 남기고 모두 삭제하기  (0) 2019.03.15
[Excel VBA] 특정 폴더의 모든 엑셀 파일을 열어 작업수행  (0) 2019.03.15

설정

,

트랙백

댓글

1 2
지역로그| 태그| 미디어로그| 방명록| 관리자| 쓰기
나는야 직장인's Blog is powered by Daum & Tattertools / Designed by Tistory

티스토리툴바