Dear Nisa, Bisa di kirim ngga file excelnya.. TerimaKasih.
Pada Kamis, 4 Juni 2015 2:35, "Nisa Khairunnisa [email protected]
[belajar-excel]" <[email protected]> menulis:
Mohon bantuannya para master, saya kebingungan dengan error unable to set
the formula array property of the range class.sudah dicoba diutak atik tapi ttp
error .hasil dari fungsi linestnya ada di 2 kolom 5 baris. Mohon pencerahannya,
terimakasih.
Dim outRow, rowNum, outSheet
Dim x, y As Integer
Private Sub CommandButton1_Click()
outRow = 5 'Untuk menentukan dimana hasil perhitungan ditampilkan
outSheet = "Forecast Linier"
Worksheets(outSheet).Activate
' Membersihkan bagian output pada worksheet
Rows(outRow + 4 & ":" & outRow + 30).Select
Selection.Clear
Selection.ClearContents
If ComboBox1 = "Regresi Linier" Then
Sheets("Forecast Linier").Cells(1, 1) = TxtPeriode.Text
For y = 1 To Cells(1, 1).Value
Cells(8 + y, 4) = InputBox("masukkan nilai")
Cells(8 + y, 4).Select
Next y
MsgBox " Data yang anda masukkan sudah terpenuhi"
Else
If ComboBox1 = "Regresi Kuadrat" Then
InputPenjualan_kuadrat.Show
Else
If ComboBox1 = "Eksponensial" Then
InputPenjualan_eksponensial.Show
End If
End If
End If
End Sub
Private Sub Hitung_Click()
For rowNum = 1 To Cells(1, 1).Value
x = rowNum - 1
Cells(outRow + rowNum + 3, 3).Value = rowNum 'Periode
Cells(outRow + rowNum + 3, 5).Value = x
Next rowNum
Range("I10:J14").Select
ActiveCell.FormulaR1C1 = "=linest"
Range("I10:J14").Select
Selection.FormulaArray = _
"=LINEST(y,x,1,1)"
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Regresi Linier"
.AddItem "Regresi Kuadrat"
.AddItem "Eksponensial"
End With
End Sub
#yiv4090725577 #yiv4090725577 -- #yiv4090725577ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4090725577
#yiv4090725577ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4090725577
#yiv4090725577ygrp-mkp #yiv4090725577hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv4090725577 #yiv4090725577ygrp-mkp #yiv4090725577ads
{margin-bottom:10px;}#yiv4090725577 #yiv4090725577ygrp-mkp .yiv4090725577ad
{padding:0 0;}#yiv4090725577 #yiv4090725577ygrp-mkp .yiv4090725577ad p
{margin:0;}#yiv4090725577 #yiv4090725577ygrp-mkp .yiv4090725577ad a
{color:#0000ff;text-decoration:none;}#yiv4090725577 #yiv4090725577ygrp-sponsor
#yiv4090725577ygrp-lc {font-family:Arial;}#yiv4090725577
#yiv4090725577ygrp-sponsor #yiv4090725577ygrp-lc #yiv4090725577hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4090725577
#yiv4090725577ygrp-sponsor #yiv4090725577ygrp-lc .yiv4090725577ad
{margin-bottom:10px;padding:0 0;}#yiv4090725577 #yiv4090725577actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4090725577
#yiv4090725577activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4090725577
#yiv4090725577activity span {font-weight:700;}#yiv4090725577
#yiv4090725577activity span:first-child
{text-transform:uppercase;}#yiv4090725577 #yiv4090725577activity span a
{color:#5085b6;text-decoration:none;}#yiv4090725577 #yiv4090725577activity span
span {color:#ff7900;}#yiv4090725577 #yiv4090725577activity span
.yiv4090725577underline {text-decoration:underline;}#yiv4090725577
.yiv4090725577attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv4090725577 .yiv4090725577attach div a
{text-decoration:none;}#yiv4090725577 .yiv4090725577attach img
{border:none;padding-right:5px;}#yiv4090725577 .yiv4090725577attach label
{display:block;margin-bottom:5px;}#yiv4090725577 .yiv4090725577attach label a
{text-decoration:none;}#yiv4090725577 blockquote {margin:0 0 0
4px;}#yiv4090725577 .yiv4090725577bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv4090725577
.yiv4090725577bold a {text-decoration:none;}#yiv4090725577 dd.yiv4090725577last
p a {font-family:Verdana;font-weight:700;}#yiv4090725577 dd.yiv4090725577last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4090725577
dd.yiv4090725577last p span.yiv4090725577yshortcuts
{margin-right:0;}#yiv4090725577 div.yiv4090725577attach-table div div a
{text-decoration:none;}#yiv4090725577 div.yiv4090725577attach-table
{width:400px;}#yiv4090725577 div.yiv4090725577file-title a, #yiv4090725577
div.yiv4090725577file-title a:active, #yiv4090725577
div.yiv4090725577file-title a:hover, #yiv4090725577 div.yiv4090725577file-title
a:visited {text-decoration:none;}#yiv4090725577 div.yiv4090725577photo-title a,
#yiv4090725577 div.yiv4090725577photo-title a:active, #yiv4090725577
div.yiv4090725577photo-title a:hover, #yiv4090725577
div.yiv4090725577photo-title a:visited {text-decoration:none;}#yiv4090725577
div#yiv4090725577ygrp-mlmsg #yiv4090725577ygrp-msg p a
span.yiv4090725577yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4090725577
.yiv4090725577green {color:#628c2a;}#yiv4090725577 .yiv4090725577MsoNormal
{margin:0 0 0 0;}#yiv4090725577 o {font-size:0;}#yiv4090725577
#yiv4090725577photos div {float:left;width:72px;}#yiv4090725577
#yiv4090725577photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv4090725577
#yiv4090725577photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4090725577
#yiv4090725577reco-category {font-size:77%;}#yiv4090725577
#yiv4090725577reco-desc {font-size:77%;}#yiv4090725577 .yiv4090725577replbq
{margin:4px;}#yiv4090725577 #yiv4090725577ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv4090725577 #yiv4090725577ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4090725577
#yiv4090725577ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4090725577
#yiv4090725577ygrp-mlmsg select, #yiv4090725577 input, #yiv4090725577 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv4090725577
#yiv4090725577ygrp-mlmsg pre, #yiv4090725577 code {font:115%
monospace;}#yiv4090725577 #yiv4090725577ygrp-mlmsg *
{line-height:1.22em;}#yiv4090725577 #yiv4090725577ygrp-mlmsg #yiv4090725577logo
{padding-bottom:10px;}#yiv4090725577 #yiv4090725577ygrp-msg p a
{font-family:Verdana;}#yiv4090725577 #yiv4090725577ygrp-msg
p#yiv4090725577attach-count span {color:#1E66AE;font-weight:700;}#yiv4090725577
#yiv4090725577ygrp-reco #yiv4090725577reco-head
{color:#ff7900;font-weight:700;}#yiv4090725577 #yiv4090725577ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv4090725577 #yiv4090725577ygrp-sponsor
#yiv4090725577ov li a {font-size:130%;text-decoration:none;}#yiv4090725577
#yiv4090725577ygrp-sponsor #yiv4090725577ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv4090725577
#yiv4090725577ygrp-sponsor #yiv4090725577ov ul {margin:0;padding:0 0 0
8px;}#yiv4090725577 #yiv4090725577ygrp-text
{font-family:Georgia;}#yiv4090725577 #yiv4090725577ygrp-text p {margin:0 0 1em
0;}#yiv4090725577 #yiv4090725577ygrp-text tt {font-size:120%;}#yiv4090725577
#yiv4090725577ygrp-vital ul li:last-child {border-right:none
!important;}#yiv4090725577
