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

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

[[20190623001726]]: #score: 3108; @digest: 3928cd311a6b23b206b188681510f05e; @id: 79981; @mdate: 2019-06-25T05:36:47Z; @size: 3820; @type: text/plain; #keywords: strfilepath (17336), 録_ (14963), hyplink (14426), ク. (8744), 0050064 (6766), lastrow (4211), 良好 (3649), イパ (3046), 名. (2948), ク関 (2893), ーリ (2650), 載方 (2467), ハイ (2180), hyperlinks (2156), パー (1940), リン (1889), ンク (1856), ロ記 (1739), unload (1390), myrng (1241), ル名 (1000), 登録 (994), ファ (980), ルパ (913), ァイ (759), 2019 (722), 日) (684), （初 (677), 返信 (674), 記録 (641), イル (635), 初心 (633); 『フォームでファイルパスを取得して、セルにハイパーリンクで貼り付けたい』（初心者です）
お疲れ様です。 sheet1のA列にファイル名、B列をリンクとしています。フォームでファイルパスを取得して、登録ボタンでセルに張り付けると文字列になってしまいます。そのセルを一旦、ダブルクリックするとハイパーリンクになるのですが... 調べるとハイパーリンク関数を使用すればできるようですが、どのように使用すればよいかわかりません。フォームには以下のコードを記述しています。 Private Sub 登録_Click() Dim lastRow As Long With Worksheets("sheet1") lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(lastRow, 1) = ファイル名.Text .Cells(lastRow, 2) = リンク.Text End With Unload Me End Sub Private Sub リンク登録_Click() Dim strFilePath As Variant strFilePath = Application.GetOpenFilename() 'ファイルが正しく選択されたらファイル名をテキストボックスに表示 If strFilePath <> "False" Then リンク.Value = strFilePath End If End Sub 初歩的な質問で申し訳ありませんが、よろしくお願い致します。＜使用 Excel:Excel2010、使用 OS:unknown ＞ ---- とりあえず、ハイパーリンクでファイルを選択するのをマクロ記録した方が良いよ。（BJ） 2019/06/23(日) 05:28 ---- ＞調べるとハイパーリンク関数を使用すればできるようもうちょっと調べるとゴールにたどり着けたかもです。検索のお手伝い。 https://www.moug.net/tech/exvba/0050064.html http://excel.style-mods.net/tips_vba/tips_vba_2_26.htm https://www.sejuku.net/blog/68338 （もこな2） 2019/06/23(日) 08:12 ---- BJさん返信ありがとうございます。マクロ記録の事を初めて知りました。初心者がすぎてすいません。しかし、ハイパーリンクをマクロ記録してコードを表示して確認できました。表示されたコードのaddressに変数を割り当てればよかったのでしょうか? いろいろ試してみましたが、分かりませんでした。マクロ記録でコードを確認できることを知り勉強になりました。ありがとうございます。（初心者です） 2019/06/23(日) 21:20 ---- もこな2さん返信ありがとうございます。上記の3つ目リンク先のサンプルコードを参考にさせていただきました。複数セルではなく、1つのセルに実行したかったので、繰り返し処理が必要ないと思い、以下の様にしました。 Private Sub 登録_Click() Dim lastRow As Long Dim hyplink As Hyperlink With Worksheets("sheet1") lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(lastRow, 1) = ファイル名.Text .Cells(lastRow, 2) = リンク.Text If Cells(lastRow, 2).Value <> "" Then Set hyplink = ActiveSheet.Hyperlinks.Add(Anchor:=Cells(lastRow, 2), _ Address:=Cells(lastRow, 2)) End If End With Unload Me End Sub そして、値が入ってない場合としてIf文を入れてみました。一応、動作は良好ですが、この記載方法で合っていますでしょうか?よろしければ確認をお願い致します。（初心者です） 2019/06/23(日) 21:27 ---- 動いているなら問題ないとおもいますが、私ならこんな感じでしょうか Private Sub 登録_Click() Dim MyRNG As Range With Worksheets("sheet1") Set MyRNG = .Cells(.Rows.Count, 1).End(xlUp).Offset(1) MyRNG.Value = ファイル名.Text MyRNG.Offset(, 1).Value = リンク.Text If リンク.Text <> "" Then .Hyperlinks.Add Anchor:=MyRNG.Offset(, 1), Address:=リンク.Text End If End With Unload Me End Sub ※未テストなのでミスっていたらごめんなさい。（もこな2） 2019/06/24(月) 05:48 ---- もこな2さん返信遅れまして申し訳ありません。記載いただいたコード問題なく動作しました。活用させて頂きます。最終行取得のoffsetの使用方法、Setを使用した変数の代入等、勉強になりました。ありがとうございました。（初心者です。） 2019/06/25(火) 14:36 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201906/20190623001726.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ