본문 바로가기
반응형

분류 전체보기362

경영전략 수립 절차 처음 경영전략에 관해 포스팅을 준비했을때 어느 주제에서 부터 시작을 해야 할 지 고민을 많이 했다. 많은 서적들을 찾아보면 대부분 전략이란 무엇인가? 전략의 정의 등 이런 내용 부터 시작한다. 하지만 전략란 단어 자체가 너무 광범위한 곳에서 사용되고 시대, 상황, 목적 등에 따라 달라지기 때문에 이러한 일반적 이론에 대해서는 넘어가기로 한다. 또한 내가 앞으로 언급할 모든 컨텐츠는 많은 전략이론과 방법론 중에 하나일 뿐이라는 것을 명심했으면 좋겠다. "전략에는 정답이 없다" 이것 만이 유일하게 변하지 않는 사실이다. 전략은 우리(회사)를 둘러싼 모든 환경에 따라 변화 한다는 점을 명심하자. 그럼 첫 번째 시간으로 경영전략수립 절차에 대해서 알아 보기로 하겠다. 전략을 수립하는 첫 번째 단계는 회사의 환경.. 2020. 7. 5.
웰크론 (065950) 2020-09-10 웰크론 (065950) 시장형 수급 관리 체계로 전환 수술용·비말차단용 생산량 50%까지 수출 허용 https://newsis.com/view/?id=NISX20200910_0001162008&cID=13001&pID=13000 2020. 7. 3.
[함수] 항목별 일련번호 넣기 오늘은 아래 그림처럼 항목별로 일련번호를 넣는 방법에 대해 알아 보겠습니다! 간단합니다. 구분행에 다음 수식을 넣으면 됩니다. = IF(B2=B1,A1+1,1) B2=B1 즉 옆에 회사명이 그 위의 행과 같으면 위의 일련번호에 +1, 그렇지 않으면 1을 불러오는 함수 입니다. 이렇게 하면 보시는 것과 같이 A2는 B2와 B1이 같지 않으므로 1을 불러 옵니다. 그리고 A2는 B3와 B2가 같으므로 A2(1)에 +1을 한 2가 불러오게 됩니다. 마찬가지로 A6은 B6과B5가 같지 않으므로 1을 불러 오게 됩니다. 간단한 함수지만 모랐다면 일일이 손으로 넣어줘야 하는 경우가. ㅠㅠ 2020. 6. 29.
MS워드 특정 문장 변환하여 다른파일로 저장 계약서나 공문 등을 여러 업체로 보낼때 보통 메일머지 기능을 쓰지만 각 업체별로 파일을 가지고 있어야 할 경우가 생긴다. (예를 들어 각 계약서 공문을 만들어 계약 부서로 넘기는 경우 등) 나 같은 경우 계약서를 업체별로 만들어서 전자계약에 등록 할때 해당 매크로를 사용한 것으로 기억한다. 우선 작업을 하기 위해 워드 템플릿을 작성한다. 빨강색으로 표시 된 것처럼 변환해야할 부분을 { }로 표시하여 문서를 작성한다. 저 부분만 아래 엑셀 리스트를 참조하여 변환이 된다. 다음으로 아래 처럼 변환할 리스트를 만든다. 마지막으로 엑셀 파일에서 워드문서 생성을 클릭하면 워드파일의 빨간색 부분이 리스트에 있는 내용으로 바뀌면서 파일이 저장된다. 여기서 주의 해야할점은 1. 엑셀과 워드파일이 같은 폴더에 있어야 한.. 2020. 6. 28.
[VBA 코드] 항목별로 시트 분리 하기 아래 그림처럼 제공출처 별로 정리하여 각각 다른 시트로 만들어 집니다.! 선택한 열의 각 항목별로 다른 시트로 분리해 주는 VBA 코드 Sub split_Sheet() Dim rng As Range Dim colsCnt As Integer Dim colNm As String Dim Imsi Dim sht As Long Application.ScreenUpdating = False For sht = Sheets.Count To 2 Step -1 Application.DisplayAlerts = False Sheets(sht).Delete Application.DisplayAlerts = True Next sht colNm = InputBox("시트로 분리할 필드의 열 머리글을 입력해 주세요.", "필드 머.. 2020. 6. 28.
[VBA 코드] 여러 시트 데이터 하나의 시트로 모으기 "여러 시트 데이터 하나의 시트로 모으기" VBA 코드 입니다. Sub Combine() Dim I As Long Dim xRg As Range On Error Resume Next Worksheets.Add Sheets(1) ActiveSheet.Name = "Combined" For I = 2 To Sheets.Count Set xRg = Sheets(1).UsedRange If I > 2 Then Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1) End If Sheets(I).Activate ActiveSheet.UsedRange.Copy xRg Next End Sub VBA 코드 실행 하는 법은 아래 포스팅 참고 하세요! 2020/06/28 - [칼퇴를 도와주.. 2020. 6. 28.
[VBA 코드] 시트별로 파일 저장 하기 시트별로 파일 저장하는 VBA 코드 입니다. Sub Split_book() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating =.. 2020. 6. 28.
월이 바뀌면 자동으로 구분선 그리기 1. 조건부 서식을 설정할 영역을 범위로 지정합니다. 2. '홈' 탭에서 '조건부 서식 - 새 규칙'을 선택합니다. 3. '새 서식 규칙' 대화상자에서 '수식을 사용하여 서식을 지정할 셀 결정'을 선택하고, 그림과 같이 수식을 입력합니다. =MONTH($A3)MONTH($A4) 현재 셀과 아래 셀 값의 '월'이 같은지 여부를 점검하는 수식입니다. 4. '서식' 버튼을 클릭하고 아래쪽 테두리를 설정하고 '확인' 버튼을 클릭합니다. 5. '새 서식 규칙' 대화상자가 나타나면 '확인' 버튼을 클릭합니다. 이제 월이 다를 경우, 자동으로 괘선이 그려집니다. 2020. 6. 28.
특정 종류의 문자만 선택적으로 추출 하기 한글, 영문, 숫자, 특수문자 등 여러 종류의 문자가 섞여 있을 경우 특정 종류의 문자만 추출하는 VBA 입니다. 원하는 셀에 "=fn문자추출($A4,1)" 입력하고, 1대신 아래 항목중 선택 하면 해당 종류의 문자만 추출 됩니다. 1 : 숫자, 2 : 영문, 3 : 한글, 4 : 기타 VBA 코드는 아래와 같습니다. 더보기 Function fn문자추출(문자열 As String, 구분 As Integer) As String Dim i As Integer Dim K As String Dim NumStr As String, EngStr As String, HanStr As String, EtcStr As String For i = 1 To Len(문자열) K = Mid(문자열, i, 1) Select Cas.. 2020. 6. 28.
엑셀 시트 정렬 및 관리 템플릿 엑셀 시트 관리 VBA 입니다. 많은 시트가 있는 엑셀파일 관리할 때 유용한 템플릿 입니다. 2020. 6. 28.
엑셀 VBA 코드 작성 및 실행 하기 1. 엑셀 실행 후 Alt - F11 눌러 주세요! 그러면 MS VBA Applications 가 실행 됩니다. 여기에서 삽입 - 모듈을 선택 합니다. 그럼 다음과 같이 코드 입력 창이 나옵니다. 그럼 여기에 코드를 붙여 넣으시면 해당 매크로(VBA)가 완성 됩니다. 해당 창을 닫고 보기 - 매크로 - 매크로보기를 누르거나 Alt+F8을 선택하면 매크로 실행 창이 나옵니다. 여기에서 해당 매크로를 선택하여 실행을 클릭하면 작성한 매크로가 실행됩니다. 2020. 6. 28.
Special Merge 엑셀에서 셀을 병합하면 한셀에 있는 데이터만 남고 지워집니다. 하지만 다음 코드를 실행하면 다른행의 데이터도 그대로 남기고 행이 병합됩니다. [VBA 코드] Sub SpecialMerge() Dim output As String Dim inputrange As Variant Const space = " " On Error Resume Next For Each cell In Selection output = output & cell.Value & space Next cell With Selection .Clear .Cells(1).Value = output .Merge .HorizontalAlignment = xlGeneral .VerticalAlignment = xlCenter .WrapText = Tr.. 2020. 6. 28.
반응형

티스토리툴바