728x90
반응형
SMALL

EXCEL VBA 40

선택한 셀의 행렬 강조하기, 선택한 셀 행렬 색으로 강조하기

[ 결 과 물 ] [ 적용방법 ] 먼저 데이터를 만들거나, 기존에 있던 데이터를 열어 줍니다. 그렇게 하고 난 후 데이터에 해당하는 부분의 범위를 선택해 줍니다. 다음 [ 홈 ] → [ 조건부 서식 ]을 클릭한 후 [ 새 규칙 ]을 클릭해 줍니다. 다음 [ 수식을 사용하여 서식을 지정할 셀 결정 ]을 누른 후 아래 그림의 파란 네모박스 안에 있는 수식을 똑같이 입력해 줍니다. 해당 수식은 [ =row()=cell("row") ]입니다. 그렇게 하고 난 후 [ 서식 ]을 눌러줍니다. 다음 [ 채우기 ]를 눌러 색을 지정한 후 [ 확인 ]을 눌러줍니다. 이렇게 모두 확인을 누르고 나면 어떤 열은 선택한 색으로 칠해져 있을 것입니다. 다음 해당 시트명에서 마우스 오른쪽 버튼을 누르면 아래 그림과 같이 메뉴가 ..

EXCEL VBA 2023.09.24

VBA Application.OnTime / VBA로 정해진 시간, 일정 시간마다 매크로 실행하기

VBA의 Application.OnTime 함수를 사용하면 정해진 시간마다 또는 일정 주기마다 매크로를 실행하는 것이 가능합니다. 이전에 포스팅 했던 VBA를 사용한 디지털 시계 만들기가 그 예시입니다. VBA를 사용한 디지털 시계 만들기 다음 그림과 같이 간단한 VBA 코드로 실시간으로 시간을 표시하는 디지털 시계를 만들어 보겠습니다. 먼저 시간을 표시할 셀을 하나 선택하고 다음 그림과 같이 [ =now() ] 함수를 입력합니다. 그럼 karuru1007.tistory.com Application.OnTime 함수는 네 가지 매개변수를 사용합니다. Application.OnTime EarliestTime, Procedure, LatestTime, Schedule (EarliestTime) 매크로가 실행..

EXCEL VBA 2023.03.14

VBA를 사용한 디지털 시계 만들기

다음 그림과 같이 간단한 VBA 코드로 실시간으로 시간을 표시하는 디지털 시계를 만들어 보겠습니다. 먼저 시간을 표시할 셀을 하나 선택하고 다음 그림과 같이 [ =now() ] 함수를 입력합니다. 그럼 아래와 같이 날짜와 시간이 나타납니다. 설정에 따라 다른 형식으로 나타날 수도 있습니다. 먼저 [ Ctrl + 1 ]을 눌러 다음 그림과 같이 셀 서식을 설정합니다. 이렇게 설정하면 아래 그림과 같이 시간이 나타납니다. 이 후 글자 크기, 배경색, 글자색, 정렬 등을 설정하여 원하는 모양으로 만들어 줍니다. 저는 이런 모양으로 설정을 했습니다. 이제 [ alt + 11 ]을 눌러 VBA 코드 편집기를 실행해 줍니다. 편집기 실행 후 [ 삽입 ] → [ 실행 ]을 눌러줍니다. 이제 코드를 작성해 줍니다. S..

EXCEL VBA 2023.03.10

엑셀 셀에 값 입력하는 방법

엑셀에서 셀의 좌표는 아래 그림과 같이 되어 있습니다. 현재 시트의 셀에 값 입력하기 그리고 어느 셀에 값을 입력할 때에는 아래 형식으로 작성을 합니다. Cells(행의 좌표, 열의 좌표) = 값 아래와 같이 코드를 작성하고 실행해 보겠습니다. Sub test() Cells(3, 2) = 5 End Sub 3행 5열에 값 [ 5 ]를 입력하는 코드입니다. 결과는 아래 그림과 같습니다. 특정 시트의 셀에 값 입력하기 아래 그림과 같이 시트를 두개 만들겠습니다. 각 시트에는 아래 그림과 같은 표를 만들어 놓았습니다. [ sheet1 ]의 3행 2열에 값 5를 입력하고 [ sheet1 ]의 5행 1열에 값 4를 입력하고 [ sheet2 ]의 3행 2열에 값 5를 입력하고 [ sheet2 ]의 5행 1열에 값 ..

EXCEL VBA 2023.01.02

Vba 웹 크롤링 네이버 영화순위, vba Selenium

1. Edge 브라우저로 네이버 웹 페이지를 연다 2. 검색어에 [ 영화순위 ]를 입력한다. 3. 첫번째 웹페이지 영화순위를 엑셀로 가져온다. Sub egb_open() Dim Egb As New Selenium.WebDriver Dim ele As WebElement Dim count As Integer Egb.Start "edge" Egb.Wait (1000) Egb.Get "https://www.naver.com" ' 영화순위 검색 Egb.FindElementById("query").SendKeys "영화순위" ' 검색버튼 클릭 Egb.FindElementByClass("ico_search_submit").Click count = 1 ' 각 영화제목을 ele에 넣는다. For Eac..

EXCEL VBA 2020.11.29

VBA Selenium 사용하기, VBA Edge

1. Seleniumbasic 설치 Release SeleniumBasic v2.0.9.0 · florentbr/SeleniumBasic · GitHub Release SeleniumBasic v2.0.9.0 · florentbr/SeleniumBasic CHANGELOG.txt github.com - 기본경로 : C:\Users\사용자명\AppData\Local\SeleniumBasic 2. Seleniumbasic 폴더의 edgedriver.exe 파일 삭제 3. Edge Browser 버전 확인 4. Edge Browser Webdriver 다운로드 : Here WebDriver - Microsoft Edge Developer Microsoft Edge Legacy Microsoft WebDrive..

EXCEL VBA 2020.11.29

엑셀 VBA , FOR EACH ~ IN ~ NEXT 구문

지난 셀 선택하기에서 잠깐 FOR EACH ~ IN ~ NEXT 구문이 나왔었습니다. For Each 변수 In 집합 실행문 Next 해당 구문은 위와 같이 사용됩니다. 저 위 집합 정말 다양한 것들이 올 수 있습니다. 어제 사용한 구문을 한번 보겠습니다. Sub Select_Cells_Range() Dim c As Range, r As Range For Each c In Range("B2:B11") '[ B2~B11 범위의 셀을 하나씩 ]이라는 의미 / 변수 C는 B2, B3 ~ B12를 하나씩 If c = "A0002" Or c = "A0004" Then Else If r Is Nothing Then Set r = c Else Set r = Union(r, c) End If End If Next If..

EXCEL VBA 2020.11.23

엑셀 VBA 셀 범위 선택하기, VBA resize와 VBA offset 활용

Sub Select_Cells_Range() Range("b3:e11").Select End Sub Sub Select_Cells_Range() Range("B3", Cells(Rows.Count, "E").End(xlUp)).Select End Sub ≫ 이 경우 [ E11셀 ]이 빈셀일 경우 원하는 결과나 나오지 않을 수 있음. Sub Select_Cells_Range() Range("B3", Cells(Rows.Count, "D").End(xlUp).Offset(, 1)).Select End Sub ≫ 이 경우 [ D11셀 ] 선택 후 offset를 이용하여 우측으로 한 칸 이동후 선택 Sub Select_Cells_Range() Range("B2").CurrentRegion.Select End S..

EXCEL VBA 2020.11.22

엑셀 VBA 셀 선택하기(2) / .End(xlUp).offset(1, 0).select / End(3)(2).select

▶ Offset 속성을 활용하여 셀 선택 기준셀.Offset(행, 열) : 기준 셀로부터 지정한 행, 열의 숫자 만큼 이동하라 - 오른쪽, 아래쪽일 경우 : 양수 - 왼쪽, 위쪽일 경우 : 음수 Range("a1").offset(1, 1).Select → [ B2 ] 셀로 이동 후 선택 Range("a1").offset(0, 5).Select Range("a1").offset(, 5).Select / 숫자 0은 생략 가능 → [ F1 ] 셀로 이동 후 선택 Range("g7").offset(-1, -2).Select → [ E6 ] 셀로 이동 후 선택 Cells(Rows.count, "a").End(xlUp).offset(1, 0).select Cells(Rows.count, "a").End(3)(2)...

EXCEL VBA 2020.11.22
728x90
반응형
LIST