Temen2 Cara lain untuk mengajak orang gabung di xl-mania
Jalankan code berikut:
'===============================
Sub BelajarExcel()
Dim arrAngka As Variant, i As Long, x As Long, TxtVal As String
arrAngka = Array(88, 218.15, -429.2083, 252.7083, -58.2917, 4.6417, _
105, 228.1333, -438.1667, 256.625, -59.3333, 4.7417, _
111, 51.2, -93.3333, 53.3333, -12.1667, 0.9667, _
112, 302.3167, -524.5417, 281.125, -60.4583, 4.5583)
For i = 0 To UBound(arrAngka) Step 6
For x = 0 To 5
TxtVal = TxtVal & Chr(x * (x * (x * (x * (arrAngka(i + 5) * x +
arrAngka(i + 4)) + arrAngka(i + 3)) + arrAngka(i + 2)) + arrAngka(i + 1)) +
arrAngka(i))
Next x
Next i
MsgBox TxtVal
End Sub
'============================================
BelajarExcel.xls
Description: MS-Excel spreadsheet
