컴퓨터를 만나는 기쁨

문자열 중 원문자 지우기(4) - Scan, Reduce

이번에는 Reduce와 Scan 함수를 이용해 원문자를 제거해 보겠습니다.   1. Reduce 함수를 이용한 수식가. Reduce 함수의 구문=REDUCE([initial_value], array, lambda(accumulator, value))initial_value는 초기값, array는 배열, accumulator는 initial_value와 array를 받는 것이고,value는 accumulator를 이용해서 값을 구하는 수식입니다. 나. 원문자가 아니라면 한 글자씩  결합A2셀을 대상으로 A22셀에서 수식을 작성하겠습니다. 먼저 초기값은 문자열을 결합할 것이므로 ""으로 해야 합니다. 비워두면 0으로 생각해서 이상한 값이 나옵니다. array는 배열인데, 글자를 한 글자씩 구분하기 위해 1부..

문자열 중 원문자 지우기(3) - TextJoin, Sequence

이번에는 Textjoin 함수를 이용해 원문자가 아닌 글자만 결합하는 수식을 작성해 보겠습니다. 마찬가지로 B3셀을 갖고 원문자를 제외한 글자만 결합하는 수식을 B18셀에 작성해 보겠습니다. 1. TextJoin 함수TextJoin 함수의 구문은 TEXTJOIN(delimiter, ignore_empty, text1, [text2], …)로서첫 번째 인수는 구분자, 두 번째는 빈 셀을 무시할지 여부, 세 번째부터는 결합한 문자열입니다. 그런데 여기서는 글자를 하나씩 가져와서 Unicode가 9312보다 작거나 9331보다 크다면 결합하지 않는 것으로 하면 됩니다. 2. 수식가. 조건식 만들기첫 번째 인수인 결합할 때 사용할 구분자는 없으므로 공백으로 하고,두 번째 빈셀 무시도 예이므로 입력하지 않고 넘어..

이번에는 Find 함수를 이용해 보겠습니다.  1. Find 함수의 구문FIND(find_text, within_text, [start_num])입니다. 다른 함수의 경우와는 다르게찾을 문자열이 먼저 나오고, 찾을 대상 주소가 두 번째로 나옵니다. 2. 첫 번째 원문자의 위치 찾기가. 마지막 글자가 원문자 1인 경우 찾기역시 B3을 대상으로 먼저 해보겠습니다.원문자 1은 Unicode가 9312입니다.그리고, 문자열을 하나씩 분리해야 하므로 Mid 함수를 사용합니다.그런데, 길이를 알아도 1부터 길이까지 연속으로 글자가 생성돼야 하는데,Sequence 함수를 사용할 수 없다면 아래와 같이 배열을 이용해서 {1,2,3,4,5,6,7,8,9,10}라고 최대 10글자라고 생각하고 배열을 만들었습니다.그러면, ..

1. 문제문자열 중에서 원문자만 지우려고 합니다.  자세히 살펴보면 원문자가 문자열의 맨 뒷부분에만 있고, 원문자가 하나뿐만 아니라 3개까지 있습니다. 2. 원문자의 코드 값 알아내기B3셀에서 ①만 복사한 후 W1셀에 붙여 넣고코드 값을 알아내기 위해 X1셀에 =code(w1)이라고 입력하면 43239가 구해지고,Y1셀에 =unicode(w1)이라고 입력하면 9312가 구해집니다. Code 함수는 윈도우에서는 ANSI 코드값을 반환하고, Unicode에 대한 설명을 나무위키에서 찾아보면 "유니코드(Unicode)는 전 세계의 모든 문자를 다루도록 설계된 표준 문자 전산 처리 방식이다. 유니코드 컨소시엄(Unicode Consortium)에서 제정, 관리한다."라고 되어 있습니다. 따라서, Code 값 또..

1. 문제지역이 여러 개인데, 이에 해당하는 건수를 모두 세려고 합니다.화성과 같이 하나만 있다면 CountIfs 함수로 간단하게 셀 수 있는데,수원이거나 용인인 경우를 구하려면 CountIfs를 두 번 쓰던가 해야 하는데 한 번에 하는 방법을 찾으려고 하는 것입니다.  아래는 CountIfs를 두 번 사용해서 홍길동이 화성이거나 용인인 건수의 계를 구한 것입니다. 그리고 또 하나의 문제는 수원,용인 또는 안양,과천,의왕이라는 지역명을 쉼표를 기준으로 구분하는 것입니다.  2. TextSplit 함수TextSplit 함수의 구문은  =TEXTSPLIT(text,col_delimiter,[row_delimiter],[ignore_empty], [match_mode], [pad_with])로서첫 번째 인수는..

1. 재고 구하기 논리- 전월까지의 생산량 누계가 판매량보다 크다면 그 달의 생산량이 재고가 되고, 작다면 (그 달까지의 생산량 누계 - 판매량)이 재고가 됩니다. - 그리고, 생산량 뉴걔가 판매량보다 작다면 0이 됩니다. 2. 수식1월은 전월이 없으므로 1월과 2월이후의 수식이 달라야 합니다.가. 1월의 수식(D17셀) =IF(D4

1. 문제 아래와 같이 대화처럼 남자, 여자가 있는 경우도 있고(A2, A3셀), 마침표나 물음표가 있으면 줄을 바꾸려고 하며, (잠시 후)와 같이 괄호 안에 있는 문제는 제거하려고 하는 문제입니다. 이것이 원하는 결과입니다. 2. 해법 1 : TextSplit 함수 TextSplit 함수를 이용하면 간단한 줄 알았더니 TextSplit 함수를 사용하면 구분자인 마침표와 물음표가 없어지는 문제가 있고, 마지막의 마침표가 하나의 배열로 생성되기 때문에 분할하는 Text를 길이보다 하나 작은 것을 기준으로 해야 합니다. 가. A2셀 분리 (1) TextSplit의 대상인 Text를 길이보다 하나 짧은 길이로 지정하고, A2의 경우 "여자: "가 있으므로 4부터 시작 = MID(A2,4,LEN(A2)-4) (..

잘 쓰고 있었는데,언제부터인가 이상하게 교정표시(빨간색 밑줄)가 보이지 않아서 살펴보니 도구 탭의 '환경설정' 명령을 누르거나 도구 탭의 '환경 설정' 메뉴를 눌러보면 편집 탭에서 '맞춤법 도우미 작동'이 꺼져 있습니다. 왜 이렇게 됐는지는 잘 모르겠는데, '맞춤법 도우미 작동'에 체크하고 설정 버튼을 누른 다음 잠시 기다리면맞춤법 오류가 있는 부분에 빨간색 밑줄이 표시됩니다. 자세히 보니 밑줄이 아니고 /(슬래시) 표시의 연속이네요.

1. 문제 왼쪽에 담당자별 지역별 현황이 있는데, 이것을 오른쪽 표와 같이 담당자별로 지역별로 집계를 하려고 하는데, 특이한 점은 지역을 묶어서 집계한다는 것입니다. 이런 경우에 일반적으로 사용하는 것이 피벗 테이블이지만, 위와 같이 수원, 용인 경우의 합계를 구하려면 두 개의 값을 더할 수밖에 없습니다. 이와 같은 경우에 수원 또는 용인인 경우라는 조건을 넣어서 건수를 집계하고자 하는 것입니다. 2. 해법 1 : TextSplit 함수 이용 가. Sum + CountIfs 이용 TextSplit 함수는 Microsoft 365에서만 사용 가능한 함수이기 때문에 이보다 낮은 버전이라면 사용할 수 없는 제한은 있지만 이와 같은 경우에 매우 쉽게 처리할 수 있습니다. 다시 말해 수원, 용인을 TextSpli..

1. 문제 아래와 같이 표 2개가 있고, 위의 서식이 변하면 아래에 서식이 자동으로 복사되도록 하려고 합니다. 2. 해법 1(실패) 일단 생각할 수 있는 것이 Worksheet_Change 메서드입니다. Sheet1을 클릭한 다음 오른쪽 코드 창에서 Worksheet 객체를 선택한 다음 오른쪽에서 Change 메서드를 클릭합니다. 그러면 아래와 같이 Worksheet_Change 서브 프러시저가 생성됩니다. "일정한 범위 내 값이 바뀐다면"이라는 조건문은 아래와 같이 정형화되어 있습니다. Private Sub Worksheet_Change(ByVal Target As Range) Dim keyCells As Range Set keyCells = Range("c5:d8") If Not Application..