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

質問

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

↑の方法がない場合、今まで使っているEXCELのデーターから日々インポートするしかないのでしょうか？

何か解決方法があれば教えてください

回答No.5

Dxak · ベストアンサー

こんです～。＃１です。

最初にＯＬＥ型について、説明しておきます。
（本当の話はAccessヘルプを読んだほうが正しいです）
ＯＬＥ型とは、映像や音楽のファイルをＯＬＥ（Object Linking and Embedding）と言われる型でデータを保持するフィールドです。Excel、Word等のファイル等も、ここで保持することが可能です。しかし、ＯＬＥはデータだけではなく、アプリケーション間のデータを行うための情報を保持するため、大体通常に保管したときの２～３倍のデータを保持することになります。
要するに、何でもデータにできるよ～って事ですね

ここを踏まえて、

> →これがペイントブラシの絵の項目しかみつけられ
> ません・・・。

それで、大丈夫です。同じものですから＾＾；

> あとＯＬＥサイズの設定をしたいのですが、その設
> 定がどこにあるのか・・・。

ＯＬＥサイズの設定？
テーブル上の話であれば、基本的にありませんＯＬＥ型で１ＧＢｙｔｅまで保持できますが、保管するデータが極力小さいほうが、Access全体的なレスポンスがよろしいようです。
今回は、ビットマップを使用してますので、ペイントブラシ起動後、「変形」－「キャンバスの色とサイズ」で極力小さく訂正ください。今回はビットマップで例を出してますが、Excelのシェイプをコピー＆ペーストで貼り付けてグラデーションとかも使用可能です。

フォーム上の話であれば、ドラッグして引っ張ればサイズは、いくつでも変わります。ただし、データ自体が大きく見えるわけではありませんので「連結オブジェクト」－「プロパティ」－「書式タブ」－「ＯＬＥサイズ：ストレッチ」に設定して、枠全体に描画します。

> この方法でサブフォームに表示した一覧の1行の色を
> 変えるにはこれからまた方法があるのでしょうか？

えっと、聞いている意味がよく理解できないのですが、連結ＯＬＥのコントロールサイズを、詳細一杯に広げれば１行丸々、塗ったように見えますが、こういう話ではなくて？って、コントロールを選択した状態で「書式」－「最背面へ移動」は必ず実施してくださいね。
そうしないと、データまで塗りつぶされますから＾＾；

では、がんばってくださいね。

お礼

何度も本当に回答ありがとうございます
できましたｗ。本当にありがとうございます。

やっと思い通りのデーターを作ることができました。
またACCESSのこと質問することがあると思いますが、そのときはまたアドバイス宜しくお願いします

回答No.4

Dxak

＃１です。

> 私のレベルじゃちょっと理解できないみたいです・・・。

あら・・・じゃ、とりあえず手順を書いてみます。
あくまで参考例ですのでやって見れば、なんとなく理解できます。

１．テーブルを２個作ります。
テーブル名：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」を変更によって色が、ぱらぱら変わります。
色を付けるだけなら条件付書式より、かなり複雑に処理も可能になります。
後は「透過」とか工夫次第ですね

で、なんとなくは判りました？
（Ａｃｃ９７の時には再計算実施しなければ変わらなかったんですが、Ａｃｃ２００２で大丈夫なので、おそらく２００３も大丈夫だと・・・。）

お礼

何度も回答ありがとうございます。
さっそくやってみましたが、
「ＯＬＥオブジェクト挿入」→「ペイントブラシ」で大体４つのレコードにそれぞれの色を付けます。
→これがペイントブラシの絵の項目しかみつけられません・・・。

あとＯＬＥサイズの設定をしたいのですが、その設定がどこにあるのか・・・。

折角教えていただいたのにまた質問するような形で申し訳ないです。

この方法でサブフォームに表示した一覧の1行の色を変えるにはこれからまた方法があるのでしょうか？

ぜひまた教えてください。よろしくお願いします

回答No.3

imogasi

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

お礼

回答ありがとうございます。
すみません。表現が下手で・・・条件付書式の条件は３つだけしか設定できませんよね？
その色分けしている項目が3項目以上あるということなのですが・・・。

今までどおりエクセルでデーターを入力し、それを毎日アクセスにインポートしてデーターを作っていくしかないかと・・・。

説明不足ですみません・・・。

回答No.2

noname#60992

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

お礼

回答ありがとうございます。
さっそく調べてみます

回答No.1

Dxak

Acc2000以降の手法ですね。

Acc97の時には、無かったものです。
無かった時にはどうしたのか？
あきらめた・・・と言う事が多かった覚えがあります。
しかし、使える手もあります。
別テーブルでインデックス＋ＯＬＥを使用し、連結ＯＬＥのストレッチを使用して１×１のビットマップを全面に色塗りしたおぼえがあります。

これであれば、最大レコード数分の色を付けられますが、項目数分の色へ連結するフィールドをテーブル側に保持しなければならない上に、データを訂正するのは、ＶＢＡ側からデータを訂正していくようになってきます。

書いている意味理解可能ですか？

お礼

回答ありがとうございます。
私のレベルじゃちょっと理解できないみたいです・・・。
いろいろ勉強してみます