컴퓨터를 만나는 기쁨

1. 문제왼쪽의 세로로 된 데이터를 오른쪽과 같이 가로로 배치하려고 합니다. 2. 해법Microsoft 365 기준으로 설명하려고 합니다. 가. 이름 추출하기(Unique 함수)중복된 이름을 하나씩만 추출하려면 Unique 함수를 사용하면 됩니다. 수식은 =unique(a1:a11)입니다. 365 버전은 E8에서 E12셀에서 보는 바와 같이 동적 배열형태로 값이 반환되고, 파란색 실선으로 테두리가 그려집니다. 나. 과목, 성적을 가로로 배치하기머리글 부분은 따로 설명하고, 먼저 과목명과 성적 부분만 먼저 2개씩 가로로 배치해 보겠습니다. (1) Filter 함수 적용 =FILTER(B2:C11,A2:A11=E9)라고 하면 E9셀의 이름에 맞는 B2에서 C11의 데이터가 아래와 같이 세로로 표시됩니다. (..

1. 문제 아래와 같이 전기 재고가 있고, 입고와 출고가 되었을 때 먼저 들어온 것이 먼저 나가도록 한 후 재고를 구하는 것이 선입선출법(FIFO : First In First Out)입니다. 입고 순서는 아래와 같습니다. 예를 들어 A품목의 경우 전기 재고가 20개 있고, 출고가 140개 되었으므로 입고 물량을 120개 차감해야 하는데, 선입선출이므로 1월 물량부터 순서대로 차감합니다. 1월 물량이 20, 2월 물량이 30, 3월 물량이 30, 4월 물량 30을 더하면 110이 되므로 5월 물량 20개 중 10개가 남고, 6월 물량 10개는 모두 남아서 재고 금액은 5월 10개 * 53 + 6월 10개 * 54 = 1,070이 됩니다. 이와 반대되는 것으로 나중에 들어온 것부터 차감하는 것을 후입선출법..

아래와 같이 정수와 소수가 함께 존재할 때 정수인지 여부를 판단하려면 소수점이하 숫자가 있는지 판단 해야 합니다. 1. Int 함수를 이용하는 방법 Int함수는 Integer의 약자로 정수로 변환해 주는 함수입니다. 다시 말해 소수점이하 숫자를 없애줍니다. Round함수와 달리 인수로 소수점이하 자릿수를 없애주는 0을 입력할 필요 없이 =int(a1)이라고 입력한 다음 B1셀의 채우기 핸들을 더블 클릭하면 B14셀까지 수식이 복사됩니다. 홈 탭 자릿수 늘임 아이콘(명령)을 눌러도 소수점이하 숫자가 없습니다. 이제 A1에서 B1을 빼면 정수를 제외한 소수점이하 부분만 표시됩니다. 정수인 경우는 숫자가 같으므로 0이 반환됩니다. 따라서, 값이 0이면 정수, 아니면 소수라고 표시할 수 있습니다. =IF(A1-..

1. 배열 수식의 단점 배열 수식을 이용할 경우 편리한 것 같기도 하지만 아래와 같이 여러 가지 함수를 결합해서 사용해야 하고, =SUM((MOD(COLUMN($D$3:$O$3),2)=0)*$D$3:$O$3) 합계를 구하는 셀의 위치가 달라지면 나머지 값을 바꿔줘야 하는 불편함이 있습니다. 그래서 VBA로 사용자 정의 함수를 만드는 것을 해보겠습니다. 2. 사용자 정의(지정) 함수 만들기 가. Function과 Sub 프로시저 사용자 정의 함수는 Sub 프러시저와 같이 모듈에 만드는데 약간 다른 점이 있습니다. Function Procedure(사용자 정의 함수) Sub Procedure Function 함수명(인수1 as 형식, ...) as 형식 처리 프로세스 함수명 = 값 End Function S..

아래와 같이 일정한 간격으로 떨어진 값을 구하는 것을 배열 수식과 VBA 사용자 정의함수를 이용해 구해 보겠습니다. 1. 배열 수식 https://support.microsoft.com/ko-kr/office/%EB%B0%B0%EC%97%B4-%EC%88%98%EC%8B%9D-%EC%A7%80%EC%B9%A8-%EB%B0%8F-%EC%98%88%EC%A0%9C-7d94a64e-3ff3-4686-9372-ecfd5caa57c7 위 사이트에 "배열 수식은 배열의 하나 이상의 항목에 대해 여러 계산을 수행할 수 있는 수식입니다. 배열을 값의 행 또는 열 또는 행과 값 열의 조합(an array as a row or column of values, or a combination of rows and column..

[프로그램 구현] Option Explicit Sub 구구단() Dim i As Integer, j As Integer 'i는 구구단 앞 숫자, j는 구구단 뒷 숫자 Dim iRow As Integer, iCol As Integer, iLastCol '셀 주소 행, 열, 마지막 열 Dim iLastDan As Variant, iDisplayDan As Variant '구구단 최종 단수, 한 줄에 표시할 단수. 취소 버튼이 있기 때문에 Variant로 줘야 합니다. Application.ScreenUpdating = False '처리하는 동안 화면 갱신하지 않음 ' 문장 2개를 나란히 쓸 때는 콜론으로 연결 iRow = 3: iCol = 1 Do iLastDan = Application.InputBox("..