VBA 11

또 다시 개인 사업자의 전산에 대해서 생각해보자.

(이곳 카테고리 끄적끄적은 두서 없이 제 생각을 나열해서 적어 내려가는 곳입니다. 읽기에 불편하실 수 있습니다.) 개인 사업자가 필요로 하는 전산의 내용을 구체적으로 생각해보고, 정리를 하는 과정이 필요한것 같다.예시를 만드는 나도 그렇지만, 실제 개발자들도 이런 과정들을 잘 거쳐야 수정을 덜 하지, 아니면 나중에 수정하다가 프로그램 삭제하고 새로 만드는 경우가 생긴다. (물론 내 걱정이다. 다들 잘 하시겠지만...) 가장 직관적인게 기능적 관점이다. 프로그램의 기능 /w 업무 프로세스. 업무 프로세스의 스토리 라인은 프로그램이나 업무 행위의 루틴을 내포하고, 그 루틴중에 프로그램이 대신 해줄수 있는 것들을 찾아서 천천히 내 일을 PC에게 넘기는 단계로 진화한다. 시간이 지날수록 조금씩 조금씩 일을 더 ..

엑세스(VBA)로 국내주식, 해외주식, 코인 현재가, 등락율 가져오기

안녕하세요. VBA로 크롤링이나 파싱을 여러가지 방법으로 하는데, 오늘은 방법을 알려드리는게 아니고, 코드 공개 위주로 하겠습니다. 원리까지 설명하자면 시간이 좀 길어질것 같군요. 올려드리는 코드 전문을 보시고 수정해서 사용하셔도 좋을듯 합니다. 폼은 이렇게 생겼습니다. 하단 동그라미 종목코드 부분에 코드를 넣고 현재가 버튼을 누르면 가격정보와 등락이 나옵니다. 우선 "VB 에디터 참조" 찾다가 한세월이니 레퍼런스를 보여드리겠습니다. 우선 참조 목록에 있는 모든 걸 참조하세요. 저도 이게 다 필요한지는 모르겠지만, 하다 보니 이렇게 되더군요. 수정하면서 참조를 풀지 않은 것도 있을 수 있습니다. 전 인간이니까요 ㅎㅎ ^__^ 가장 중요한 현재가 버튼의 코드를 아래와 같이 공개합니다. Private Sub..

기본값 프린터 설정 코드 VBA

프로그램 사용시 프린터를 여러개 사용할때 기본 프린터 지정하는 코드 Sub printerOff() Dim mynet As Object Set mynet = CreateObject("WScript.network") mynet.setdefaultprinter "HP LaserJet M14-M17 PCLms" End Sub 위 코드중 HP LaserJet M14-M17 PCLms 만 자기가 선택한 프린터로 변경해주면 됩니다. 프린터 이름을 어디서 보는가? 윈도우 11의 경우 검색창 검색해서 프린터 및 스캐너로 들어가면, 아래와 같이 나오는데 이름을 그대로 쳐주면 됩니다.

38. 현재고 작성하기(+전월이월계산) "만능레시피"

https://youtu.be/jBMRRbuy4ME월별 재고 확인하는 폼 만들기크게 2가지를 고민해봅니다.첫 번째는 사용자 입장에서 사용시 몇번의 컨트롤로 원하는 리스트를 출력하는가?두 번째는 개발자 입장에서 원하는 결과를 위해서 어떻게 코드를 짜는가? 1) 폼 컨트롤 횟수 고민 (몇번 클릭을 할까?)아래의 그림처럼 컨트롤을 두가지로 나눠서 사용할 수 있습니다.둘다 결국엔 시작일과 종료일 그리고 이전 말일 이라는 3가지 날짜를 추출하는게 목적입니다. 첫번째 텍스트 박스는 월중 아무 날짜나 찍으면 3가지 날짜를 구하는 형식이고사용자가 편하긴 하지만, 처음 이걸 보는 사람에게는 무엇을 요구하는지 두번째 콤보 상자에 비해서 전달력이 확실히 떨어지지요. 두번째 콤보상자는 년과 월을 선택하면, 3가지의 날짜를 구..

바보처럼 코딩하기 (엑세스) 22. 폼 디자인 수정 & 검색 IF, Dcount, Searching

오픈소스 '--(22회)--2중 IF문 If Nz(검색콤보, "") = "" Then If Nz(검색창, "") = "" Then 구매처리스트.RowSource = "SELECT t_구매처정보.ID, t_구매처정보.공장분류, t_구매처정보.상호, t_구매처정보.공장전화, t_구매처정보.공장주소 FROM t_구매처정보" Else 구매처리스트.RowSource = "SELECT t_구매처정보.ID, t_구매처정보.공장분류, t_구매처정보.상호, t_구매처정보.공장전화, t_구매처정보.공장주소 FROM t_구매처정보 where 상호 like '*" & Me.검색창 & "*' " End If Else 구매처리스트.RowSource = "SELECT t_구매처정보.ID, t_구매처정보.공장분류, t_구매처정보.상..