Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Mayıs 2006 Çarşamba

Cell HyperLink Address



'Module1

Option Explicit
Dim i As Single
Dim Hücre As Range
Dim Adres As String

Sub HücreHyperLinkAdresi() '[Cell HyperLink Address]
On Error Resume Next
For i = 1 To 9
Adres = ""
Set Hücre = ThisWorkbook.Sheets(1).Cells((i + 1), 2)
Hücre.Select
Adres = "[HyperLink]: " & Selection.Hyperlinks(1).Address
If Adres = "" Then Adres = "[Link]: " & Selection.Formula
With Hücre.Offset(0, 1)
.ClearContents
.FormulaR1C1 = Adres
End With
Next i
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul