Fly to the sky & Return

30개정도 되는 cell 두 컬럼에 20개 정도 되는 내용을 순차적으로 입력하는 vba입니다한 칼럼이 완성되면 다음 칼럼으로 넘어갈때 처음 칼럼 마지막 다음 값부터 입력되도록 코딩한것입니다... 1234567891011121314151617181920212223242526272829303132Sub From_sheet_make_array() Dim myarray As Variant myarray = Range("k3:k22").Value i = 1 k = 0 For Each cell In Range("c3:c33") ' For i = 1 To UBound(myarray) Range("c3").Offset(k, 0).Value = myarray(i, 1) i = i + 1 k = k + 1 If i = U..

기본코드는 msdn에서 가저왔습니당. 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849Sub CalendarMaker() MyInput = Format(Now(), "mm yyyy") StartDay = DateValue(MyInput) Range("a1").NumberFormat = "mmmm yyyy" Range("a1").Value = Application.Text(MyInput, "mmmm yyyy") CurYear = Year(StartDay) CurMonth = Month(StartDay) FinalDay = DateSerial(CurYear, CurMonth + 1, 1) Range..

어느 한 Cell이 선택되었을때 그 Cell로부터 일정범위를 선택하고 특정한 조건을 적용할때 사용가능합니다. Dim newRange as Range Set newRange = Range(ActiveCell, ActiveCell.Offset(numRows, numCols)) 코드 예를 보면 1234567891011121314Sub 매크로1() Dim newRange As RangeSet newRange = Range(ActiveCell, ActiveCell.Offset(0, 14)) '셀스타일 제목 1 적용 예 newRange.Style = "제목 1" End Sub Colored by Color Scriptercs 위의 코드를 매크로와연결시키면. 반복되는 작업을 수월하게 할수 있을듯합니다

test 1 2 3 4 5 test a b c d e 특정 문자열을 중심으로 비슷한 모양이 반복되는 엑셀 데이터를..... test test 1 2 3 4 5 1 2 3 4 5 test test a b c d e a b c d e 로 변환하는 (일종의 행열바꿈 코드.) 12345678910111213141516171819202122232425262728sub 자동채우기()Dim iRow As IntegerDim i As IntegerDim j As Integer With Worksheets("sheet1") iRow = 0 For i = 1 To 18200 If Left(.Cells(i, 1).Value, 1) = "t" Then iRow = i For j = 1 To 20 If Left(.Cells(i..

당직1당직2당직3당직4당직5당직6당직7당직8당직91일일3003075005076006072월월11253화화12114수수13125목목14136금금1001037토토2002044004048일일3013085015086016089월월151410화화161511수수171612목목181713금금10110414토토20120540140515일일30230950250960260916월월191817화화201918수일30331050351060361019목일30431150451160461120금휴일30531250551260561270021토토20220640240622일일30631350651360661323월월212024화화222125수수232226목목242327금금10210528토토203207403407 위와 같은 데이터를 만들었다..

특정 폴더내에 여러가지 엑셀파일이 있고 이 파일이 가지고 있는 첫번째 sheet들을 모두 모두 모와서 한가지 엑셀파일로 만들기 위한 vba입니다.. 참고하시기 바랍니다. 12345678910111213141516171819202122232425Option ExplicitSub sheets_copy() Dim IngCount As Integer '선택된 파일 갯수를 넣을 변수 Dim fileName As String '각 파일 이름을 넣을 변수 Dim wkBk As Workbook '각 파일을 넣을 변수 Dim wkbkName As String '시트들을 모을 파일이름 Application.ScreenUpdating = False '화면 업데이트 (일시) 정지 wkbkName = ActiveWorkbook..