vba3 excel / VBA / macro / 선택값으로 sheet 추가 Sub 추가_Click() 'Sheet2를 Sheet1 앞에다 복사하기 'Worksheets("form").Copy After:=Worksheets("form") Dim rngCnt As Integer Dim rngColCnt As Integer Dim sRow As Integer Dim eRow As Integer Dim sCol As Integer Dim rngEnd As Range Dim rng As Range: Set rng = Selection '// 선택된 영역 rngCnt = Selection.Rows.Count '// 선택된 영역의 총 Row 수 rngColCnt = Selection.Columns.Count '// 선택된 영역의 총 Row 수 sRow = Selection.Row '// .. 2020. 4. 16. excel / vba / 시트명으로 이동 A2 값이 "공통" 인경우 "공통" sheet의 A1 cell로 이동하기 =HYPERLINK("#"&A2&"!a1","'"&A2&"' (으)로 이동하기") 2020. 4. 16. excel / vba / sheet 목록 가져오기 Sub 목록추출() '함수명 Dim SheetNames() SheetCount = ActiveWorkbook.Sheets.Count ReDim SheetNames(1 To SheetCount) 'Sheets("목록").Select ' "목록" 이라는 sheet에 sheet목록 만들기 Range("A2").Select 'A2 cell부터 시트명입력 For i = 1 To SheetCount SheetNames(i) = ActiveWorkbook.Sheets(i).Name ActiveCell = ActiveWorkbook.Sheets(i).Name ActiveCell.Offset(1, 0).Select Next i End Sub 2020. 4. 16. 이전 1 다음 반응형