복수의 시트 원하는 이름으로 한 번에 삽입하기 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 더보기 이전 1 ··· 20 21 22 23 24 25 26 ··· 72 다음