วีดีโอ

감사합니다 행복한 하루 되세요 ^^

@@산오공 파일을 메일로 보내주실래요? csyy7199@naver.com

와우 서우님 감사합니다 ^^ 오늘도 행복한 하루 되세요 파이팅입니다!!!

안녕하세요 파일보내주세요. csyy7199@naver.com

안녕하세요 파일보내주세요. csyy7199@naver.com

안녕하세요. csyy7199@naver.com 으로 파일 보내 주실래요?

행복한 휴일 되세요 ^^

안녕하세요 예제 파일을 보내 주실래요? csyy7199@naver.com

저도 어려운 위 작업 말고 쉽게 할수 있는방법이

안녕하세요 예제 파일을 보내 주실래요? csyy7199@naver.com

재생목록에 있습니다. 초급이시면 th-cam.com/play/PL5UOpMShP0RyDQtiNKQ8R8Bx8vezCfhMi.html&si=NwtDErYvZdG_tvlc

안녕하세요 메일로 파일 보내 주실래요? csyy7199@naver.com

안녕하세요 메일로 파일 보내 주실래요? csyy7199@naver.com

안녕하세요. Liststyle =1 로 하시고 Multiselect=0, 1, 2 로 변경 해 보시면 됩니다. 감사합니다.

안녕하세요 ^^ Multiselect=1 로 설정하시면 ㅁ 이 나타납니다. 감사합니다.

아이콘 모양을 달리 하는 방법 중 하나는, TreeView 를 사용해 볼 수도 있습니다.

트리뷰는 영상 참고 하시면 됩니다. 3편입니다. th-cam.com/video/OrLqkjzAkl0/w-d-xo.html

아 ! 배울수록 빠져듭니다. 내 업무에 크게 적용할 수 있을 것 같습니다.

@@신재영-f1f 감사합니다 ^^ 파이팅입니다!!!

여러 방법이 있을 수 있겠지만 아래를 참조하시면 될 것 같습니다. 방법1 원하는 만큼 행을 드래그 해서 추가 방법2 VBA 코딩으로 간단히 행 추가(아래코드 참조) Sub 행추가() Dim rowCount As Integer Dim targetRow As Integer ' 사용자가 추가할 행의 수를 입력받음 rowCount = InputBox("추가할 행의 수를 입력하세요:", "행 추가") ' 유효한 숫자인지 확인 If IsNumeric(rowCount) And rowCount > 0 Then ' 선택한 셀의 행 번호 가져오기 targetRow = Selection.Row ' 선택한 위치에 지정된 수량 만큼 행 삽입 Rows(targetRow & ":" & targetRow + rowCount - 1).Insert Shift:=xlDown Else MsgBox "숫자만 넣어 주세요.", vbExclamation End If End Sub

감사합니다. ^^ 편안한 밤 되세요

안녕하세요 ^^ 예시 파일을 보내 주시면 그 파일을 피드백 드리겠습니다. 설명도 포함해서 넣어 주세요. ^^ csyy7199@naver.com

@mino9400 wow!!! 즐거운 시간 되세요 ^^

감사합니다 오늘 주말 행복하세요 ^^

깜놀 했습니다. ^^ 늘, 감사 드립니다.

@math_dongdong 선언 하나가 제가 미스로 빠뜨렸네요. 2편에 다른 모듈에 선언을 해두었는데, 1편에는 선언이 2편 코딩이 빠지면서 에러가 발생했습니다. 수정 파일 다시 블로그에 올려 두었습니다. 감사합니다. ^^ Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer ' ESC 감지용

선언 하나가 제가 미스로 빠뜨렸네요. 2편에 다른 모듈에 선언을 해두었는데, 1편에는 선언이 2편 코딩이 빠지면서 에러가 발생했습니다. 수정 파일 다시 블로그에 올려 두었습니다. 감사합니다. ^^ Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer ' ESC 감지용

안녕하세요 언제든 댓글 주세요 파이팅입니다.!!!

Scroll Lock 확인해 주세요. Scroll Lock이 활성화되어 있으면, 엑셀에서 Shift + Space를 눌렀을 때 페이지가 스크롤되거나 넘어갈 수 있습니다.

단순히 shift + space 만 했는데, 페이지 다운이 되었다는 건가요?

안녕하세요 메일로 파일 보내 주실래요? csyy7199@naver.com 입니다.

안녕하세요. 제가 이해를 재대로 했는지 모르겠습니다. 연결주체5에... =TEXT(C4,"YYYYMM") 연결주체6에... =TEXT(C4,"YYYYMM")&"_"&COUNTIF($H$4:H4,H4) 해 보시고 댓글 주세요. 감사합니다. ^^

조금 복잡합니다만, 아래와 같이 하시면 될 것 같습니다. Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As LongPtr, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As LongPtr Sub RunExecutable() Dim exePath As String Dim result As LongPtr ' exe 파일의 경로 exePath = "C:\Program Files\epson\Epson Scan 2\Core\es2launcher.exe" ' 관리자 권한으로 실행 result = ShellExecute(0, "runas", exePath, vbNullString, vbNullString, 1) ' 결과 확인 If result <= 32 Then MsgBox "실행불가. 에러코드: " & result, vbCritical Else MsgBox "실행완료", vbInformation End If End Sub

@@dna7 와 감사합니다.ㅠㅠ 그럼 혹시 간단하게 Sub 관리자권한() Dim 실행() 실행 = ShellExecute(0,"runas","주소입력,vbNullString,vbNullStrig,1) End Sub 이렇게 해도되는거 아닌가여? 실행만 시키면되니까

네네 ^^

안녕하세요 메일로 파일 보내 주실래요? csyy7199@naver.com

안녕하세요^^ 저도 처음에 너무 어려워서 고생했습니다. 언제든 필요하시면 댓글 주시면 해당부분 촬영해서 올려 드리겠습니다. 여름 더위 조심하시고 파이팅입니다.!!!

감사합니다 좋은 결과 응원합니다!!!

장마철 안전 유의하시고 행복한 여름 되세요 감사합니다 ^^

Sub DownloadAndShowA1Value() Dim FileURL As String Dim DestFile As String Dim objXMLHTTP As Object Dim objADOStream As Object Dim objFSO As Object Dim excelApp As Object Dim workbook As Object Dim cellValue As String ' 파일 URL과 저장할 경로 설정 FileURL = "download.blog.naver.com/open/7fea63d3c29b9b476a8fecdce0027e01a2f60eec92/wC4tLS7OjSVqQTBx1DCFZ7aJBZYIJ7WWOT03DliQZ7DSPutVBHbGqCUXXxapMwZueWPm3fCS79Jf2zhE0j2Sgw/%EC%83%89%EC%83%81%EB%B3%84%20%EA%B0%AF%EC%88%98%EC%99%80%20%ED%95%A9%EA%B3%84%20%EA%B5%AC%ED%95%98%EA%B8%B02.xlsm" DestFile = Environ("TEMP") & "\temp_file.xlsm" ' TEMP 폴더에 파일 저장 ' 파일 다운로드 Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") objXMLHTTP.Open "GET", FileURL, False objXMLHTTP.Send If objXMLHTTP.Status = 200 Then Set objADOStream = CreateObject("ADODB.Stream") objADOStream.Open objADOStream.Type = 1 ' Binary mode objADOStream.Write objXMLHTTP.responseBody objADOStream.Position = 0 ' Set the stream position to the start ' 파일 시스템 객체를 사용하여 파일 저장 Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(DestFile) Then objFSO.DeleteFile DestFile objADOStream.SaveToFile DestFile, 2 ' adSaveCreateOverWrite objADOStream.Close Else MsgBox "파일 다운로드 실패" Exit Sub End If ' 엑셀 파일 열기 및 A1 셀 값 읽기 Set excelApp = CreateObject("Excel.Application") excelApp.Visible = False Set workbook = excelApp.Workbooks.Open(DestFile) cellValue = workbook.Sheets(1).Range("A7").Value ' 파일 닫기 및 Excel 응용 프로그램 종료 workbook.Close False excelApp.Quit ' 임시 파일 삭제 objFSO.DeleteFile DestFile ' A1 셀 값 메시지 박스로 표시 MsgBox "A1 셀의 값은: " & cellValue End Sub 모듈에 상기 코딩 넣어 주세요. 그리고, 실행하시면 메시지 박스에 A7에 있는 값이 불러와 집니다. 메일주소 주시면 파일 보내드리겠습니다. 그리고, 인터넷상에 있는 파일 예제는 제 블로그에 있는 예제입니다. 아래 참조하시면 될 것 같습니다. blog.naver.com/csyy7199/223487590527 감사합니다. ^^

안녕하세요 ^^ 그림 선택하시면 그림형식이라는 메뉴가 상단에 나타납니다. 그림스타일 메뉴에 그림 테두리가 나옵니다. 클릭후, 윤곽선 없음을 클릭해 주시면 됩니다. 감사합니다. ^^

안녕하세요 파일 보내주실수 있나요? csyy7199@naver.com 입니다.

선생님 답글 감사합니다. 메일 보내드렸습니다.

저도 그대로 인데.. 어떻게 해결하셨을까요?

안녕하세요 파일 보내주실수 있나요? csyy7199@naver.com 입니다.

감사합니다. ^^ 장마가 시작되었습니다. 안전 유의 하시고 건강한 여름 보내세요 ^^ 행복한 하루 ! 파이팅입니다. !!!

안녕하세요 오랜만입니다. ^^ 잘지내시죠? ~,, 엑셀 파일로 보내주실래요? csyy7199@naver.com 입니다.

안녕하세요. 예를 들면 어떤걸 추가로 불러 오고 싶으세요?

@@dna7 사번은 불러오기 되지만 추가로 이름하고 연락처도 검색하면 불러오고싶어요

@@한대줄께들어기고 안녕하세요 사번으로 불러 올때는 중복되는 경우가 없기 때문에 텍스트 박스만 있으면 됩니다. 그러나, 이름으로 검색시 동명이인이 있을 수 있기 때문에 리스트박스를 사용해야 합니다. 관련 사용 방법은 아래에 있습니다. 참고 하시면 간단히 코딩 가능하십니다. th-cam.com/video/b27xmjrrkY0/w-d-xo.htmlsi=1DoNkgXW_a5iPW6n&t=2845 감사합니다. ^^

감사합니다!!!💕

감사합니다 곧 주말입니다. 행복한 하루 되세요 ^^

행복한 주말 되세요 ^^ 감사합니다.~

행복한 하루 되세요 감사합니다 ^^

감사합니다 ^^

감사합니다 행복한 하루 되세요 ^^ 파이팅입니다!!!

아래와 같이 변경하시면 됩니다. 블로그에 파일 올려 드렸습니다. ^^ blog.naver.com/csyy7199/222992366212 Sub 원하는만큼행추가() Dim 행수 As Long '원하는 행수 Dim i As Integer 'for문 사용용 Application.ScreenUpdating = False '화면 업데이트 중지 행수 = Cells(1, 1).CurrentRegion.Rows.Count '데이터의 전체 행 숫자 For i = 행수 To 2 Step -1 '첫번째 행은 항목으로 제외(가장 아랫쪽행부터 작업 진행 함) If Cells(i, 2).Value <= 1 Then If Cells(i, 2).Value <= 0 Then Cells(i, 2).EntireRow.Delete Else End If Else ' Cells(i, 2).Select ' Cells(i, 2).Resize(Cells(i, 2).Value - 1).Select ' Cells(i, 2).Resize(Cells(i, 2).Value - 1).EntireRow.Select ' Cells(i, 2).Resize(Cells(i, 2).Value - 1).Offset(1).EntireRow.Select Cells(i, 2).Resize(Cells(i, 2).Value - 1).Offset(1).EntireRow.Insert ' Cells(i, 2).Resize(Cells(i, 2).Value - 1).Offset(1).Select Cells(i, 2).Resize(Cells(i, 2).Value).FillDown End If Next i End Sub

@@dna7 친절한 답변 너무 감사드립니다!!

행복한 하루 되세요 감사합니다 ^^

감사합니다 ^^

감사합니다 행복한 하루 되세요 ^^

행복한 주말 되세요 ^^