FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2019/02«│ 2019/03| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 »2019/04
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
2018/09/12
13:09:42
sub 名前定義コピー
Dim x As Long
Dim namae
x = 1
For Each ws In Worksheets
If ws.name = "名前の定義2" Then
ws.Delete
End If
Next
Worksheets.Add Before:=Worksheets(1)
ActiveSheet.name = "名前の定義2"
For Each namae In ActiveWorkbook.Names
ActiveSheet.Hyperlinks.Add Anchor:=Cells(x, 1), Address:=Cells(x, 1), SubAddress:="", _
TextToDisplay:=namae.name
x = x + 1
Next

With ActiveWorkbook.VBProject.VBComponents.Item(Worksheets("名前の定義2").CodeName).CodeModule
.insertlines 1, "Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)"
.insertlines 2, "On Error Resume Next"
.insertlines 3, "If InStr(ActiveCell, " & """" & "!" & """" & ") <> 0 Then"
.insertlines 4, "Worksheets(Left(ActiveCell, InStr(ActiveCell, " & """" & "'" & """" & ") - 1)).Range(Mid(ActiveCell, InStr(ActiveCell, " & """" & "!" & """" & ") + 1)).Copy"
.insertlines 5, "Else"
.insertlines 6, "dim namae"
.insertlines 7, "For Each namae In ActiveWorkbook.Names"
.insertlines 8, "If namae.name = ActiveCell.Value Then"
.insertlines 9, "Worksheets(Mid(Left(namae, InStrRev(namae, " & """" & "'" & """" & ") - 1), 3)).Range(Mid(namae, InStrRev(namae, " & """" & "!" & """" & ") + 1)).Copy"
.insertlines 10, "End If"
.insertlines 11, "Next"
.insertlines 12, "End If"
.insertlines 13, "On Error GoTo 0"
.insertlines 14, "End Sub"
End With
ActiveWorkbook.Save
DoEvents
ActiveWorkbook.Close
DoEvents
End Sub

もっと使いやすくなりました♪



誰も見た事のない変態フェチジャンルのバキュームベッド動画をまとめています。↓

バキュームベッド動画

コメント
コメントの投稿










トラックバック
トラックバックURL
→http://ayukt0526.blog.fc2.com/tb.php/454-a0e9800c
この記事にトラックバックする(FC2ブログユーザー)
プロフィール

はなかな

Author:はなかな
FC2ブログへようこそ!

最新記事
最新コメント
月別アーカイブ
カテゴリ
フリーエリア
ランキング参加しています。 にほんブログ村 哲学・思想ブログ エホバの証人へ にほんブログ村 にほんブログ村 本ブログ 読書日記へ にほんブログ村 にほんブログ村 音楽ブログへ にほんブログ村
音楽(J-POP) ブログランキングへ
小説(読書感想) ブログランキングへ
キリスト教 ブログランキングへ
ブログランキング ブログ王ランキングに参加中!
検索フォーム
RSSリンクの表示
リンク
このブログをリンクに追加する
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
FC2アフィリエイト