Results 1 to 6 of 6
Thread: Excel
Hybrid View
-
6th May 2013 15:11 #1Registered User
Join Date: Nov:2005
Location: Sofia
Posts: 118
Excel
"http://www." Excel . , , .
-
6th May 2013 15:17 #2
Excel insert > hyperlink Firefox .
Cntrl+K"you're doing something right when it takes a drawing machine to put up your pc gaming rig"
, .
If you have the key of success...remember to make a copy of it.
-
6th May 2013 15:21 #3Registered User
Join Date: Nov:2005
Location: Sofia
Posts: 118
, 1000 , Excel , .
-
7th May 2013 18:28 #4
copy/paste Excel ( , Word, ..) "". "" , F2+Enter. 10--20 , 1000+ . , - , .
!
-
7th May 2013 18:33 #5: XaMaB; . 0.42
In God we Trust (all others must submit a X.509 certificate). , ()
-
8th May 2013 22:42 #6Registered User
Join Date: Nov:2005
Location: Sofia
Posts: 118
. -, . .

Sub MacroLinks()
Dim I, J, FirstRow, LastRow, FirstColumn, LastColumn As Integer
Dim MyRange As Range
Set MyRange = Selection
FirstRow = MyRange.Row
LastRow = MyRange.Rows.Count + FirstRow - 1
FirstColumn = MyRange.Column
LastColumn = MyRange.Columns.Count + FirstColumn - 1
For I = FirstColumn To LastColumn
For J = FirstRow To LastRow
Cells(J, I).Select
If Len(Cells(J, I).Value) > 0 Then
Selection.Copy
Application.CutCopyMode = False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:=Cells(J, I).Value, TextToDisplay:=Cells(J, I).Value
End If
Next
Next
End Sub




Reply With Quote
7th May 2023, 16:02 in PC