bisa, mohon bantuannya mr. toby --- Mods --- File lampiran yang melebihi 250KB dilepas dari email. Silakan melampirkan ulang file yang diusahakan maksimum 250KB dengan cara me-reply email ini. ---------------
Pada Kamis, 4 Juni 2015 11:40, "Toby kenzo [email protected] [belajar-excel]" menulis: Dear Nisa, Bisa di kirim ngga file excelnya.. TerimaKasih. Pada Kamis, 4 Juni 2015 2:35, "Nisa Khairunnisa [email protected] [belajar-excel]" 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
