■ Excel/ㅡExcel VBA Code
엑셀VBA 선택한 셀 내용 클립보드에 복사
with seok
2021. 1. 7. 16:26
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Option Explicit Sub 클립보드에내용만복사하기() 'Selection.Copy '아래 내용은 여러줄 클립보드에서 넘길 때 '쌍따옴표와 줄바꿈을 없애는 코드이다. Dim objData As Object Set objData = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") objData.SetText Selection.Cells(1, 1) objData.PutInClipboard '아래는 저절로 닫히는 메시지박스 코드이다 Dim WSH As Object Set WSH = CreateObject("WScript.Shell") 'WSH.Popup "복사되었습니다!", 1, "Title", vbInformation '1은 1초 시간이다. Set WSH = Nothing End Sub | cs |
728x90