wif LiNoUz/Excel 썸네일형 리스트형 (1006) alt + Enter 친 첫 행만 폰트 굵게 색표시 (엑셀 VBA 매크로) [출처] (1006) alt + Enter 친 첫 행만 폰트 굵게 색표시 (엑셀 VBA 매크로)|작성자 니꾸 http://blog.naver.com/PostView.nhn?blogId=rosa0189&logNo=60157461967&parentCategoryNo=&categoryNo=41&viewDate=&isShowPopularPosts=false&from=postView 첨부파일 (1) 매크로 실행 전 매크로 실행 후 결과 Option ExplicitSub emphasize_The_First_Line() Dim rngC As Range '각셀을 넣을 변수 Dim intNo As Integer 'alt + Enter 위치를 넣을 변수 Dim i As Integer '반복구문에 사용할 변수 Application.ScreenUpdating = False '화면 업데이트 (일시)정지 For Each rngC In .. 더보기 (1587) 폴더내 모든 파일의 열 불러오기 http://blog.naver.com/rosa0189/60209471570 첨부파일은 이곳에 폴더내 모든 엑셀 파일내에 있는 특정 시트(예제에서는 Sheet1) 특정 열(예제에서는 C열)에 있는 모든 데이터를 가져오는 기능.데이터는 현재시트 B열 부터 오른쪽 열에 순차적으로 입력1행에는 가져온 데이터의 파일 이름을 입력 매크로 실행 전 매크로 실행 후 결과 동영상의 순서별 설명 :폴더내에 여러 엑셀 파일이 있음파일을 열면 Sheet1 이 있고, 데이터가 있으며, 이 데이터의 C열만 가져오려고 함매크로 실행 후 폴더 선택창이 나타나면 파일이 들어 있는 폴더를 선택함매크로 종료 창이 출력되며 데이터를 가져옴. Option ExplicitSub combine_columns_In_Folder_1() Dim s.. 더보기 한 행씩 건너 뛰면서 행을 삭제하는 기능 http://blog.naver.com/rosa0189?Redirect=Log&logNo=60137018268 동영상에 사용된 예제 코드 : Option Explicit Sub delete_Every_Other() Dim rngAll As Range Dim lastRow As Long Dim r As Long Application.ScreenUpdating = False lastRow = Cells(Rows.Count, 1).End(3).Row For r = lastRow To 2 Step -2 Cells(r, 1).Resize(1, 2).EntireRow.Delete Next r End Sub [출처] (426) 엑셀 매크로 사용법 기본 1 (엑셀 VBA 매크로 동영상)|작성자 니꾸 더보기 복수의 시트 원하는 이름으로 한 번에 삽입하기 1 http://blog.naver.com/rosa0189/60135279544 Option Explicit Sub add_Sheets_Before_And_After() Dim colsCnt As Integer Dim wkSht As Worksheet Dim rngC As Range Dim msg As String Dim rowsCnt As Long Dim varTemp Dim i As Integer Dim shtCnt As Integer Application.ScreenUpdating = False With Selection colsCnt = .Columns.Count shtCnt = ActiveSheet.Index varTemp = Selection.Value '선택영역을 배열에 넣음 rowsCnt = .. 더보기 모든 시트 수식에서 값으로 변환VBA http://www.rondebruin.nl/win/s9/win015.htm Change formulas to values Manual To convert all cells on a worksheet to values we must select all cells first. Excel 97-2002: Use the shortcut Ctrl-A to select all cells. Excel 2003: If the worksheet contains data, CTRL+A selects the current region. Pressing CTRL+A a second time selects the entire worksheet. Excel 2007-2013: If the worksheet contains da.. 더보기 엑셀 메크로로 100개의 시트에 똑같은 위치의 셀에 숫자 자동증가 채우기 http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=128154629&qb=7Iuc7Yq47Kad6rCA&enc=utf8§ion=kin&rank=28&search_sort=0&spq=0 Sub Giveme_PO() ' Dim endR2 As Long, y As Long endR2 = 100 For y = 2 To endR2 Sheets(y).Range("F3") = endR2 + y - 1 Next y End Sub 더보기 첫번째 시트는 제외하고 시트 이름 자동으로 바꾸는 vba http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=157957870&qb=7Iuc7Yq47Kad6rCA7ZWY66m07IScIHZiYQ==&enc=utf8§ion=kin&rank=2&search_sort=0&spq=0 이전의 코딩된 내용을 아래와 같이 수정해 보세요. Sub 시트이름변경() Dim sht As Worksheet '워크시트 개체할당 Dim Cnt As Integer ' 번호변수 할당 For Each sht In Worksheets ' 시트순환 If sht.Visible False And Sheets(1).Name sht.Name Then ' 시트가숨겨져 있지 않고, ' 첫번째시트이름과 이름이 다르면 아래 내용을 수행하.. 더보기 엑셀 각행마다 빈칸삽입 (지식in) 이런식의 데이타가 20000건이 있습니다.우선 두번째 열을 기준으로 필터를 이용해서 중복되는 이름으로 해서 걸렀습니다.이제 중복되는 행마다 끝나고 빈 행을 삽입하고 싶은데 ..이런식으로... 한두개면 수작업을 하겠지만 20000건이라서..메크로로 가능할까여? 가능하다면 도와주세요..내공 다 겁니당!!의견 쓰기신고질문자 채택된 경우, 추가 답변 등록이 불가합니다.re: 메크로 반복작업 빈칸 삽입 도와주세요 ㅠㅠ내공다겁니다.sjs0351 답변채택률99.4% 2011.10.25 18:47답변 추천하기00질문자 인사답변 내용이 도움 많이 되었습니다~B열의 데이터를 대상으로 작업 처리.....! 코드는 상황에 맞게 수정 하시면 됩니다. 사용 코드 Sub 행삽입() Dim R, M Application.Screen.. 더보기 엑셀 개기초 Msgbox Worksheets(1).Name ' 첫번째 워크시트의 이름을 메시지 창으로 표시한다.Range("A1").Value = 100 'A1셀의 값을 100으로 변경 ------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------Sub 프로시저 이름(매개변수) 명령Exit Sub명령End Sub --------------------------------------------------------.. 더보기 엑셀 ERP 겨울나무(ehun663) 카페매니저 http://cafe.naver.com/msexcel/333 닫기 ■ 엑셀 2007 버전 기Microsoft Office Excel 2007 ■ 억세스 2007 버전 (Microsoft Office Access 2007) ■ [VBA 기초_8] VBA 엑셀 초보자도 할수있다. [엑셀_UserForm_MSHFlexGrid 컨트롤_1] 안녕하세요 [VBA 기초_7] 까지는 DB 셋팅하는 방법까지 했네요 오늘은 DB에 연결해서 엑셀 유저폼의 MSHFlexGrid 컨트롤로 데이터를 불러오는 방법을 해보겠습니다. 엑셀의 기본 컨트롤인 Listbox 컨트롤을 사용해도 되지만 사용하기 불편해서... 무료 그리드중에서 쓸만한게 MSHFlexGrid 컨트롤입니다. 초보분들은 VBA에 .. 더보기 이전 1 2 다음
