세상의 모든 아침

출처 : 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 까지 이동하면 끝.

더 쉬운 방법 :

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 파일을 읽으면 된다는 인터넷 글들이 있는데 안 됨.

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

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

2015년 2월 1일 월요일

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

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

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

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

shift+F11 로 VB 편집기에 들어가서,

메뉴에서 도구 - 매크로 로 들어가서 매크로를 새로 만들어

아래의 적색 내용을 붙여 넣으면 됨.

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

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)

Ctrl + Home / End : (하나의 시트 내 전체를 범위로) 내용이 있는 셀의 처음과 끝으로 이동

Ctrl + Page Down : 오른쪽 시트로 이동 (Sheet1 → Sheet2)
Ctrl + Page Up : 왼쪽 시트로 이동 (Sheet2 → Sheet1)

Ctrl + 위/아래화살표 : 데이터 있는 블럭 단위로 이동 (연속 실행하면 다음 블럭으로 이동)

Ctrl + 좌/우화살표 : 가로행의 데이터 있는 셀의 처음과 끝으로 이동하나,

                      처음셀에서 좌화살표 누르면 A열로 이동하고, 끝셀에서 우화살표 누르면 XFD열로 이동.

                     (연속 실행하면 다음 블럭으로 이동)

* 시트이동은 아래그림을 좌클릭해도 되고,

우클릭하면 시트리스트가 나와서 바로 점프 가능함.

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

[펌] 유용한 엑셀 단축키 10가지

출처: http://www.itworld.co.kr/news/86771

‘이것만 알아도 작업시간을 절반으로!’ 유용한 엑셀 단축키 10가지

* 주의: 수식 입력후 배열서식(Ctrl+Shift+Enter) 로 입력 완료해야 함.

vlookup함수에서 찾을 조건이 2가지 이상일 경우는 찾을방법이 있나요?
예를 들어 A열의조건 AND B열의 조건에 일치되는 값출력.

첨부파일 올리구요~ 고수님의 조언 부탁드립니다.^^*

 
김정호 답변을 이미 받으셨네요..
아래는 그냥 참고만 해보시길~~
=OFFSET(C1,SUMPRODUCT((A3:A10=E3)*(B3:B10=F3),ROW(C3:C10)-1),0)
 
 
 
김정호 이런 방법도 ~~
=INDIRECT(ADDRESS(SUMPRODUCT((A3:A10=E3)*(B3:B10=F3),ROW(C3:C10)),3))

사용하신 수식은 [배열수식]입니다. 

따라서, 결과를 구하고자 하는 셀에 해당 수식을 입력하신 다음 ....
[수식입력줄]을 눌러, Ctrl+Shift+Enter 3개의 키를 동시에 눌러 마무리 해주시면
수식의 좌우 양 끝에 저절로 중괄호({ }) 가 생기며, 이러한 형태로 입력된 수식을
[배열수식]이라고 한답니다.^^*;;

주의:  Ctrl+Alt+Shift 가 아닙니다.

출처: http://lonelyengineer.tistory.com/1808

=VLOOKUP(A3,설비listfrom시스템!$A:$B,2,FALSE)
=IF(ISERROR(TRUE),"?","--")

맨위의 vlookup으로 점검해보고, N/A경우 고려하여 위의 iserror 조건과 두번째 인자에

위 vlookup 절은 넣으면 아래와 같아진다.

=IF(ISERROR(VLOOKUP(A3,설비listfrom시스템!$A:$B,2,FALSE)),"?",VLOOKUP(A3,설비listfrom시스템!$A:$B,2,FALSE))