![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
いつもお世話になっております。
Excelの外部参照についてですが、
例えばBook1のA1にBook2のA1が外部参照していたとします
Book1のA1が黄色に塗りつぶしされていたとしたらBook2のA1も
自動的に黄色に塗りつぶしされる様にしたいのです。
”条件付き書式”設定も考慮したのですが、Book1のA1を塗りつぶす条件
は人の判断でその時に応じて変わる為に単純にBook1のA1が黄色なら
Book2のA1も同じ黄色としたいのです。
OSはWindows95,Excelは97を使用しております。
どうか宜しくお願い致します。
No.3ベストアンサー
- 回答日時:
>願わくば、bookを起動時に自動でモジュールが実行される様にしたく現在調査中です。
この補足を見て気が付きました。
回答時に、次の3行を書くのを忘れていました。失礼しました。起動時に自動で動きます。
ThisWorkBookのコードウインドウに貼り付けます。
Private Sub Workbook_Open()
getWorkBook1
End Sub
ありがとうございました。
これでほぼ完璧になりました。
あとはFor~Nextで参照セルを
コントロールすれば終わりです。
これは自力で何とか出来ますので、がんばります。
貴重なお時間を申し訳ありませんでした。
また何かあった時には宜しくお願い致します。
以上
No.2
- 回答日時:
>Book1のA1にBook2のA1が外部参照・・・自動的に黄色に塗りつぶしされる様にしたいのです
とありますが、Book2の立ち上げ時にBook1の内容にあわせる例です。任意の更新も可能でしょう。
やっていることは、参照されているBookを必要なら開いているだけです。質問の主旨にあっているかは自信ありません。Book1、Book2を複数で同時に更新しているような状況は想定していません。
また、Book1、Book2がどのような環境下(ネットワーク等)にあるかも不明なので、PC内でBook1、Book2とも立ち上げ可能な状態でのコード(参考例)です。Excel2000で確認済みですが、Excel97でも問題ないと思われます。
実際は参照するセル等は多いと思いますが、ご参考に。
標準モジュールに貼り付けます。(参照しているBookの標準モジュール)
Sub getWorkBook1()
Dim myBookName As String 'このBook名(自分)
Dim sBookPath As String '参照されているBookのパス
Dim sBookName As String '参照されているBook名
Dim sBookClosed As Boolean '参照されているBookが閉じていた
myBookName = ThisWorkbook.Name
sBookPath = "D:\・・・・\・・・・" '参照されているBookのパスをセットします
sBookName = "・・・・.xls" '参照されているBook名をセットします
On Error GoTo ErrorHandler
'A1のパターンを同一にする例
With Workbooks(sBookName).Worksheets("Sheet1")
Worksheets("Sheet1").Range("A1").Interior.ColorIndex = _
.Range("A1").Interior.ColorIndex
End With
'参照されているBookが閉じていたのであれば、ここで閉じる
If sBookClosed Then Workbooks(sBookName).Close
Exit Sub
ErrorHandler:
'参照されているBookが閉じていれば開く
sBookClosed = True
Workbooks.Open sBookPath & "\" & sBookName
Workbooks(myBookName).Activate
Resume
End Sub
こんにちは。
わざわざコーディングまでして頂いてありがとうございました。
無事97でも動作確認が取れました。大変助かりました。m(__)m
願わくば、bookを起動時に自動でモジュールが実行される様に
したく現在調査中です。
参照する側のbookを多数のエンドユーザに配布する為に配布された
ユーザは単にエクセルを開くだけで、モジュールの実行を意識させ
たくないのです(自分勝手な事を言って申し訳ありません)。
ほとんどVBAの経験が無い為に苦戦しております。
もしアドバイスを願えれば幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Microsoft Excel 入力した値に応じて別セルの塗りつぶしの色を変えたいです。 2 2022/09/18 04:19
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/09 14:54
- Excel(エクセル) Excelの関数詳しい方お願いします。 13 2023/01/18 21:11
- その他(プログラミング・Web制作) python文字化けエラーが発生しているようです 3 2022/04/13 19:41
- その他(Microsoft Office) EXCELのセルへの色づけ 2 2023/06/07 01:22
- Excel(エクセル) Excelの複数人での参照について 2 2022/06/01 13:38
- Visual Basic(VBA) VBAで自動集計(特定セルコピー月ごとに値貼り付け)したい。 6 2023/06/25 11:37
- Excel(エクセル) Excelについて▶あるセルに文字を入力すると、別のセルに色がつく(条件付き書式) 1 2022/03/27 16:43
- Excel(エクセル) 条件付き書式でフォント色を赤に設定しましたが、 2 2023/07/29 14:17
- Excel(エクセル) 【至急】エクセル条件付き書式について教えてください A1:C3 E1:G3 からなる9マスずつの2つ 10 2023/07/28 12:09
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PostgreSQLのtimestamp型で時間...
-
Access にて "mm:ss.0" 形式の ...
-
絶対参照と相対参照の違いを教...
-
予約システムでの時間の設計に...
-
【SQL】他テーブルに含まれる値...
-
SELECT INTOで一度に複数の変数...
-
フラグをたてるってどういうこ...
-
Accessで今日から5日後
-
sqlに記述できない文字
-
オラクルのUPDATEで複数テーブル
-
ACCESSのVBAにてExcelに行...
-
結合したテーブルをSUMしたい
-
UPDATEで既存のレコードに文字...
-
'modify' 付近に不適切な構文が...
-
テーブル定義書(Oracle) 【IX】...
-
CASEでBETWEEN制約
-
全テーブルの列数を調査したい
-
集計でテストの各教科の最高得...
-
CSVファイルを読み込んでテーブ...
-
SQLで、Join句で結合したテ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PostgreSQLのtimestamp型で時間...
-
Access にて "mm:ss.0" 形式の ...
-
SELECT の仕方 (今月のデー...
-
MySQLで期間のUNIQUEってできま...
-
Excelの外部参照と書式設定につ...
-
予約システムでの時間の設計に...
-
英単語の意味
-
ご覧ください、ご参照ください...
-
該当レコードなしでエラーを発...
-
SQL 文 日付範囲を指定したレコ...
-
NASAで働くにはどうしたらいい...
-
【SQL】他テーブルに含まれる値...
-
SELECT INTOで一度に複数の変数...
-
フラグをたてるってどういうこ...
-
スキーマ
-
sqlに記述できない文字
-
オラクルのUPDATEで複数テーブル
-
Accessで今日から5日後
-
timestampのデータはどのように...
-
UPDATEで既存のレコードに文字...
おすすめ情報