Excel 2010 VBA ke Hyperlink Active Cell, jadi itu akan mengarah ke lokasi persisnya dari saat sel itu ditempel dan dikirim dalam Outlook e-mail

1

Tujuan: Excel 2010 - VBA untuk Hyperlink Active Cell untuk dirinya sendiri, sehingga akan mengarah ke lokasi yang tepat di spreadsheet mulai dari saat sel itu disisipkan dan dikirim dalam email Outlook. Saya perlu menjaga isi sel Excel tetap utuh - tetap menampilkan apa pun yang saya miliki di dalamnya yang tidak terkait dengan hyperlink dll. Sel itu akan dikirim melalui email. Harus dapat mengklik sel dari pesan email Outlook dan meminta Hyperlink membuka spreadsheet dan memilih lokasi sel yang tepat pada spreadsheet itu. Satu-satunya elemen yang hilang adalah bagian Hyperlinking itu. Kode VBA saya memiliki bug di bawah ini (highlight kuning) bagian dengan Hyperlink. Maaf jika saya tidak menempelkan kode sesuai aturan - saya mungkin tidak memahaminya. Terimakasih atas bantuannya!

Sub H_Link_Cell_to_Self
Dim path As String
Dim sheet As String
Dim cell As String
path = Application.ActiveWorkbook.FullName
sheet = Application.ActiveSheet.Name
cell = Application.ActiveCell.Address
ActiveSheet.Hyperlinks.Add Range(Active.Cell), "path” & “\“ & “sheet” & “\“ & “cell"
End Sub
CoolAuto
sumber
Baris kode terakhir Anda memiliki tanda kutip ganda di sekitar variabel Anda. Itu harus ActiveSheet.Hyperlinks.Add Range (Active.Cell), path & “\“ & sheet & “\“ & cell
Twisty Impersonator
@ Twisty Masukkan itu dalam jawaban.
jcbermu

Jawaban:

0

Kode Anda terlihat bagus dengan pengecualian baris yang menambahkan hyperlink. Di sini Anda memiliki variabel Anda dikelilingi oleh tanda kutip ganda yang menyebabkan mereka ditafsirkan sebagai nilai literal bukan variabel.

Coba ini sebagai gantinya:

ActiveSheet.Hyperlinks.Add Range(Active.Cell), path & “\“ & sheet & “\“ & cell
Peniru Twisty
sumber
Diuji makro dengan kedua versi kode di bawah ini (hanya perbedaan antara, tanpa dan dengan "Aplikasi." Di muka). Active.cell, path, sheet, cell - semua mengenali lokasi yang tepat, namun mendapatkan "Run-time error '424': Objek diperlukan" ActiveSheet.Hyperlinks.Tambahkan Range (Active.cell), path & "\" & sheet & "\" & Aplikasi sel. ACTiveSheet.Hyperlinks.Add Range (Active.cell), path & "\" & sheet & "\" & cell
CoolAuto