エホバの証人二世の、個人研究&趣味blogです。
2018/04«│ 2018/05| 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 »2018/06
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
22:48:27
20180403223948896.jpg

[広告] VPS



すごく素敵でした~~~。

Sub 名前の一覧を見る2()
Dim nm As Name
Dim i As Long
i = 1


Application.ScreenUpdating = False
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("名前の一覧を見る2").Delete
On Error GoTo 0
Workbooks.Open (アドレスの指定 & CommandBars.ActionControl.Caption)
Set NewM = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
NewM.Caption = "名前の一覧を見る2"
Dim NewS(10000) As Variant
Dim buf As String, cnt As Long

For Each nm In ActiveWorkbook.Names
cnt = cnt + 1
Set NewS(cnt) = NewM.Controls.Add
With NewS(cnt)
.Caption = CommandBars.ActionControl.Caption & "/" & nm.Name & "/" & nm.Value
.OnAction = "開く2"
End With

Next
Workbooks(CommandBars.ActionControl.Caption).Saved = True
Workbooks(CommandBars.ActionControl.Caption).Close
Application.ScreenUpdating = True

End Sub
Sub 開く2()

Dim rc As Integer
rc = MsgBox("開く場合は「はい」コピーの場合は「いいえ」をクリックして下さい", vbYesNo + vbQuestion, "確認")
If rc = vbYes Then
smei = Left(CommandBars.ActionControl.Caption, InStr(CommandBars.ActionControl.Caption, "/") - 1)
Workbooks.Open (アドレスの指定 & smei)
hnamae = Mid(CommandBars.ActionControl.Caption, InStrRev(CommandBars.ActionControl.Caption, "/"))
hnamae = Mid(hnamae, 3)

WSName = Left(hnamae, InStr(hnamae, "!") - 1)
hnamae = Mid(hnamae, Len(WSName) + 2)
Worksheets(WSName).Activate
Range(hnamae).Select
Else
smei = Left(CommandBars.ActionControl.Caption, InStr(CommandBars.ActionControl.Caption, "/") - 1)
Workbooks.Open (アドレスの指定 & smei)
hnamae = Mid(CommandBars.ActionControl.Caption, InStrRev(CommandBars.ActionControl.Caption, "/"))
hnamae = Mid(hnamae, 3)

WSName = Left(hnamae, InStr(hnamae, "!") - 1)
hnamae = Mid(hnamae, Len(WSName) + 2)
Worksheets(WSName).Range(hnamae).Copy
End If

End Sub

コメント
コメントの投稿










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

はなかな

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

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

この人とブロともになる

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