Re: [belajar-excel] Array

[siti Vi]

terlampir:  'belajar-excel_ARRAY_siti.xls

Sub MakroArray()
' dari siti
' penjelasan akan disusulkan, bila diperlukan.
   
   Dim My1st_Array()     ' variable array, dimensi belum ditetukan
   Dim n As Integer      ' variable pencacah loop
   Dim nData As Integer  ' variable pengingat jumlah data
   
   With Sheet1.Range("B4:B13")
      nData = .Rows.Count
      ReDim My1st_Array(1 To nData)
      
      For n = 1 To nData
        My1st_Array(n) = .Cells(n)
      Next n
      
      For n = 1 To UBound(My1st_Array)
        .Cells(nData - n + 1, 2) = My1st_Array(n)
      Next n
   End With

End Sub


--------------------------------------------------------------------------------

  ----- Original Message ----- 
  From: siti Vi 
  To: belajar-excel@yahoogroups.com 
  Sent: Wednesday, February 03, 2010 3:24 PM
  Subject: Re: [belajar-excel] Array


  begini saja..

  kita biking "soal"
  lalu kita kirim jawaban versi masing masing member, termasuk PTI-SOR
  (nama anda sulit; mau dipangil dengan penggalan yg mana??)

  bahan:
  di sheet1 ada sekolom data, pada range B4:B13
  data bertype string (nama cewek cewek cakep..)

  tugas:
  1
  salinlah  semua data di range tsb ke sebuah array 1 dimensi
  namakan variable Array tsb dengan 'My1st_Array'
  2
  Kemudian 'tuangkan kembali' isi array tsb ke sheet1, pada kolom 
  di sebelah kanan data awal; tetapi dalam urutan terbalik. 
  (data yg terbawah menjadi teratas, vv )

  hasil akhir yg diharapkan:
  di sheet1, pada kolom C4:C13 tertulis data seperti data di B4:B13
  tetapi dlm urutan terbalik.

  dari jawaban-jawaban members lain (mudah mudahan ada yg sedang legaa....) 
  diharapkan kita dapat pelajari " what / why/ how / when" sebuah array
  walau untuk tahap sekarang ini masih bentuk yg paling sederhana.

  agar mudah di'menej', workbook lampiran dari para penjawab hendaknya
  diberi nama tambahan misalnya dari  siDoel = belajar-excel-ARRAY_Doel.xls



------------------------------------------------------------------------------
  ----- Original Message ----- 
  From: Posi, Yugustin (PTI-SOR) 
  Sent: Wednesday, February 03, 2010 1:21 PM

  Oke dech. J
  Bapak/Ibu terimakasih.
  Sudah dibaca tapi belum ngerti he..he..
  Sepertinya akan lebih ngerti kalu ada file contoh penggunaan array dari para 
Master J
  Salam,
  Gusti

belajar-excel_ARRAY_siti.xls
Description: MS-Excel spreadsheet