출처 : https://thecoollife.tistory.com/13

응용예제:

 =IF(EXACT(A1,B1),"○", "X") : A1 셀과 B1 셀이 같으면 "○", "X".

참고1: 액셀에서 아래 함수와 같이 사용하면 유용합니다.

 =COUNTIF(C1:C100, "○") : C1 셀의 "○"의 개수 구함.

참고2: 비교 대상이 숫자라면,

 =IF(A1=B1,"○", "X"): EXACT를 사용하지 않고 "="를 사용할 수 있습니다.

참고3: A1:A2에 test가 포함되어 있고, B1:B2에 female이 포함되어 있는 것만 count.

=COUNTIFS(A1:A2,"*test*",B1:B2,"*female*")

컬럼 B,C,D,E를 끝row까지 선택하려면 (컬럼 E 중간에는 빈셀이 있는 경우)

 1. 컬럼 B에서 Ctrl + 아래화살표로 끝 row까지 이동

 2. Shift 누른채 Ctrl + Home하여 A1까지 선택한 후

 3. 화살표키로 B1 까지 이동하면 끝.

완성된 모습:

출처 : https://support.office.com/en-us/article/change-how-you-view-your-outlook-calendar-a4e0dfd2-89a1-4770-9197-a3e786f4cd8f

View two time zones in the Week view

When working with partners in different time zones, it’s helpful to see both time zones in the Week view. For example, when I schedule meetings from the New York office (Eastern time zone), I want to view my Australian co-worker's schedule (Brisbane time zone) so I don’t book her during non-working hours.

1. Click Calendar.

2. Click Home > Arrange > Week.

   

3. Right-click the empty space at the top of the time bar, and then click Change Time Zone on the shortcut menu.

   

4. Under Time zones, type Eastern Time Zone in the Label box.

5. In the Time zone list, click (UTC-05:00) Eastern Time (US & Canada).

   

6. Select Show a second time zone.

7. Type Brisbane in the Label box.

8. In the Time zone list, click (UTC+ 10:00) Brisbane.

   

9. Click OK.

붙여넣으면, 목적파일의 서식을 변경시키는 문제를 아래의 방법으로 해결.

참조 : https://m.blog.naver.com/ming0211/60127593265

더 쉬운 방법 :

csv파일을 엑셀에서 읽어들인 후에,

해당 셀 형식을  hh:mm:ss.000 로 변경하면 됨

------------------------------------------------

Stop Excel from automatically converting certain text values to dates

1. csv 파일의 확장자를 txt로 변경

2. 그 파일을 excel에서 모든 파일 형식을 선택하여 열기

3. 아래그림처럼, 원하는 열의 선택 후 텍스트로 서식을 지정.

* 위 방법대로 하지않고, csv를 파일을 더블클릭하여 바로 excel에 열기하면 일자 포맷이 지맘대로 변경됨.

* 또 다른 방법으로, Excel 메뉴에서 데이터 - 데이터 가져오기 등으로 csv 파일을 읽으면 된다는 인터넷 글들이 있는데 안 됨.

My)

출처: http://www.hwbattle.com/bbs/board.php?bo_table=tipntech&wr_id=119

특정 유저를 위한 시작 프로그램 추가 방법. 

시작프로그램 추가 방법은 레지스트리 편집 방법하고 특정 경로에 아이콘을 끌어다 넣는 방법이 있는데 

특정 폴더에 아이콘 붙여 넣는 방법만 알려 드릴게요. 

    1. win + r 키를 눌러서 실행 창을 띄웁니다.

    2. shell:startup 입력

    3. 팝업 되는 창에 원하는 시작 프로그램의 아이콘 끌어다 붙여넣기 

참고로 경로는 아래와 같습니다.

C:\Users\username\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

모든 유저를 위한 시작 프로그램 추가 방법

    1. win + r 눌러서 실행창 띄우기

    2. shell:Common Startup 입력

    3. 팝업 되는 창에 원하는 시작 프로그램의 아이콘 끌어다 붙여넣기 

경로는 아래와 같습니다.

C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp

참고 사이트 

http://winaero.com/blog/how-to-add-or-remove-startup-apps-in-windows-10/

My)

바탕화면에 12~로 시작하는 숫자명의 폴더가 생겼는데(왜 생겼는지는 모름),

그 폴더의 깊이가 너무 깊어서 탐색기에서는 삭제가 안 되고

"원본 경로가 너무 김" 이라는 경고창이 뜸.

아래의 방법대로 하면 지워지는데, 

중간에 tmp_dir 폴더에 아무것도 없는 것으로 dir명령으로 보면 보이지만,

끝까지 해 보면, 진짜 다 지워짐. //16.5.2

출처: http://www.33gram.com/windows-%ED%8C%8C%EC%9D%BC-%EC%9D%B4%EB%A6%84%EC%9D%B4-%EB%84%88%EB%AC%B4-%EA%B9%81%EB%8B%88%EB%8B%A4-%EB%A9%94%EC%8B%9C%EC%A7%80%EC%99%80-%ED%95%A8%EA%BB%98-%ED%8C%8C%EC%9D%BC-%EC%82%AD/

[$-412]yyyy"년" m"월" d"일" dddd

위 셀서식으로 하면, 아래처럼 표시됨.

2015년 2월 1일 월요일

아래그림의 노란색 셀처럼 (비어 있음)으로 표시되는 셀을 공백으로 표시하는 방법은,

(비어 있음) 셀을 선택후, spacebar를 한번 누르고, Enter키를 누르면 됨

그러면 모든 (비어 있음) 셀이 공백으로 변경됨. 아래그림처럼 ^o^

출처: http://www.officetutor.co.kr/board/faq_lib/frm_vba_content.asp?idx=181&cat1_name=Word&cat2_name=2002

그림 도구 모음의 텍스트 배치 아이콘은 문서에 삽입한 그림, 도형, 클립 아트들의 개체를 둘러싸는 문자열을 배치하는 다양한 방법을 제공하는 것으로 문서의 레이아웃을 다양하게 꾸밀 수 있게 합니다. 또한, 텍스트 배치 영역 편집으로 개체 주위의 빈 공간에 사용자 임의대로 텍스트를 배치 할 수 있습니다.

오늘은 그림 도구 모음의 텍스트 배치 아이콘으로 문서의 레이아웃을 다양하게 꾸미는 방법에 대해 알아보도록 하겠습니다.

<1> 워드 문서에 삽입한 개체(클립, 도형 또는 그림)를 클릭합니다. 보기메뉴에서 도구 모음-그림 도구 모음을 실행한 후 텍스트 배치 아이콘을 누릅니다.

<2>  텍스트 배치 아이콘의 목록 중 정사각형을 선택하면 삽입한 개체의 정사각형 여백 주위에 문자열이 배치됩니다.

<3> 이번에는 개체 주변에 여백 없이 실제 개체 크기에 맞게 문자열을 배치하기 위해 텍스트 배치 아이콘을 눌러 빽빽하게를 선택해 봅니다. 아래와 같이 개체 가까이에 문자열이 배치되는 것을 볼 수 있습니다.

<4> 문서의 문자열을 그대로 유지한 채 개체를 문자열 뒤에 배치하여 각각 독립적인 위치를 갖게 하기 위해서는 텍스트 배치 아이콘을 눌러 텍스트 뒤를 선택 해주면 아래와 같이 개체와 문자열이 배치됩니다.
(결과를 정확하게 보이도록 하기 위해 텍스트의 색을 변경하였습니다.)

<5> 텍스트 뒤와 반대로 문서의 문자열을 그대로 유지한 채 개체가 문자열 앞에 배치하기 위해서는 텍스트 배치 아이콘을 눌러 텍스트 앞을 선택합니다. 개체로 인해 문자열이 숨겨지는 현상이 일어납니다.
(결과를 정확하게 보이도록 하기 위해 텍스트의 색을 변경하였습니다.)

<6> 삽입한 개체의 양쪽을 제외한 위/아래 방향에 문자열을 배치하기 위해서는 텍스트 배치 아이콘을 눌러 위/아래를 선택합니다. 개체의 위에서 멈춘 문자열은 개체의 아래 줄에서 계속 이어집니다.

<7> 원하는 모양으로 텍스트를 배치하기 위해 텍스트 배치 아이콘을 눌러 텍스트 배치 영역 편집을 클릭합니다.

<8> 선택된 개체 주위에 빨간색의 개체 크기 조절점이 나타납니다. 크기 조절점을 마우스로 드래그 하여 개체와 문자열 사이의 여백을 조정합니다.

<9> 크기 조절점을 안으로 이동하여 여백을 줄인 후 문서의 여백을 클릭하여 텍스트 배치 영역 편집을 완료하면 다음과 같이 개체 주변의 여백이 지정된 것을 확인할 수 있습니다.

Sub 링크추출()
On Error Resume Next
Dim rngCell As Range
Dim lnkLink As Hyperlink

For Each lnkLink In ActiveSheet.Hyperlinks
With lnkLink.Parent
.Offset(0, 1) = .Hyperlinks.Item(1).Address
End With
Next lnkLink
End Sub

-----------------------------------------
My) 내가 짠 매크로

Sub 매출손익추출_Click()

Dim str As String
Dim i1 As Integer
i1 = 0

Loop1:
str = ActiveCell.Value
If str = "" Then
  Exit Sub
End If

'테스트용. 5회반복후 탈출
'  i1 = i1 + 1
'  If i1 > 5 Then
'    Exit Sub
'  End If


With ActiveCell  '시트명 찾아서 특정셀의 값 추출
   .Offset(0, 5) = Worksheets(str).Range("i33").Value
   .Offset(0, 6) = Worksheets(str).Range("j33").Value
   .Offset(0, 7) = Worksheets(str).Range("i32").Value
   .Offset(0, 8) = Worksheets(str).Range("j32").Value
End With
 
' 아래줄로 이동
ActiveCell.Offset(1, 0).Select
 
GoTo Loop1

End Sub

-----------------------------------------------

셀에 있는 시트명을 삭제하는 매크로

Sub Sheet삭제()
'준비조건: 커서를 회사명의 셀에 두어야 함.
'커서가 빈칸으로 이동하면 매크로는 멈춤.

Dim str As String
Dim i1 As Integer
i1 = 0

On Error Resume Next

Loop1:
str = ActiveCell.Value
If str = "" Then
  Exit Sub
End If

'테스트용. 5회반복후 탈출
'  i1 = i1 + 1
'  If i1 > 5 Then
'    Exit Sub
'  End If

Worksheets(str).Delete
 
' 아래줄로 이동
ActiveCell.Offset(1, 0).Select
 
GoTo Loop1

End Sub-----------------------------------------

Function 시트명추출(Optional 시작 As Integer, Optional 길이 As Integer = 0)
  Application.Volatile 

  If 시작 < 0 Or 길이 < 0 Then
    시트명추출 = "#인수값 확인!"
    Exit Function
  End If
  If 시작 = 0 Then 시작 = 1
  If 길이 = 0 Then
    시트명추출 = Mid(Application.Caller.Parent.Name, 시작)
  Else
    시트명추출 = Mid(Application.Caller.Parent.Name, 시작, 길이)
  End If
End Function


-----------------------------------------


7. shee1시트의 a1셀에 12를 입력
   worksheets("sheet1").range("a1").value=12
  
-----------------------------------------

7. with구문
   with 반복되는 명령
.속성값1
.속성값2
   end with
   '예) with activecell
   .offset(0,0)="1"
   .offset(0,1)="2"
   .offset(0,2)="3"
end with

'예를 한줄로 표현
activecell.resize(,3)=array("1","2","3")  


-----------------------------------------

activecell.value = "1"


-----------------------------------------
'에러 처리

Sub err_Resume()
On Error GoTo ErrHandler
Workbooks.Open "C:\없는파일이름.xlsx"
Exit Sub
ErrHandler:
If Err <> 0 Then           '에러가 발생했으면
    Resume                  '에러난 행을 재실행
End If

End Sub


Sub err_Resume_Next()
On Error GoTo ErrHandler
Workbooks.Open "C:\없는파일이름.xlsx"
Exit Sub

ErrHandler:
If Err <> 0 Then          '에러가 발생했으면
    Resume Next          '에러난 다음 행을 실행
End If

End Sub