낭만소방관

이메일의 앞부분만 추출하는 정규식설명은 코드에

어지럽게 적힌 글자 속에서오로지 규칙이라곤 괄호와 숫자라는 가정 하에. 괄호는 \( 와 \) 로 표시괄호 안에 있는 숫자는 \d+ 로 묶어줌 (숫자) 의 큰 틀이 추출 되고 그 안의 숫자가 SubMatches 로 다시 추출됨.

그냥.. 몸풀기용영역에 있는 텍스트와 일치하면텍스트의 행값을 출력해주는 매크로

하이퍼링크는 셀에 입력된 링크를 클릭하여 실행시킴.하지만 별도의 하이퍼링크를 생성하지 않더라도매크로버튼을 이용해 하이퍼링크를 누른 효과를 내줌.

피똥 쌌네

총액이 30,000 원이고 커피 5,000원, 밥 3,000원 영화 10,000원 .... 등등 일 때 5,000x + 3,000y + 10,000z + ........... 의 조합이 몇개가 나오는지에 대한 경우의 수입니다. 재귀함수를 이용했습니다.항목의 개수가 수시로 변할 때 경우의 수를 구하는 일이 필요할 때 사용하면 좋을 듯 합니다.항목의 개수가 일정할 땐 항목의 개수만큼 for next 함수를 쓰면 됩니다. 총액이 커지면 그만큼 경우의 수도 많아지고그러면 컴퓨터가 뻗습니다.재귀함수의 단점이 자원을 많이 잡아먹는 점이라는 함정. Option ExplicitOption Base 1 Private 총액 As Long '한달 용돈Private 항목별합계() As Long '항목별 사용한 금액을 담을 배..

영문, 숫자, 특수문자의 숫자를 지정하고그만큼 문자를 생성하는 매크로해외에서 짜깁기. Function RandomPass(lowerCase As Integer, NumericChr As Integer, SpecialChr As Integer) As String Dim i As Byte Dim v As Variant Dim NonAlpha As Variant ' Set Non-alpha characters to choose from NonAlpha = Array("~", "@", "#", "$", "%", "^", "&", "*", "(", ")", "+", "?") For i = 1 To SpecialChr RandomPass = RandomPass & NonAlpha(Int((UBound(NonAlph..

두가지 조건(동, 반)을 만족하는 값을 모두 나열해주는 사용자정의 함수오랜만에 하니 헷갈리는구먼 ㅋ Option ExplicitFunction Whoisthis(CriteriaRange As Range, _ SearchValueDong As Integer, _ SearchValueBan As Integer, _ Optional DelimiterChar As String = ",") As Variant Dim rnG As Range Dim vName() As String Dim i As Integer If CriteriaRange.Columns.Count > 1 Then Exit Function For Each rnG In CriteriaRange With rnG If .Value2 = SearchValu..

체크박스를 활용하여시트보호 해제 / 셀 잠금 해제 하는 코드 Sub 확인란2_Click() If ActiveSheet.ProtectContents Then ActiveSheet.Unprotect "admin" Call Check2 ActiveSheet.Protect "admin" Else Call Check2 End If End SubSub 확인란4_Click() ActiveSheet.Unprotect "admin" If Range("C5") = True Then Range("C5").Locked = False Range("E5").Locked = False Range("G5").Locked = False ActiveSheet.Protect "admin" End If End Sub Sub Check2()..

숫자 섞는 매크로 13개의 숫자 중 3개만 출력함. 반복되지 않게 Option ExplicitPrivate varOut(1 To 3) As Double Sub Macro() Dim i As Integer Dim j As Integer Dim varIn As Variant Dim rnG As Range varIn = Application.Transpose(Selection) Selection.Offset(, 3).CurrentRegion.ClearContents For Each rnG In Selection For i = 1 To 3 Do j = Int((UBound(varIn) - LBound(varIn) + 1) * Rnd + LBound(varIn)) Loop While InArray(varIn(j)..