Copy Left / Mid / Right

  1. 5 bulan yang lalu

    manweljs_

    Apr 27 Terverifikasi + 5.020 Poin
    Di sunting 5 bulan yang lalu oleh manweljs_

    Dear all

    bagaimana ya script untuk copy sebagian nilai dari sebuah cell

    Sub copypartialofactivecell()
    Dim a As String
    
    Application.CutCopyMode = False
    On Error Resume Next
    a = Left(ActiveCell, 10)
    ' target = salin nilai a ke clipboard
    
    End Sub

    Thanks

    Mas @manweljs_

    Pastikan ada referensi ke pustaka Microsoft Forms Object melalui menu Tools » References...:

    -image-

    Demikian.

  2. manweljs_

    Apr 28 Terverifikasi + 5.020 Poin
    Di sunting 5 bulan yang lalu oleh manweljs_

    tambahan

    script yang dimaksud adalah kira-kira cara copy seperti gambar ini

    Untitled-1.jpg

    colek mas @Caton , mas @Aries

  3. Caton

    Apr 28 Terverifikasi Indonesia + 11.522 Poin

    Mas @manweljs_

    Coba gunakan objek DataObject, misalkan:

    ...
    Dim xDO As New DataObject
    Dim sText As String
    
    sText = Left(ActiveCell, 10)
    If Len(sText) Then
        '+-- Tes simpan nilai ke clipboard.
        xDO.SetText sText
        xDO.PutInClipboard
        '+-- Tes ambil nilai dari clipboard.
        xDO.GetFromClipboard
        Range("A1") = xDO.GetText(1)
    End If
    ...

    Selain itu ada cara yang lebih ribet, yakni pake WinAPI... :D

  4. manweljs_

    Apr 28 Terverifikasi + 5.020 Poin
    Di sunting 5 bulan yang lalu oleh manweljs_

    mas @Caton

    error mas di New DataObject

    Untitled-1.jpg

    sebenarnya sudah saya akali dengan menaruh nilai LEFT tersebut pada salah satu cell yang nganggur, namun saya pengen tahu caranya tanpa diakali begitu (^_^)/

  5. Caton

    Apr 28 Terverifikasi Jawaban Terpilih Indonesia + 11.522 Poin
    Di sunting 5 bulan yang lalu oleh Caton

    Mas @manweljs_

    Pastikan ada referensi ke pustaka Microsoft Forms Object melalui menu Tools » References...:

    -image-

    Demikian.

  6. manweljs_

    Apr 28 Terverifikasi + 5.020 Poin

    solved mas - tengkiu so much!

 

atau Mendaftar untuk ikut berdiskusi!