집 > 기사 > 소프트웨어 튜토리얼 > 엑셀 매크로 코드 어렵지 않아요 전문가 손들어주세요
비공개 서브 테스트()
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 매크로 코드에 대해 도움을 주세요. 감사합니다!후보 선택 중복()
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 중국어 웹사이트의 기타 관련 기사를 참조하세요!