Results 1 to 6 of 6

Thread: Excel

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Nov:2005
    Location: Sofia
    Posts: 118

    Excel

    "http://www." Excel . , , .

  2. #2
    Registered User Bazikcho's Avatar
    Join Date: Mar:2010
    Location: Tau'ri - EU -
    Posts: 673
    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.

  3. #3
    Registered User
    Join Date: Nov:2005
    Location: Sofia
    Posts: 118
    , 1000 , Excel , .

  4. #4
    pimpirlit's Avatar
    Join Date: Mar:2004
    Location:
    Posts: 21,712
    copy/paste Excel ( , Word, ..) "". "" , F2+Enter. 10--20 , 1000+ . , - , .
    !

  5. #5
    XaMaB's Avatar
    Join Date: Nov:2001
    Location:
    Posts: 20,393
    : XaMaB; . 0.42

    In God we Trust (all others must submit a X.509 certificate). , ()

  6. #6
    Registered 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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |