본문 바로가기

전체 글156

[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.
[꿀팁] Google 문서를 이용한 음성(소리)를 텍스트로 무료 변환하기 1. 구글 Chrome창을 열어서 Google 로그인을 합니다. 2. 우측 상단의 바둑판 모양의 아이콘을 클릭합니다. 3. "문서" 아이콘을 클릭하면 구글문서 로 이동합니다. 4. + 모양을 클릭하여 새 문서를 만들어 줍니다. 5. "도구"에서 "음성 입력"을 눌러줍니다. 6. 마이크 모양을 클릭해서 음성을 텍스트로 변환합니다. ※ 주의할점으로 컴퓨터의 다른 작엄을 하게되면 기능이 꺼지게 되니 주의 하세요 2020. 8. 29.
[vb.net] 컴파일 시 파일 버전 자동 증가 ' 어셈블리의 버전 정보는 다음 네 가지 값으로 구성됩니다. ' ' 주 버전 ' 부 버전 ' 빌드 번호 ' 수정 버전 ' ' 모든 값을 지정하거나 아래와 같이 '*'를 사용하여 빌드 번호 및 수정 번호가 자동으로 ' 지정되도록 할 수 있습니다. ' ​ ※ AssemblyVersion의 마지막 자리를 "*" 변경 하면 빌드 시 마다 버전이 증가 한다. 2020. 8. 29.
[vb.net] 동적 컨트롤 삽입 시 매소드를 생성하지 않고 익명 매소드를 이용하여 이벤트 처리하는 방법 Public Class Form1 Dim rnd As New Random Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim Parent As New PictureBox '// 새로운 픽쳐박스 생성 Parent.Size = New Size(Me.ClientRectangle.Width, Me.ClientRectangle.Height) '// 폼 내부사이즈만큼 Parent.Location = New Point(0, 0) '// 시작위치는 0 Parent.SizeMode = PictureBoxSizeMode.Zoom '// 이미지 사이즈 모드 줌 Me.Controls.Add(Parent) '// 픽쳐박스 삽입 Dim .. 2020. 8. 26.
[vb6.0/vba] MKDIR 폴더 생성 / 폴더 유무 / 파일 유무 확인하는 방법 윈도우의 폴더를 생성하는 함수는 MKDir 이다. 폴더 생성은 fPath = "C:\abc\" If Len(Dir(fPath, vbDirectory)) = 0 Then MKDir fPath 해당 폴더가 있는지 체크하는 방법은 If Len(Dir(fPath, vbDirectory)) = 0 Then End 파일이 있는지 체크하는 방법은 sFile = "경로.xlsx" If Len(Dir(fPath & sFile)) = 0 Then End 엑셀 매크로&VBA 바이블:실무에 최적화된 엑셀 사용서, 한빛미디어 40,500원 (포스팅일기준) 엑셀 2016 매크로&VBA 무작정 따라하기:기본+회사실무, 길벗 19,800원 (포스팅일기준) 엑셀 2016 매크로 & VBA 바이블:회사에서 필요한 코드는 모두 있다!, .. 2020. 8. 26.
[vb6.0/vba] JsonParser '' ' VBA-JSON v2.3.0 ' (c) Tim Hall - https://github.com/VBA-tools/VBA-JSON ' ' JSON Converter for VBA ' ' Errors: ' 10001 - JSON parse error ' ' @class JsonConverter ' @author tim.hall.engr@gmail.com ' @license MIT (http://www.opensource.org/licenses/mit-license.php) '' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' ' ' Based originally on vba-json (with extensive chan.. 2020. 8. 21.
[vb.net] DataGridView 열 및 행 크기 조정(Column and Row Resizing) DataGridView 의 기본 모양은 DataGrid 보다 약간 개선되었습니다. 그러나 몇 가지 빠른 수정을 통해 크게 개선 할 수 있습니다. 한 가지 문제는 DataGridView가 내용에 관계없이 모든 열에 기본 표준 너비를 제공한다는 것입니다. 결과적으로 그림 15-1에서 바인딩 된 그리드의 초기 모양은 완벽하지 않으며 ModelName 및 Description 열이 포함 된 데이터에 비해 너무 작습니다. 다행히 DataGridView에 내장 된 몇 가지 강력한 자동 크기 조정 기능을 사용할 수 있습니다. 첫 번째 결정은 전체 컨트롤에 대한 크기 조정을 제어할지 아니면 개별 열을 미세 조정할지 여부입니다. 다음 섹션에서는 옵션을 살펴 봅니다. 전체 그리드에 대한 자동 크기 조정 모드 설정 가장 간.. 2020. 8. 21.
[vb.net] 글꼴 크기를 포함하여 양식의 크기가 조정될 때 모든 컨트롤의 동적 크기 조정 및 위치 조정 Visual Basic 프로그래밍 기초:프로그래밍 경험이 전혀 없는 초보자를 위한 가이드 북 COUPANG www.coupang.com A complete Form code example: Public Class Form1 Dim rs As New Resizer Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load rs.FindAllControls(Me) End Sub Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize rs.ResizeAllControls(Me) End Sub End Class The complete class code.. 2020. 8. 21.
[vb.net] vb.net 에서 동적 컨트롤에 익명매소드를 이용해서 이벤트 걸기 익명매소드(이름이 없는 매소드) 1. 객체 생성과 동시에 구현할 때 2. 일회성으로 사용할때 ​ 사용 예:) AddHandler CB.CheckedChanged, Sub(S, O) MsgBox(S.tag) 아래 프로시저를 실행 후 Private Sub LoadTimer_Tick(sender As Object, e As EventArgs) Handles LoadTimer.Tick LoadTimer.Stop() Dim T As String Dim URL As String = "https://section.blog.naver.com/ajax/DirectoryList.nhn" With CreateObject("WinHttp.WinHttpRequest.5.1") .Open("GET", URL) .SetReques.. 2020. 8. 10.
[vb.net] Visual Basic에서 예외 기록 / LOG 기록 방법: Visual Basic에서 예외 기록 / LOG 기록 2015. 07. 20. 읽는 데 2분 걸림 My.Application.Log 및 My.Log 개체를 사용하여 애플리케이션에서 발생하는 예외에 대한 정보를 기록할 수 있습니다. 이 예제에서는 My.Application.Log.WriteException 메서드를 사용하여 명시적으로 catch하는 예외 및 처리되지 않은 예외를 기록하는 방법을 보여 줍니다. 추적 정보를 기록하려면 My.Application.Log.WriteEntry 메서드를 사용합니다. 자세한 내용은 WriteEntry을 참조하세요. 처리된 예외를 기록하려면 / LOG 기록 1. 예외 정보를 생성하는 메서드를 만듭니다. Public Sub ExceptionLogTest(ByVal .. 2020. 7. 22.

티스토리툴바