質問: ExcelのVBAについて。 ハイパーリンクのイロハ? アクティブセルを入力して、それをリンク先にB10セルにハイパーリンクを作りたいのですが、textboxから迄しかできず、、自動的にできません。自動的に割り振り出来るようにするにはどうしたらよいでしょうか? 参考やヒントなどもよろしくお願いします。
回答: Linkの起点はセルB10としています。合ってますか? アクティブセルを直接リンク先としてセットしたいならば、標準モジュールに下記マクロを貼り付け、リンク先としたいセルを選択して実行します。 Sub LinkTest() Dim adr1 As String '// ここから Dim adr2 As String '// ここへ adr2 = ActiveCell.Address adr1 = "B10" Range(adr1).Activate ActiveSheet.Hyperlinks.Add _ Anchor:=Selection, _ Address:="", _ SubAddress:="Sheet1!" & adr2, _ TextToDisplay:="リンク" End Sub フォームから実行する場合は、上記を貼り付けた後、フォームのコマンドボタンのクリックイベントに、 Private Sub CommandButton1_Click() On Error GoTo ErrorTrp If TextBox1.Text <> "" Then Range(TextBox1).Activate Call LinkTest End If Exit Sub ErrorTrp: MsgBox "アクティブセルの入力がおかしいです。" End Sub を貼り付けます。この場合、アクティブセルというより、リンク先セル? 質問を100%理解していないかもしれません。ご参考に。 当方、win10、Excel2010です。 ! 画像をクリックしてイメージを拡大