Hi Mike,
>> Srngaddr = "$" sheets("sheet1").range("A1").value "$2"
1. sRngAddr kalau gak salah bertipe string
2. sRngAddr harus berisi teks alamat cell
3. untuk menyambung teks (concatenate) butuh ampersand
4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
huruf kapital
5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
sRngAddr
>> Srngaddr = cells(2,sheets("sheet1").range("A1").value)
1. sRngAddr kalau gak salah bertipe string
2. sRngAddr harus berisi teks alamat cell
3. Property Cells milik application adalah bertipe range, sehingga tidak
mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
huruf kapital atau indeks nomor kolom Excel
5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
sRngAddr
Wassalam,
Kid.
2012/11/19 <[email protected]>
> **
>
>
> ** Hi Mr Kid,
>
> Saya coba melakukan perubahan pada srnaddr sehingga mengacu kepada sebuah
> cell
>
> Saya ubah menjadi
> Srngaddr = "$" sheets("sheet1").range("A1").value "$2"
>
> Atau
>
> Srngaddr = cells(2,sheets("sheet1").range("A1").value)
>
> Tapi ga bisa
> ------------------------------
> *From: * "Mr. Kid" <[email protected]>
> *Sender: * [email protected]
> *Date: *Wed, 14 Nov 2012 17:26:00 +0700
> *To: *<[email protected]>
> *ReplyTo: * [email protected]
> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>
>
>
> Sama-sama.
>
> Jangan lupa, pastikan bahwa sRngAddr benar-benar berisi alamat cell pojok
> kiri atas si shape. Kadangkala, si shaope tampak sudah masuk di range D2
> padahal masih di D1 atau malah C1.
>
> Wassalam,
> Kid.
>
> 2012/11/14 <[email protected]>
>
>> **
>>
>>
>> ** Luar biasa mr kid, udah browse google dr pagi akhirnya nemu nya
>> disini. Thanks
>> ------------------------------
>> *From: * "Mr. Kid" <[email protected]>
>> *Sender: * [email protected]
>> *Date: *Wed, 14 Nov 2012 16:55:46 +0700
>> *To: *<[email protected]>
>> *ReplyTo: * [email protected]
>> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>>
>>
>>
>> Coba dengan prosedur berikut :
>>
>> public sub SelectShapeAh()
>> dim shp as shape
>> dim sRngAddr as string 'var ini bisa jadi input parameter agar
>> lebih luwes
>>
>> srngaddr = "$D$2"
>> sheet1.activate
>> for each shp in sheet1.shapes
>> if shp.topleftcell.address=srngaddr then
>> shp.select
>> endif
>> next shp
>> end sub
>>
>> Wassalam,
>> Kid.
>>
>> 2012/11/14 <[email protected]>
>>
>>> **
>>>
>>>
>>> Hi all,
>>>
>>> Saya sedang membuat form dimana user akan menginput sebuah image ke
>>> dalam suatu cell.
>>> Let's say semua image tersebut ditempatkan di sheet 1 row 2, bagaimana
>>> jika ingin men-select image yang ada di cell D2 saja?
>>>
>>> _
>>>
>>>
>>
>
>
