요크셔 푸딩(Yorkshire-Pudding)
영국
로스트비프 육즙
2015년 6월 26일 금요일
2015년 2월 21일 토요일
[엑셀]컴활1급암기
사용자 지정 서식
#0"개"
입력 값이 0 일 때 0개 라고 표시
조건부 서식
수식
=AND($E3>=10000000, YEAR($C3)=2003)
하이퍼링크
스크린팁(=화면설명) : 하이퍼링크 위에 마우스포인터를 올리면 설명이 나오는 것
자동필터(갑,규,창)
조건 거는 법을 아는지 확인
고급필터
조건을 행의 위아래 적어놓고 and, or의 사용법을 아는지 확인
3개의 범위 모두 필드명이 포함된다.
계산문제 함수
셀의 값을 표시
=index(찾을범위, 행, 열)
찾을값이 찾을범위 몇 번째 열에 있는지 표시
=match(찾을값, 찾을범위, 0)
부분합
부분합은 정렬을 먼저한다.
1. 무엇을 그룹화 할 것인가?
2. 그룹화 한 항목을 어떻게 계산할 것인가?(합계, 평균)
3. 2번 이상 그룹화 할 경우 '새로운 값으로 대치' 는 해제해야한다.
피벗테이블
#0"개"
입력 값이 0 일 때 0개 라고 표시
조건부 서식
수식
=AND($E3>=10000000, YEAR($C3)=2003)
하이퍼링크
스크린팁(=화면설명) : 하이퍼링크 위에 마우스포인터를 올리면 설명이 나오는 것
자동필터(갑,규,창)
조건 거는 법을 아는지 확인
고급필터
조건을 행의 위아래 적어놓고 and, or의 사용법을 아는지 확인
3개의 범위 모두 필드명이 포함된다.
계산문제 함수
셀의 값을 표시
=index(찾을범위, 행, 열)
찾을값이 찾을범위 몇 번째 열에 있는지 표시
=match(찾을값, 찾을범위, 0)
부분합
부분합은 정렬을 먼저한다.
1. 무엇을 그룹화 할 것인가?
2. 그룹화 한 항목을 어떻게 계산할 것인가?(합계, 평균)
3. 2번 이상 그룹화 할 경우 '새로운 값으로 대치' 는 해제해야한다.
피벗테이블
[액세스]컴활1급암기
@ 테이블, 쿼리(재료) ---> 폼, 보고서(작품)
@ 그리드(쿼리박스)
@ 조인(테이블+테이블)
Private Sub cmd제품명찾기_Click()
Me.Filter = "제품명='" & txt제품명 & "'"
Me.FilterOn = True
End Sub
A(문자) <--- '" & B(컨트롤명) & "'
A(숫자) <--- " & B(컨트롤명) & "
A(날짜) <--- #" & B(컨트롤명) & "#
컨트롤명은 양 옆에 &로 묶는다.
@ 특정 문자열이 포함하는 레코드 찾기
Private Sub cmd이메일찾기_Click()
Me.RecordSource = "select * from 제품별판매현황 where 담당자이메일 like '*" & txt이메일 & "*'"
End Sub
like '*" & B(컨트롤명) & "*'
Private Sub cmd판매번호찾기_Click()
Me.RecordsetClone.FindFirst "판매번호=" & txt판매번호
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
Private Sub cmd제품정보찾기_Click()
Dim rs As ADODB.Recordset '선언
Set rs = New ADODB.Recordset '할당
DoCmd.OpenForm "제품정보" '액세스 폼 열기
rs.ActiveConnection = CurrentProject.Connection 'rs에 연결
rs.Open "select * form 제품별판매현황 where 판매번호=" & txt판매번호 '쿼리문 결과값을 rs에 할당
Forms!제품번호.txt판매번호 = rs!판매번호 'rs필드부분을 액세스에 표시
rs.Close
End Sub
@ 매크로 where 조건문
다음과 같을 경우
[분류]=[Forms]![판매현황]![txt분류]
Private Sub cmd상품별인쇄_Click()
DoCmd.OpenReport "판매내역", acViewPreview, , "상품명='" & txt이름 & "'"
End Sub
Private Sub cmd상품정보_Click()
DoCmd.OpenForm "상품정보", acNormal, , "상품명='" & txt이름 & "'"
End Sub
@ 쿼리
크로스탭 쿼리(피벗테이블과 비슷함)
왼쪽,위쪽,가운데
@ 그리드(쿼리박스)
@ 조인(테이블+테이블)
Private Sub cmd제품명찾기_Click()
Me.Filter = "제품명='" & txt제품명 & "'"
Me.FilterOn = True
End Sub
A(문자) <--- '" & B(컨트롤명) & "'
A(숫자) <--- " & B(컨트롤명) & "
A(날짜) <--- #" & B(컨트롤명) & "#
컨트롤명은 양 옆에 &로 묶는다.
@ 특정 문자열이 포함하는 레코드 찾기
Private Sub cmd이메일찾기_Click()
Me.RecordSource = "select * from 제품별판매현황 where 담당자이메일 like '*" & txt이메일 & "*'"
End Sub
like '*" & B(컨트롤명) & "*'
Private Sub cmd판매번호찾기_Click()
Me.RecordsetClone.FindFirst "판매번호=" & txt판매번호
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
Private Sub cmd제품정보찾기_Click()
Dim rs As ADODB.Recordset '선언
Set rs = New ADODB.Recordset '할당
DoCmd.OpenForm "제품정보" '액세스 폼 열기
rs.ActiveConnection = CurrentProject.Connection 'rs에 연결
rs.Open "select * form 제품별판매현황 where 판매번호=" & txt판매번호 '쿼리문 결과값을 rs에 할당
Forms!제품번호.txt판매번호 = rs!판매번호 'rs필드부분을 액세스에 표시
rs.Close
End Sub
@ 매크로 where 조건문
다음과 같을 경우
[분류]=[Forms]![판매현황]![txt분류]
Private Sub cmd상품별인쇄_Click()
DoCmd.OpenReport "판매내역", acViewPreview, , "상품명='" & txt이름 & "'"
End Sub
Private Sub cmd상품정보_Click()
DoCmd.OpenForm "상품정보", acNormal, , "상품명='" & txt이름 & "'"
End Sub
@ 쿼리
크로스탭 쿼리(피벗테이블과 비슷함)
왼쪽,위쪽,가운데
2015년 1월 26일 월요일
[액세스VBA] 레코드 갯수(record count)
Private Sub Command1_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rsCount As Integer
Dim queryNameOrSQL As String
queryNameOrSQL = "select * from excel"
Set db = CurrentDb
Set rs = db.OpenRecordset(queryNameOrSQL)
rs.MoveLast
rsCount = rs.recordCount
Text1.Value = rsCount
End Sub
* excel : 테이블 이름(table name)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rsCount As Integer
Dim queryNameOrSQL As String
queryNameOrSQL = "select * from excel"
Set db = CurrentDb
Set rs = db.OpenRecordset(queryNameOrSQL)
rs.MoveLast
rsCount = rs.recordCount
Text1.Value = rsCount
End Sub
* excel : 테이블 이름(table name)
2015년 1월 19일 월요일
[엑셀VBA]마지막행 구하기
Lastrow = Sheet1.Range("A65536").End(xlUp).Row + 1
Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
MsgBox LastRow
End Sub
Sub LastColumnInOneRow()
'Find the last used column in a Row: row 1 in this example
Dim LastCol As Integer
With ActiveSheet
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
MsgBox LastCol
End Sub
Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
MsgBox LastRow
End Sub
Sub LastColumnInOneRow()
'Find the last used column in a Row: row 1 in this example
Dim LastCol As Integer
With ActiveSheet
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
MsgBox LastCol
End Sub
2015년 1월 15일 목요일
[MSSQL]레코드 생성일자 추가
"레코드생성일자" DATETIME NOT NULL DEFAULT 'getdate()',
ALTER TABLE stock ADD CONSTRAINT DF_YourTable DEFAULT GETDATE() FOR YourColumn
ALTER TABLE dbo.MyTable ADD CONSTRAINT my_Con DEFAULT GETDATE() for created UPDATE MyTable SET Created = GetDate() where Created IS NULL ALTER TABLE dbo.MyTable ALTER COLUMN Created DATETIME NOT NULL
"레코드수정일자" DATETIME NOT NULL DEFAULT '' ON UPDATE CURRENT_TIMESTAMP,
ALTER TABLE stock ADD "레코드생성일자2" DATETIME NOT NULL DEFAULT 'GETDATE()';
ALTER TABLE stock ADD "레코드생성일자2" DATETIME NOT NULL DEFAULT 'GETDATE()';
2015년 1월 10일 토요일
[번외:해외직구스마트폰]How To Buy
주의사항
1. 언락여부
2. 국내 주파수 지원
3. 한국어 지원 여부
국내 이통사 4G LTE 주파수 할당
- SKT: Band3 (1800MHz), Band5 (850MHz)
- KT: Band3 (1800MHz), Band8 (900MHz)
- LGU+: Band1 (2100MHz), Band5 (850MHz), Band7 (2600MHz)
Network: 4G: FDD-LTE 800/900/1800/2100/2600 MHz
해외쇼핑몰 검색어 : unlocked smartphone lte [사용하는 이통사 주파수] <--- KT면 900, 1800
1. 언락여부
2. 국내 주파수 지원
3. 한국어 지원 여부
국내 이통사 4G LTE 주파수 할당
- SKT: Band3 (1800MHz), Band5 (850MHz)
- KT: Band3 (1800MHz), Band8 (900MHz)
- LGU+: Band1 (2100MHz), Band5 (850MHz), Band7 (2600MHz)
Network: 4G: FDD-LTE 800/900/1800/2100/2600 MHz
해외쇼핑몰 검색어 : unlocked smartphone lte [사용하는 이통사 주파수] <--- KT면 900, 1800
2015년 1월 6일 화요일
피드 구독하기:
글 (Atom)