singo1232001

Private Sub Worksheet_Change(ByVal Target As Range)
'¨¾¿ù«Ü¦n¥Î
If Target.Height > 10000000 Then Exit Sub  '¨¾¥þ¿ï·¸¦ì³ø¿ù
If Target.Width > 1000000 Then Exit Sub   '¨¾¥þ¿ï·¸¦ì³ø¿ù
If Target.Count > 1 Then Exit Sub      '¨¾¦h¿ï¦^·¹³ø¿ù
If Target.Value = "" Then Exit Sub    '¨¾ªÅ­È­pºâ³ø¿ù
If Target.Column > 1 Then Exit Sub
If Target.Row > 1 Then Exit Sub
If IsNumeric(Target.Value) = False Then Exit Sub  '¨¾«D¼Æ¦r­pºâ³ø¿ù

'¤G¤¸¤@¦¸Áp¥ß¤èµ{¦¡ (¥i§R°£µù¸Ñ)
'y = ax + b
'0= 1a + b     '1¦C=0
'10= 6a + b    '6¦C=10
'a = -b
'¥N¤J 10=-5b
'b=-2
'¥N¦^ 0=a-2
'a=2
'¨D¥X y=2x-2

ReDim ar(1 To 101, 0)
For i = 1 To 101 Step 5
ar(i, 0) = i * 2 - 2 + Target.Value   '¥N¤J¤½¦¡y=2x-2 +­ì©l­È
Next
Target.Resize(101, 1) = ar
End Sub