EXCELのデーターを同じようにACCESSで表示したい

Question

EXCELからACCESSにデーターをインポートしたいのですが、そのEXCELのデーターは項目ごとに色を分けて表示しています。インポートしたデーターは必要項目をクエリで表示し、それをサブフォームで表示したいのですが、EXCEL同様色で項目分けしたいのです。
条件付書式は3つまでしか条件付けできず、3つ以上色で分けているのです。
今のACCESSではこのような表示は無理なのでしょうか。
ACEESSの2003を使っています。

↑の方法がない場合、今まで使っているEXCELのデーターから日々インポートするしかないのでしょうか？

何か解決方法があれば教えてください

Dxak · Accepted Answer

こんです～。＃１です。

最初にＯＬＥ型について、説明しておきます。
（本当の話はAccessヘルプを読んだほうが正しいです）
ＯＬＥ型とは、映像や音楽のファイルをＯＬＥ（Object Linking and Embedding）と言われる型でデータを保持するフィールドです。Excel、Word等のファイル等も、ここで保持することが可能です。しかし、ＯＬＥはデータだけではなく、アプリケーション間のデータを行うための情報を保持するため、大体通常に保管したときの２～３倍のデータを保持することになります。
要するに、何でもデータにできるよ～って事ですね

ここを踏まえて、

> →これがペイントブラシの絵の項目しかみつけられ
> ません・・・。

それで、大丈夫です。同じものですから＾＾；

> あとＯＬＥサイズの設定をしたいのですが、その設
> 定がどこにあるのか・・・。

ＯＬＥサイズの設定？
テーブル上の話であれば、基本的にありませんＯＬＥ型で１ＧＢｙｔｅまで保持できますが、保管するデータが極力小さいほうが、Access全体的なレスポンスがよろしいようです。
今回は、ビットマップを使用してますので、ペイントブラシ起動後、「変形」－「キャンバスの色とサイズ」で極力小さく訂正ください。今回はビットマップで例を出してますが、Excelのシェイプをコピー＆ペーストで貼り付けてグラデーションとかも使用可能です。

フォーム上の話であれば、ドラッグして引っ張ればサイズは、いくつでも変わります。ただし、データ自体が大きく見えるわけではありませんので「連結オブジェクト」－「プロパティ」－「書式タブ」－「ＯＬＥサイズ：ストレッチ」に設定して、枠全体に描画します。

> この方法でサブフォームに表示した一覧の1行の色を
> 変えるにはこれからまた方法があるのでしょうか？

えっと、聞いている意味がよく理解できないのですが、連結ＯＬＥのコントロールサイズを、詳細一杯に広げれば１行丸々、塗ったように見えますが、こういう話ではなくて？って、コントロールを選択した状態で「書式」－「最背面へ移動」は必ず実施してくださいね。
そうしないと、データまで塗りつぶされますから＾＾；

では、がんばってくださいね。

Dxak · Answer

＃１です。

> 私のレベルじゃちょっと理解できないみたいです・・・。

あら・・・じゃ、とりあえず手順を書いてみます。
あくまで参考例ですのでやって見れば、なんとなく理解できます。

１．テーブルを２個作ります。
テーブル名：Tbl_Color
フィールド名：ID_Color
整数型、インデックス「はい（重複なし）」  
フィールド名：OLE_Color
ＯＬＥオブジェクト型

テーブル名：Tbl_Data
フィールド名：A
整数型
フィールド名：A_ID_Color
整数型

２．色テーブルを作成します。
テーブル「Tbl_Color」に「ID_Color」を１～４まで追加、「OLE_Color」に右クリックで「ＯＬＥオブジェクト挿入」→「ペイントブラシ」で大体４つのレコードにそれぞれの色を付けます。

３．クエリーの作成します。
新規作成→ＳＱＬビューにして下記の「SELECT～;」を上書きして、保管します。

SELECT Tbl_Data.*, Tbl_Color.OLE_Color
FROM Tbl_Data LEFT JOIN Tbl_Color ON Tbl_Data.A_ID_Color = Tbl_Color.ID_Color;

４．モジュールの作成します。
標準モジュールのところに下記のモジュールを書き込みます。

Function usUpdate(A As Control, A_Color As Control) As Boolean
    
    A_Color = ((Nz(A, 0)) Mod 4)+1
    
End Function

実際は、やりたい演算（条件）をここで設定します。

５．フォームの作成

３で作成したクエリーを元にフォームを作成します。
A
A_ID_Color
OLE_Color
の３つを配置、そのうち「A」に割り当てたテキストボックスの名前を「Ctl_A」、「A_ID_Color」に割り当てたテキストボックスの名前を「Ctl_A_ID_Color」とします。
念のため、「A_ID_Color」、「OLE_Color」の割り当てたものを、「使用可能：いいえ」「編集ロック：はい」に変更。
「OLE_Color」を「最背面へ移動」を実施し、「ＯＬＥサイズ：ストレッチ」にしておく。
「A」の割り当てた「Ctl_A」の「更新後処理」に式ビルダで

=usUpdate([A_ID_Color],[Ctl_A])

を貼り付け。

以上で実行可能です。

そうするとＯＬＥオブジェクトが「Ctl_A」を変更によって色が、ぱらぱら変わります。
色を付けるだけなら条件付書式より、かなり複雑に処理も可能になります。
後は「透過」とか工夫次第ですね

で、なんとなくは判りました？
（Ａｃｃ９７の時には再計算実施しなければ変わらなかったんですが、Ａｃｃ２００２で大丈夫なので、おそらく２００３も大丈夫だと・・・。）

imogasi · Answer

ACCESSにもフォームで条件付き書式を設定できますが、それではダメでしたか。
＞条件付書式は3つまでしか条件付けできず、3つ以上色で分けているのです。
は、表現がおかしくないですか。
＞今まで使っているEXCELのデーターから日々インポートするしかないのでしょうか
これは前段とどう関係あるのか？

16August · Answer

使ったことがないので、はっきりとした意見でなくて申し訳ないのですが、ActiveXコントロールのスプレッドシートを使えばできるかもしれません。

Dxak · Answer

Acc2000以降の手法ですね。

Acc97の時には、無かったものです。
無かった時にはどうしたのか？
あきらめた・・・と言う事が多かった覚えがあります。
しかし、使える手もあります。
別テーブルでインデックス＋ＯＬＥを使用し、連結ＯＬＥのストレッチを使用して１×１のビットマップを全面に色塗りしたおぼえがあります。

これであれば、最大レコード数分の色を付けられますが、項目数分の色へ連結するフィールドをテーブル側に保持しなければならない上に、データを訂正するのは、ＶＢＡ側からデータを訂正していくようになってきます。

書いている意味理解可能ですか？

EXCELのデーターを同じようにACCESSで表示したい

こんです～。

＃１です。

ACCESSにもフォームで条件付き書式を設定できますが、それではダメでしたか。

使ったことがないので、はっきりとした意見でなくて申し訳ないのですが、ActiveXコントロールのスプレッドシートを使えばできるかもしれません。

Acc2000以降の手法ですね。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング