Hello, Python

Dim T as Single T = TimerMsgBox Format(Timer - T, "#0.00")

C(1) = 3: C(2) = 7: C(3) = 11: C(4) = 15

Sub Main() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With fd If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems MsgBox "The path is: " & vrtSelectedItem Next vrtSelectedItem Else End If End With Set fd = Nothing End Sub

Select Case [변수] Case [조건값] [동작] Case [조건값] [동작] . . . End Select Sub Macro1()Dim str$str = "일"Select Case str Case "일" MsgBox "일이다" Case Is "일" MsgBox "일이아닌다"End SelectEnd Sub

상수값설 명vbOKOnly0확인 단추만 나타냅니다.vbOKCancel1확인 단추와 취소 단추를 나타냅니다.vbAbortRetryIgnore2중단, 다시 시도 및 무시 단추를 나타냅니다.vbYesNoCancel3예, 아니오 및 취소 단추를 나타냅니다.vbYesNo4예 및 아니오 단추를 나타냅니다.vbRetryCancel5다시 시도 및 취소 단추를 나타냅니다.vbCritical16중대 메시지 아이콘을 나타냅니다.vbQuestion32쿼리 경고 아이콘을 나타냅니다.vbExclamation48메시지 경고 아이콘을 나타냅니다.vbInformation64메시지 정보 아이콘을 나타냅니다.vbDefaultButton10첫째 단추가 기본값입니다.vbDefaultButton2256둘째 단추가 기본값입니다.vbDefault..

If IsNumeric(Selection) Then MsgBox "숫자입니다." Else MsgBox "숫자가 아닙니다." End If

Count와 Countlarge는 데이터형식의 차이가 있음Count는 Long이므로 최대표현할수 있는 수가 2,147,483,647 까지임엑셀의 한 시트에 있는 전체 셀의 갯수를 셀때 오버플로 발생Countlarge를 사용하면 시트 전체의 셀수를 확인할수 있음 - 출처 -http://blog.naver.com/rosa0189?Redirect=Log&logNo=60135748455

test 1과 test2의 수행속도중 개체변수를 사용한 test2가 더 빠름Application.ScreenUpdating = False 를 사용하면 속도는 더욱 빨라짐Sub test1() Dim i& Dim st st = Timer For i = 1 To 10000 ThisWorkbook.Sheets(5).Range("A1").Value = i Next i MsgBox Format(Timer - st, "#0.000") End Sub Sub test2() Dim i& Dim st Dim cel As Range st = Timer Set cel = ThisWorkbook.Sheets(5).Range("A1") For i = 1 To 10000 cel.Value = i Next i MsgBox Format..

데이터종류형식메모리크기사용할수 있는 값의 범위형식선언문자정수 Byte1Byte0 ~ 255 Integer2Byte-32,768 ~ 32,767% Long4Byte-2,147,483,648 ~ 2,147,483,647&실수 Single4Byte음수 : -3.402823*1038 ~ -1.401298*10-45 양수 : 1.401298*10-45 ~ 3.402823*1038! Double8Byte음수 : -1.79769313486232*10308 ~ -4.97065645841247*10-324 양수 : 4.97065645841247*10-324 ~ 1.79769313486232*10308#날짜/시간 Date8Byte날짜 : 100년 1월 1일 ~ 9999년 10월 31일 시간 : 00:00:00 ~ 23:5..

Option Explicit Type Emp ID(0 To 3) As Integer Name As String * 3 Address As String * 5 Phone As Byte End Type Sub CreRecord() Dim Myr As Emp Myr.Name = "가나다라" MsgBox Myr.Name End Sub Msgbox의 출력은 "가나다" 만 출력됨> String의 데이터범위 지정> Integer의 배열범위 지정