Jak utworzyć adresy URL w programie Excel na podstawie danych w innej komórce?

Question

Rozważmy następujący arkusza Excel:

 A    B      C 
1 ASX:ANZ  ANZ:ASX  http://www.site.com/page?id=ANZ:ASX 
2 DOW:1234  1234:DOW  http://www.site.com/page?id=1234:DOW 
3 NASDAQ:EXP EXP:NASDAQ http://www.site.com/page?id=EXP:NASDAQ 

trzeba wzór na B i kolumnę C. W kolumnie B potrzebuję, aby wartości kolumny A zostały podzielone na :, a dwie części wynikowe do odwrócenia, zobacz trzy przykłady. W kolumnie C potrzebuję, aby wynik z B został dodany do (wydrukowanego) adresu URL (http://www.site.com/page?id=) w celu utworzenia łącza.

Kto może mi pomóc? Twoja pomoc jest bardzo cenna!

Answer 1

W porządku. Zwykle nie próbuję podawać łyżką odpowiedzi, ale proszę bardzo.

W B:

=MID(A1, FIND(":", A1, 1)+1, LEN(A1) - FIND(":",A1,1)) & ":"&MID(A1,1,FIND(":",A1,1)-1) 

w C:

=HYPERLINK("http://www.site.com/page?id="&B1) 

Answer 2

=hyperlink("http://www.site.com/page?id="&B1) *english version * 

Answer 3

Pętla wygląda coś jak jego:

Dim row As Integer 
Dim snumber As Variant 
Dim TestCell As String 
Dim lastcell As Integer 

Sheets("data").Select 


lastcell = Sheets("data").Cells(Rows.Count, "A").End(xlUp).row 

For row = 1 To lastcell 
    TestCell = "A" & row 
    snumber = Range(TestCell).Value 
    If snumber <> "" And snumber <> "0" Then 
     Range(TestCell).Select 
     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ 
     "url goes here", TextToDisplay:=snumber 
    End If 
Next row