본문 바로가기

전체 글156

[vba] Exec () 사용시 명령 프롬프트 창 숨기기( Hide command prompt window when using Exec()) Sub파일검색()DimdirPathAsString, temPathAsString, TAsStringdirPath="""D:\My Project\Excel\*.xls*"""temPath="D:\tem.txt"CreateObject("wscript.shell").Run"cmd /c dir "&_dirPath&" /s /b > "&temPath,0,FalseDo Until Dir(temPath)"": DoEvents: LoopDo Until FileLen(temPath)>0: DoEvents: LoopWith CreateObject("Scripting.FileSystemObject")T=.OpenTextFile(temPath).ReadAll()On Error ResumeNextDoIfErrThenErr.Cle.. 2020. 9. 21.
[vb.net] DateTimePicker 표시형식 변경 1. "속성"창에서 변경하는 방법 "모양"에서 "Format"을 "Custom"으로 변경합니다. 다음으로 "동작"에서 "CustomFormat"을 보여질 형식으로 지정합니다. 2. 프로그램 명령으로 변경하는 방법 DateTimePicker1.Format = DateTimePickerFormat.Custom DateTimePicker1.CustomFormat = " yyyy-MM-dd" Visual Basic 프로그래밍 기초:프로그래밍 경험이 전혀 없는 초보자를 위한 가이드 북, 교학사 19,800원 (포스팅일기준) Professional Visual Basic 6 XML 정보문화사 24,300원 (포스팅일기준) Visual Basic이 보이는 그림책, 성안당 14,400원 (포스팅일기준) 2020. 9. 21.
[vb.net] 이미지(png, jpg, bmp 등) 파일을 아이콘(ico) 파일로 변환 Dim fileName AsString="EX.png" Dim newFileName AsString="ico.ico" Dim bmp AsSystem.Drawing.Bitmap=System.Drawing.Image.FromFile(fileName, True) Dim ico AsSystem.Drawing.Icon=System.Drawing.Icon.FromHandle(bmp.GetHicon()) Dim icofs As Stream=File.Create(newFileName) ico.Save(icofs) : icofs.Close() Visual Basic 프로그래밍 기초:프로그래밍 경험이 전혀 없는 초보자를 위한 가이드 북, 교학사 19,800원 (포스팅일기준) Professional Visual Basic .. 2020. 9. 21.
FileLocator Pro Version 8.5 - Build 2912 Crack FileLocator Pro Version 8.5 - Build 2912 Crack ​ ​ 다운로드 받을 수 있는 곳입니다. 아래 링크에서 받을 수 있습니다. FileLocator Pro 8.5 Build 2912 Multilingual دانلود FileLocator ؛ برنامه جست‌وجوی سریع فایل downloadly.ir 파일 다운로드 링크 دانلود رایگان نرم افزار - ویندوز، مک، لینوکس، فیلم آموزشی، سریال، اندروید - دانلودلی ویندوز، مک، لینوکس، فیلم آموزشی، سریال، اندروید - دانلودلی downloadly.ir 설명대로 설치 후 같이 동봉된 Crack 폴더의 하위 폴더중 운.. 2020. 9. 21.
[vba] Exec () 사용시 명령 프롬프트 창 숨기기( Hide command prompt window when using Exec()) Sub 파일검색() Dim dirPath As String, temPath As String, T As String dirPath = """D:\My Project\Excel\*.xls*""" temPath = "D:\tem.txt" CreateObject("wscript.shell").Run "cmd /c dir " & _ dirPath & " /s /b > " & temPath, 0, False Do Until Dir(temPath) "": DoEvents: Loop Do Until FileLen(temPath) > 0: DoEvents: Loop With CreateObject("Scripting.FileSystemObject") T = .OpenTextFile(temPath).ReadAll() O.. 2020. 9. 19.
[vb.net] DateTimePicker 표시형식 변경 1. "속성"창에서 변경하는 방법 "모양"에서 "Format"을 "Custom"으로 변경합니다. 다음으로 "동작"에서 "CustomFormat"을 보여질 형식으로 지정합니다. 2. 프로그램 명령으로 변경하는 방법 DateTimePicker1.Format = DateTimePickerFormat.Custom DateTimePicker1.CustomFormat = " yyyy-MM-dd" ​ Visual Basic 프로그래밍 기초:프로그래밍 경험이 전혀 없는 초보자를 위한 가이드 북, 교학사 19,800원 (포스팅일기준) Professional Visual Basic 6 XML 정보문화사 24,300원 (포스팅일기준) Visual Basic이 보이는 그림책, 성안당 14,400원 (포스팅일기준) ​ 2020. 9. 15.
[vb.net] 이미지(png, jpg, bmp 등) 파일을 아이콘(ico) 파일로 변환 Dim fileName As String = "EX.png" Dim newFileName As String = "ico.ico" Dim bmp As System.Drawing.Bitmap = System.Drawing.Image.FromFile(fileName, True) Dim ico As System.Drawing.Icon = System.Drawing.Icon.FromHandle(bmp.GetHicon()) Dim icofs As Stream = File.Create(newFileName) ico.Save(icofs) : icofs.Close() VISUAL BASIC을 이용한 전자상거래 구축, 사이버출판사 18,000원 (포스팅일기준) Visual Basic 2013 Programming(비주얼 .. 2020. 9. 14.
[vb.net] DataTable 내용을 XML로 저장 및 불러오기 Example 1:) Write: dt1.TableName = "MyDataTable" dt1.WriteXmlSchema(Application.StartupPath + "\test_sh.xml", True) dt1.WriteXml(Application.StartupPath + "\test_dt.xml", True) Read: dt2 = New DataTable dt2.ReadXmlSchema(Application.StartupPath + "\test_sh.xml") dt2.ReadXml(Application.StartupPath + "\test_dt.xml") Example 2:) Write: Dim writer As System.IO.StringWriter = New System.IO.StringWri.. 2020. 9. 14.
[VBA] Property Examples (Get, Set(Let)) Private meText As Long Public Property Get Text() As String Text = meText End Property Public Property Let Text(value As String) meText = value Me.Caption = meText End Property 대단한 프로그램을 작성중이지 않는다면 잘 사용안하기는 합니다. vba 프록래밍에서 많이 보지 못했거든요 ​ 하지만 .Net 프로그램을 하면서 많이 사용하게 되는데 vba에는 없는 것일까 한참 찿다가 추후에 필요할 것 같아 정리해 둡니다. 엑셀러 권현욱의 VBA Power Coding 엑셀 VBA 파워 코딩의 정석, 디지털북스 22,500원 (포스팅일기준) 세상에서 제일 친절한 엑셀 매크로&VB.. 2020. 9. 8.
[vba] 작업진행 상태바 만들기(Progress Bar) 1. UserForm을 하나와 Module을 하나 추가합니다. 2. 다음으로 Label을 3개(Label1, Label2, Label3) 추가합니다.(아래 사진에는 Label1개가 안나왔네요) 3. Label1 은 배경이 되는 BaceColor 색상을 정해줍니다. 4. Label2는 진행이 되는 BaceColor 색상을 정해줍니다. ※ Label3은 그냥 둡니다. ​ 4. 다음으로 "UserForm1"의 이름을 "pBar"라고 이름을 바꿉니다. ​ 5. "pBar"를 더블클릭하거나 소스보기를 해서 아래 소스를 붙여넣습니다. Private min_Value As Long, run_Value As Long, max_Value As Long '// 폼이 실행될때 Private Sub UserForm_Initi.. 2020. 9. 8.
[vba] 쇼핑몰에서 다운로드한 주문서의 상품명을 원하는 형태로 한 번에 쉽게 정리 네이버 지식인 질문 내용입니다. -액셀로 다운받은 주문서를 정리 하려고 합니다. -"예시" 라고 되어 있는 시트에서 "결과값" 이라고 되어 있는 시트로 변환되었으면 합니다. -"예시"시트에 보시면 문장 맨앞에 랜덤한 문자열이 항상 존재 합니다. 그리고 특정 상품들이 대괄호([])안에 적혀 있습니다. -하나의 제품만 있으면 '#' 기호가 없지만, 여러개의 제품들을 산 사람이 있다면 '#' 기호로 구분되어 집니다. -만약 '(랜덤한문자열) [콜라#사이다#오렌지] -n개' 이러한 문장이 있을때, 파일에서와 같이 '(랜덤한문자열) 콜라 -n개#사이다 -n개#오렌지 -n개' 이런식으로 몇개를 샀는지에 따라, #기준으로 각각의 문장에 -n개가 분배되었으면 좋겠습니다. 아래 매크로로 한방에 해결됩니다. Sub pro.. 2020. 9. 8.
[vb.net] HtmlAgilityPack 라이브러리를 이용한 크롤링시 라이브러리 사용 예시 Imports HtmlAgilityPack Dim doc As New HtmlDocument, a As HtmlNode, img As HtmlNode, hNode As HtmlNode doc.LoadHtml(T) If Not doc.DocumentNode.SelectNodes("//*[@id=""productList""]/li") Is Nothing Then For Each li As HtmlNode In doc.DocumentNode.SelectNodes("//*[@id=""productList""]/li") a = li.SelectSingleNode("a") T = a.SelectSingleNode("dl/dd/div[2]").InnerHtml.Replace(vbLf, Space(1)).Trim T .. 2020. 9. 8.
[vba] 조건부 서식이 걸린 셀 Display 색상 가져오기 조건부 서식이 걸린 셀의 색상을 카운트할 수 있습니다. 아래처럼 [알고자 하는 셀].DisplayFormat.Interior.Color로 조건부 서식으로 지정한 셀 색상 값을 가져올 수 있습니다. ​ dColor = rasCell.DisplayFormat.Interior.Color ​ Function Color(intRng As Range) As String Dim rasCell As Range Dim Y As Integer Dim R As Integer Dim G As Integer Dim dColor As Long For Each rasCell In intRng If rasCell.FormatConditions.Count > 0 Then dColor = rasCell.DisplayFormat.Inte.. 2020. 9. 8.
[vba] 서울스토어(seoulstore) 크롤링 / Dictionary, JsonConverter https://www.seoulstore.com 서울스토어 www.seoulstore.com ​ Sub program1472_com() ActiveSheet.Pictures.Delete Dim URL As String, T As String, PostData As String, cookie As String Dim O As Object, items As Object, C As Range Dim i As Integer, s As Variant Dim key As String, itype As String, value As String URL = "https://www.seoulstore.com/api/do/search" For Each C In Range(Cells(3, 3), Cells(Rows.Coun.. 2020. 9. 8.
[vba] 두 영역에서 교차(중첩)하는 셀... Set rngs = Application.Intersect(Range([D6], [D38]), Selection) '// D6 ~ D38 셀중 선택한 셀이랑 포함되는셀 If rngs Is Nothing Then '// 포함되지 않으면 MsgBox "없습니다." Else If rngs.Count > 1 Then '// 1개 이상일경우 MsgBox "너무많은 셀을 선택하였습니다." Else MsgBox rngs.Address(0, 0) '// 셀주소를 메세지로... End If End If 엑셀 매크로&VBA 바이블:실무에 최적화된 엑셀 사용서, 한빛미디어 40,500원 (포스팅일기준) 엑셀 2016 매크로&VBA 무작정 따라하기:기본+회사실무, 길벗 19,800원 (포스팅일기준) 엑셀 2016 매크로 & .. 2020. 9. 7.
[vb.net] DateAndTime.DateDiff 메서드를 활용한 시간 계산 Example: DimDAsDate=DateValue(GetSetting("cp","api","searchDate","1999-01-01 01:01:01"))+TimeValue(GetSetting("cp","api","searchDate","1999-01-01 01:01:01")) IfD>NowThen DimMinutesAsLong=DateDiff(DateInterval.Minute, Now, D) MsgBox(Minutes&"분 후에 검색해 주세요.") Return EndIf ​ ​ 아래 링크 참고: DateAndTime.DateDiff 메서드 (Microsoft.VisualBasic) 두 Date 값 사이의 시간 간격 수를 지정한 값을 반환합니다.Returns a value specifying the.. 2020. 9. 6.
EditPlus 정규식을 사용한 JSON 데이터 줄바꿈하기 EditPlus 현재 사용중인 버젼 쿠팡에서 api로 검색해온 데이터가 어떤 형식인지 보고 싶은데 한줄로 되어있어서 영 보기 불편합니다. 우선 {로 줄바꿈을 해야 할 것 같아 이전 버젼에서 사용하던 방법을 다 해봐도 안되네요 한참을 삽질하다 아래처럼 정규식을 이용해서 줄바꿈 하였습니다. [] 대괄호는 아래처럼 줄바꿈 하시면 됩니다. 까로네까사 페이 1600 전동식 높낮이 조절 책상 yr131, 블랙+오크 329,000원 (포스팅일기준) [까로네 까사] 페이 1400 전동식 높낮이 조절 USB책상 yr127, 색상:블랙+그레이 355,000원 (포스팅일기준) 까로네까사 페이 1400 전동식 높낮이 조절 책상 yr130, 블랙+오크 298,000원 (포스팅일기준) 2020. 9. 6.
[vba] Application.Run 매소드를 활용한 다른 파일의 UserForm에 특정 값 전달하기 A 파일 UserForm1의 TextBox1내용을 B파일 UserForm1의 TextBox1에 값을 전달하도록 해보겠습니다. 또 그 반대로 전송해 보도록 하겠습니다. 우선 A, B 파일 모두 모듈을 하나씩 추가해주고 아래와 같이 매소드를 작성합니다. Sub FormShow(Optional value As String = "") If Len(value) Then UserForm1.TextBox1.Text = value If UserForm1.Visible Then Exit Sub UserForm1.Show End Sub 그리고 각각 폼의 CommandButton1의 클릭 이벤트를 아래와 같이 작성합니다. A 파일의 UserForm1:) Private Sub CommandButton1_Click() Dim .. 2020. 9. 5.
[vba] vba를 활용한 서로 다른 열의 텍스트 Join(합치기) 아래와 같이 A열과 D열의 텍스트를 Join 즉 합치고자 합니다. Sub program1472_com() Dim V As Variant, i As Integer Columns(5).ClearContents i = ActiveSheet.UsedRange.Rows.Count ReDim V(1 To i) For i = 1 To i V(i) = Join(Array(Cells(i, "A"), Cells(i, "D")), "") Next [E1].Resize(UBound(V)) = Application.Transpose(V) End Sub 엑셀 매크로&VBA 바이블:실무에 최적화된 엑셀 사용서, 한빛미디어 40,500원 (포스팅일기준) 엑셀 2016 매크로&VBA 무작정 따라하기:기본+회사실무, 길벗 19,800원.. 2020. 9. 5.
[vba] B열의 셀값과 같은 이미지가 있으면 A열에 영구 삽입하기 [vba] B열의 셀값과 같은 이미지가 있으면 A열에 영구 삽입하기 ​ Sub program1472_com() ActiveSheet.Pictures.Delete Dim fPath As String, fName As String fPath = ThisWorkbook.Path & "\이미지폴더\" Dim C As Range Set C = Columns(2).SpecialCells(2) For Each C In C fName = Dir(fPath & C & ".*") If Len(fName) > 0 Then ActiveSheet.Shapes.AddPicture fPath & fName, msoFalse, msoTrue, _ C.Offset(, -1).Left + 2, _ C.Offset(, -1).Top + .. 2020. 9. 5.
[Excel] 메모삽입시 사용자 이름 변경방법 Windows Registry Editor Version 5.00 ​ [HKEY_CURRENT_USER\Software\Microsoft\Office\Common\UserInfo] "UserName"="하나를하더라도최선을" "Company"="" "UserInitials"="n" ​ 아래처럼 옵션에서도 가능합니다. ​ 엑셀 매크로&VBA 바이블:실무에 최적화된 엑셀 사용서, 한빛미디어 40,500원 (포스팅일기준) 엑셀 2016 매크로&VBA 무작정 따라하기:기본+회사실무, 길벗 19,800원 (포스팅일기준) 엑셀 2016 매크로 & VBA 바이블:회사에서 필요한 코드는 모두 있다!, 한빛미디어 40,500원 (포스팅일기준) 2020. 9. 5.

티스토리툴바