다른이름으로 저장 > html로 저장
웹페이지에서 열면, 오른클릭으로 이미지를 저장할 수 있다.
'Excel'에 해당되는 글 16건
- 2013.04.02 [excel] 엑셀의 이미지를 파일로 저장
- 2011.02.18 [Excel]VLOOK함수
- 2010.10.20 [ExcelVBA]메일수신 -- 성공하지 못함
- 2010.10.20 [Excel] 단축키
- 2010.10.19 [ExcelVBA] 참고글
- 2010.10.19 [ExcelVBA] 다이얼로그 박스
- 2010.10.19 [ExcelVBA] Tip 1
- 2010.10.19 [ExcelVBA] Event Procedure
- 2010.10.19 [ExcelVBA] 기본예제 2 (셀지정/배열/Function)
- 2010.10.18 [ExcelVBA] 기본 예제
- 2008.08.19 [Excel] 계산식에 문자열쓰기
- 2008.08.19 [Excel] 계산식중에 "(더블커티션)을 표시하고 싶다.
- 2008.08.19 [Excel] 복사해서 붙여도 같은 셀을 가리키게 하는 참조.
- 2008.06.12 [Excel][Tip] 파일이름제약
- 2008.06.12 [Excel][Tip] 시트이름표시
- 2008.06.12 [Excel][Tip] 셀참조
=VLOOKUP(A5, Sheet2!$B$2:$I$302,7,0)
A5의 값(검색키)으로 Sheet2의 B2:I302의 범위에서 찾아서 7번째 컬럼의 값을 입력. false라면 0
A5의 값(검색키)으로 Sheet2의 B2:I302의 범위에서 찾아서 7번째 컬럼의 값을 입력. false라면 0
방법1.
BASP21을 쓴다. 상업용으로도 사용 가능하다는 모양.
http://www.hi-ho.ne.jp/~babaq/basp21.html
--> cannt connect server
방법2.
WinSocket을 쓰는 방법
--> WInSocket이 임포트가 되질 않는다.
직접관계는 없지만 관계자료 (센드메일)
CDO를 이용함
http://blog.daum.net/_blog/BlogTypeView.do?blogid=0GNBF&articleno=6718985#ajax_history_home
BASP21을 쓴다. 상업용으로도 사용 가능하다는 모양.
http://www.hi-ho.ne.jp/~babaq/basp21.html
--> cannt connect server
방법2.
WinSocket을 쓰는 방법
--> WInSocket이 임포트가 되질 않는다.
직접관계는 없지만 관계자료 (센드메일)
CDO를 이용함
http://blog.daum.net/_blog/BlogTypeView.do?blogid=0GNBF&articleno=6718985#ajax_history_home
엑셀이벤트의 우선순위
http://blog.naver.com/atmyhome?Redirect=Log&logNo=90007208547
MsgBox "다이얼로그 표시 문자열",표시 아이콘과 버튼 ,"타이틀 표시 문자열"
ex> MsgBox "", vbInformation + vbOKOnly , ""
*** 버튼정수일람
vbOKOnly
vbOKCancel
vbYesNo
vbYesNoCancel
vbAbortRetryIgnore
vbRetryCancel
***아이콘용 정수일람
vbCritical
vbQuestion
vbExclamation : 삼각 느낌표
vbInformation
vbMsgBoxRight : 메세지를 오른쪽으로
*** 엑셀문서에 컨트롤 배치
컨트롤 툴박스를 클릭 해서 나오는 툴박스를 이용해서
엑셀 문서내에 컨트롤을 배치 -> 더블클릭으로 코드 표시
*** 배열의 재선언
Dim arr As Long
'가변 배열을 선언
ReDim arr(2)
'배열길이를 2로 변경
ReDim arr(3)
'배열길이를 3으로 변경
***VBA組み込み定数
vbCrLf : 개행
vbNullString : 널문자
vbTab : 탭문자
vbInformation : 정보아이콘
vbCritical : 에러아이콘
***상수 선언
Const a As Long = 1
***표준함수
Fix : 소수점 밑을 버림
Int : 인수를 넘지 않는 정수를 반환
ex>Fix와 Int의 차이
Fix(3.1) '3
Fix(-3.1) '-3
Int(3.1) '3
Fix(-3.1) '-4
Randomize : 난수의 초기화
Rnd : 난수를 발생시킴. 0~1
Fix(Rnd * 10) + 1 '1부터10까지
Fix(Rnd * 101) + 100 '100~200
Right : 오른쪽으로부터 문자열 자름
Left : 왼쪽으로부터 문자열 자름
Right("12345", 3) '"345"
Left("12345", 3) '"123"
Mid : 중간 자름
Len : 길이
Mid("12345", 2, 2)
Trim : 좌우공백제거
RTrim : 우
LTrim : 좌
Trim(" trim ")
Replace : 문자치환. 시작위치와 회수도 설정가능
Replace("12345","1","2") '"22345"
InStr : 문자를 검색
InStr(1, "12345", "23")
Format : 표시 포맷 지정
Format(Date, "hh시mm분ss초 AM/PM") 'AM/PM이 있으면 12시간단위
Format(12345.67, "###,###0.00") '3자리마다 콤마 구분
*** 날짜 관련
Date
Time
Year(Date)
Month(Date)
Day(Date)
Weekday(Date) : 해당날짜의 요일을 반환. 일요일~토요일 (0~6, vbSunday~vbSaturday)
Hour(Time)
Minute(Time)
Second(Time)
Date
DateDiff :날짜 연산. 날짜단위(yyyy, m, d, ww주단위, q분기단위). 시간단위(h,n분,s)
DateDiff("yyyy", Date, varDate) 'varDate(yyyy/mm/dd) 년단위
DateDiff("m", Date, varDate) '월단위
DateAdd : 날짜연산. 더하기
컨트롤 툴박스를 클릭 해서 나오는 툴박스를 이용해서
엑셀 문서내에 컨트롤을 배치 -> 더블클릭으로 코드 표시
*** 배열의 재선언
Dim arr As Long
'가변 배열을 선언
ReDim arr(2)
'배열길이를 2로 변경
ReDim arr(3)
'배열길이를 3으로 변경
***VBA組み込み定数
vbCrLf : 개행
vbNullString : 널문자
vbTab : 탭문자
vbInformation : 정보아이콘
vbCritical : 에러아이콘
***상수 선언
Const a As Long = 1
***표준함수
Fix : 소수점 밑을 버림
Int : 인수를 넘지 않는 정수를 반환
ex>Fix와 Int의 차이
Fix(3.1) '3
Fix(-3.1) '-3
Int(3.1) '3
Fix(-3.1) '-4
Randomize : 난수의 초기화
Rnd : 난수를 발생시킴. 0~1
Fix(Rnd * 10) + 1 '1부터10까지
Fix(Rnd * 101) + 100 '100~200
Right : 오른쪽으로부터 문자열 자름
Left : 왼쪽으로부터 문자열 자름
Right("12345", 3) '"345"
Left("12345", 3) '"123"
Mid : 중간 자름
Len : 길이
Mid("12345", 2, 2)
Trim : 좌우공백제거
RTrim : 우
LTrim : 좌
Trim(" trim ")
Replace : 문자치환. 시작위치와 회수도 설정가능
Replace("12345","1","2") '"22345"
InStr : 문자를 검색
InStr(1, "12345", "23")
Format : 표시 포맷 지정
Format(Date, "hh시mm분ss초 AM/PM") 'AM/PM이 있으면 12시간단위
Format(12345.67, "###,###0.00") '3자리마다 콤마 구분
*** 날짜 관련
Date
Time
Year(Date)
Month(Date)
Day(Date)
Weekday(Date) : 해당날짜의 요일을 반환. 일요일~토요일 (0~6, vbSunday~vbSaturday)
Hour(Time)
Minute(Time)
Second(Time)
Date
DateDiff :날짜 연산. 날짜단위(yyyy, m, d, ww주단위, q분기단위). 시간단위(h,n분,s)
DateDiff("yyyy", Date, varDate) 'varDate(yyyy/mm/dd) 년단위
DateDiff("m", Date, varDate) '월단위
DateAdd : 날짜연산. 더하기
엑셀문서
-> Visual Basic Editor
-> 이벤트를 넣고 싶은 문서에서 오른쪽 클릭
-> 코드표시
-> 표시된 윈도우의 드롭다운 박스중에서 해당 이벤트를 선택
*** ex > 문서가 열릴 때, 메시지 박스 표시
( http://blog.naver.com/web28?Redirect=Log&logNo=60014265989 )
Private Sub Workbook_Open()
MsgBox "Event : document open", vbInformation, "Open"
End Sub
*** 참고> Workbook_Open, Auto_open의 차이( http://blog.naver.com/jeonghee65?Redirect=Log&logNo=140001704149 )
* 둘다 문서가 열릴 때 발생
* 둘다 있을 경우 Workbook_open이 먼저 열림
* VBA에서 문서를 열경우, Workbook_open만 열림
-> Visual Basic Editor
-> 이벤트를 넣고 싶은 문서에서 오른쪽 클릭
-> 코드표시
-> 표시된 윈도우의 드롭다운 박스중에서 해당 이벤트를 선택
*** ex > 문서가 열릴 때, 메시지 박스 표시
( http://blog.naver.com/web28?Redirect=Log&logNo=60014265989 )
Private Sub Workbook_Open()
MsgBox "Event : document open", vbInformation, "Open"
End Sub
*** 참고> Workbook_Open, Auto_open의 차이( http://blog.naver.com/jeonghee65?Redirect=Log&logNo=140001704149 )
* 둘다 문서가 열릴 때 발생
* 둘다 있을 경우 Workbook_open이 먼저 열림
* VBA에서 문서를 열경우, Workbook_open만 열림
Option Explicit
'모든 변수는 Dim을 사용하여 선언을 하여야 사용을 할수 있음.
Sub Sample2()
Range("A" & "1") = "this is target cell"
'target cell 지정
'**** 배열
Dim arr(2) As String
arr(0) = "1st array"
arr(1) = "2nd array"
MsgBox arr(0) + " " + arr(1)
MsgBox arr(0) & " " & arr(1)
MsgBox a(1)
'*** For문
For i = 1 To 5
If i = 5 Then
Exit For 'For문을 끝냄
End If
Next
End Sub
'***Function은 유저 프롯시저를 작성하기 위한 프로시저.
Function a(para1 As Integer) As String
a = "<" + Str(para1) + ">"
End Function
'모든 변수는 Dim을 사용하여 선언을 하여야 사용을 할수 있음.
Sub Sample2()
Range("A" & "1") = "this is target cell"
'target cell 지정
'**** 배열
Dim arr(2) As String
arr(0) = "1st array"
arr(1) = "2nd array"
MsgBox arr(0) + " " + arr(1)
MsgBox arr(0) & " " & arr(1)
MsgBox a(1)
'*** For문
For i = 1 To 5
If i = 5 Then
Exit For 'For문을 끝냄
End If
Next
End Sub
'***Function은 유저 프롯시저를 작성하기 위한 프로시저.
Function a(para1 As Integer) As String
a = "<" + Str(para1) + ">"
End Function
Option Explicit
'모든 변수는 Dim을 사용하여 선언을 하여야 사용을 할수 있음.
Sub Sample()
Dim a As String
a= InputBox(”Input String”)
'문자열 입력
Dim i As Long
For i = 1 To 5
a = a + LTrim$(str(i))
'숫자형i를 문자형으로 변환 + 변환한 문자열의 선행공백을 삭제
Next
'결과 : [입력값]12345
Dim j As Long
j = CStr("100")
j = j + 1
a = a + str(j)
'결과 : [입력값]12345 101
MsgBox a & "-connect" & CStr(111)
'메시지 박스가 나타남
'결과 : [입력값]12345 101-connect111
Call b
'메시지 박스가 나타남 (내용 : b)
End Sub
'모든 변수는 Dim을 사용하여 선언을 하여야 사용을 할수 있음.
Sub Sample()
Dim a As String
a= InputBox(”Input String”)
'문자열 입력
Dim i As Long
For i = 1 To 5
a = a + LTrim$(str(i))
'숫자형i를 문자형으로 변환 + 변환한 문자열의 선행공백을 삭제
Next
'결과 : [입력값]12345
Dim j As Long
j = CStr("100")
j = j + 1
a = a + str(j)
'결과 : [입력값]12345 101
MsgBox a & "-connect" & CStr(111)
'메시지 박스가 나타남
'결과 : [입력값]12345 101-connect111
Call b
'메시지 박스가 나타남 (내용 : b)
End Sub
Sub b()
MsgBox "b"
End Sub
[G3셀의 내용]을 참조합니다.
= G3 & "을 참조합니다."
.... 내가 싫어하는 엑셀일이 늘어서...
하기 싫어도... 해야하는;
= G3 & "을 참조합니다."
.... 내가 싫어하는 엑셀일이 늘어서...
하기 싫어도... 해야하는;
="쏼라쏼라쏼라"$"""흠흠"$"""쏼라쏼라"
.... 이렇게 하니 되던데...
"$"""
왜그런진 모르겠다 -_-...;
.... 이렇게 하니 되던데...
"$"""
왜그런진 모르겠다 -_-...;
셀참조를 위해
=A1
와 같이 써 넣으면
복사&붙이기를 하면,
참조하는 곳이 변해버린다.
그럴때는
=$A$1
=A1
와 같이 써 넣으면
복사&붙이기를 하면,
참조하는 곳이 변해버린다.
그럴때는
=$A$1
RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))
셀 참조 하려면
= [Cell number] & "String"
ex) = G35 & "입니다."
http://cafe.naver.com/akadream.cafe
2007.07.19 13:25
= [Cell number] & "String"
ex) = G35 & "입니다."
http://cafe.naver.com/akadream.cafe
2007.07.19 13:25
