커뮤니티
 
 
 
 
  
 
 
사는이야기(자유게시판)

엑쎌 마크로... -_-....

터미널 미디어로그가기

조회 : 2162
작성일 : 2009/09/23 04:27
간편 URL : http://www.bodnara.co.kr/bbs/bbs.html?D=2&num=122628
트위터    페이스북
화학과 학생이다 보니, 프로그래밍 능력이 없어서, 

노가다좀 했습니다. -_-;; 

인터넷에서 파일 읽는 소스 긁고, 

파일 읽으면 나머지는 완전 노가다.. -_-;;; 

    Workbooks.Open Filename:=strFilePath & "\BufR101.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR102.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR103.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR104.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR105.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR106.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR107.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR108.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR109.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR110.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR111.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR112.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR113.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR114.csv"
    Workbooks.Open Filename:=strFilePath & "\BufR115.csv"
   
    Windows("BufR101.csv").Activate
    Range("A23:B197").Copy
    Windows("Book2.xlsm").Activate
    Sheets("Red_1").Select
    Range("A2").Select
    ActiveSheet.Paste
   
    Windows("BufR102.csv").Activate
    Range("B23:B197").Copy
    Windows("Book2.xlsm").Activate
    Sheets("Red_1").Select
    Range("F2").Select
    ActiveSheet.Paste
   
    Windows("BufR103.csv").Activate
    Range("B23:B197").Copy
    Windows("Book2.xlsm").Activate
    Sheets("Red_1").Select
    Range("J2").Select
    ActiveSheet.Paste
   
    Windows("BufR104.csv").Activate
    Range("B23:B197").Copy
    Windows("Book2.xlsm").Activate
    Sheets("Red_1").Select
    Range("N2").Select
    ActiveSheet.Paste
    


     (중략)



   ActiveWindow.Close
    Windows("BufR112.csv").Activate
    ActiveWindow.Close
    Windows("BufR113.csv").Activate
    ActiveWindow.Close
    Windows("BufR114.csv").Activate
    ActiveWindow.Close
    Windows("BufR115.csv").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close


그나마 Ctrl + C, Ctrl + V 신공으로 대부분을 해결했네요.. -_-;; 

for 문같은거 사용법 알면 좀 쉽게 하겠건만 -_-;;;

교수님 지령때문에 울며 겨자먹기로 엑셀 메크로 짰습니다. -_-;;; 


화학과 학생에게 웨 저런걸 시키는지 -_-.... 


9


터미널 님의 다른글 보기
좋은 내용의 글이라면 추천해주세요.
로그인을 하지 않아도 추천 하실 수 있습니다.
128.134.58.xxx
불법 광고글 신고하기
I
   이 게시물의 댓글 보기
추천제안내
좋은 게시물에는 추천을 할 수 있습니다.추천이 5 이상이면 메인페이지 헤드라인에 게시물을 걸어 드립니다.
적립된 포인트로 진행중인 이벤트에 참여하시어 경품을 받아가실 수 있습니다.

포인트안내 글작성 : 20점, 추천클릭 : 2점, 추천받은사람 2점, 댓글작성 : 4점 (2008.12.29일부터)
  감자나무 (감자나무) 감자나무님의 미디어로그 가기  /  2009-09-23 11:54 / IP/ 신고/ 이댓글에댓글달기
  음 이게머져 --ㅋ
터미널 (uncompress) uncompress님의 미디어로그 가기  / 2009-09-23 14:12/ 자국/ 신고/
엑셀에서 사용되는 매크로 스크립트입니다. ;;
  허접프로그래머 (valkyrie) valkyrie님의 미디어로그 가기  /  2009-09-23 20:30 / IP/ 신고/ 이댓글에댓글달기
  매크로 프로그래밍... 저는 직업이 프로그래머입니다만 매크로 프로그래밍은 귀찮아요...;; 의외로 알아야 할 사항들이 많아서리....^^;;
터미널 (uncompress) uncompress님의 미디어로그 가기  / 2009-09-24 18:28/ 자국/ 신고/
매크로의 묘미는 뭐니뭐니해도 매크로 레코딩이죠!

(라고 말은 하지만 씁쓸하네요 ;;)
  진통제 (robfight) robfight님의 미디어로그 가기  /  2009-09-24 10:00 / IP/ 신고/ 이댓글에댓글달기
  생각나는건? 노가다. ;;
터미널 (uncompress) uncompress님의 미디어로그 가기  / 2009-09-24 18:28/ 자국/ 신고/
진통제님의 의견에 적극동의합니다. ㅠ_ㅠ
사는이야기(자유게시판)
끄적끄적   보드나라 유튜브 계정 구독좀 부탁드립니다 22 감자나무 1 18.06.21 51332
끄적끄적   [캠페인] 변경된 닉네임 신고하여 광명찾자 16 감자나무 10 09.12.11 79883
45441 정보   나의 폴더 (2009.10.1-2012.9.30) 류승하 0 01:16:15 65
45440 끄적끄적   윈도우 12 베타 버전 바탕 화면 컨셉 류승하 0 25.05.30 132
45439 끄적끄적   [제21대 대통령선거] 사전투표 29(목) ~ 30(금) newstar 1 25.05.27 153
45438 끄적끄적   다들 연초에 운세 보시나요? 자증노노 0 25.05.19 156
45437 끄적끄적   내가 체험한 삼성 갤럭시 S25 엣지 리뷰 류승하 0 25.05.18 174
45436 정보   2005년 12월부터 2006년 10월까지 저장한 그림 류승하 0 25.05.11 207
45435 끄적끄적   Casini Phone Series (2015, 2025) Comparison 류승하 0 25.05.10 292
45433 끄적끄적   Casini Phone 10 Series 류승하 0 25.05.10 159
45432 끄적끄적   내가 구입해야 하는 디지털 제품 류승하 0 25.05.10 172
45431 끄적끄적   아이고 운영진님들! 이벤트 상품이 복사가 된다굽쇼! 3 =_=? 0 25.05.07 256
45430 끄적끄적   버려진 본체서 비디오카드 Get 2 전투기 0 25.05.07 227
45429 끄적끄적   DIY or DIE 1 헬상기 0 25.05.06 223
45428 끄적끄적   로또 이벤트 상품 받았습니다~ epician 0 25.05.03 219
45427 끄적끄적   이정후가 잘하긴 하나보네요. sjehw 0 25.04.20 279
45426 끄적끄적   골때리는 라이저케이블 연결... 1 펩시짱 0 25.04.14 311
45425 끄적끄적   [속보] 헌재 "윤석열 대통령 파면"…8대0 전원일치 인용 2 헬상기 3 25.04.04 360
45424 끄적끄적   안녕하세요 2 김시로 0 25.04.03 263
45423 끄적끄적   첫 차를 떠나 보냈습니다. 1 헬상기 0 25.04.03 280
45422 끄적끄적   그래픽카드 쿨링 솔루션(쿨러) 변천사 기사가 이상하게 나오네요. 1 펩시짱 0 25.04.03 258
45421 끄적끄적   5080 크기가 어마어마하군요. 4 펩시짱 2 25.03.14 443
45418 끄적끄적   말년에 고생하는 그래픽카드를 위해... 2 펩시짱 3 25.03.11 394
45412 끄적끄적   인텔 cpu가 들어간 노트북을 구입해보았습니다. 1 펩시짱 0 25.02.22 465
45410 끄적끄적   내가 체험한 삼성 갤럭시 S25 시리즈 리뷰 류승하 0 25.02.12 463
 1 [2][3][4][5][6][7][8][9][10]