- ベストアンサー
EXCELのデーターを同じようにACCESSで表示したい
EXCELからACCESSにデーターをインポートしたいのですが、そのEXCELのデーターは項目ごとに色を分けて表示しています。インポートしたデーターは必要項目をクエリで表示し、それをサブフォームで表示したいのですが、EXCEL同様色で項目分けしたいのです。 条件付書式は3つまでしか条件付けできず、3つ以上色で分けているのです。 今のACCESSではこのような表示は無理なのでしょうか。 ACEESSの2003を使っています。 ↑の方法がない場合、今まで使っているEXCELのデーターから日々インポートするしかないのでしょうか？ 何か解決方法があれば教えてください
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (4)
- Dxak
- ベストアンサー率34% (510/1465)
＃１です。 > 私のレベルじゃちょっと理解できないみたいです・・・。 あら・・・じゃ、とりあえず手順を書いてみます。 あくまで参考例ですのでやって見れば、なんとなく理解できます。 １．テーブルを２個作ります。 テーブル名：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行の色を変えるにはこれからまた方法があるのでしょうか？ ぜひまた教えてください。よろしくお願いします
- imogasi
- ベストアンサー率27% (4737/17070)
ACCESSにもフォームで条件付き書式を設定できますが、それではダメでしたか。 ＞条件付書式は3つまでしか条件付けできず、3つ以上色で分けているのです。 は、表現がおかしくないですか。 ＞今まで使っているEXCELのデーターから日々インポートするしかないのでしょうか これは前段とどう関係あるのか？
お礼
回答ありがとうございます。 すみません。表現が下手で・・・条件付書式の条件は３つだけしか設定できませんよね？ その色分けしている項目が3項目以上あるということなのですが・・・。 今までどおりエクセルでデーターを入力し、それを毎日アクセスにインポートしてデーターを作っていくしかないかと・・・。 説明不足ですみません・・・。
使ったことがないので、はっきりとした意見でなくて申し訳ないのですが、ActiveXコントロールのスプレッドシートを使えばできるかもしれません。
お礼
回答ありがとうございます。 さっそく調べてみます
- Dxak
- ベストアンサー率34% (510/1465)
Acc2000以降の手法ですね。 Acc97の時には、無かったものです。 無かった時にはどうしたのか？ あきらめた・・・と言う事が多かった覚えがあります。 しかし、使える手もあります。 別テーブルでインデックス＋ＯＬＥを使用し、連結ＯＬＥのストレッチを使用して１×１のビットマップを全面に色塗りしたおぼえがあります。 これであれば、最大レコード数分の色を付けられますが、項目数分の色へ連結するフィールドをテーブル側に保持しなければならない上に、データを訂正するのは、ＶＢＡ側からデータを訂正していくようになってきます。 書いている意味理解可能ですか？
お礼
回答ありがとうございます。 私のレベルじゃちょっと理解できないみたいです・・・。 いろいろ勉強してみます
お礼
何度も本当に回答ありがとうございます できましたｗ。本当にありがとうございます。 やっと思い通りのデーターを作ることができました。 またACCESSのこと質問することがあると思いますが、そのときはまたアドバイス宜しくお願いします