• 締切済み
  • 困ってます

vbaでのハイパーリンク

G1セルにURLが入力されており、そのURLをハイパーリンクにしたいです。下のG2からずっとURLが入っており同じ処理を記入がなくなるまで繰り返し行いたいです。どのような式で行えるでしょうか?なかなかうまくいかずお力添えいただきたいです。

共感・応援の気持ちを伝えよう!

  • 回答数5
  • 閲覧数68
  • ありがとう数1

みんなの回答

  • 回答No.5

VBAを使わずとも Hyperlink関数でできますよ。

共感・感謝の気持ちを伝えよう!

関連するQ&A

  • Excel2013ハイパーリンク

    他のブックでハイパーリンクを無効にしたところ、 別のブックでもハイパーリンクが有効にならなくなりました。 URLをセルに入れて、ハイパーリンクの挿入を開き、アドレスを記入しないといけなくなってしまいました。 それまではキーボードのF2を押したらハイパーリンクが有効になってたのですが、 今は、キーボードのF2を押してもリンクの部分がハイパーリンクになりません。 リンクをExcelのセルに記入した後、F2を押したらハイパーリンクするようにしたいです。

  • ハイパーリンクのリンク先がおかしい。

    Excel Office 365を利用しています。 ハイパーリンクのリンク先がおかしくなります。 例えば、AmazonのASINから商品ページへのハイパーリンクを作ります。 B1セルに http://www.amazon.co.jp/exec/obidos/ASIN/を記入。 A2セルから下にASINを入れていき、B2セルにB1セルとA2セルを合体させ(=$B$1&A2)表示。 C2セルにハイパーリンクでリンクを作ります。(=HYPERLINK(B2,$C$1))としました。(C1セルにはAmazonリンクと記入)   そうするとC2セルにリンクができて、クリックするとAmazonの商品ページに飛びます。   その下のセルの計算式は、B2セル、C2セルを選択し右下の+マークを下にコペーしていきました。 しかし、C3セルから下のリンクを開くとどれもC2のリンク先になっています。 B3セルにはA3セルのASINでURLができていて、C3セルもちゃんとB3がリンク先になっています。   なぜ記述が合っているのにリンク先が違うのか、どうしたらちゃんとリンクされるのかがわかりません。 詳しい方、ご教示いただけるとありがたいです。 よろしくお願いします。

  • EXCELのハイパーリンク

    EXCELのハイパーリンクについて教えて下さい。 EXCELにて700件程のハイパーリンクを作成しようと考えていますが数が多いため1件ずつハイパーリンク先を設定するには多くの時間と労力を要しますのであらかじめローカルフォルダ名とファイル拡張子を入力しておき、ファイル名だけを入力すればハイパーリンクを自動設定する方法はないでしょうか? お手数ですがお知恵をお貸し下さい。宜しくお願いします。 例) ・セルA1にローカルフォルダ名又はURLの一部 ・セルB1にファイル名又はURLの一部 ・セルC1にファイル拡張子又はURLの一部 これらを結合(A1&B1&C1)したハイパーリンク先をセルD1に表示すると共にセルD1をローカルフォルダ内のファイル又はサイトを自動的にハイパーリンク設定させる。

  • 回答No.4
  • kkkkkm
  • ベストアンサー率58% (955/1621)

共感・感謝の気持ちを伝えよう!

質問者からのお礼

すみません。教えていただいたものでできました。わたしの入力ミスでした。大変申し訳ありません。ありがとうございました。

  • 回答No.3
  • kkkkkm
  • ベストアンサー率58% (955/1621)

実際のコードを見せてください。

共感・感謝の気持ちを伝えよう!

  • 回答No.2
  • kkkkkm
  • ベストアンサー率58% (955/1621)

> しかしhyperlinksのところで構文エラー 以下を削除して ', TextToDisplay:= 個々のセルに表示したい何かがあればここに記載して「']を外す 以下のようにしたらどうなりますか For i = 1 To .Cells(Rows.Count, "G").End(xlUp).Row .Hyperlinks.Add Anchor:=.Cells(i, "G"), _ Address:=.Cells(i, "G").Value

共感・感謝の気持ちを伝えよう!

質問者からの補足

やはり構文エラーとでてしまいます。

  • 回答No.1
  • kkkkkm
  • ベストアンサー率58% (955/1621)

以下で試してみてください。 URLのあるセルにそのままハイパーリンクしてますが別のセルの列にしたい場合は Anchor:=.Cells(i, "G") の"G"を変更してください。 Sub Test() Dim i As Long With Sheets("Sheet1") For i = 1 To .Cells(Rows.Count, "G").End(xlUp).Row .Hyperlinks.Add Anchor:=.Cells(i, "G"), _ Address:=.Cells(i, "G").Value _ ', TextToDisplay:= 個々のセルに表示したい何かがあればここに記載して「']を外す Next End With End Sub

共感・感謝の気持ちを伝えよう!

質問者からの補足

ありがとうございました。しかしhyperlinksのところで構文エラーとなってしまいました。

関連するQ&A

  • 過去のハイパーリンクに勝手に飛ぶ

    Excel2013で何も書き込んでないシートをコピーして作ったもので、 何も書き込んでないセルに書き込もうとするとだいぶ前に違うブックでつくった ハイパーリンクに勝手に飛んで、セルに記入ができません。 右クリックででる数式と値の削除をしたのですが削除されません。 他のハイパーリンクがはいってないようなセルをクリックして刷毛マークみたいなのでそこに 入れてもそれもなりません。 他のハイパーリンクが入ってないようなセルをコピペしてもそれもなりません。 この昔のハイパーリンクを削除する方法を教えてください。

  • エクセル・ハイパーリンクの関数処理

    エクセル・ハイパーリンクの関数処理 Excel 2007を使っています。 セルC列にハイパーリンクを含むデータが並んでいます。 このURLをD列に取り出したいのですが、 関数処理で出来ますか。出来るのでしたら教えてください。 出来ない場合は、マクロでも結構です。お願いします。

  • EXCEL上URLデータに一括ハイパーリンク

    他のデータベースからEXCEL2003シートに移した URLデータが2万件ほどあります。 現状では、そのURLの入った2万個のセルがハイパーリンク化 されていません。 すべてのセルを一括でハイパーリンク化する方法はないでしょうか。 入力オートフォーマットの設定で、 現在は、一旦1件ずつ入力状態にしたあとエンターすると 自動でハイパーリンク化するのですが、 件数が多いのでとてもやりきれないのです。 (ハイパーリンクを一括で外す方法は見つかったのですが、 その逆がわかりません・・・)

  • エクセルVBA ハイパーリンクを別ブックに

    皆さんこんにちは。 エクセル2013使用のVBA初心者です。 ふと「出来るのかな?」と思ったことを質問しておりますので とんちんかんな内容でしたらごめんなさいです。 現在book1.xlsmのユーザーフォームで記入した内容を book2.xlsxの特定のセルに反映させるマクロがあります。 book2にハイパーリンクを施してデータが格納してあるフォルダーに 飛ぶようにしたいのですが 直接book2に個人個人が記入すると誤ってデータを消されてしまう可能性があるので 出来るだけbook2は閲覧とハイパーリンクをクリックするのみにしたいのです。 book1のユーザーフォームに (1)ハイパーリンク先を指定するテキストボックスのようなものを設ける (2)book2の特定のセルに(1)で記入したハイパーリンクを反映させる という事は可能ですか?

  • ハイパーリンクが勝手について困ってます(>_<)

    EXCELで[メルアド]や[URL]を入力すると 自動でハイパーリンクがつきますよね? あれ、つかないように細工したいんですが どなたかご存知内ですか(?_?) 一応入力前に、セルの書式設定で『文字列』で指定してもダメ、データの入力規則で日本語入力を『半角英数字』や『オフ』にしてもムダ・・・なんとかしたい~

  • VBA ハイパーリンク

    エクセル 2002使用です。 セルに、HPのアドレスを貼り付けるため 挿入→ハイパーリンク→アドレス入力 で設定しました。 この作成したブックを不特定多数の人に配布するのですが、この方法で以前のエクセルのバージョンでも大丈夫でしょうか? テストできる環境にあらず申し訳ないですが、よろしくお願いします。

  • エクセルのハイパーリンクについて教えて下さい

    エクセルのあるセルにハイパーリンクの設定でURLがリンクしています。そのセルの表示にはURLではなく、いろいろな名前が表示されているのですが、このセルのURLのみを一発で読み取る方法はないのでしょうか? 例えば、違うセルにURLのみをコピーする関数など、 あったら教えて下さい。 今は1回1回ハイパーリンクの編集を開いて行っているのですが、非常に数が多いため効率を上げたいと思っています。 まだまだ、素人でよく分からないことが多いのですが、 どうぞよろしくお願いします。

  • エクセルVBA 画像にハイパーリンク

    VBA初心者です。 A1からA100まで、サムネイル画像があります。 B1からB100までのセルに、ハイパーリンクURLがあります。 このハイパーリンクURLを、A1からA100までのサムネイル画像(図の番号が順不同)にいれたいので、よい方法をご教授ねがいます。

  • エクセルのハイパーリンクについて

    エクセルに入力されたURL(リンクされていない)に、 一括でハイパーリンクをはることは可能でしょうか?? 例)   A列  http://○○○  http://△△△  http://□□□    ↓  上記のセルをすべて選択して、一括でハイパーリンク もちろん、一つ一つは可能ですが、実際は5000行ほどあります・・・ 唐突な内容ですが、よろしくお願い致します。

  • Excel VBAにてSUMIF関数の入力

    Excelのあるシートに以下の表があります。     E列 ・・・・・・ F列 ・・・ G列 17行 2008/1/5 ・・ 売上 ・ 1,500 18行 2008/2/10 ・・売上 ・ 2,100 19行 2008/3/11 ・・売上 ・ 1,700 20行 2008/3/18 ・・売上 ・ 1,000 21行 2008/4/1 ・・・売上 ・ 2,500 23行 2008/3/15 ・・・・・・・ 3,500 この場合G23セルには=SUMIF(E17:E21, ">" & E23,G17:G21) という式が入っており、結果的に3,500という数字が見えます。 しかし、このG23セルにマクロにて式を書込み同じ3,500という 値を出したいのですが、マクロ上では何と記述すれば同じに なるのか教えて下さい。 例えばrange("G23").Fomula= "=SUMIF(E17:E21, ">" &E23,G17:G21) と記述してもエラーになってしまいます。