rand(life)

지식인 질문에 대한 답이다. 나는 만들어진 단어 9개씩의 한 줄도 중복되는 것이 있을거라보고 중복을 없애기 위해 Collection을 이용했는데, 큰형님은 그런 과정 없이 숫자만 100으로 바꾸었다. 25개 중에서 9개 뽑는 정도로는 쉽게 중복되지 않는 것이라 본 것일까..... Sub Macro() Dim valR(), T() As Variant Dim nc As New Collection Dim rng As Range Dim i As Integer, c As Integer, n As Integer, r As Integer Dim str As String Dim s As Variant Set rng = Range("B3:B27")Do Until nc.Count = 100 '콜렉션이 100개가 될때까지 ..

겉보기에는 빈칸인데 F5 이동키를 이용해서 빈칸을 선택하려해보면 안잡히는 셀이 가끔 있다. 주로 인터넷에서 자료를 복사해오거나 할 때 주로 생기는데, 수식이나 기능을 써야할때 이 것들 때문에 오류가 나서 짜증나게 한다. 이런 유령문자를 없애는 데는 몇 가지 방법이 있는데, 여기서는 두 가지를 소개한다. 첫번째는 텍스트 나누기를 이용하는 방법이다. 아래처럼 유령문자가 있는 열을 선택하고텍스트나누기를 실행하고, 첫단계에서 바로 "마침"을 누르는 것이다. 이 방법은 간단해서 좋은데, 텍스트나누기는 여러 열을 선택하고 한꺼번에 실행할 수가 없기 때문에, 해야할 열이 많거나 여러 파일에서 같은 일을 해야하면 VBA를 이용해야한다. Sub QuickReplace()Dim XDim lngRow As LongDim l..

지식인 답변했던 것 중 쓸모있다고 생각되는 것을 기억하기 쉽게 정리해두려고 한다. 다음에 비슷한 일이 있으면 또 써먹을 수 있게..아래는 "특정문구가 들어가 있는 페이지만 인쇄할 수 있나요?"라는 질문에 대한 답이다. Sub checkprint()Dim ws As WorksheetDim rng As Range, c As RangeDim str As String, strFirstAddr As StringDim h As HPageBreak '페이지나누기 표시도 Type으로 지정할 수 있다는 것을 처음 알았다.Dim lc As Long, i As LongDim lpc As DoubleDim arr() '페이지 나누기가 있는 곳의 셀 주소를 담을 배열변수 Set ws = Worksheets(1)Set rng =..

2차원 배열에서 특정차원에 지정된 값이 있는지 검색하는 법 Application.Match(변수, Application.Index(배열, 0, 컬럼위치), 0) index함수에서 두,세번째 인수를 0을 주면 해당 배열을 반환한다는 점을 이용 index(arr, 0, 3) 하면 arr배열에서 3번째 칼럼을 의미index(arr, 2, 0) 하면 2번째 행 arr 배열이 다음과 같다면 1 학번1 이름1 과목12 학번2 이름2 과목23 학번3 이름3 과목3index(arr, 0, 3)은 이름1,이름2,이름3… 의 배열을 의미한다. 따라서 arr배열에서 이름2라는 값이 있는지, 있다면 어디에 있는지를 확인 가능하다.

드디어 신 등급에 올라섰다! '식물신'이라 이름이 좀 거시기하긴한데 ㅎㅎ 그래도 신은 신이니까, 이제 의견도 하루에 100개씩 달 수 있다!

--회사에서 바로 통하는 엑셀 실무강의--47[이름정의 공백없이 한꺼번에 하기]F5 – 상수 선택 – 선택영역에서 이름정의만들기 55 셀서식yyyy-mm-dd(aaa) --> 2017-01-21(금) 60 셀서식#,##0, 천단위#,##0,, 백만단위 24시간이 넘는 누적시간 표시할 때 [h] (누적분 [m], 누적초 [s]) 66 조건부서식True 일 경우 중지: 2007 이전 버전과의 호환성을 위해, 체크하면 이전 버전으로 저장할 때 규칙평가를 중지함 81 셀서식mm“월” --> 07월 79 연간계획표 www.hanbit.co.kr/media 에서 예제 다운로드 가능 88 [여러 시트에 한꺼번에 머리글/바닥글 설정하기]여러 시트선택 – 페이지 레이아웃 보기 – 화면에서 직접 수정 93 머리글/바닥글 ..

셀의 아래쪽 테두리 더블 클릭시 셀의 맨 아래로 이동합니다. (Ctrl + 아래화살표와 같은 효과) 개체(도형) 모두 선택하는 방법F5 – 옵션 – 개체 선택 – 확인하면 해당 시트의 모든 개체(도형)가 선택된다 빠른 채우기 기능“빠른채우기” 기능은 주변 데이터를 분석하여 자동으로 데이터를 채워주는 기능입니다. B열을 보면 A에서 / 표시 앞 단어를 가져온 것이라고 짐작이 됩니다. 여기서 B1셀의 오른쪽 아래 구석에 커서를 놓고 마우스 오른쪽 클릭을 한 다음에 아래로 끕니다. 그리고 “빠른채우기”를 클릭하면 이렇게 / 기호 앞의 내용이 표시됩니다 ‘삭제’ 대화상자에서 ‘행전체’ 선택시 선택한 셀의 행전체가 삭제됨 B3 셀 하나를 선택하고 오른쪽 클릭 - 삭제했을 때 뜨는 창에서“행전체”를 선택하고 확인하..

'87 [빈값의 차이]Empty 변수 초기화되지 않은 상태. 숫자=0, 텍스트 =""Null Variant 형식 변수"" 텍스트형식 변수Nothing 개체변수에 할당되지 않은 상태 '89FN = Range.Address(False, False) 'A1 상대참조FN = Range.Address(True, True) '$A$1 절대참조 '90Val(s) 문자열 s를 숫자로1,000은 1만 인식함. 그래서Val (Replace(s, ",", ""))와 같이 , 를 공백으로 바꿔줘야함 Str(n) 숫자 n을 문자열로 (숫자를 문자로 변환하기 위해 앞에 공백을 추가함.그래서 문자개수가 1추가됨 '91변수 = Format(dv, "aaa") '월,화,수....Q '1분기, 2분기...ww '주의 일련번호 1~53'..