エクセルの学校：全文検索：Hyper Estraier：リンク

Results of 1 - 1 of about 6618 for リンク (0.004 sec.)

[[20190616083315]]: #score: 3107; @digest: 7b9aef01c93b9166a9a8b81794772d8f; @id: 79915; @mdate: 2019-06-17T01:11:05Z; @size: 5016; @type: text/plain; #keywords: 者2 (11284), イパ (9644), lastrow (9582), ーリ (8391), ＞γ (7112), ハイ (6901), パー (6144), 細デ (5334), 本情 (4753), 号等 (4272), 規入 (4214), 力() (3936), k3 (3221), リン (2771), ンク (2722), 書籍 (2430), hyperlink (2126), 日) (1884), ク先 (1531), ー貼 (1504), 象外 (1471), range (1461), 2019 (1444), clearcontents (1431), 返信 (1349), 話番 (1216), value (1156), 信あ (1086), 電話 (1062), ご返 (1016), （初 (1016), 初心 (1014); 『VBAでハイパーリンクが飛びません』（初心者2）
初めて質問させて頂きます。不手際があれば指摘して頂ければ幸いです。 Sub 新規入力() Dim LastRow As Long LastRow = Cells(Rows.Count, 2).End(xlUp).Row + 1 If LastRow = 7 Then Range("A" & LastRow).Value = 1 Else Range("A" & LastRow).Value = Range("A" & LastRow - 1).Value + 1 End If Range("B" & LastRow).Value = Range("B3").Value Range("C" & LastRow).Value = Range("C3").Value Range("D" & LastRow).Value = Range("D3").Value Range("E" & LastRow).Value = Range("E3").Value Range("F" & LastRow).Value = Range("F3").Value Range("G" & LastRow).Value = Range("G3").Value Range("H" & LastRow).Value = Range("H3").Value Range("I" & LastRow).Value = Range("I3").Value Range("J" & LastRow).Value = Range("J3").Value Range("K" & LastRow).Value = Range("K3").Value Range("B3:K3").ClearContents End Sub K3にハイパーリンクを貼り付けたのですが、いざマクロを実行するとハイパーリンクが飛ばずにただの文字列になってしまいます。（ハイパーリンク先はwebページでは無く同PC内の別ファイルです。） B〜Jまでに名前や電話番号等の基本情報、 Kに詳細データをまとめた別のExcelファイルのハイパーリンクをマクロで実行するのが目的です。 webや書籍を参考に試行錯誤してみましたが解決策を発見出来ませんでした。 Kのハイパーリンクを崩さずにマクロを実行する方法を教えて下さい。どうぞ宜しくお願い致します。＜使用 Excel:Excel2016、使用 OS:Windows10 ＞ ---- K3セルに関して、手作業ならどうしますか。（マナ） 2019/06/16(日) 09:40 ---- ＞マナさんご返信ありがとうございます。手作業の場合はハイパーリンク関数を使用してみようと思っております。（初心者2） 2019/06/16(日) 10:19 ---- そういうことではなくて、 K3セルを、ハイパーリンクを維持してコピーする作業を手作業だとどうするかです。（マナ） 2019/06/16(日) 11:16 ---- 現状分析について少しコメントします。解決の方向に向けて動き出したところ恐縮ですが。 Range("K" & LastRow).Value = Range("K3").Value Range("B3:K3").ClearContents とされています。・K3の値だけ（ハイパーリンクは値じゃないので対象外）を別のセルにセット。・その後、K3をClearContentsすると、ハイパーリンクも含め消去されます。（γ） 2019/06/16(日) 11:23 ---- ＞γさんご返信ありがとうございます。ハイパーリンク値ではないので対象外なんですね。勉強になりました。ご指導ありがとうございます。（初心者2） 2019/06/16(日) 12:02 ---- ＞マナさんご返信ありがとうございます。対象のセルを右クリックしてハイパーリンクの挿入を使用しておりました。ご質問の意図は合ってますでしょうか? 初心者で申し訳ありません。宜しくお願い致します。（初心者2） 2019/06/16(日) 12:04 ---- 横から失礼します。 K3セルをコピー貼付すればハイパーリンクも増幅できると思うんだけど。それと、セル範囲B3:K3を纏めて処理できないのですか? Range("B3:K3")という書き方はご存じ? （γ） 2019/06/16(日) 12:27 ---- ＞γさんご返信ありがとうございます。 B3〜J3までに名前や電話番号等の基本情報、 K3に詳細データをまとめた別のExcelファイルのハイパーリンクをマクロで実行するのが目的です。 B〜K3は入力用セルで、マクロを実行するごとに新しい番号を取得して最終行に追加される仕様にしたいと思っています。コピー貼付や手入力も考えたのですが、ハイパーリンクごと飛ばす方法はないかと思い質問させて頂いた次第です。 Range("B3:K3")も書籍の情報を頼りに試してみたのですがうまく実行されなかったので分解して組んでしまいました。長々と申し訳ありません。宜しくお願い致します。（初心者2） 2019/06/16(日) 13:02 ---- Range("B3:K3").Copy Range("B" & LastRow) Range("B3:J3").ClearContents というようなことなんでしょうか。 K3セルのリンク先はそのつど違うのか固定なのか不明ですので、消す対象からはずしています。（γ） 2019/06/16(日) 14:38 ---- ＞γさんご返信ありがとうございます。 k3のリンク先は必ずその都度違うものになります。 Sub 新規入力() Dim LastRow As Long LastRow = Cells(Rows.Count, 2).End(xlUp).Row + 1 If LastRow = 7 Then Range("A" & LastRow).Value = 1 Else Range("A" & LastRow).Value = Range("A" & LastRow - 1).Value + 1 End If Range("B3:K3").Copy Range("B" & LastRow) Range("B3:K3").ClearContents End Sub 貼り付けて頂いた部分を修正しマクロを実行したところ正常に作動しました。ハイパーリンクに関しては別の方法を考えてみます。ご指導ありがとうございました。（初心者2） 2019/06/16(日) 16:02 ---- ＞ハイパーリンクに関しては別の方法を考えてみます。ハイパーリンクもコピーされるわけですが、何が問題として残っているんですか? ハイパーリンク設定の負荷を考えると、 HYPERLINK関数を使うのが簡便でしょう。 K3 = HYPERLINK(L3,"LINK") とでもして、リンク先をL3に入力すればいい。消すのは Range("B3:J3,L3").ClearContents （γ） 2019/06/16(日) 20:02 ---- ＞γさんご返信ありがとうございます。アドバイスの通りHYPERLINK関数を使うことにしました。おかげ様で思い通りのものが出来上がりました。迅速に対応して頂き誠にありがとうございます。もっと勉強して参ります。また質問させて頂くこともあるかと思いますが、その際はどうぞご指導ご鞭撻のほどお願い致します。本当にありがとうございました。（初心者2） 2019/06/17(月) 10:11 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201906/20190616083315.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ