2016-12-30 3 views
1

これは私の最初のVBAプロジェクトです。以下のコードを使用して、「テンプレート」ワークシートをコピーし、A5から始まる「マスター」ワークシートのセルに基づいて名前を変更し、新しく作成したワークシートにセル値をコピーします。VBAハイパーリンクを使用したシートの作成

ワークシートを作成するのに今まで動作しています。ワークシートを作成するときに "マスター"からハイパーリンクを追加してA5の値を "243"とします「243」のワークシートに。私はいくつかの方法を試してみたが、それは仕事を得ることができませんでした。

が&ハッピーニューイヤーありがとう!

Sub AutoAddSheet() 

Dim MyCell As Range, MyRange As Range 

Set MyRange = Sheets("Master").Range("A5") 
Set MyRange = Range(MyRange, MyRange.End(xlDown)) 

Application.ScreenUpdating = False 

For Each MyCell In MyRange 
Sheets("Template").Copy After:=Sheets(Sheets.Count) 

With Sheets(Sheets.Count) 
    .Name = MyCell.Value 
    .Cells(2, 1) = MyCell.Value 

End With 

Next MyCell 
Application.ScreenUpdating = True 

End Sub 
+1

ようこそ。:) ** 1)**あなたはここで2つの質問をしました。一度に1つの質問に固執するのが一番です。だれでもそのように簡単です。あなたはこの質問を編集して、ハイパーリンクについて新しいものを投稿することができます(そしてより詳細な情報を提供してください)。** 2)** *しかし、「マスター」に別の列を追加すると、重複を確認しない* - より具体的にしてください。問題があなたのコードから何であるかははっきりしていません。 –

答えて

0

ハイパーリンクを作成するためには、単に次の行を追加します。あなたの前に:Next myCell

MyCell.Hyperlinks.Add Anchor:=MyCell, Address:="", SubAddress:="'" & MyCell.Value & "'!A1" 
+0

YowE3K - ありがとうございました! –

関連する問題