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

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

[[20160517225325]]: #score: 3107; @digest: e6f5e5e60f95a29c136d6a0f74c045ab; @id: 70693; @mdate: 2016-05-19T10:16:37Z; @size: 4214; @type: text/plain; #keywords: sethlink (22862), todo (6661), ク対 (5950), shname (4279), バテ (4112), ク1 (3680), 語句 (2577), リン (2393), ンク (2351), hyperlinks (2156), 考出 (2101), 明確 (1901), 趣旨 (1853), 出品 (1836), sheetactivate (1755), hyperlink (1417), 的外 (1026), ト1 (853), 2016 (802), 不明 (802), を張 (794), 推測 (787), target (650), 問者 (637), workbook (519), 仕方 (513), 回答 (503), 質問 (474), 対象 (456), ーリ (441), シー (434), address (421); 『リンクを設定』（リンク）
シート1のA列にリンク対象になる語句を設定して リンク1 リンク2 リンク3 リンク4 リンク5 .... 他のシートに同様の語句が含まれていた場合、そこに対してシート1のA列に対してリンクしたいのですがどうすればよいでしょうか。＜使用 Excel:Excel2007、使用 OS:Windows10 ＞ ---- >>シート1のA列に対してリンクしたい リンクの方向はシート1 --> 他のシートですか? それとも他のシート --> シート1 ですか? とれと、本件、関数処理ご希望ですか? （β） 2016/05/18(水) 05:55 ---- おはようございます。質問者さんの回答を待ったほうがよいとは思うのですが、私も時間が限られていますので、失礼して。ブックベースの名前を定義しておくと、挿入や削除に伴う位置の変化に耐えうるかもしれませんね。 (1) 関数でやるなら =HYPERLINK("[Book1.xlsm]リンク1") ブック名の表示を避けるなら別名も指定して、 =HYPERLINK("[Book1.xlsm]リンク1","リンク1") (2) 挿入からハイパーリンクを張ったほうが、名前の一覧が表示されるので楽かも知れない。（γ） 2016/05/18(水) 06:53 ---- 一つのセル内に複数のリンク対象が含まれることはあるのだろうか? もしある場合、その対象ごとにリンクを張りたいということだろうか? （ねむねむ） 2016/05/18(水) 09:18 ---- 回答コメントをしたが、返事が無いですね。そもそも、質問の趣旨が不明確ですね。もっとやりたいことを明確にしてください。・リンクの仕方がわからないのか・他シートにある文字列の検索の仕方がわからないのか・それら一連のことを実行するマクロが欲しいのかこちらの掲示板サイトのように一般機能もマクロも質問できるところでは特にどのようなものを作りたいのか、知りたいのか、きちんと書く必要があると思います。質問者さんがどこまでできているのか書いてもらわないと適切な回答はできません。なお、私は、本の目次のようなものを作りたいのだろうと推測して回答したつもり。別の話だったのかもしれない。（γ） 2016/05/19(木) 07:03 ---- 皆さんコメントしておられるように、何を、どのように、どの程度のものとして準備したいのかが不明です。以下は、たまたまボランティアで世話をしている図書館の利用者からあがる質問に担当者が答えるQ/A集としてインデックスをはっておきたいということで、ちょこっと作ったものを、今回の要件（これも推測ですけど）にあわせて手直しをしたものです。こんなおおげさなものは的外れなのかもしれませんが、参考出品ということで。 ThisWorkbookモジュールに。 Option Explicit Dim TODO As Boolean Const SHNAME As String = "Sheet1" '★ Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim c As Range If Sh.Name = SHNAME And TODO Then For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp)) setHLink c Next TODO = False End If End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim c As Range Dim r As Range If Sh.Name = SHNAME Then '列選択クリア時の膨大な処理時間を回避 If Target.Areas.Count = 1 Then If Target.Cells.Count = WorksheetFunction.CountBlank(Target) Then Exit Sub End If Set r = Intersect(Target, Columns("A")) If Not r Is Nothing Then For Each c In r.Cells setHLink c Next End If Else TODO = True End If End Sub Private Sub setHLink(c As Range) Dim shF As Worksheet Dim f As Range If IsEmpty(c) Then Exit Sub On Error Resume Next c.Hyperlinks(1).Delete On Error GoTo 0 For Each shF In Worksheets If shF.Name <> SHNAME Then Set f = shF.UsedRange.Find(What:=c.Value, LookAt:=xlPart) If Not f Is Nothing Then c.Parent.Hyperlinks.Add Anchor:=c, Address:="", _ SubAddress:=f.Address(False, False, External:=True) Exit For End If End If Next End Sub （β） 2016/05/19(木) 08:48 ---- すみません、皆様回答ありがとうございます。ここ数日、体がバテバテで見過ごしてしまっていました。一番最後の回答がほしかったものです。ありがとうございます。＞そもそも、質問の趣旨が不明確ですね。＞もっとやりたいことを明確にしてください。すみません。方針ができてから質問するべきでした。（リンク） 2016/05/19(木) 19:16 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201605/20160517225325.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ