엑셀 매크로 코드 어렵지 않아요 전문가 손들어주세요

엑셀 매크로 코드 프로그래밍은 전문가도 어렵지 않아요

비공개 서브 테스트()

Dim result As String '0부터 9까지 10개의 숫자를 포함하는 난수

정수로 임의의 값을 희미하게

Dim randomData(10) As Integer

Dim 플래그를 부울로

i = 0에서 9까지

플래그 = True

While 플래그 = True

무작위화

randomValue = Int((9 - 0 + 1) * Rnd + 0)

i = 0 또는 search(randomValue, randomData, i) = False이면

결과 = 결과 & CStr(randomValue)

randomData(i) = 무작위값

플래그 = 거짓

끝나면

수요일

다음

끝 서브

개인 함수 검색(ByVal 키를 정수로, ByRef 데이터()를 정수로, ByVal 길이를 정수로) 부울로

길이 = 0이면

검색=참

종료 기능

끝나면

검색=거짓

i = 0의 경우 길이 - 1

데이터(i) = 키이면

검색=참

종료 기능

끝나면

다음

기능 종료

이제 버튼을 클릭할 경우에 난수를 생성하게 됩니다.

EXCEL 매크로 코드에 대해 도움을 주세요. 감사합니다!

사전 객체를 사용하면 훨씬 빨라질 것입니다. 코드는 다음과 같습니다. (충분히 빠르지 않다고 생각되면 시트3의 A열을 모두 배열로 읽어서 워크시트를 자주 읽는 횟수를 줄이고 속도를 많이 높이세요. )

후보 선택 중복()

Dim Sht2Dic, CongFuArr()

Dim N만큼 오래

Dim Rng2는 범위로, Rng3은 범위로

Set Sht2Dic = CreateObject("Scripting.Dictionary")

Sheet2.Range("A1:A" & Sheet2.UsedRange.Rows.Count)의 각 Rng2에 대해

Sht2Dic(Rng2.값) = Sht2Dic(Rng2.값) + 1

다음

Sheet3.Range("A1:A" & Sheet3.UsedRange.Rows.Count)의 각 Rng3에 대해

Sht2Dic.exists(Rng3.Value)가 있으면

N = N + 1

ReDim 보존 CongFuArr(1 To N)

CongFuArr(N) = Rng3.값

끝나면

다음

Sheet1.Columns("A") = ""

Sheet1.Range("A1").Resize(N, 1) = WorksheetFunction.Transpose(CongFuArr)

끝 서브

Excel에서 표에 매크로를 사용하는 방법

개발 도구 클릭 - 매크로 기록을 클릭하고, 의미 있는 매크로 이름을 설정하고, 매크로 사용을 위한 단축키를 설정하세요. 필요한 경우 매크로에 대한 자세한 설명을 입력하고 확인을 클릭하세요.

이제부터 Excel이 작업 단계 기록을 시작했기 때문에 작업의 모든 단계가 요구 사항을 충족하도록 보장되어야 하며 이제 도구 모음의 매크로 기록 위치가 기록 중지로 변경되었음을 알 수 있습니다.

그런 다음 예를 따라 모든 테이블을 선택하고 글꼴을 기울임꼴로 설정하고 글꼴 크기를 16으로 설정하고 배경색을 청록색으로 설정하면 그림과 같이 모든 단계가 올바르게 설정됩니다.

단계가 완료되면 클릭하여 기록을 중지하면 테이블 형식을 일괄 설정하는 매크로가 기록됩니다. 매크로를 클릭하면 방금 기록한 매크로가 저장되었음을 알 수 있습니다.

다른 테이블에 대해 동일한 형식을 설정해야 하는 경우 그림에 표시된 대로 매크로를 호출하기 전에 형식만 이 매크로를 호출하면 됩니다.

포맷하려는 테이블을 선택한 후 매크로를 클릭하면 매크로 목록 상자가 팝업되어 기록한 매크로를 선택하고 실행을 클릭하면 테이블의 포맷이 우리가 원하는 포맷이 되는 것을 확인할 수 있습니다.

위 내용은 엑셀 매크로 코드 어렵지 않아요 전문가 손들어주세요의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!