rand(life)

In the 17th century the French painter and theorist Charles Le Brun drew a series of faces illustrating the various emotions that painters could be called upon to represent. What is striking about them is that any number of them could be substituted for one another without loss.이 문장에서 " any number of them could be substituted for one another without loss." 부분에 대하여, 과연 그런지 실제 자료를 보고 판단해보자참고자료: Ch..

포토샵 2024 버전을 실행하면 로고가 뜨고 한참 돌아가다가 메인화면 나오기 직전에 종료돼버리는 현상이 며칠째 계속되었다.인터넷에서 해결방법을 찾아보니 아래와 같은 방법들이 있었다.1. 폰트 삭제2. 폰트 캐시 삭제3. 관리자 권한으로 실행4. 플러그인 없이 실행하기5. 환경설정에서 글꼴이름을 영어로 표시하기일부는 성공한 듯 보였는데, 다음날이 되면 또 실행이 안 되고, 어제 성공했던 방법을 다시 써보면 이제는 통하지 않는다.그리고 신기한 것은, 여러번 시도해서 일단 한번 실행이 되면, 그날은 하루종일 제대로 실행이 된다는 거다. 그러다 다음날이 되면 또 안 되고... 구글에 영어로 검색해서 살펴보니, 어떤 사람이 장치관리자에서 현재 그래픽 드라이버를 사용 안함으로 바꿔보라는 방법을 제시했다.속는 셈치고..

유투브의 영상을 다운로드하는 팁. 이전에 Youtube downloader라는 프로그램을 사용했는데, 요즘 속도가 거의 나오지 않아서 해결방법을 찾던 중 아래의 방법을 알게되어 공유하고자 합니다. 1. 깃허브로 이동 https://github.com/yt-dlp/yt-dlp#release-files 2. yt-dlp.exe 파일 다운로드 3. 다운로드 받은 파일을 C:\Windows 에 복사 4. 돋보기창 클릭-> cmd 입력 엔터 -> 명령 프롬프트 창이 뜸 5. 명령어 입력 yt-dlp -옵션 "URL" 이런 식으로 입력 (메모장에 명령줄과 주소를 복사해두시고 Ctrl-C하신 후 명령프롬프트창에 Ctrl-V로 붙여넣기하시면 편합니다) 6. 다운로드가 완료될때까지 명령프롬프트 창은 계속 놔두세요 명령 ..

google apps script 사용한다 '발표'라는 시트에 E열에 문자열을 기록하면 F열에 해당 문자열이 몇 바이트인지 숫자가 입력된다 (1행에 입력했을때는 작동하지 않는다) function countByte(e) { var SHEET_NAME = "발표" var COL_To_RECORD = 5 // E열에 기록하므로 var ROW_NOTRECORD = 1 // 1행은 기록하지 않으므로 // 한글 3, 엔터 2, 그외 1 바이트 /* 가 44032 힣 55203 */ var sheet = SpreadsheetApp.getActiveSpreadsheet(); var ss = sheet.getActiveSheet(); if( ss.getSheetName() != SHEET_NAME ) {return}; ..

NAS서버에 파일을 올려놓고 VBA로 특정 검색어를 가진 파일이나 폴더명을 가져오는 일이 많다. FileSystemObject를 이용했지만 파일이나 폴더가 많아지다보니 그때마다 하위 디렉토 리까지 모두 긁어서 가져오려면 시간이 한참 걸린다 그래서 생각한 방법은 리눅스에서 ls > list.txt 명령은 빠른 시간에 해당 폴더 내의 목록을 list.txt 라는 파일로 저장할 수 있으므로 원하는 폴더에 list.txt 파일을 만들어두고 검색을 하고 싶으면 list.txt 파일을 열어서 찾으면 더 시간이 적게 걸릴 수 있겠다는 생각으로 검색해보았고 몇번의 삽질 끝에 완성했다 Option Explicit Sub com_make_listFile() Dim a, i& Dim console As Object Dim ..

아직 배우는 중 미천한 HTML 지식과 검색으로 웹 스크래핑을 공부하고 있다 아래는 검색해서 얻은 코드. 주석을 붙여보았다. 일단 참조에서 아래와 같이 추가해야한다 대부분 위의 4개는 이미 추가가 되어있을테고, 아래의 2개만 추가하면 된다(엑셀 365기준) MICROSOFT WinHTTP Services MICROSOFT HTML Object Library 원 글에서는 네이버 뉴스도 가져오는 코드가 있지만, 그동안 네이버 뉴스가 개편을 한 탓인지 제대로 작동을 안해서 다음 뉴스만 가져오도록 했다. 가능한 주석을 달아보았는데, 아직 공부할 것이 많다. .getElementById 하고 getElementsByTagName 의 사용법이 아직 완전하지 않다. 이렇게 되어있는 곳을 가져오는 것 같은데, 테스트삼..

XLOOKUP함수는 엑셀 365버전에서만 쓸 수 있는 함수입니다. 일회성으로 구매하는 2019버전에서는 사용할 수 없습니다. 학교나 회사에서 365버전 라이선스를 취득하였는데도 아직도 구버전 엑셀을 사용하시는 분들이 많아서 이 글을 쓰게 되었습니다. 업무용으로 사용하는 함수 중에서 다섯번째안에는 드는 함수가 바로 VLOOKUP함수입니다. 매우 유용하지요. 하지만 이번에 새로 나온 XLOOKUP함수는 더 빨리지고 편해졌습니다. 그 내용을 정리해보면 8가지 정도가 됩니다만, 두 세번에 나누어서 포스팅하려 합니다 - 목차 (수정될 수 있음)- 1. 왼쪽으로 찾을 수 있다 2. 범위 가운데 열이 추가/삭제되어도 괜찮다 3. 입력할 인수가 적다. (따로 지정하지 않아도 정확히 일치하는 것을 찾는다.) 4. 아래방..

중복제거와 정렬을 한번에 ArrayList ArrayList 이용 예제 https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=358765243 더보기 메서드 Add(Object) 개체를 ArrayList의 끝 부분에 추가합니다. BinarySearch(Int32, Int32, Object, IComparer) 지정된 비교자를 사용하여 정렬된 ArrayList의 요소 범위에서 요소를 검색하고 요소의 인덱스(0부터 시작)를 반환합니다. BinarySearch(Object) 기본 비교자를 사용하여 정렬된 전체 ArrayList에서 요소를 검색하고 요소의 인덱스(0부터 시작)를 반환합니다. -- 한번만 정렬한 후 검색을 빠르게 할 때 효과적 Bin..

제목을 자동으로 지식인에서 검색해서 제목을 나열해준다 지식인 마니또님의 답변이다.

셀안에 있는 특수문자만 제거하는 코드 지식인 답변에서 가져옴 Option Explicit Sub textchange() Dim c As Range Dim rSelect As Range Dim oReg As Object On Error Resume Next Set rSelect = Application.InputBox("영역 선택", "선택", Selection.Address, , , , , 8) If rSelect Is Nothing Then Exit Sub Set oReg = CreateObject("VBScript.RegExp") For Each c In rSelect.Cells If c.Value "" Then With oReg .Pattern = "[\\/:*?""|]" ''특수문자 추가 하시면 ..