Re: ]] XL-mania [[ Nama cell, location file etc

1. 

vba sudah berperilaku spt itu tinggal kita maunya bgmana..

merekam lokasi cell ?  Cell yang mana, apa ndak ada kriterianya, misal yg sedang aktip ?

atau cell "yg sedang di apakan" ? dicatatnya di mana, notasi pencatatannya bgmana ?

misalnya cell aktif, lokasinya mau dicatat di Sheet100, Range A1, notasi R1C1

Sheet100.Range("A1") = Activecell.Address(false,false)

mau mencatat identitas cell yg jika dilihat dari F16 jarak dan letaknya di  

10 cell ke kanan, 100 cell kebawah, dan hasil pengamatan di caat di A2

Range("A2") =  Range("F16").cells(100,10).address(false,false)

2.

(1) Lokasi File

Jika yg pak Pri maksud dengan FILE adalah workbook (file spreadsheet excel yg sedang terbuka) 

dan sedang aktif

Lokasi file = Thisworkbook.Path

atau jika workbook nya sudah diketahui identitasnya (kita katakan sbg "Tertentu")

Lokasi File = Workbook.Tertentu.Path

dan seterusnya

(2)  Kapasitas Disk ??

Gunakan "Scripting.FileSystemObject" untuk menunjuk fle yg dikehendaki

(file dapat dirujuk melalui ell nya!!)

Supaya jangan kepanjangan merujuk object,  set dulu sebuah file

   Set FSO = CreateObject("Scripting.FileSystemObject")

   Set MyFile = FSO.GetFile(NamaFile_Lengkap_dengan_Pathnya)

setelah di dalam FSO dengan telah memiliki MyFile anda bebas melongkok kemana-mana, 

misal

MyFile.Drive.DriveLetter    adalah huruf dirive nya

Kapasaitasnya ?? gampang ..

MyFile.Drive..TotalSize  adalah yg and cari 

(satuannya byte !! untuk menjadikan MegaByte pak Pri harus membagi nya dengan 1024 pangkat 2

(3) dll   (???)

Wah ini bagian yg saya tidak dapat menjawabnya at all

jika yg dimaksud dengan dll itu adalah dinamic link library, apa dong hubungannya dengan cell?

(dlm kasus ini : cell 'kan yg menjadi pusat pembicaraan )

tetapi jika dll milik pak Pri ini adalah = "dan lain lain"

Waahhh.. pak Pri ndak seriyus nih.. Mosok tanya "dan lain lain" yg bisa diartikan :

apa saja yg ada mauk deh !!

Kalau begini lebih cocok Pak Pri beli buku saja, tapi memang harus keluar uang sih..

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

Lihat file terlampir 

cara menggunakannnya

1. buka workbook lampiran

2. buka beberapa workbook lain setiap workbook hendaknya dari lokasi folernya berbeda beda..

3. Klik salah satu cell di workbook LAIN

4. Jalankan makro di workbook lampiran dengan  ALt + F8  > Pilh nama makronya

    (ctv_AllAboutCell ) > tekan tombol RUN 

5. makro akan kembali ke / mengaktifkan sheet 1 workbook ex lampiran

6. lihat disitu sudah ada tabel yg menyajikan semua yg ingin diketahui pak pri

    (bahkan diberikan banyak bonus )

--------code list  ditulis di module standar..--------------

2011/4/25 Primadi <ppaspti@sumcosi.com>
>
> Dear Xl-mania,
>
> Maaf sebelumnya teman-teman, saya ada 2 pertanyaan.
>
> Pertanyaan 1.
>
> Formula apa yang kita pakai di VBA jika kita memilih suatu cell, lokasi cell tersebut terekam di VBA.
> Misal, waktu running suatu program kita memilih cell C50. Maka VBA akan menganggap itu cebagai Cell(50, 3).
> Jika memakai worksheet function(1, 0).select = kita memilih cell 1 baris dibawahnya. Tapi tidak memberikan VBA lokasi Cell tersebut.
>
> Pertanyaan 2.
> Bagaimana formula untuk menemukan
> 1.  Lokasi file
> 2.  Besarnya kapasitas disk (partisinya)
> 3.  dll
>
> Formula-formula tersebut untuk diketikkan di cell.
>
> Terima kasih.
> Best regards,
>
> Primadi