Back to Basics

'정규누적확률분포(p151) Function CND(Z As Double) Dim a1 As Double Dim a2 As Double Dim a3 As Double Dim a4 As Double Dim a6 As Double Dim L As Double Dim K As Double a1 = 0.31938153 a2 = -0.356563782 a3 = 1.781477937 a4 = -1.821255978 a5 = 1.330274429 L = Abs(Z) K = 1 / (1 + 0.2316419 * L) CND = 1 - 1 / Sqr(2 * 3.1415926) * Exp(-L ^ 2 / 2) * _ (a1 * K + a2 * K ^ 2 + a3 * K ^ 3 + a4 * K ^ 4 + a5 * K ^ 5..

Sub test() Dim i As Double Dim n As Double Dim s As Sheet1 Dim start As Integer start = 0 n = 100 Set s = Sheet1 Randomize For i = 1 To n s.Cells(i, 1) = Rnd If s.Cells(i, 1) > 0.5 Then s.Cells(i, 2) = 1 Else s.Cells(i, 2) = -1 End If Next i s.Range("C1") = start For i = 1 To n start = start + s.Cells(i + 1, 2) s.Cells(i + 1, 3) = start Next i End Sub

' Do-until 이용 Sub find_end_of_data() Dim s As Worksheet Dim r As Long Dim cnt As Long Set s = Sheet1 r = 1 Do Until s.Cells(r, 1) = "" If s.Cells(r, 1) "" Then cnt = cnt + 1 End If r = r + 1 Loop Debug.Print " 데이터의 갯수는:", cnt End Sub ' Range 이용 Sub find_end_of_data2() Dim s As Worksheet Dim rngData As Range Dim cnt As Long Set s = Sheet1 Set rngData = s.Range(s.Range("B1"), s.Range("B1").End(xlD..

Sub lagged_correl() '// Automating Calculation of Lagged Cross Correlations between Variables Const ROWEND = 417 '// change value as your own Const ROWBEGIN = 2 '// change value as your own Const COLBEGIN = 2 '// change value as your own Const OBS = 31 '// change value as your own Dim s As Worksheet Dim s3 As Worksheet Dim lags Dim rng(1 To OBS) As Range Dim rng1 As Range, rng2 As Range Dim col ..

'입력된 셀 값을 받아서 재 입력하기 Sub B_S() Dim col As Long Dim i As Long Dim a() As Long ReDim a(1 To 11) col = 1 For i = 1 To 11 a(i) = Sheet1.Cells(i, col).Value Range("C1").Cells(i, col) = a(i) Next End Sub

엑셀에서 불필요한 공란을 삭제해준다. 오우 굿!

for matlab7