더이상 미룰수가 없다.. 27일날이 컴퓨터 활용능력 필기 유효기간 마지막날이다. 진짜 큰일났다 ㅠㅠ 원래 컴퓨터 활용능력 1급 실기를 보려고 했으나 이거는 시간이 없다. 하는수없이 컴퓨터 활용능력 1급 실기를 보려고 한다.. 목표는 7일날 시험보는거고, 21일에 합격발표를 받는거다... 일단 오늘은 2021년 상시 1 문제풀이를 진행하려고 한다. 정말 재미없는데.. 일단 중요한거는 HLOOKUP, VLOOKUP 이쪽을 잘 아는가랑 피벗 테이블, 그리고 데이터표 사용하는 법만 알면 무난하게 통과할 것 같다. PMT : 대출을 받거나, 대출을 해주거나 하는 경우 이자를 포함한 월별 합계액을 계산해주는 함수 = PMT(RATE,NPER,PV,FV,TYPE) RATE : 대출이자율. 월 이자율로 변환하려면 연 ..

A4 크기 메뉴판을 만들어보았다. 메뉴 및 카페명은 Sheet2번에서 수정해서 가져가면 된다. A4/A5 크기에 맞춰놔서 워하는 크기로 인쇄하면 사이즈는 딱 맞는다. 메뉴판 설정하는 방법은 아래와 같다. 메뉴판 설정하는 방법 누군가 쓸지는 모르겠지만.. * 만약 아래에 특별하게 원하는 사진을 넣고 싶다던가 / 형식을 쓰시고싶은데 관련해서 좀 더 수정할 사항이 필요하다면 댓글로 메일이랑 원하는 형식을 말해주시면 수정해드리겠음

사각형 그리기 #2 알록달록 사각형들 그리기 일정한 크기,개수의 여러 색깔의 사각형을 그리는 코드 알록달록 사각형 그리기 풀코드 Sub 알록달록사각형() Set rect = ActiveSheet.Range("b2") For X = 20 To 120 Step 10 For Y = 20 To 120 Step 10 ActiveSheet.Rectangles.Add(rect.Left + Y, rect.Top + X, 8, 8).Select Selection.Interior.ColorIndex = Int(Rnd * 56) Next Y Next X End Sub 코드 설명 Set rect = ActiveSheet.Range("b2") B2로 기본 사각형의 위치를 설정 *기본 사각형의 위치를 변경하고싶으면 ("b2") ..

기본 사각형 그리기 사각형 그리기 사각형 그리기 #1 기본 사각형 그리기 풀 코드 Sub 사각형그리기() ActiveSheet.Rectangles.Add(20, 30, 84, 81).Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10 Selection.ShapeRange.Fill.Visible = True Selection.ShapeRange.Fill.Solid End Sub 코드 설명 ActiveSheet.Rectangles.Add(20, 30, 84, 81).Select ActiveSheet.Rectangels.Add(왼쪽 거리, 위쪽 거리, 사각형 폭, 사각형 높이).Select Selection.ShapeRange.Fill.ForeColor...

입력 날짜에 맞는 요일 산출 =CHOOSE(WEEKDAY(B5,1),"일요일","월요일","화요일","수요일","목요일","금요일","토요일") Excel 파일

일정한 간격으로 증가/ 감소하는 원을 그리기 실행 이미지 / 실행 화면 일정한 간격으로 증 / 감소 원 그리기 코드아래 코드 Option Explicit Public Sub setting() Dim tmp As Single Dim i As Integer Dim left As Single Dim top As Single Dim diameter As Single tmp = 10 For i = 3 To 8 If i = 3 Then left = 150 + i top = 150 + i diameter = i * tmp Else left = left + (diameter - (i * tmp)) / 2 top = top + (diameter - (i * tmp)) / 2 diameter = i * tmp End If..