본문 바로가기

엑사남171

[js] 입력문자수를 100자로 제한하기 See the Pen Untitled by ektjtthsrk (@minos79) on CodePen. 이번에 해볼코드는 웹상에서 입력값을 받을 때 100자 미만까지로 정해서 100자가 넘어가면 alert로 경고를 한 후 100자 이상의 글자는 더이상 입력 안되게 하는 코드를 만들어 보려고 한다. 코드 작성은 코드펜으로 작성하였다. textarea로 이벤트리스터의 keydown 이벤트를 발생시켜서 입력된 textarea 영역의 글자수를 센 후 alert 창을 발생시켜 100자 이상이 넘었음을 알리게 되는데, textarea.value = inputText.slice(0,100) 이코드를 삽입하지 않으면 100자가 넘은 후 alert창을 닫아도 한 두 글자가 계속 쓰여지게 된다. 쓰여짐에 신경 쓰임을 없애.. 2024. 4. 21.
[365함수] 테이블에서 LIST값의 합계 구하기 오늘은 간단하게 테이블에서 리스트 값을 뽑아서 합계를 내는 수식을 해보려고 한다. REDUCE는 연산을 처음부터 끝까지 계속 누적으로 해나가기 때문에 속도면에서 가급적 지양해야 한다. 365를 배움에 따라 배열형태 또는 리스트 형태로 값을 구하기 바란다. 2024. 3. 23.
[VBA] 네이버사전 LV6(수정완료) 네이버사전의 값이 Json 형태로 변경되면서 Haja_Dic.LV5를 공개하였다. 댓글로 기존 뜻을 하나만 가져오는것을 모든 뜻을 가져오도록 요청을 하셔서 일부 코드를 수정하여서 LV6 버전을 올린다. 뜻이 사전마다 같은것들이 중복될 수 있어서 혹여나, 같은뜻이 있으면 그 뜻은 제외하는 코드를 넣어서 계속적으로 줄바꿈으로 뜻을 누적하여 뿌려주는 형태로 만들어 보았다.. 마지막으로는 작은 팁이지만 행의 높이를 맞추기 위해서 autofit을 사용하였으니, 참고하길 바란다. 코드 자체의 이해는 LV5의 글을 참고하길.. https://1stminokingdom.tistory.com/349 [VBA] 네이버 영어사전 LV5.(댓글 또 요청) 네이버 사전이 json구조로 변경이 되어서 lv4에서 lv5로 업데이트.. 2024. 3. 17.
[VBA_파일통합] 폴더속 파일 통합하기 폴더속 엑셀 파일들을 [통합]시트에 합치는 작업을 하려고 한다. 유의해야 할것은 각각의 파일들에서 헤더값들은 중복이 됨으로 헤더값을 제외한 DATA 영역의 값만 가져오는것이 관건이다. '= 헤더값을 제외한 내용부분 Set srcRange = ActiveSheet.UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count) 이렇게 하면 헤더값이 아닌 2행부터 데이터가 있는 값들을 가져올 수 있기 때문에 헤더중복을 피할 수 있다. 더보기 Option Explicit Sub 파일통합() Dim srcRange As Range Dim destRange As Range Dim str$ Dim n& Dim Strpath$, Filename$ Sheets("통합").[a2:i1.. 2024. 3. 16.