분류 전체보기369 [의뢰] CRUD 의뢰 https://www.youtube.com/watch?v=Kn61yGTSwC8 엑사남 33강 관련하여 의뢰가 들어와서 구현해 보았다 강의가 3년전 강의인데도 너무 알찬 강의라고 판단된다. 당시에도 초기 CRUD를 구현하였지만 3년이 지난 지금은 좀 더 고급져진거 같아 맘에 든다. CRUD는 Create Read Update Delete의 약자로 만들고 읽고 갱신하고 삭제...라는 뜻이다. 코드 진행은 이렇다. 1. 전체화면으로 전환여부 2. 검색어창의 PlaceHold구현 3. 새로운 글 작성 4. 관리자 코드로 전체 내용 삭제 5. 해당시트 삭제 6. 해당시트내에 추가 글 작성 원래 목표는 조회결과에서 대표 이미지를 볼 수 있도록 하려고 하였으나, 의뢰인이 불필요하다가 하여 추가 하지 않았으나, 개인적.. 2023. 8. 6. [기초방] VBA 100제 #59 [ 불일치 영역 색칠하기 ] 기초방 58번에서 언급했듯. 59번 코드가 정석이다. 이유는 58은 성명이 하나인 곳에서 에러를 발생할 것이며, 속도 또한 59번보다 느릴것이다. 영역을 순환하는 것보다. find로 바로 바로 찍어서 영역을 합치기 때문에 데이터 양이 많다면 분명 더 효과적일것이다.' haja_find 함수의 find구문은 일정부분 루틴이 있는 것이기 때문에 반드시 기억하길 바란다. 더보기 Option Explicit Sub 기초방59() Dim rngAll As Range: Set rngAll = [m5:s25] Dim rngA As Range, rngC As Range Dim strFind$ For Each rngC In rngAll.Columns For Each rngA In rngC.Cells If rngA = ".. 2023. 8. 1. [심화방] VBA_심화_100제 #20 [ 복잡한 노드 제어하기 ] 특정 사이트를 언급하기는 힘들지만 공기업 관련 사이트를 제어하다 보면 우리가 아는 방식과는 많이 어긋나 있는 것을 볼 수 있다. 일부러 보안때문에 그런거 일수도 있지만 연구를 하는 우리들에게는 맛있는 먹잇감이 될 수 있다...ㅋㅋㅋ 같은 크루인 청곡님이 몇일전부터 같은 질문을 하시길래 왜 해결이 안되지...어려운게 아닌데 하고 넘어가곤 하다가 어제 본인의 약주가 심했던지라 업무 집중도 안되서 청곡님과 갠적으로 연락하여 막힌 코드를 보게 되었다. 천천히 코드를 진행하면서 개발자도구로 태그를 보게 되었는데 와..이건 청곡님이 못하는게 아니라 코드가 진짜 일부러 하지 않으면 이렇게까지 할 수 있을까 정도로 난해하고 지저분했다. CSS를 모든 태그에 입혀놨는데 이건 와 다시 생각해도 엄두가 안날 정도였다. 허나.. 2023. 7. 27. [기초방] VBA 100제 #58 [ 불일치 영역 색칠하기 ] 각각의 이름중에 같은 열에 [불일치]가 포함되어 있으면 그 사람의 해당열을 노란색으로 칠하는 구문이다. 금일 본인의 코드에서는 복수의 행이 아닌 단일 행이 있는 경우라면 제대로 표현이 되지 않을 것이다. 이것은 기초방 59번 문제에서 해결해보려고 한다. 더보기 Option Explicit Sub 기초방58() Dim rngAll As Range: Set rngAll = [d5:j24] Dim rngA As Range Dim rngU As Range rngAll.Interior.Color = xlNone '= 초기화 For Each rngA In rngAll Do Until Cells(rngA.Row, "c") Cells(rngA(2, 1).Row, "c") '= 순환셀과 바로 밑에 셀의 일치 여부 If .. 2023. 7. 11. 이전 1 ··· 23 24 25 26 27 28 29 ··· 93 다음
