Daritadi saya ngetik tanda ampersand di email ini ga muncul2.
Code nya berjalan dengan baik, tq dan sori kalo njelimet
-----Original Message-----
From: "Mr. Kid" <[email protected]>
Sender: [email protected]
Date: Mon, 19 Nov 2012 13:57:35
To: <[email protected]>
Reply-To: [email protected]
Subject: Re: [belajar-excel] Select image didalam sebuah cell
3. untuk menyambung teks (concatenate) butuh *ampersand*
Srngaddr = "$" & sheets("sheet1").range("A1").value & "$2"
>> kenapa nilai di A1 tapi hasilnya untuk baris 2 ya.. embuh lah... yang
tanya yang tahu duduk perkara dunia nyatanya.
3. Property Cells milik application adalah bertipe range, sehingga tidak
mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
Srngaddr = cells(2,sheets("sheet1").range("A1").value).address
Wassalam,
Kid.
2012/11/19 <[email protected]>
> **
>
>
> ** Lho kok, tanda "dan" tidak muncul ya
>
>
> Srngaddr = "$" "dan" sheets("sheet1").range("A1").value "dan" "$2"
> Tetep ga bisa ya. Boleh tolong dicontohin
> ------------------------------
> *From: * "Mr. Kid" <[email protected]>
> *Sender: * [email protected]
> *Date: *Mon, 19 Nov 2012 12:17:56 +0700
> *To: *<[email protected]>
> *ReplyTo: * [email protected]
> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>
>
>
> 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?
>>>>
>>>> _
>>>>
>>>>
>>>
>>
>
>
