Sub vb_macro_송현()

Workbooks.Add '새 통합문서 생성

 

sheet_count = Worksheets.Count '워크시트의 갯수 산출

MsgBox "총 시트의 수는 " & sheet_count

'워크시트 한개만 놔두고 모두 삭제

For i = 1 To sheet_count - 1 Step 1

ActiveSheet.Delete

Next

 

Count = 1

ActiveSheet.Name = Count & "월" '현재 작업시트의 이름을 1월로 변경

Sheets.Add after:=ActiveSheet '새 시트를 추가하시오 현재 작업시트 오른쪽에

 

Count = Count + 1

ActiveSheet.Name = Count & "월" '현재 작업시트의 이름을 2월로 변경

 

Range("a1").Select 'a1셀 선택

Range("a2").Formula = "송현컴" 'a2셀의 내용을 송현컴

Range("a2").Font.Bold = True 'a2셀의 내용을 굵게

Range("a3").Select 'a3셀 선택

Range("a5").Formula = "3*4" 'a5셀의 내용을 3*5

Range("b5").Formula = 3 * 4 'b5셀의 내용을 계산의 결과인 12로...

Range("c5").Formula = "=3*4" 'c5셀의 내용을 =3*4로..

Range("d5").Formula = "=RC[-2]+RC[-1]"

' Range("e5").Formula = RC[-2]+RC[-1] 오류발생

Range("e5").Formula = "=sum(c5:d5)"

Range("f5").Formula = "=sum(rc[-4]:rc[-3])"

Range("f5").FormulaR1C1 = "=sum(c5:d5)" '오류발생

Range("g5").FormulaR1C1 = "=sum(rc[-4]:rc[-3])"

Range("h5").Value = "=sum(c5:d5)"

Range("i5").Value = "=sum(rc[-6]:rc[-5])"

Range("k5").Value = "sum(c5:d5)"

Range("L5").Value = "=sum(r5c2:r5c3)"

Range("a6").FormulaR1C1 = "3*4"

Range("b6").FormulaR1C1 = 3 * 4

Range("c6").FormulaR1C1 = "=3*4"

Range("d6").FormulaR1C1 = "=rc[-2]+rc[-1]"

Range("a8") = "3+2"

Range("b8") = 3 + 2

Range("c8") = "=3+2"

Range("d8") = "=RC[-2]+ RC[-1]"

Range("a9").Value = "3+2"

Range("b9").Value = 3 + 2

Range("c9").Value = "=3+2"

Range("d9").Value = "=rc[-2]+rc[-1]"

Range("a9").Select 'a9셀 선택

Sheets("1월").Select '1월 워크시트를 선택

 

Rows(4) = "송현컴" '4행의 내용을 송현컴 으로

Rows(4).Font.Bold = True '4행의 내용을 굵게 표시

 

'------- 반복문 내용

'1부터 3까지의 합계산

Count = 1

Total = 0

Do While Count <= 3

Total = Total + Count

Count = Count + 1

Loop

MsgBox "1~ " & Count - 1 & " = " & Total, , "Do While~"

 

'1부터 3까지의 합계산

Count = 1

Total = 0

Do Until Count > 3

Total = Total + Count

Count = Count + 1

Loop

MsgBox "1~ " & Count - 1 & " = " & Total, , "Do Until~"

 

ChDir "C:\Users\oem\OneDrive\바탕 화면"

ActiveWorkbook.SaveAs Filename:=".\재미있다.xlsx"

End Sub