Fly to the sky & Return

추세선이 있는 분산형 차트는 어지럽게 보이는 데이터를 그래도 보기좋게 만들어주는... 그림을 보여주는 듯합니다. 데이터가 다음과 같을때...... Age data 26 104 24 48 36 108 31 155 33 165 27 81 27 81 33 33 28 168 44 88 32 96 22 110 27 162 24 144 40 400 47 235 28 196 23 207 29 261 28 112 33 99 36 360 36 108 51 255 39 39 25 75 33 33 29 29 46 460 36 288 51 204 36 252 35 175 32 96 30 150 41 328 47 423 37 370 38 304 23 207 34 340 33 297 39 273 33 66 48 384 30 15..

기본코드는 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..

여러 sheet에서비슷한 작업을 할경우 매크로를 많이 사용하는데 sheet마다 합계를 구해야할 경우 마지막 열이 각각 다른 경우 매크로로 진행이 안되고 일일히수작업을 해야하는 경우가 발생합니다.이러한때 특정 열의 마지막 칸에 자동적으로 합계를 구해서 넣고 그 앞 칸에 합계를 명칭을 넣어주는 VBA입니다.1234567891011121314151617 ActiveSheet.Range("F1").End(xlDown).Offset(1, 0).Select ' F column 마지막 칸에 합계라는문자를 삽입ActiveCell.FormulaR1C1 = "합계" ActiveSheet.Range("G1").End(xlDown).Offset(1, 0).Select ' G column 마지막 칸에 숫자합 넣는 VBA Dim..

각 셀의 첫글자가 대문자인지 소문자인지.... 구분할려고 하는데 방법을 찾다가... 발견한 함수입니다.exact()msdn에 따르면 다음과 같이 설명되어 있습니다. EXACT 함수이 문서에서는 Microsoft Excel의 EXACT 함수에 사용되는 수식 구문과 이 함수를 사용하는 방법을 설명합니다.설명두 텍스트 문자열을 비교하여 정확히 같으면 TRUE를 반환하고 그렇지 않으면 FALSE를 반환합니다. EXACT는 대/소문자를 구분하지만 서식 차이는 무시합니다. EXACT 함수를 사용하여 문서에 입력되는 텍스트를 테스트합니다.구문EXACT(text1, text2)EXACT 함수 구문에는 다음과 같은 인수가 사용됩니다.text1 필수 요소입니다. 첫 번째 텍스트 문자열입니다.text2 필수 요소입니다. 두..

당직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..

엑셀도 쓰다보니 별별기능이 다있긴 하군여.... 필요한 기능 찾아가면서 배우는 것도 삶의 한 기쁨이 아닌가 합니다.. 이번에 소개할 내용은 엑셀에서 스크롤 막대와 연계된 동적 차트를 만드는 것입니다. 먼저 sample data를 다음과 같이 만듭니당 스크롤 막대를 하나 sheet 위에 정당학 위치에생성하고 컨트롤 서식을 다음고 같이 변경합니다. 그리하면 A10 cell에 숫자가 나타나는 것을 확인할수 있습니다. 이제 이름관리자를 실행한 후 다음과같이 이름을 설정해줍니다. 범위 의 참조대상은 =OFFSET(Sheet1!$A$2,Sheet1!$A$10,1,1,12)코드의 참조대상은 =OFFSET(Sheet1!$A$2,Sheet1!$A$10,0) 이제 a 행에 대한 차트를 작성합니다. 차트의 데이터 선택에서 ..

마우스에 이벤트가 발생하면 그것을 잡아서 폼의 listbox에 뿌려주는... 프로그램입니다. 필요한 것은 폼하나 만들고 listbox 이름을 lstActions 으로 만들어 주면 프로그램 구성은 끝이고.. 실행을 해보면 마우스가 어디에 위치하는지. 어떤 이벤트가 발생하는 지를 알수 있습니다. 이러한 프로그램을 응용하면 automouse 프로그램도 제작이 가능할것입니다 저 이프로그램이 제공하는 마우스 좌표를 이용해여 매일 아침마다 하는 귀찮은 업무들을 클릭한번으로 해결해버리는 프로그램을 만들어 사용중입니다. 참고하시기 바랍니다. Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idH..