[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ﾊｲﾊﾟｰﾘﾝｸ設定ｾﾙﾃﾞｰﾀをﾕｰｻﾞｰﾌｫｰﾑで指定して開く』（ｷｮｯﾁｬﾝ）
列Bに図番を記入しﾊｲﾊﾟｰﾘﾝｸを設定しています。この図番ﾃﾞｰﾀをﾕｰｻﾞｰﾌｫｰﾑﾃｷｽﾄﾎﾞｯｸｽで指定してﾊｲﾊﾟｰﾘﾝｸを開くﾏｸﾛを教えてください。
Excel2003 WindowsXP
仕様をはっきり記述してください。
例として Ｂ列にはどんなデータが配置されているか記述してください この時、１行目は、項目名だとか１行目からデータだとかもはっきり記述してください。
テキストボックスにＢ列にあるデータの中でリンクしたい値を入力するのですよね？ 入力後、どのタイミングでプログラムを実行させるのですか？ コマンドボタンを用意して、これをクリックしたら実行ですか？ それともEnterキーが押されてたら実行ですか？
特定のハイパーリンクが設定されているのなら、例えばセルＡ１のハイパーリンクが設定されていて ハイパーリンク先にある目的のファイルをダウンロードし、適切なアプリケーションで表示するには、
Range("a1").Hyperlinks(1).Follow
こんなコードで可能です。後は、テキストボックスに指定された内容でＢ列データを検索する方法が わかれば、完成です。方法は、Application.Match関数とかFindメソッドが考えられます。
これらの情報で検討してみてください。
ichinose
Ａ Ｂ Ｃ ・ ・ Ａ １ Ａ ２ Ａ ３ ・ ・ ・ ・ B列データそれぞれにﾊｲﾊﾟｰﾘﾝｸが設定されています。この図番ﾃﾞｰﾀをﾕｰｻﾞｰﾌｫｰﾑﾃｷｽﾄﾎﾞｯｸｽで指定してｺﾏﾝﾄﾞﾎﾞﾀﾝでﾊｲﾊﾟｰﾘﾝｸを開くﾏｸﾛを教えてください。 Excel2003 WindowsXP (ｷｮｯﾁｬﾝ)
では、新規ブックにて（Sheet1というシートがある）、試して見てください。
１ 準備
ユーザーフォームを一つ作成してください。
ユーザーフォーム名--------UserForm1
テキストボックス----------TextBox1
コマンドボタン ----------CommandButton1
UserForm1には、上記二つのコントロールを貼り付けてください。
２ Sheet1にデータ設定
標準モジュール（Module1）に
'=================================================================
Option Explicit
Sub データ設定()
With thisworkbook.Worksheets("sheet1").Range("a1:b4")
.Rows("1:4").Value = [{"項目1", "図番号";"a",1;"a",2;"a",3}]
With .Range("b2")
.Hyperlinks.Add Anchor:=.Cells, Address:= _
"https://www.excel.studio-kazu.jp/kw/20100210194102.html?t=213100"
End With
With .Range("b3")
.Hyperlinks.Add Anchor:=.Cells, Address:= _
"https://www.excel.studio-kazu.jp/kw/20100210160952.html?t=164640"
End With
With .Range("b4")
.Hyperlinks.Add Anchor:=.Cells, Address:= _
"https://www.excel.studio-kazu.jp/kw/20100209183814.html?t=192843"
End With
End With
End Sub
上記のデータ設定を実行してください。Sheet1というシートに
Ａ Ｂ
１ 項目1 図番号
２ a 1
３ a 2
４ a 3
こんなデータが作成されるはずです。尚、Excelでデータベースを作成する場合は、項目名を設ける ようにしてください。その方がExcelの機能を利用しやすいですから・・・・。
Ｂ列の数字には、このエクセルの学校から適当に選んだスレッドがハイパーリンクとして 設定されています。
それでは、実際に処理するコードです。
別の標準モジュール（Module2）に、
'==================================================================
Option Explicit
Sub main()
UserForm1.Show
End Sub
先に作成したUserForm1のモジュールには、
'==================================================================
Option Explicit
Private Sub CommandButton1_Click()
Dim rng As Range
Dim f_no As Variant
With ThisWorkbook.Worksheets("sheet1")
Set rng = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp))
If rng.Row > 1 Then
f_no = Application.Match(Val(TextBox1.Value), rng, 0)
If Not IsError(f_no) Then
If .Cells(f_no + 1, "b").Hyperlinks.Count > 0 Then
On Error Resume Next
.Cells(f_no + 1, "b").Hyperlinks(1).Follow
On Error GoTo 0
End If
Else
MsgBox "指定された図番号は見つかりません"
End If
End If
End With
End Sub
以上です。
３ 操作方法
mainを実行してください。UserForm1が表示されます。 TextBox1に、1と入力し、Commandbutton1をクリックしてください。 1に相当するリンクが表示されます。
同じように 2,3等を入力して試してみてください。 これでうまくいくようなら、コードを理解してご自分の実際のデータで試してください。
ichinose
Set rng = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp))
If rng.Row > 1 Then
f_no = Application.Match(Val(TextBox1.Value), rng, 0)
If Not IsError(f_no) Then
If .Cells(f_no + 1, "b").Hyperlinks.Count > 0 Then
On Error Resume Next
.Cells(f_no + 1, "b").Hyperlinks(1).Follow
On Error GoTo 0
>With ThisWorkbook.Worksheets("sheet1")
> Set rng = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp))
> If rng.Row > 1 Then
> f_no = Application.Match(Val(TextBox1.Value), rng, 0)
> If Not IsError(f_no) Then
> If .Cells(f_no + 1, "b").Hyperlinks.Count > 0 Then
> On Error Resume Next
> .Cells(f_no + 1, "b").Hyperlinks(1).Follow
Set rng = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp))
文字が大きかったので、ここが特にわからない ってことですか？
これは、Sheet1のＢ列データ（図番号）が入っているセル範囲をrngという変数に取得するためのコードです。 .Cells(.Rows.Count, "b").End(xlUp) これは、Ｂ列の最下位行を選択した状態で Ctrl+↑キーを 押してみてください。
Ａ Ｂ
１ 項目1 図番号
２ a 1
３ a 2
４ a 3
上記のデータなら、3があるセルＢ４を選択しますよね？
.Range("b2", .Cells(.Rows.Count, "b").End(xlUp))
は、Sheet1が上記のデータなら
.Range("b2", "b4") ----→ B2:B4 と同じです。
If rng.Row > 1 Then ’これは、データが何もないと1を返しますから、1より大きかったら
'検索処理をする データがないのに検索したって仕方ないですから・・。
f_no = Application.Match(Val(TextBox1.Value), rng, 0)
'↑ワークシート関数のMatch関数をＶＢＡコード内での使う場合の書式です
If Not IsError(f_no) Then 'f_noがエラー値でなければ・・、つまりテキストボックスの内容で
'Ｂ列を検索した結果、見つかったら以下のコードを実行する
'Val(・・・としたのは、型を数値に変換しています
If .Cells(f_no + 1, "b").Hyperlinks.Count > 0 Then
'↑ハイパーリンクが設定されていないことも考慮しています
'f_no+1としたのは、f_noは、セルB2から数えた位置なので実際の行は、+1ですね
On Error Resume Next '念のため、エラーが起きない処理
.Cells(f_no + 1, "b").Hyperlinks(1).Follow 'リンク呼び出し
On Error GoTo 0 '念のためのエラー無視解除
こんなところでしょうか？
Helpの存在を知っていますか？ ＶＢＡのリファレンスが見ることが出来るはずです。 これを見ながら、コードの意味を調べるようにしてみては どうでしょうか？
有難うございました。初心者のため完璧に理解したとは言いがたいですが、おぼろげながら理解は深まりました。今後のマクロ作成の参考にしたいと思います。ご回答いただいたのはｉｃｈｉｎｏｓｅさんだったのでしょうか。
あっ、サインを久しぶりに忘れました。 ichinoseです。
最近、いろんな事忘れがちで・・・、思い出せないし・・・、やばいなあ。
単純なマクロがＰＣによって開かないのですが、なぜですか。
ActiveWorkbook.Close
Workbooks("book1").Activate
Worksheets("sheet1").Activate
数台のPCでデータを共有しています。 XP エクセル２００３です。
実行すると、”インデックスが有効範囲にありません。”と表示されるＰＣがあります。ﾏｸﾛの１行めが強調されていますが、これは何の意味もありません。プレヴューで変換されています。
（ｷｮｯﾁｬﾝ）
エラーにならず、正常に作動するＰＣもいあるということですね？ これ、共有を解除してもエラーになりますか？
共有時にエラーが発生した時、はっきりエラー箇所が特定できますか？
出来ないなら、例えば、
エラー発生が予測される箇所に
例えば
Sub testtest()
On Error GoTo err_proc
1: Workbooks("book1").Activate 'エラーが起こりそうな行に数字のラベルを付ける
2: Worksheets("sheet1").Activate
Exit Sub
err_proc:
MsgBox Erl & " " & Err.Description
End Sub
これだとエラー箇所の特定ができます。
インデックスが有効範囲にありませんというエラーが、
Workbooks("book1").Activate
ここで発生するなら、book1というブックが開いていない事を意味しますが、 その可能性を確認してください。
それと これ、別スレッドの方が良いのではないですか？
ichinose
ありがとうございました。上記試してみました。ブックをダブルで開くことはできないという意味のコメントが出ました。Activatはブックをアクティブにすると理解していますので、ﾌﾞｯｸは開いているので正常に作動するはずです。このコメントはオープンとととらえていると思います。エクセル内での閉じるは正常に作動します。 5台のＰＣで試してみましたが2台が同様のエラーが出ました。またエラーが出るのはこのマクロだけです。他のマクロは正常に作動いたします。 ＰＣにより差があるのはなぜか、もし原因がわかれば教えてください。 (ｷｮｯﾁｬﾝ)
>数台のPCでデータを共有しています まず、5台とも WindowsやExcelのバージョンなどは一緒ですか？
又、これは 「ツール」----「ブックの共有」で 「複数のユーザーによる同時編集と・・・・許可する」にチェックを入れた状態で使用する という意味ですよね？
この時、2台でエラーが発生する ということですよね？
そうだとしたら、エラーが発生するＰＣで共有を解除するとエラーどうなりますか？ 変わりませんか？ それともその場合はエラーにならない のですか？ ここを確かめてください。
後は、具体的なエラー再現手順とエラーが発生するコードの掲載がないとわかりませんね！！
ichinose
有難うございます。会社で使用しているPCのため今は自宅でこの答えを拝見しているのでまだご指摘の作動は行っていませんが、今わかる範囲のことで状況を説明させていただきます。
ﾏｸﾛはﾉｰﾄPC(dynabook)で作成し容量の多いﾃﾞｽｸﾄｯﾌﾟPCに元ﾃﾞｰﾀを写し共有しています。元のﾃﾞｰﾀを保有しているPCでもｴﾗｰが発生します。
ﾌﾞｯｸ1のｼｰﾄ1につぎのﾃﾞｰﾀを作成し
Ａ Ｂ
１ 項目1 図番号
２ a 1
３ a 2
４ a 3
Ｂ列の図番号にﾊｲﾊﾟｰﾘﾝｸでﾘﾝｸするﾌﾞｯｸを設定し図番号に関連したﾃﾞｰﾀをこれに入れています。図番号をｸﾘｯｸし新たな必要ﾃﾞｰﾀを書き込み上書きしﾊｲﾊﾟｰﾘﾝｸﾃﾞで作成したﾌﾞｯｸにﾂｰﾙﾊﾞｰ表示のﾌｫｰﾑのﾎﾞﾀﾝに
ActiveWorkbook.Close
Workbooks("book1").Activate
Worksheets("sheet1").Activate
のﾏｸﾛを登録しこれを実行すると2台のPC（双方ともﾃﾞｨｽｸﾄｯﾌﾟ型ちなみにﾒｰｶｰはSONYとFUJITU）でｴﾗｰが発生します。ﾊﾞｰｼﾞｮﾝはWindowsがＸＰ、Excelは2003。5台うち1台のﾊﾞｰｼﾞｮﾝはVISTA、2007ですがこれは正常に作動します。 (ｷｮｯﾁｬﾝ)
まず、いろんな箇所に疑問を感じます。
ｷｮｯﾁｬﾝさんのいう共有しているブックというのは、
Ａ Ｂ
１ 項目1 図番号 ２ a 1 ３ a 2 ４ a 3
このご質問のもとになったシートがあり、 ユーザーフォームがあり、ハイパーリンク処理を しているブックのことですね？
で、
ActiveWorkbook.Close
Workbooks("book1").Activate
Worksheets("sheet1").Activate
というコードは、ハイパーリンクで呼び出されたブックのシートに配置されたボタンに登録されているということですね？
もし、そうだとしたら・・・・。 ハイパーリンクで呼び出す対象は、Excelブックだったということですか？ なら、普通に Workbooks.Open ファイルパス で呼び出せばいいのに という疑問がひとつ。
>ActiveWorkbook.Close
>Workbooks("book1").Activate
>Worksheets("sheet1").Activate
このコードを呼び出されたブックに記述しているとしたら、その意味は？ という疑問 これは、呼び出されたブックを閉じて、book1という（上記の表やユーザーフォームがあるブック）をアクティブにして、 そのブックのSheet1をアクティブにするという意味ですか？
だとしたら、このようなコードにはしない方がよいです。 この辺りを確認のコメントお願いします。 違うところがあるなら、はっきり記述してください。
ichinose
ご回答有難うございます。設定はご理解どうりです。このﾏｸﾛに対する私の理解はﾊｲﾊﾟｰﾘﾝｸﾃで指定のBookにﾘﾝｸしてもBook1はﾀｽｸﾊﾞｰに収納されてCloseされていません。これをBook1をOpenで支持するとﾀﾞﾌﾞﾙｵｰﾌﾟﾝとなりｴr-します。それと私の大きな疑問はこのﾏｸﾛが正常に作動するPCとそうでないPCがある炉言うことです。ﾏｸﾛが適切でなければどのPCでもｴr-が発生してもよいと理解しています。 （ｷｮｯﾁｬﾝ)
ichinoseさんご多忙のようですね。その後いろいろ確認してみました。.Activateを含むﾏｸﾛが作動しないようです。これに反応するﾌﾟﾛｸﾞﾗﾑがｴﾗｰするPCにｲﾝｽﾄｰﾙされているとか、又は、逆に違うﾌﾟﾛｸﾞﾗﾑのｲﾝｽﾄｰﾙが必要とかがあるのでしょうか？まだそこまでは確認していません。もしこれらに関係なく.Open.Activateにかわる言語があれば教えてください。お願いいたします。（ｷｮｯﾁｬﾝ）
代替案の用意は、ありますが、エラー原因がまだつかめていないので・・・。
まず、ブックの共有とは
>又、これは 「ツール」----「ブックの共有」で >「複数のユーザーによる同時編集と・・・・許可する」にチェックを入れた状態で使用する >という意味ですよね？
という質問の答えがないですねえ！！
そうだとしたら、これを解除したときも同じエラーが発生しますか？
それから、リンクされたブックには、ボタンを用意して、何故
ActiveWorkbook.Close
Workbooks("book1").Activate
Worksheets("sheet1").Activate
このようなコードを登録したのですか？ 普通に閉じるボタンで閉じればよいのに・・・。 これは、何故ですか？
それから、もう一つこのリンク元のbook1 元々は、ユーザーフォームを介してリンク呼び出しを行っていますね？ 呼び出されたブックが表示された後エラーになるまでの操作手順は？
一度、ユーザーフォームを閉じるのですか？そうだとしたら、そこから細かく操作手順を記述してください。
ichinose
ichinoseさん失礼いたしました。答えが見つからないので少々ｲﾗｲﾗしておりました。
ブックの共有はご説明のとうりです。共有ブックは常に他の作業者が使用してはずす
ことができないので、関連ﾃﾞｰﾀをPCに落とし込み独立して作動するようにして。ﾃｽﾄを
しましたが。やはりｴﾗｰが出ました。
このﾃﾞｰﾀの構成を説明いたします。
まず元ﾌｫﾙﾀﾞを作成しこの中にBook1とﾘﾝｸ先のﾌｧｲﾙを収納したﾊｲﾊﾟｰﾘﾝｸﾌｫﾙﾀﾞを入れて
おり、元ﾌｫﾙﾀﾞを共有しております。Book1は台帳的な役割で商品a1の数字をｸﾘｯｸすると
商品a1の目次的なﾌｧｲﾙにﾘﾝｸします。このﾌｧｲﾙにまたﾊｲﾊﾟｰﾘﾝｸを設定し個々のﾃﾞｰﾀにﾘﾝｸ
するようにしています。
ActiveWorkbook.Close
Workbooks("book1").Activate
Worksheets("sheet1").Activate
上記ﾎﾞﾀﾝで必ず目次ﾍﾟｰｼﾞはBook1に戻るようにしています。PC本体の「閉じる」は閉じ
たとき以前開いていたﾌｧｲﾙが開くためこれを防ぐためです。またBook1は「送る」で
ﾃﾞｨｽｸﾄｯﾌﾟにｼｮｰﾄｶｯﾄを作成しています。最初の質問のﾕｰｻﾞｰﾌｫｰﾑでﾊｲﾊﾟｰﾘﾝｸを指定する
のは、Book1のB列に設定しているﾊｲﾊﾟｰﾘﾝｸを開くためです。これはBook1のﾃﾞｰﾀが6000
近くありﾘﾝｸしたい番号をｽｸﾛｰﾙして探すのがめんどうなためです。またBook1には
各図番号に関連した代表的なﾃﾞｰﾀも列を指定して入れております。図番号がわからな
いときはわかる項目にｵｰﾄﾌｨﾙﾀを使用して検索し図番号を絞り込むﾏｸﾛを組みそこから
図番号を探すようにしています。 ちょっと長くなってしまいました。質問のポイント
にずれてなければいいのですが。（ｷｮｯﾁｬﾝ）
>やはりｴﾗｰが出ました。 なるほど、共有が原因ではなさそうですね！！
Excel2002で、新規ブックの標準モジュール
'====================================================================
Sub ボタン1_Click()
ThisWorkbook.Close False
Workbooks("存在しないブック.xls").Activate
Sheets("sheet1").Activate
End Sub
上記のボタン1_Clickを適当なシートに配置したコマンドバー「フォーム」のボタンに登録します。
クリックして上記のコードを実行してみると、エラーが発生しません。 存在しないブック.xls というブックは、開いていないブックです。
つまり、ThisWorkbook.Close Falseが実行され、それ以降のコードが実行されていない事になります。
バージョンによって、この辺りのメカニズムに違いはありませんか？
取りあえず以下のようにコード追加してください。
１ 項目1 図番号 ２ a 1 ３ a 2 ４ a 3
上記のような表とこのＢ列にハイパーリンクを設定している ユーザーフォームやリンク呼び出しを行っているコードがあるブック（Book1）に、
いいかのコードを追加してください。
thisworkbookのモジュールに（標準モジュールではないですよ）
'=============================================================================
Option Explicit
Private WithEvents app As Application
'===============================================================================
Private Sub app_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
Dim ans As Long
If Not Wb Is ThisWorkbook Then
If Wb.Saved = False Then
ans = MsgBox("'" & Wb.Name & "'への変更を保存しますか？", vbYesNoCancel + vbExclamation)
If ans <> vbCancel Then
On Error Resume Next
If ans = vbYes Then
Wb.Save
End If
Wb.Saved = True
On Error GoTo 0
Else
Cancel = True
End If
End If
If Cancel = False Then
With ThisWorkbook
.Activate
.Sheets("sheet1").Activate
End With
End If
End If
End Sub
'====================================================================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set app = Nothing
End Sub
'=====================================================================
Private Sub Workbook_Open()
Set app = Application
End Sub
上記コードを追加し、保存後、一度閉じてから、再度開いて確認してください。
尚、呼び出されたブック側で作成している フォームのボタンや登録しているＶＢＡコードは削除してください。 閉じるときは、ブックの閉じるボタンをクリックしてください。
ハイパーリンクが設定されている上記の表があるブックをアクティブしたいことが目的なら、これでも 可能だと思います。
ichinose
ｉｈｉｎｏｓｅさん、毎回のご指導有難うございます。ご返事ちょっと遅れたので何かあったのかと
心配しておりましたが、回答いただき安心いたしました。
まず
Sub ボタン1_Click()
ThisWorkbook.Close False
Workbooks("存在しないブック.xls").Activate
Sheets("sheet1").Activate
End Sub
このｺｰﾄﾞをﾌｫｰﾑのｺﾏﾝﾄﾞﾎﾞﾀﾝに登録して実行しましたが。正常に作動するPCでは逆に
正常に作動しなくなりました。自宅のｻﾝﾌﾟﾙ品でﾃｽﾄを行っているのでｴﾗｰの発生するPC
では正常に作動するかどうかわかりません。
また次のｺｰﾄﾞもｻﾝﾌﾟﾙﾃﾞｰﾀで実験を行いましたが、Book1が閉じられていた場合ｴｸｾﾙの
閉じるで実行した場合Book1は開きません。現行ｺｰﾄﾞではBook1が閉じていても開いて
表示してくれます。
ｴｸｾﾙﾊﾞｰｼﾞｮﾝで作動するPCと作動しないPCがあると言うことは、ﾏｸﾛｺｰﾄﾞ以外の原因があるのではないでしょうか？
もしこれをｶﾊﾞｰできるﾏｸﾛﾃﾞｰﾀがあるのであれば、私が使用しているｴｸｾﾙﾃﾞｰﾀ及び
ﾏｸﾛﾃﾞｰﾀすべてが必要と思われますので、内容が同等なｴｸｾﾙﾃﾞｰﾀ及びﾏｸﾛﾃﾞｰﾀを作成し
ご相談いたします。現状使用品をそのままこれに乗せることは、はばかられますので、
ご容赦ください。ｻﾝﾌﾟﾙ作成に少々時間がかかると思いますので、返事をください。
ご返事いただいた時点でｻﾝﾌﾟﾙ作成にかかります。 （ｷｮｯﾁｬﾝ)
>Book1が閉じられていた場合ｴｸｾﾙの閉じるで実行した場合Book1は開きません。
↑このような仕様を想定していませんのでこうはならないでしょうねえ！！ いくつかの点で動作内容に話がかみ合わないなあと感じる箇所があります。 これは、エラーが発生するという続きのご質問から感じていたことです。
これは、バージョンの違いなのか 投稿に載せていただいていない箇所があるかのどちらかです。
これは、私が考えている仕様とｷｮｯﾁｬﾝさんが既に一部のＰＣでは、作動している仕様との同期を取る必要が あります。そのためには、細かいフィードバックが必要です。 同期が取れるコードの提示は当然ですが、必要です。
私が気になっている箇所。
１
呼び出されたブック（Book1以外のブック）のコマンドバーフォームのボタンに登録されている
ＶＢＡコードは、
ActiveWorkbook.Close
Workbooks("book1").Activate
Worksheets("sheet1").Activate
上記の3行以外にもあるＶＢＡコードなのですか？ だとしたら、すべてを見せてください。
２ Book1を呼び出して、ユーザーフォームが表示されてから該当するブックを呼び出して、修正等を加えて そのフォームのボタンをクリックするまでの操作を細かく記述してください。 本当に細かくです。
例えば、
Book1を開きます。
「ツール」----「マクロ」----「マクロ」とクリックし、「main」 というプロシジャーを選択し、 実行ボタンをクリックしてください。
すると、ユーザーフォーム（UserForm1）が表示されます。
テキストボックス（Textbox1）に1と入力し、コマンドボタン（Commandbutton1）をクリックしてください。
目的のブックが表示されます。
UserForm1の閉じるボタンをクリックしてUserForm1を閉じてください。
・ ・
と一例ですが、このように細かく操作手順を記述し、呼び出されたブックの「フォーム」のボタンをクリックし、エラーが発生するまでの手順です。
これにより、エラー手順だけでなく、処理の流れが私の予想通りか否かのチェックもできます。
再度、投稿してください。
ichinose
早速のご返答有難うございます。 質問に答えさせていただきます。
１の質問
ＶＢＡコードは、
ActiveWorkbook.Close
Workbooks("book1").Activate
Worksheets("sheet1").Activate
だけです。
２の質問
通常はB列の図番号をｸﾘｯｸして目次ﾌﾞｯｸを開きます。
開いた目次ﾌﾞｯｸのｼｰﾄは目次ﾌﾞｯｸと命名したｼｰﾄ１枚です。このｼｰﾄにﾌｫｰﾑで作成した
ｺﾏﾝﾄﾞﾎﾞﾀﾝに上記ﾏｸﾛを登録してBOOK1に戻れるようにしています。さらに目次ﾌﾞｯｸの
ｼｰﾄに開きたいﾍﾟｰｼﾞの名称をｾﾙに設定しこれに対し図形（楕円）を作成しこれに
ﾊｲﾊﾟｰﾘﾝｸを設定しそのﾌﾞｯｸにﾘﾝｸします。ﾘﾝｸしたﾍﾟｰｼﾞにも同様にﾌｫｰﾑで作成した
ｺﾏﾝﾄﾞﾎﾞﾀﾝに上記ﾏｸﾛを登録しています。登録ｺｰﾄﾞはﾌﾞｯｸ名、ｼｰﾄ名は違いますが同様
のｺｰﾄﾞです。ﾕｰｻﾞｰﾌｫｰﾑを使用しなくても、ﾎﾞﾀﾝを実行するとｴﾗｰが生じます。
まさかすぐにご返事いただけると思ってもいませんでした。有難うございます。
たまたま「ｴｸｾﾙの学校」を開いたら、答えが掲載されていました。晩酌でほろ酔い
気分でご返事申しあげていますので、文章に乱れがあるかと思いますがご容赦くだ
さい。すぐにご返事申し上げたくて、筆を執りました。(ｷｮｯﾁｬﾝ)
1はわかりました。
でも、不可解なのは、
ActiveWorkbook.Close
Workbooks("book1").Activate
Worksheets("sheet1").Activate
これだけのコードでBOOK1が閉じていてもBOOK1が表示される ということです。 私には、納得できません。何かの解釈が違っている証拠です。 つまり、フィードバックがまだぜんぜん足りていない証拠です。
2に関して、これだけでは殆どイメージできません。
今度は、何もないところから、私が読んで同じものが作成できる投稿をしてください。 コードも含めてです。
コードとブックの作成手順と一般的な操作手順をもっと詳しく 箇条書きに記述してください。 仕様書を投稿するのと同じぐらいに記述してください
何かの解釈が必ず違っているはずですから・・・・。
>答えが掲載されていました それは、たまたまです。仕事ではないですから、投稿を見たってすぐに返信しないときだってありますよ。
ichinose
Sub Sample()
On Error Resume Next
ActiveWorkbook.Close
Err.Clear
Workbooks("book1").Activate
If Err.Number <> 0 Then
Workbooks.Open "book1のフルパス" '←book1の実際のパス(d:\xxx\yyy\book1.xls"等)を指定してください
DoEvents
Workbooks("book1").Activate
End If
Worksheets("sheet1").Activate
End Sub
としてみると、どうなりますか？
ichinose
１．ｴｸｾﾙﾌﾞｯｸを開きBook1と名づけてﾃﾞｽｸﾄｯﾌﾟに保存する。
２．再度ｴｸｾﾙﾌﾞｯｸを開きBook2と名づけてﾃﾞｽｸﾄｯﾌﾟに保存する。
３．Book1Sheet1のｾﾙ(A1)にBook2にﾘﾝｸするﾊｲﾊﾟｰﾘﾝｸを設定する。
４．Book1のﾏｸﾛ画面で標準ﾓｼﾞｭｰﾙを設定しここに
Sub 戻る （）
ActiveWorkbook.Close
Workbooks("book1").Activate
Worksheets("sheet1").Activate
End Sub
を記録する。
５．Book2Sheet1に表示 ﾂｰﾙﾊﾞｰ ﾌｫｰﾑでｺﾏﾝﾄﾞﾎﾞﾀﾝを作成しこのｺﾏﾝﾄﾞﾎﾞﾀﾝにﾏｸﾛ"戻る"
を登録する。
これでBook1を開きﾊｲﾊﾟｰﾘﾝｸを利用してBook2を開きｺﾏﾝﾄﾞﾎﾞﾀﾝをｸﾘｯｸしました。今ま
で正常に作動したPCではBook2は閉じBook1が開きました。ｴﾗｰの出たPCではやはりｴﾗｰが
発生しMsgBoxには"ｲﾝﾃﾞｯｸｽが実効範囲にありません"と表示されます。また正常に作動
するPCでBook1をｴｸｾﾙの「閉じる」で閉じてBook2を開きｺﾏﾝﾄﾞﾎﾞﾀﾝをｸﾘｯｸするとBook2は
閉じｾｷｭﾙﾃｨ警告が表示されBook1は開きます。このﾃｽﾄでは他のﾏｸﾛは何も設定しており
ません。ということはｴﾗｰの出たPCではこのﾏｸﾛではBook1を認識してないことになるの
ではないのではないでしょうか？このﾏｸﾛの.Open、.Activate以外に表示ﾏｸﾛがあるので
はないのでしょうか。以前ｵｰﾄﾌｨﾙﾀで検索したﾃﾞｰﾀを他のｼｰﾄにｺﾋﾟｰしようとしてｺﾋﾟｰ
範囲を設定しｺﾋﾟｰを実行した時、XP ｴｸｾﾙ2003では何もしなくてｺﾋﾟｰできましたが、
VIST ｴｸｾﾙ2007では選択した範囲のすべてがｺﾋﾟｰされたので「ｴｸｾﾙの学校」に相談した
ところﾏｸﾛに"表示範囲をｺﾋﾟｰ"という一文を加えることにより正常に作動するようにな
りました。これと同様のことが、これにも発生しているのではないのでしょうか。
今回いただいたﾏｸﾛはBook1に貼り付けたらいいのでしょうか。
長々と生意気なことを書いてしまいました。気を悪くしないでﾋﾝﾄになるようでした
らしてください。私には流れは理解できても答えは想像もつきません。何せﾏｸﾛについ
ては初心者ですもので。（ﾌﾟﾚﾋﾞｭｰを見ると最初の部分の文章が乱れています。見にく
いと思いますがご容赦ください。何回か修正を試みましたができませんでした。この
相談においてきれいな表示方法もよければ教えてください。）（ｷｮｯﾁｬﾝ）
やっと、構造らしきものがみえました。
Sub 戻る()
ActiveWorkbook.Close
with thisworkbook
.Activate
.worksheets("sheet1").Activate
end with
End Sub
としてみては？ 正常に作動するコードとエラーになるコードがあるなら、ここから始まりかな？ まず、先に上記のコードをBook2.XlsのSheet1に配置したボタンに登録してためしてください
>気分を壊さないで見てください 壊すはずがありません。こういう投稿をしてほしかったのですから・・・。 なるべく簡単な事例で問題を再現させる、いや、再現できる記述をする。 これを文書だけで実現することがこういう掲示板の大きな意義の一つだと 思っていますから・・・。これができていない質問は、沢山ありますから・・。 それも出来ないのではなく、やらないだけの質問が多いんですよ！！
ichinose
icinoseさん有難うございました。ご指導どうりエラーの出たPCでコードをBook2Sheet1 のボタンに登録して、実行したところ、思いどうりの作動をいたしました。 これで解決と喜んでマクロを修正を支持し実行していたところ、いままで正常に作動 していたPCを使用していた人から、こんな言葉が聴かれました。
「Book2のボタンをクリックしてもBook1に戻りません。」
私は唖然としました。そこで私のPCで確認したところ、Book2のボタンをクリックすると
「指定のマクロが見つかりません。」
と表示が出ました。そこで再度このボタンに登録しようとマクロ登録画面を表示すると マクロ登録ボックスに「戻る」の先にBook1の住所が追加して書かれていました。 そこでBook1!戻るを再登録してボタンをクリックすると正常に作動するようになりまし た。
確認のため修正をしているPCを中断をして同様の作業を行ったところ正常に作動してい たものが先に書いたことと同様なことが発生ました。
ichinoseさんにより村八分だったPCを仲間に加えられたと喜んでいたのに今度は抵抗を 加えられた感じです。 「私が正常と思っていたのが逆に異常でPCの世界ではこれが正常なのかな。」 と私の心の底どこかで思うようになってきました。
何か解決方法はあるのでしょうか。 また文章ばかりになりました。 （具体的な事項が必要ならば明日会社で確認し連絡いたします。このことはテストで確 認できることではないようですから。） （キョッチャン）
ごめんなさい、どうしてもどうしても読みにくかったから全面的に文章直しました。 ほんとにごめんなさい。 （通りすがり）
>マクロ登録ボックスに「戻る」の先にBook1の住所が追加して書かれていました。 正確に何が表示されたのですか？ 例えば、 'C:\Documents and Settings\ichinose\デスクトップ\Book1.xls'!戻る
このように表示されているのですか？
このように表示される場合は、Book1.xlsが閉じた状態で、 Book2.Xlsのボタンのマクロ登録画面を表示したのではないですか？
この場合、
C:\Documents and Settings\ichinose\デスクトップ\Book1.xls
このパスが間違っていなければ、作動するはずです。
このパスにBook1.Xlsが存在して、そのブックに「戻る」というマクロがありますか？
それと再度、Book1!戻る登録した場合、その後はどうなんですか？
アドインを使って、コマンドバーにボタンを作成し、そのボタンにBOOK1を呼び出す機能を 持たせたらどうですか？ そうすれば、それぞれリンク先のブックボタンを作成しなくても よさそうですけどねえ！！
ichinose
マクロ登録ﾎﾞｯｸｽには C:\Documents and Settings\ichinose\ ﾃﾞｽｸﾄｯﾌﾟにおいていますが、おおもとの保存先の住所のみでﾃﾞｽｸﾄｯﾌﾟは入っていません。 それと、Book2のｺﾏﾝﾄﾞﾎﾞﾀﾝをｸﾘｯｸすると表示するｴﾗｰ文は「2重に開くことはできません。」という文です。 それと新たにわかったことですが、ｴﾗｰの発生するPCは大元のﾃﾞｰﾀBOOK1（台帳的なﾃﾞｰﾀ）およびそれのﾘﾝｸ先のﾌﾞｯｸををまとめたﾌｫﾙﾀﾞを保存しているPCだけで、ｴﾗｰの発生していたもう1台のPCはｴﾗｰ発生はなく改善されていました。これはichinoseさんのご指導のたまものと思います。これでｴﾗｰ発生の原因は絞りこめるのではないかと思いますがいかがでしょうか。
もう一点ｱﾄﾞｲﾝを使って、ｺﾏﾝﾄﾞﾊﾞｰ云々という文がありますが、具体的な作成方法を教えてください。ﾂｰﾙの中にｱﾄﾞｲﾝがあったので開いてみましたが意味がわかりません。（ｷｮｯﾁｬﾝ)
ｷｮｯﾁｬﾝさん> スレも続きそうなので、今後の投稿の際は文頭に半角スペースを入れて 適当なところで改行を入れてもらえますか? ←ここに「 」です。 そうすると改行などが反映され、読みやすい書き込みになります。(とおりすがりん)
>2重に開くことはできません。 ふ～ん、ということは、BOOK1が開いているのにパスも含めた内容が登録されているのですね!! まだ、再現手順が不明ですが、起こりそうな現象ですねえ。再現が出来ないのでここからの 修正案が浮かびません。
で、代替案として、前回ちょこっと申し上げたアドインを使う方法。 コマンドバーを使う方法なので2007で正常に作動するか心配ですが・・・。
ｷｮｯﾁｬﾝさんの投稿されている処理というのは、Book1というハイパーリンクが設定されている ブックを簡単にアクティブする事が主目的ですよね？
この処理をコマンドバーにボタンを設けてこれをクリックすることで実現してしまおう という仕様です。
今までの投稿と重なる記述もありますが、最初から記述します。
では、新規ブックにて（Sheet1というシートがある）、試して見てください。
１ 準備
ユーザーフォームを一つ作成してください。
ユーザーフォーム名--------UserForm1
テキストボックス----------TextBox1
コマンドボタン ----------CommandButton1
UserForm1には、上記二つのコントロールを貼り付けてください。
２ Sheet1にデータ設定
標準モジュール（Module1）に
'=================================================================
Option Explicit
Sub データ設定()
Application.DisplayAlerts = False
With Workbooks.Add
.Worksheets(1).Range("a1:b10").Value = "aaa"
.SaveAs ThisWorkbook.Path & "\aaa.xls"
.Worksheets(1).Range("a1:b10").Value = "bbb"
.SaveAs ThisWorkbook.Path & "\bbb.xls"
.Worksheets(1).Range("a1:b10").Value = "ccc"
.SaveAs ThisWorkbook.Path & "\ccc.xls"
.Close False
End With
Application.DisplayAlerts = True
With ThisWorkbook.Worksheets("sheet1").Range("a1:b4")
.Rows("1:4").Value = [{"項目1", "図番号";"a",1;"a",2;"a",3}]
With .Range("b2")
.Hyperlinks.Add Anchor:=.Cells, Address:="aaa.xls"
End With
With .Range("b3")
.Hyperlinks.Add Anchor:=.Cells, Address:="bbb.xls"
End With
With .Range("b4")
.Hyperlinks.Add Anchor:=.Cells, Address:="ccc.xls"
End With
End With
End Sub
別の標準モジュール（Module2）に、
'==================================================================
Option Explicit
Sub main()
UserForm1.Show
End Sub
先に作成したUserForm1のモジュールには、
'==================================================================
Option Explicit
Private Sub CommandButton1_Click()
Dim rng As Range
Dim f_no As Variant
With ThisWorkbook.Worksheets("sheet1")
Set rng = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp))
If rng.Row > 1 Then
f_no = Application.Match(Val(TextBox1.Value), rng, 0)
If Not IsError(f_no) Then
If .Cells(f_no + 1, "b").Hyperlinks.Count > 0 Then
On Error Resume Next
.Cells(f_no + 1, "b").Hyperlinks(1).Follow
On Error GoTo 0
End If
Else
MsgBox "指定された図番号は見つかりません"
End If
End If
End With
End Sub
と以前投稿したコードに似ていますが、ちょこっと違いますから、気をつけてください。
Userform1とコードの設定が完了したら、一度ブックを適当なフォルダに保存してください。 どこでも良いです。
但し、保存するブック名は、必ず、Book1.xlsにしてください。
保存した後に、 上記の「データ設定」を実行してください。 Sheet1というシートに
Ａ Ｂ
１ 項目1 図番号
２ a 1
３ a 2
４ a 3
こんなデータが作成されるはずです。尚、Excelでデータベースを作成する場合は、項目名を設ける ようにしてください。その方がExcelの機能を利用しやすいですから・・・・。
Ｂ列の数字には、コードで作成したブックがハイパーリンクとして設定されています。
サンプルデータとして、リンクされたブック（aaa.xls,bbb.xls,ccc.xls）は、book1.xlsと同じ フォルダ上に作成しましたが、これはコードの都合上で違っていてもかまいません。
これで前回投稿と同じようなサンプルブックが作成されると思います。
違うのは、ハイパーリンク先として、Excelブックが指定されている事ぐらいです。
ハイパーリンクが設定された状態でbook1.xlsを上書き保存をしてください。
一応 Book1.xlsで正常にハイパーリンクされたり、Userform1が正常に作動するか確認してください。
一度、Excel終了してください。それて、再度、Excelを起動してみてください。
新規ブックとして、Book1が既定ブックとして作成されていることを 確認してください。
３ アドインブックの作成
新規ブックのThisworkbookのモジュールに
'=================================================================================
Option Explicit
Const cmdnm = "目次呼び出し"
Const bknm = "book1.xls"
'=================================================================================
Private Sub Workbook_AddinUninstall()
On Error Resume Next
With Application.CommandBars
.Item(cmdnm).Delete
End With
On Error GoTo 0
End Sub
'=================================================================================
Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars
.Item(cmdnm).Delete
With .Add(cmdnm, msoBarTop, , True)
.Visible = True
With .Controls.Add(msoControlButton)
.Style = msoButtonCaption
.Caption = cmdnm
.OnAction = ThisWorkbook.Name & "!thisworkbook.open_mokuji"
End With
End With
End With
On Error GoTo 0
End Sub
'=================================================================================
Sub open_mokuji()
Dim bk As Workbook
On Error Resume Next
If Not ActiveWorkbook Is Workbooks(bknm) Then
ActiveWorkbook.Close
End If
Set bk = Workbooks(bknm)
If Err.Number <> 0 Then
Set bk = Workbooks.Open(ThisWorkbook.Path & "\" & bknm)
End If
bk.Activate
bk.Worksheets("sheet1").Activate
End Sub
上記のコードをThisworkbookのモジュールに記述してください。
アドインとして保存しますから、以下の手順に従ってください。
ＶＢＥからExcelに戻ってください。
「ファイル」-----「名前を付けて保存」とクリックして、名前を付けて保存するダイアログを表示させて ください。
「ファイルの種類」として、「Microsoft Excel アドイン (*.xla)」を選択してください。 保存フォルダが変わりますが、book1.xlsがあるフォルダまで移動して保存します。 保存する名前は、Book1Read.xla として保存してください。
一度、Excel本体を閉じてから、再度Excelを立ち上げてください。
再び、新規ブックとして、Book1が既定ブックとして作成されていることを 確認してください。
「ツール」----「アドイン」と起動して、アドインダイアログを表示させてください。 「参照」ボタンをクリックしてください。ファイルの参照画面から、Book1Read.xla がある フォルダまで移動して、Book1Read.xla を指定してＯＫボタンをクリックしてください。
アドイン一覧に作成した「Book1Read」があるはずです。 チェックされていることを確認してＯＫをクリックしてください。
この時点から、目次呼び出し というボタンを持ったコマンドバーが作成されます。
このアドインにチェックが入っている限り、次回からは、起動すれば自動的にExcelには、 目次呼び出しというボタンが表示されるはずです。
目次呼び出し というボタンをクリックしてください。 Book1.Xlsが表示されます。
適当にリンク呼び出しを行って再度、目次呼び出し というボタンをクリックすることで book1.xlsが表示されることを確認してください。
これで代替出来ませんか？
ichinose
ichinoseさん有難うございます。ｱﾄﾞｲﾝというこんな機能があるとはまったく知りませんでした。 まだまだ勉強不足です。 私も1つ発見をしました。これもichinoseさんのご指導のおかげですが、ご教授いただいたﾏｸﾛｺｰﾄﾞを 設定することによりｴﾗｰを発生するPCが1台正常に戻りました。今日たまたま、まだｴﾗｰを発生するPCで以前 紹介したことがあると思いますが、Book1から目次ﾍﾟｰｼﾞのBook2にﾘﾝｸしさらにﾘﾝｸするBook3を作成して います。これを実行したところ正常に作動するではありませんか。なぜだろうと考えたところ、Book2 とBook3はﾊｲﾊﾟｰﾘﾝｸと名づけたﾌｫﾙﾀﾞ同じﾌｨｰﾙﾄﾞ内にありBook1は共有しているﾌｫﾙﾀﾞにﾊｲﾊﾟｰﾘﾝｸﾌｫﾙﾀﾞ と同じﾌｨｰﾙﾄﾞに同梱しています。（Book1はﾊｲﾊﾟｰﾘﾝｸﾌｫﾙﾀﾞの中には入っていない。）同じﾌｨｰﾙﾄﾞに Bookがあれば正常に作動するのではないかと考え、Book1をﾊｲﾊﾟｰﾘﾝｸﾌｫﾙﾀﾞに入れて作動させたところ 正常に作動するようになりました。しかし、ここでまたまた問題発生です、ご想像のとうりﾊｲﾊﾟｰﾘﾝｸ の設定のやり直しです。Book1は台帳としていますので、それにﾃﾞｰﾀが6000近く入っています。これに ﾊｲﾊﾟｰﾘﾝｸを設定しだしたのはここ1年ぐらい前からですがそれでも500個ぐらいの量になっています。 これをやりなおすとなると、Book1の使用を一時ｽﾄｯﾌﾟしなければなりません。これをｶﾊﾞｰするﾏｸﾛは ないですか。あれば参考のため教えてください。またｱﾄﾞｲﾝを設定したら500個のﾘﾝｸしているBook すべてに反映できますか。 それでも疑問として残るのは、ﾏｸﾛが正常に作動するPCとｴﾗｰの出るPCがあるということです。これを ｶﾊﾞｰするﾏｸﾛがあることは解りましたが、ｴﾗｰのでるPCにはこのﾏｸﾛの実行を阻止する何かを持って いるか、またはPCが古いためﾏｸﾛを実行する何かが足りないのだろうと割り切ることにしました。 また私の悪い癖、長い文章で書いてしまいました。どうぞご容赦ください。（ｷｮｯﾁｬﾝ）
やっぱり気になるので書いてみます。
エラーにならないPCは、ファイルの拡張子を表示してなくて フォルダを開くと、名前が「Book1」と表示されている。 エラーになるPCは、拡張子を表示している フォルダを開くと、名前が「Book1.xls」と表示されている。 なんて設定の違いは無いですか？
(HANA)
エラーの原因がわかりません。順序だてて、再現手順書を作成してください。 >まだｴﾗｰを発生するPCで アドインの事例でということですか？それとも今までの手法での話ですか？
このエラーが再現する手順を記述してください。
どんなエラーがコードのどの個所で発生しているかも示してください。
そこから、このようにしたら正常に作動した という手順も示してください。
他にも疑問点がありますが、まずここまで 説明してください。
ichinose
>フォルダを開くと、名前が「Book1.xls」と表示されている。 これかなあ・・・。 どのブックも ブック名に .xlsを付けて再度元々方法を試してみては？。 フォルダオプションの設定の違いかなあ・・・。 本当は、全部 .XLSが付いていると思っていました。
ichinose
icinoseさんごめんなさい。以前取り消されましたがHANAさんの答えに同様の答えがあったのを見て しまいました。ﾌﾞｯｸ名には.xlsがついていますが、ﾏｸﾛ内の指示には、.xlsをつけていませんでした。 そこで、ﾏｸﾛの指示に.xlsをつけて実行したところ、ichinoseさんのﾏｸﾛと同様に1台のPCは正常に 作動するようになりました。しかし、1台のPCはやはり正常に作動いたしません。 そこで1つ前の質問に戻ります。まず、ｴﾗｰの出るPCの環境について説明いたします。共有ﾌｫﾙﾀﾞに Book1とBook1からﾘﾝｸするﾌﾞｯｸを収納したﾌｫﾙﾀﾞを収納しています。ここからBook1を「送る」でﾃﾞｨｽｸ ﾄｯﾌﾟにBook1のｱｲｺﾝを作成しています。次にｴﾗｰ発生の手順を記します。
1.ﾃﾞｨｽｸﾄｯﾌﾟのBook1のｱｲｺﾝをｸﾘｯｸしてBook1を開く。 2.図番号列に設定した数字をクリックする。 3.「2重に開くことはできません。」という表示がMsgBoxに表示される。（正確な文章は現場に行か ないと解りません。）
正常に作動した手順は次のとうりです。 1.Book1をBook1からﾘﾝｸするBookを収納したﾌｫﾙﾀﾞに移動。 2.Book1を開く。 3.図番号列に設定した数字をクリックする。 (ｷｮｯﾁｬﾝ)
HANAさんの質問に対する答えは現場に行かないとわかりません。明日（2/26）は休みを取っています ので月曜日の返事となります。申し訳ありません。
> 1.ﾃﾞｨｽｸﾄｯﾌﾟのBook1のｱｲｺﾝをｸﾘｯｸしてBook1を開く。 >2.図番号列に設定した数字をクリックする。 >3.「2重に開くことはできません。」という表示がMsgBoxに表示される。（正確な文章は現場に行か ないと解りません。）
ん、ハイパーリンクでエラー？
>それと、Book2のｺﾏﾝﾄﾞﾎﾞﾀﾝをｸﾘｯｸすると表示するｴﾗｰ文は「2重に開くことはできません。」という文です。 ボタンクリックでのエラーではないのですか？
ハイパーリンクは、リンク先のパスは、この設定を行った時点での相対パスで設定されているはずです。
よって、設定後にハイパーリンク元のブック（BOOK1）の保存先を移動（Windowsのファイル操作で移動）すると正常に作動しない可能性もでてきます。
例えば、Book1とbook2がデスクトップ上位にあるとき、Book1にBook2へのハイパーリンク設定したとき、 設定後、Book1を移動したりすると（Windowsのファイル操作で移動）、正常作動しない可能性はあります。
保存先フォルダ変更は。Excelを介して行っていますか？
Book1の読み込み 保存先変更 元のブックの削除 という順序です。
BOOK2のボタンだって デスクトップ上にあるときに、マクロを登録し、 その後BOOK1を移動すれば、正常には作動しませんよ！！
まず、問題をどれかに絞りましょう。
ichinose
icinoseさんこのｺｰﾅｰが少々混乱しているようです。まず最初のお答えについてです が、説明にきずいて再度この質問ｺｰﾅｰを開いたらまだ回答がなかったので修正を書き 込みました。それで次の日の朝、このｺｰﾅｰを開いたら修正文はなく、上記ichinoseさ んの回答だけがありました。このｺｰﾅｰで、同一人の連続2回の書き込みは自動削除さ れますか？それともかなり質問のやり取りが増えていますので混乱をきたしているの でしょうか。そろそろ新しい質問箱に移動しましょうか。 今回は内容がまったく違ったものになって申し訳ありません。 それと質問の内容について私の質問内容のとらえ方についてについて基本的なところ で食い違いがあるようです。私は共有しているﾃﾞｰﾀをすべてのPCで同様に扱えるよう にすることを目的として質問させていただいています。私の質問の仕方が悪いのだと 思いますが、現状は特定の1台のPCでｴﾗｰが発生して今までの説明のおかげで他のPCは すべて正常に作動します。私の行った対策についていずれもｴﾗｰが発生するのはこの 特定される1台のPCですこれをｶﾊﾞｰできる方法があればと思って質問させていただい ております。何かの対策を打ち正常に作動しているPCに異常が発生したときはその つど報告させ ていただきます。今までは改良こそあれ、正常PCが異常発生したこと はありません。また生意気なことを書いてしまいました。これにもめげず今後とも 今までどうりの親切なご回答をお待ちしております。(ｷｮｯﾁｬﾝ)
えっと。。。 ＞HANAさんの質問に対する答えは現場に行かないとわかりません。 ＞月曜日の返事となります。 という事ですが
＞ﾌﾞｯｸ名には.xlsがついていますが、ﾏｸﾛ内の指示には、.xlsをつけていませんでした。 ＞そこで、ﾏｸﾛの指示に.xlsをつけて実行したところ、ichinoseさんのﾏｸﾛと同様に1台のPCは正常に ＞作動するようになりました。 のご説明がありますので、充分です。
それから、コメントを書くときに １．半角カタカナは使用しない ２．適当な位置（無理のない文節）で改行をする ３．適度に空行を挟む を心がけていただけると、もう少し読みやすくなって 良いのではないかと思います。
因みに ＞同一人の連続2回の書き込みは自動削除されますか？ そんなことは有りませんので プレビューで確認後、閉じてしまったのではないでしょうか？
それで、「ボタンでエラー」が正解なんですか？ それとも、修正後が「ハイパーリンクでエラー」なんですか？
＞そろそろ新しい質問箱に移動しましょうか。 この問題に対する当初の質問は 「インデックスが有効範囲に有りません」のエラー だったと思います。
それは、.xlsをつけた事で解決したのではないかと思いますし ichinoseさんの「with thisworkbook」を使ったものではおきないと思います。
現在は「2重に開く事が出来ません」のエラーですし スレも長くなっていますので整理しても良いと思います。 （その際は、このスレにリンクと このスレへのリンクを 貼っておいて頂くのがよいと思います。）
メインでコメントして居られる、ichinoseさんのご意見を お伺いしてからが良いと思いますが。。。
(HANA)
有難うございます。
Book2（目次ﾍﾟｰｼﾞ）に設定している、Book1へ戻るｺﾏﾝﾄﾞﾎﾞﾀﾝをｸﾘｯｸすると「2重に開く事が出来ません」と表示されるのが正解です。
それとﾊｲﾊﾟｰﾘﾝｸを設定している、ﾌﾞｯｸを違うﾌｫﾙﾀﾞ等に移動すると、ﾘﾝｸするときｴﾗｰが出るのは 理解しているつもりです。Book1にﾊｲﾊﾟｰﾘﾝｸを500件近く設定しているのでこれを修正するのは 私の知識では膨大な作業量になるので、Book1を移動しなくても異常の出るPCを正常に作動させる ﾏｸﾛを設定できないか？（もちろん正常に作動しているPCも正常に作動するﾏｸﾛ）
それか、これは虫のよい話かもしれませんが、500件設定しているﾊｲﾊﾟｰﾘﾝｸを簡単に修正する方法が 無いかと言う相談です。
(ｷｮｯﾁｬﾝ)
HANAさんのおっしゃるように別スレッドにした方がよさそうですね！！
>Book1は共有しているﾌｫﾙﾀﾞにﾊｲﾊﾟｰﾘﾝｸﾌｫﾙﾀﾞ >と同じﾌｨｰﾙﾄﾞに同梱しています。（Book1はﾊｲﾊﾟｰﾘﾝｸﾌｫﾙﾀﾞの中には入っていない。）同じﾌｨｰﾙﾄﾞに >Bookがあれば正常に作動するのではないかと考え、Book1をﾊｲﾊﾟｰﾘﾝｸﾌｫﾙﾀﾞに入れて作動させたところ >正常に作動するようになりました。しかし、ここでまたまた問題発生です、ご想像のとうりﾊｲﾊﾟｰﾘﾝｸ >の設定のやり直しです。
現在の問題が以前、ｷｮｯﾁｬﾝさんが投稿された↑だとすると・・・・、
まず、フィールドという表現があいまいなので正確に記述してください。
例
d:\aaa\bbb というフォルダに
book1.xlsが共有ブックとして保存されています。
このbook1.xlsに登録されているハイパーリンク先のブックは、すべて
d:\xxx\yyy\zzz
というフォルダ内に保存してあります。
この状態だとエラーになりますが、
book1.xlsを 「・・・・・・」というフォルダに移すと 正常に作動します。
この「・・・・」も正確に記述してください。
現在エラーになっているＰＣでBook1.Xlsを上記のように移動すると、 当該ＰＣでは、作動しても 逆に他のＰＣでは作動しない ということはないのですか？
この検証はしてみてください。
>500件設定しているﾊｲﾊﾟｰﾘﾝｸを簡単に修正する方法が これは、正常に作動している時のBook1.Xlsとハイパーリンク先のブックの位置関係を正確に記述して すれば出来そうですけどねえ！！
これもいくつかデータで手動で修正し、その結果、すべてのＰＣで作動することを 確認してからの話です。
それから、複数のＰＣでの正常作動が目的だし、内容も結構複雑です。
くどくなっても、同じ事を何回も確認しながら（フィードバック）の記述をお願いします。
ichinose
↑の投稿の修正がてら、新規にされる場合のお願いとして。。。
PCは何台有るのですか？ 共有フォルダが有るPCと、問題の出るPCと、問題の出ないPC の３台（３種類）？
もしかして、共有フォルダは 問題の出るPCに有ったりして？ 或いは、各PCがそれぞれに共有フォルダと言うフォルダを持っているのでしょうか？
ichinoseさんが書いて居られる事と重複するかもしれませんが それぞれのファイルがある位置関係も 分かりやすくしておいていただけると良いと思います。
(HANA)
ichinoseさん会社でご質問の件確認いたしました。
アドレスの欄にはいずれも ハイパーリンク／Ａ１．ｘｌｓと表示されています。
それと１つ実験を行いました。ファイル「Ａ１」を Ｃ：新しいフォルダ￥台帳￥Ａ１．ｘｌｓ
としました。Ｂｏｏｋ１のあるところと同じ場所です。
Sub 戻る （）
ActiveWorkbook.Close
Workbooks("book1").Activate
Worksheets("sheet1").Activate
End Sub
をファイルＡ１に設定した上記コードを登録したコマンドボタンで実行したところ、 ７台すべてで正常に作動いたしました。 （キョッチャン）
ichinosesさん 今日表題の件で教えていただいた、マクロでＢ列に設定しているハイパーリンクは 最近のものは連続で設定していますが、若い数字のものは歯抜けで設定していますので、とびセルに 設定したハイパーリンクをユーザーフォームで実行したところ、ユーザ－フォームで指定したブック が開けませんでした。現在発生している問題点の解決方法と、あわせてこのマクロの修正方法も 教えてください。 （キョッチャン）
これが続きです。
ichinose
ボタンを押したときの正確なエラーメッセージが続きのスレに投稿されたので こちらへも貼り付けておきます。
メッセージは 「Book1.xls は既にひらいています。 2重に開くと、これまでの変更内容は破棄されます。 Book1.xls を開きますか？」 ではなく 「Book1.xlsと同じ名前のファイルがすでに開いています。 保存先が別のフォルダでも同じ名前のファイルを同時に開くことはできません。 ２つ目のファイルを開く場合は一方のファイルを閉じるか またはいずれかのファイルの名前を変更してください。」 でした。
(HANA)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.