Pak Heru,
Pakai yang ada di MSO saja ya...
Class nya adalah DataObject milik MS Forms 2. Jadi, pastikan sudah
menambahkan referensi library msforms 2.
Berikut langkahnya :
1. ke VBE (ALT F11)
2. menu Tools -> References -> cari Microsoft Forms 2.0 library -> centang
-> tekan OK
>> jika tidak menemukan dalam list :
menu Insert -> UserForm -> menu Tools -> References -> cek apakah
Microsoft Forms 2.0 library sudah tercentang
-> cari dan centang bila belum -> OK -> hapus UserForm yang dibuat
tadi bila tidak diperlukan dengan klik kanan UserForm pilih remove tekan Yes
>> jika tetap tidak bisa, maka cari di website microsoft untuk download
file fm20.dll, install dan register.
Mungkin juga bisa dengan menambah item yang diinstall melalui MSO
Setup
3. buat sebuah module dengan menu Insert -> Module
4. copas prosedur berikut :
Public Sub PakeClipboard()
Dim oDTObj As MSForms.DataObject
Dim sTeksClipboard As String
Set oDTObj = New MSForms.DataObject
'ambil blok yang akan digunakan saja, misal kirim saja atau ambil saja,
dsb
With oDTObj
'kirim
.SetText "Teksnya"
.PutInClipboard 'kirim ke clipboard
'ambil
.GetFromClipboard 'ambil object dari clipboard
sTeksClipboard = .GetText 'simpan properti text milik
object ke variabel
Debug.Print sTeksClipboard 'lihat isi variabel
'kirim banyak
.SetText "Teks pertama", "myTxt1" 'tata teks yang akan dikirim
.PutInClipboard 'kirim ke clipboard
.SetText "Teks kedua", "myTxt2" 'tata teks yang akan dikirim
.PutInClipboard 'kirim ke clipboard
'ambil banyak berdasar id format
.GetFromClipboard
Debug.Print .GetText("myTxt1"), .GetText("mytxt2") 'lihat isi
clipboard
'simpan ke variabel
sTeksClipboard = "Data pertama" & vbTab & ": " & .GetText("myTxt1")
& vbCrLf & _
"Data kedua" & vbTab & ": " & .GetText("myTxt2")
MsgBox sTeksClipboard, vbInformation, "Isi Variabel" 'lihat isi
variabel
End With
End Sub
5. coba run prosedur tersebut.
Wassalam,
Kid.
2012/12/7 Heru Safrudin <[email protected]>
> **
>
>
> **
> Dear Master,
>
> Bisakah kita mengambil nilai dari clipboard dan memasukkan ke dalam
> variable ?
>
> Mohon pencerahan dan contohnya
>
>
> _
>
>
