해킹공주의 일상

1. 개요자동화 툴 만드는데 귀엽게 만들고 싶어서 찾은 사이트 모음집 2. 사용법그냥 파이썬 상단에 이렇게 넣어주었다 . . 너무 귀여워 !>1!!ascii_art=""" ╭◜◝ ͡ ◜◝ ╭◜◝ ͡ ◜◝ ( •‿•。 ) ☆ ( •‿•。 ) ☆ ╰◟◞ - ◟◞╭◜◝ ͡ ◜◝╮ - ◟◞╯ ( •‿•。 ) ☆ 　 ╰◟◞ -◟◞╯"""print(ascii_art) 3. 모음집1) 특수문자 모음집 https://snskeyboard.com/asciiart/ 🎨୭̥⋆*｡특수문자 아스키아트 ― SNS Keyboard특수 문자로 이루어진 다양한 아스키 아트와 구분선 모음집 입니다.snskeyb..

개요 아우... 셀에다가 수식 박을때마다 GPT나 검색해서 넣는데 그냥 가독성 좋게 ActiveCell.FormulaR1C1 = "=SUM(C2:C" & S_lastRow + 1 & ")" 요래하면 될거를 갖다가 R1C1 어쩌구 써야되는게 ㄴㅓ무 열받지만 기계시대가 도래했으니.. 충성해보고자한다. 정리 1. 행열 모두 절대 참조 (EX. $A$1) 행열모두 참조할때는 R(행)C(열) 이렇게 써주면 된다. 일단 위에서 작성한 게 둘다 절대참조라서 예시로 설명해보고자한다. S_lastRow = 2 # 틀린 답 ActiveCell.FormulaR1C1 = "=SUM(C2:C" & S_lastRow + 1 & ")" # 맞는 답 ActiveCell.FormulaR1C1 = "=SUM(R2C3:R" & S_las..

내용 특정 내용을 다른 엑셀 파일에서 가져와서 현재 워크시트에 붙여넣기 하는 내용이다. 코드 Sub test() ' RAW 파일 열기 Dim raw_fileNo As Variant Dim raw_file As Workbook Dim raw_sheet As Worksheet raw_fileNo = Application.GetOpenFilename(Filefilter:="엑셀파일(*.xls*),*.xls*", MultiSelect:=True) Set raw_file = Workbooks.Open(Filename:=raw_fileNo(1), ReadOnly:=False) Set raw_sheet = raw_file.Sheets(1) ' RAW 파일 내 INDEX 복사 Dim lastRow As Long Dim..

내용 AutoFill의 경우 셀의 행값이 유동적인 경우가 있어서 여러 시트를 작업할때는 변수로 채워줘야한다. 1개의 열을 autofill할때랑 여러개의 열을 autofill 할때 다르게 작업해줘야한다... 삽질 매드무비의 결과다.. 코드 Sub 매크로1() ' ' 매크로1 매크로 ' ' 바로 가기 키: Ctrl+q ' Dim ws As Worksheet Dim lastRow As Long ' 시트 지정 Set ws = ThisWorkbook.Sheets("모듈명") ' "Sheet1"을 사용하는 시트 이름으로 변경 ' 열 A에서 데이터가 있는 마지막 행 찾기 lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row Range("B2:N2").Select ' Selec..

개요 양쪽 시트 값을 가져와서 비교하는게 생각만으로는 VLOOKUP으로 쉬웠는데.. 막상 하려고 보니 복잡한거같으면서도 간단한거같으면서도.. INDEX, MATCH를 적절히 활용했다 또 언제 쓸지모르기 때문에... =IF(AND(INDEX(Sheet1!$A$1:$D$5, I4, MATCH(B$4,Sheet1!$A$3:$D$3, 0)) = "취약", INDEX(Sheet3!$A$1:$D$5, I4, MATCH(B$4,Sheet3!$A$3:$D$3, 0)) = "양호"), "조치완료", IF(AND(INDEX(Sheet1!$A$1:$D$5, I4, MATCH(B$4,Sheet1!$A$3:$D$3, 0)) = "취약", INDEX(Sheet3!$A$1:$D$5, I4, MATCH(B$4,Sheet3!$A$3:..

보호되어 있는 글입니다.

보호되어 있는 글입니다.

코드설명 C열에서 10~15행에 대해 순회하면서, 해당 셀이 비어있지 않은 경우에만 해당 셀 내용에 위아래로 공백을 추가하도록 하였음 Sub AddBlankRows() Dim ws As Worksheet Dim lastRow As Long Dim i As Long Set ws = ActiveSheet lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row For i = 10 To 15 If Not IsEmpty(ws.Range("C" & i)) Then ws.Range("C" & i).Value = vbNewLine & ws.Range("C" & i).Value & vbNewLine End If Next i End Sub 아래는 내가 선택한 셀 범위만 엔터 삽입하는..