VBAでハイパーリンクの表示とエラーハンドリングの方法
- Excel VBAを使用して、ハイパーリンクの表示とエラーハンドリングを行う方法について詳しく説明します。
- ハイパーリンクの表示については、Cellsオブジェクトを使用してハイパーリンクのアドレスを表示することができます。
- また、ハイパーリンクのないセルの場合にはエラーハンドリングを行い、次のセルの作業に進むことができます。
- ベストアンサー
ハイパーリンクの表示で質問の続きです。
これで大丈夫かな？ Sub test() Dim i As Long For i = 1 To Range("A65536").End(xlUp).Row Cells(i, 1).Hyperlinks(1).TextToDisplay = Cells(i, 1).Hyperlinks(1).Address Cells(i, 2).Value = Cells(i, 1).Hyperlinks(1).Address Next i End Sub ------------------- 有難うございました。完璧ですが、 ハイパーリンクのないセルのところでエラーになります。 ハイパーリンクのないセルは無視（エラーを無視）して次のセルの作業を指示したいのですが、・・・お願いします。 しばらくVBAを離れていまして思い出せません。すみません。
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
細かいところまでこだわりたいのなら On Error GoTo Err でエラー発生時に分岐させて処理を行うか 単純に On Error Resume Next で無視して続行でもかまわないかと思います。
関連するQ&A
- Ａ列の最終行までハイパーリンクを付けたい
Ａ列の最終行までハイパーリンクを付けたいのですがコードがわかりません。 Sub test() Dim i As Long For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row 'ハイパーリンクにするコード Next i End Sub まではわかりました。 表示文字列もＵＲＬもセルに入ってる値にしたいです。 ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAで列を探して最終行までハイパーリンクを付けた
Ａ列に URL http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ が入ってる場合は、 Sub Sample1() Dim R As Range For Each R In Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row) ActiveSheet.Hyperlinks.Add Anchor:=R, Address:=R.Value Next End Sub でハイパーリンクを付けられますが、 URL列がＡ列じゃない場合の応用の聞かせ方がわかりません。 場合によっては、画像のようにＢ列であったりＣ列であったりします。 なので Dim C As Long C = Cells.Find(What:="URL", LookAt:=xlWhole).Column で列番号を取得して、ループさせようと思ったのですが、 For Each R In Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row) の部分でどうすればいいのかわかりません。 range表記ではなくcells表記にすればいいような気がしますがどうやって改造すればいいでしょうか？ あと、この場合はForEachではなくDoloopやForNextを使った方が良いのでしょうか？
- ベストアンサー
- オフィス系ソフト
- excel2000vba ハイパーリンク
excel2000のＶＢＡのプロシージャを教えてください。 写真にあるとおり、sheet1の Ａ１からＡ２００セルまでに、 フルパスのアドレス、０、空白 が入っています。 ここで、フルパスが入っているセルを 下記の条件でハイパーリンクに置きかえたい。 １．フルパスの入っているセルをハイパーリンクのセルに変更する。 ２．ハイパーリンクは、ハイパーリンクでも、ハイパーリンク関数でもいい ３．そのフルパスをハイパーリンクのリンク先アドレスにする。 ４．表示文字列を ★ としたいです。 また、０が入っているセルは、空白に変更させたい。 以上がやりたいことです。そして下記プロシージャでトライしてみましたがエラーとなりうまくいきません。 プロシージャの修正もしくは、最適なプロシージャがあれば教えて欲しいです。 よろしくお願いします。 Sub test() Dim trange As Range Dim i As Long For i = 1 To 200 trange = ("A" & i) If trange.Value = "" Or "0" Then trange.Value = "" Else Worksheets("Sheet2").trange.Hyperlinks.Add anchor:="★", Address:=trange.Value End If Next i End Sub
- ベストアンサー
- オフィス系ソフト
- 【エクセル】VBAでハイパーリンクそうさ
VBAでハイパーリンクのマクロを組んでいます。 A列にホームページ名が50行（シートによってまちまち）くらい並んでいて、 B列に、それに対応するURLが記入されています。B列は空白のところがちらほ らあります。 A列に、A列の表示（ホームぺジ名）のまま、B列のURLでハイパーリンクを張りたい です。リンクは貼れたんですが、ホームページ名がどうやれば表示できるかわかり ません。教えてくださいお願いします。 ダメダメですが、一応自分で書けたところまでを載せておきます。 Sub ハイパーリンク() Dim i As Integer Dim j As Integer j = 50 For i = 1 To j Sheets("Sheet1").Select Cells(i , 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ Cells(i , 2), TextToDisplay:="" Next i End Sub としました。
- ベストアンサー
- オフィス系ソフト
- エクセルのハイパーリンクで
いつもお世話になります。 昨日、エクセルで、あるマスターブック内のシートのコピーをサブブックにコピーし、マスターブックの一覧内にハイパーリンクで繋ぐというものを作成しましたが、このリンクだと、一覧内に書き込まれるハイパーリンクはフルアドレスの書き込みなります。 これを、ダイアログにて保存先、保存名をきいて保存したのちに、ハイパーリンク用として一覧に書き込むファイル名を聞いてくるようにしたいと思います。 昨日作ったモジュールは下記の通りです。 Sub Macro2() Dim strFile As String Dim i As Long Dim na As String Sheets(Array("シート1", "シート2", "シート3", "シート4")).Copy strFile = Application.GetSaveAsFilename(fileFilter:="エクセル ファイル (*.xls), *.xls") If strFile = "False" Then Exit Sub ActiveWorkbook.SaveAs strFile ActiveWorkbook.Close Sheets("一覧").Activate ActiveSheet.Hyperlinks.Add Anchor:=Range("B65536").End(xlUp).Offset(1), Address:=strFile, TextToDisplay:=strFile End Sub
- ベストアンサー
- オフィス系ソフト
- セルに入力されているアドレスでハイパーリンクを開き
http://officetanaka.net/excel/vba/tips/tips42.htm これを同じようにしてるのですが Sub test() Range("a1").Value = "http://www.goo.ne.jp/" Range("a1").Hyperlinks(1).Follow NewWindow:=True End Sub これだとエラーになるのですがどうしてでしょうか？ 「インデックスが有効範囲にありません。」 と言われます。 セルに入力されているアドレスでハイパーリンクを開きたいです。
- ベストアンサー
- オフィス系ソフト
- マクロが上手く組めない
各シートの特定のセル(1,25)にINDEXシートのハイパーリンクを 設定したいのですが、「オブジェクトが存在しません」 とエラーが表示されてしまっており、どのように修正すればいいのか 分からず、困っております。何故エラーが出たのかについてご教授頂けると幸いです。 私の書いたソースコード ********************************** ********************************** Sub INDEXLINK() Dim w As Worksheet Set w = Sheets("INDEX") Dim i As Long For i = 1 To ActiveWorkbook.Worksheets.Count Worksheets(i).Hyperlinks.Add Anchor:=Worksheets(i).Cells(1,25), Address:="", SubAddress:=w & "!c1", TextToDisplay:=w.Name Next End Sub
- ベストアンサー
- Visual Basic
- 【ＶＢＡ】ハイパーリンクでセルに文字を正しく表示できない。
【ＶＢＡ】ハイパーリンクでセルに文字を正しく表示できない。 ハイパーリンクを設定しセルに数値を表示させる場合、 セルにもともと文字が入力されていれば、数値に置き換わります（a)が、 もともと入力されているのが数値の場合、別の数値に置き換わりません(b)。 例) (a)Ａ１セルに「十」という漢字が入力されていたとします。 その時、下記コードを実行すればＡ１セルの値は「1」に変わります。 Sub test() ActiveSheet.Hyperlinks.Add _ Anchor:=Range("A1"), _ Address:="http://www.yahoo.co.jp/", _ TextToDisplay:="1" End Sub (b)一方、Ａ１セルに「10」という数値が入力されていたとします。 その時、上記コードを実行してもＡ１のセルの値は「10」のままです。 なぜなのでしょうか？ お分かりの方、教えてください。 尚、当方Excel2003を使用しております。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- ＶＢＡ 別シートからコピー貼付け（複数列）
別シートからコピー貼付け（複数列）をしたいのですが，同一シートからのコピー貼付けはネットから以下のマクロでできました。 しかし，別シートsheet1からsheet2ヘコピーで修正しましたが，「アプリケーション定義またはオブジェクト定義のエラーです。」となります。どなたかご教授よろしくお願いします。 修正したマクロ Sub sampel() Dim i As Long For i = 2 To Range("E65536").End(xlUp).Row Step 2 Sheets("sheet2").Range(Cells(i + 1, 2), Cells(i + 1, 85)).Value = _ Sheets("sheet1").Range(Cells(i, 5), Cells(i, 88)).Value Next i End Sub 参考としたマクロ http://www.excel.studio-kazu.jp/kw/20041208152106.html Sub sampel() Dim i As Long For i = 2 To Range("E65536").End(xlUp).Row Step 2 Range(Cells(i + 1, 2), Cells(i + 1, 85)).Value = _ Range(Cells(i, 5), Cells(i, 88)).Value Next i End Sub
- ベストアンサー
- Windows 7
- マクロを使ってハイパーリンクを作りたい
エクセルで下記作業をマクロで行いたいのですが、 途中までつくれたのですが、うまくいきません (1)sheet2をコピーしてsheet2（2）を作る (2)sheet2（2）のsheet名を任意の名前（例222）にかえる (3)sheｅｔ1の任意のセルから新しく作った222へハイパーリンクを張る 下記のようなマクロを作りましたが ハイパーリンクを張るとことでうまく行きません どうすればよいのでしょうか。。。 助けてください sub 新しいシートの追加() 'dim sheet名 as string シート名 = InputBox("新しいシート名を入力してください", "シート名の指定") If シート名 <> "" Then Sheets("Sheet2").Select Sheets("Sheet2").Copy After:=Sheets("Sheet2") ActiveSheet.Name = シート名 Sheets("Sheet1").Select Range("A3").End(xlDown).Offset(1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ シート名 TextToDisplay:=シート名 Selection.Hyperlinks(1).SubAddress = シート名 End If End Sub
- ベストアンサー
- その他MS Office製品
お礼
出来ました。有難うございます。