2016-04-28 11 views
1

は私が私の状況を説明してみましょうハイパーリンクされたセルを、参照すること エクセルVBAは -

は基本的には、ハイパーリンクを保持している私をクリックしてくださいと呼ばれるテキストが含まれている名前を「試験」によって識別されるセルがあります。 このセルをハイパーリンクとともに他のセルに参照したいと考えています。

例: - セル識別子名:テスト 名:ミー のハイパーリンクをクリック:www.google.com

をここで私は、そのハイパーリンク PS =テストと一緒に別のセルにテストを参照する場合にのみ値を与えますCell Identifier(Click Me) しかし、私は "Click Me with the Hyperlink"を望んでいます。

これは可能ですか?事前に

おかげ

Link

+0

私が質問を理解する限り、これは可能でなければなりません。それでも、このウェブサイトは無料のコードライティングサービスではありません。しかし、私たちは、同僚のプログラマー(および志望者)を**その**コードで支援することを熱望しています。 [良い質問をするにはどうすればいいですか?](http://stackoverflow.com/help/how-to-ask)のヘルプトピック、および[最小限の、完全で検証可能な例](http ://stackoverflow.com/help/mcve)。その後、達成したいタスクを完了するために、これまでに書いたVBAコードで質問を更新してください。 – Ralph

+0

ありがとうございます。 このコミュニティは初めてです。これをより良いアンケートにするために、これらのリンクを素早く見てみましょう。 –

+0

あなたはそれを少し説明できますか?私は文脈を得ることができませんでした。 –

答えて

0

はこれを試してみてください:

Sub CopyHyperlinks() 
    Dim Source As Range 
    Dim Destination As Range 
    Dim SearchRange As Range 

    Set SearchRange = Sheets(1).Range("A1:A5") '---> set your range here 
    Set Source = SearchRange(1, 1) 
    Set Destination = Sheets(1).Range("B1") '---> range will be copied here 

    For Each Source In SearchRange 
     If Source.Hyperlinks.Count > 0 Then 
      Destination.Hyperlinks.Add Destination, _ 
       Source.Hyperlinks(1).Address, , , Source.Text 
     End If 
     Set Destination = Destination(2, 1) 
    Next Source 
End Sub 

hereからこれを手に入れました。