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 õàðäóåð