본문 바로가기

분류 전체보기165

[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.
[vba] UserForm에 이름을 입력하면 해당하는 열을 찿아서 메모 삽입 및 읽어오기 http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=247755252&ref=me2lnk 본 질문에 답변을 달면서 글로 남겨 봅니다. 질문의 내용은 이해할 수 없지만... 나름 심심해서 몇줄 코딩을 해보았습니다. 아래사진처럼 이름을 입력하면 해당 열이 자동으로 선택되게 했습니다. 아래 사진에서는"하" 가 되겠지요... 입력 버튼을 누렴 아래 사진처럼 셀에 내용이 입력되고 메모가 삽입됩니다. 다른 이름도 하나 더해볼까요? 아래 사진처럼 메모가 삽입됩니다. 나머지 설명 안한 기능들은 테스트를 하면서 공부해보세요 ^^ 시골이라 네트워크 상황이 너무 안좋아서 테더링으로 사용하고 있는데 무지 불편하네요 ...ㅠ.ㅠ 아래는 폼 모듈의 소스입니다. Pr.. 2020. 9. 5.
[vba] 메모(Comments)에 삽입된 이미지를 시트에 삽입(Copy And Paste) 'Updateby Extendoffcie Dim cmt As Comment Dim xRg As Range Dim visBool As Boolean Dim cmtTxt As String Dim jpgPath As String Dim shpHeight As Integer, shpWidth As Integer Application.ScreenUpdating = False For Each cmt In ActiveSheet.Comments With cmt cmtTxt = .Text shpHeight = .Shape.Height shpWidth = .Shape.Width .Text Text:="" & Chr(10) & "" visBool = .Visible .Visible = True On Error Resume .. 2020. 9. 5.
[vba] 시트의 지정한 영역을 이미지로 Copy And Paste Worksheets("Sheet1").Range("E10:H20").CopyPicture xlScreen, xlBitmap Worksheets("Sheet1").Paste Destination:=Worksheets("Sheet2").Range("E6") 엑셀 매크로&VBA 바이블:실무에 최적화된 엑셀 사용서, 한빛미디어 40,500원 (포스팅일기준) 엑셀 2016 매크로&VBA 무작정 따라하기:기본+회사실무, 길벗 19,800원 (포스팅일기준) 엑셀 2016 매크로 & VBA 바이블:회사에서 필요한 코드는 모두 있다!, 한빛미디어 40,500원 (포스팅일기준) 2020. 9. 5.
[HTML] Open graph (오픈 그래피, og 태그) Introduction ​ html 태그 중 opengraph에 대한 포스팅을 준비했습니다. 그 성질이 약간 다르기는 하지만 opengraph도 html 메타 태그 중의 하나입니다 ​ opengrash는 SNS(소셜 네트워크)에서 그 개념이 시작되었습니다. ​ 우리가 SNS을 통해 해당 링크를 복사하여 SNS에 개시를 하면 링크를 클릭해서 들어가기 전까지 이 링크가 어떤 데이터를 가지고 있는지 알 수가 없습니다. ​ 예를 들면, 제가 페이스북에 블로그를 알리기 위해, url 링크를 개시하면 단순히 url만으로는 개발 관련 사이트인지, 성인 사이트인지 알 수 없습니다. ​ 또 지금같이 악성코드가 범람하는 시대에 아무 의심 없이 링크를 클릭해서 들어가기도 망설여집니다. ​ 그럴 때 사용하는 태그로써 미리보기.. 2020. 9. 5.
[vba] 고급필터(AdvancedFilter)를 이용한 지정한 구간의 날짜검색 고급필터(AdvancedFilter)를이용해서 지정한 구간의 날짜를 필터링 하는 예제입니다. ​ 첨부된 파일에는 아래처럼 이름이 정의되어 있습니다. Data =OFFSET(Sheet1!$A$4,0,0,COUNTA(Sheet1!$A:$A),5) 조건 =Sheet1!$F$1:$G$2 ​ 아래는 삽입된 vba(매크로) 소스입니다. Sub Macro1() On Error Resume Next ActiveSheet.ShowAllData Range("Data").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("조건"), Unique:=False End Sub ​ 아래와 같은 데이터가 있습니다. "검색" 버튼을 누르면... 아래와 같이 2012-05-01.. 2020. 9. 4.
[vba] 현재셀(ActiveCell)의 Screen X/Y 좌표 알아내기 #If VBA7 Then Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As LongPtr) As Long Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hWnd As LongPtr, ByVal hdc As LongPtr) As Long Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hdc As LongPtr, ByVal nIndex A.. 2020. 9. 4.
[vba] Collection을 활용한 중복값 없이 랜덤 추출하기 Sub RndSeat() Dim i As Integer, n As Integer, max As Integer, count As Integer Dim V As Variant, x As New Collection max = Val([D2]) * Val([F2]) i = Cells(Rows.count, "L").End(3).Row If (i - 3) 2020. 9. 3.
불법 유출된 주민등록번호, 현재까지 1,109명이 새 주민번호 발급 불법으로 수집된 주민등록번호는 국내뿐만 아니라 해외에까지 거래됨에 따라 보이스피싱, 스미싱 등과 같은 범죄의 수단으로 이용돼 2차, 3차 피해로 확산될 위험성을 가지고 있다.출처 : 백세시대(http://www.100ssd.co.kr) 출처: 주민등록번호변경위원회 주민등록번호 변경제도란? 주민등록번호 유출로 인하여 생명, 신체, 재산 등에 피해를 입거나 입을 우려가 있다고 인정되는 경우 주민등록번호를 변경해주는 제도 주민등록번호 유출로 인한 국민들의 불안감을 해소하고 2차 피해를 예방하며, 궁극적으로는 번호 변경을 통해 국민의 개인정보보호를 강화하기 위한 제도 주민등록번호 변경위원회의 구성은? 주민등록번호 변경위원회는 위원장 1명을 포함하여 11명의 위원으로 구성되어 있습니다. 11명의 위원은 행정안전부.. 2020. 9. 3.
[영화추천] 램페이지 (Rampage) 2009 ㅋㅋㅋㅋㅋㅋㅋ 저는 이런 종류의 영화를 무지 좋아합니다. 매우 스릴있고 소름돋고 재밌게보았던... "​우리들이 살기위해서는 세상 청소를 좀 합시다."​​ 소름...돋습니다... 2020. 9. 3.
[vb.net] MessageBoxTimeout - 시간을 정하여 메세지박스를 종료할수있습니다. MessageBoxTimeout :: MessageBoxTimeout 란? 이 API 는 시간을 지정하여 메세지박스를 띄울수 있습니다. (인수 값 정리표) 변수 의미 hwnd 윈도우의 핸들을 기술합니다. lpText 메세지 박스의 내용을 기술합니다. lpCaption 메세지 박스의 타이틀을 기술합니다. uType 메세지 박스의 유형을 기술합니다. wLanguageId 메세지 박스의 언어를 기술합니다. ※ 0 으로 설정시 기본 시스템의 언어로 설정됩니다. ※ 현재 언어가 아닌 다른 언어를 지정하려면이 MAKELANGID 를 사용합니다. dwMilliseconds 메세지 박스를 띄울 시간을 기술합니다. ※ 시간은 밀리세컨드 단위입니다. 변수​ 값​ 의미​ MB_ABORTRETRYIGNORE 0x0000000.. 2020. 9. 3.
의사(의료진) 파업과 그 이유와 그에 대한 생각 대한 의사협회가 파업하는 이유? 1. 의대 정원 증원 2. 공공 의대 신설 3. 한방첩약 급여화 시범사업 4. 비대면 진료 육성 ​ 이중 핵심은 "의대 정원 증원"입니다. 오는 2022학년도부터 10년간 4천여 명의 의사를 양성하는 방안을 발표했습니다. ​ 이에 의사협회는 강력히 반발하고 있습니다. ​ 이와 관현해 의사들이 파업을 하고 정부는 의사를 고발하는 사태가 벌어졌습니다. 대한의사협회는 8월 26일 제 2차 전국의사총파업에 돌입했습니다. 그로인한 휴진율은 날로 늘어가고 있습니다. 대한의사협회 회장은 제2차 전국의사총파업 유튜브 궐기대회에서 "13만 의사 회원이 동력을 모아 우리의 정당한 주장이 관철되도록 적극적으로 참여해 달라"고 소리 높였습니다. 우리 나라의 의사 부족 문제는 점점 심화되고 있습.. 2020. 9. 3.
[vb.net] 게시 버전 가져 오기 Imports System.Deployment.Application If ApplicationDeployment.IsNetworkDeployed Then lblVersion.Text = ApplicationDeployment.CurrentDeployment.CurrentVersion Else lblVersion.Text = Application.ProductVersion End If Visual Basic 프로그래밍 기초:프로그래밍 경험이 전혀 없는 초보자를 위한 가이드 북, 교학사 19,800원 (포스팅일기준) Professional Visual Basic 6 XML 정보문화사 24,300원 (포스팅일기준) Visual Basic이 보이는 그림책, 성안당 14,400원 (포스팅일기준) 2020. 8. 29.

티스토리툴바