빈터

Range("b3").Address 절대값으로 표시된다. Range("b3").Address(0, 0) 상대값으로 표시된다.

Sub user_selet() Dim i As Long, j As Long Range("h3").CurrentRegion.Clear i = Selection.Cells().Rows.Count ' 사용자가 선택한 행의 갯수 알아내기 j = Selection.Cells().Columns.Count ' 사용자가 선택한 열의 갯수 알아내기 Range(Cells(3, 2), Cells(3 + i - 1, 2 + j - 1)).Copy ' 사용자가 선택한 영역 복사하기 Range("h3").PasteSpecial Range("b3").Select Application.CutCopyMode = xlCopy End Sub ' 이것은 선택을 시작하는 주소를 알고 있는 경우이고 모르는 경우는 주소를 별도로 알아내야 한다...

* 물이 갈라지지 않으면 물 위를 걷겠다는 믿음. * 벼랑 위의 둥지에서 뛰어 내려야만 새끼 독수리는 비로소 날 수 있다. * 이 또한 지나 가리라. * 맞바람에 바람개비는 더 빨리 돌고, 연은 더 높이 난다.

Application.CutCopyMode = xlCopy

Sub 매크로1() Dim TF As Workbook Set TF = GetObject("C:\test\notopen.xlsx") 'A1 값을 가져온다. Range("A1") = TF.Sheets(1).Range("A1").Value '다 사용한 파일 객체는 꼭 닫아준다. TF.Close End Sub ======================================= Sub call_data() Dim TF As Workbook ' target file Dim sh보고서 As Worksheet, sh파일명 As Worksheet Dim rng As Range Set sh보고서 = Sheets("보고서") Set sh파일명 = Sheets("파일명") ' 불러올 파일의 경로가 있는 시트 Set rng..

Sub vba() sheet1.sort.sortfields.clear ' 사용자가 정의한 정렬 기준이 있을 수 있음으로 미리 지우고 시작한다. End Sub

팽팽한 활시위는 멀리 그리고 강하게 쏠 수 있다. 그러나 끊어지기 쉽다는 것도 기억하라. 표면의 강함만 좋아할 것이 아니라 내면의 약함도 깨달아서 귀하게 다루어야 할 것이다.

적자생존은 결국 강자생존을 이겼다. 자존심을 택한 늑대는 멸종이라는 예기치 못한 결과로 수렴해 가고 있다. 현실과 타협한 개의 처음은 굴욕적인 듯 보였을지 몰라도 이제는 당당히 집안으로 입성해서 주인의 침대를 군림하고 있다. 인간은 자신의 돈과 시간과 노력을 들여서 아첨을 한다. 이것이 적자생존의 시발점이다.

Sub vba() Dim cel, rng, tmp As Range Set rng = Range("a1", Cells(Rows.Count, "a").End(3)) ' End(3)은 End(xlUp)과 같은 의미 For Each cel In rng ' For Each ~ Next 문 시작 If cel.MergeCells Then ' 첫번째 if문 시작 If cel.MergeArea.Cells(1).Address = cel.Address Then ' 두번째 if문 시작 Set tmp = cel.MergeArea cel.MergeArea.UnMerge tmp.FillDown End If ' 두번째 if문 끝 End If ' 첫번째 if문 끝 Next ' For Each ~ Next 문 시작 End Sub

수에는 2진법, 8진법, 12진법, 16진법, 24진법, 60진법 등이 있다. 2진법 : 홀짝, 컴퓨터 8진법 : 컴퓨터 12진법 : 시계, 12제자, 12지신 16진법 : 컴퓨터 24진법 : 시계, 24절기 60진법 : 시계(초), 60갑자