Excel VBA シート名を指定してハイパーリンクを作成 - 版の履歴

2020年2月16日 (日) 04:25にPirotoによる

2020-02-16T04:25:15Z

2020年2月15日 (土) 08:35にPirotoによる

2020-02-15T08:35:25Z

2020年2月15日 (土) 08:19にPirotoによる

2020-02-15T08:19:31Z

2020年2月15日 (土) 08:02にPirotoによる

2020-02-15T08:02:19Z

Piroto: ページの作成:「==Excel VBA シート名を指定してハイパーリンクを作成== [Excel][Excel VBA] ====シート名を指定してハイパーリンクを作成する==== S…」

2020-02-15T07:32:02Z

ページの作成:「==Excel VBA シート名を指定してハイパーリンクを作成== [Excel][Excel VBA] ====シート名を指定してハイパーリンクを作成する==== S…」

新規ページ

==Excel VBA シート名を指定してハイパーリンクを作成==
[Excel][Excel VBA]

====シート名を指定してハイパーリンクを作成する====
Sub CreateHyperLink()
Dim sht_name As String
Dim lnk_name As String
Dim i As Integer
Dim hit As Boolean

sht_name = InputBox("シート名を入力")
If Trim(sht_name) = "" Then
Exit Sub
End If
sht_name = RTrim$(sht_name)

hit = False
For i = 1 To ActiveWorkbook.Sheets.Count
If ActiveWorkbook.Sheets(i).Name = sht_name Then
hit = True
End If
Next
If Not hit Then
Call MsgBox("一致するシートが存在しません", vbExclamation)
Exit Sub
End If

lnk_name = "'" & sht_name & "'!A1"

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=lnk_name
With Selection.Font
.Name = "ＭＳＰゴシック"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 5
End With

End Sub

@@ 1行目: / 1行目: @@
 ==Excel VBA シート名を指定してハイパーリンクを作成==
-[[Excel]][[Excel VBA]]
+[[Excel]] | [[Excel VBA]] |
 ====シート名を指定してハイパーリンクを作成する====

@@ 1行目: / 1行目: @@
 ==Excel VBA シート名を指定してハイパーリンクを作成==
-[[Excel][Excel VBA]]
+[[Excel]][[Excel VBA]]
 ====シート名を指定してハイパーリンクを作成する====

@@ 1行目: / 1行目: @@
-==Excel VBA シート名を指定してハイパーリンクを作成==
+==[[Excel VBA シート名を指定してハイパーリンクを作成]]==
 [[Excel]] | [[Excel VBA]] |
-====シート名を指定してハイパーリンクを作成する====
+====シート名を指定してハイパー[[リンク]]を作成する====
   Sub CreateHyperLink()
       Dim sht_name As String
@@ 13行目: / 13行目: @@
           Exit Sub
       End If
-      sht_name = RTrim$(sht_name)
+      sht_name = [[R]]Trim$(sht_name)
       hit = False