BraveStoryのプロフィール

A・B・C、3つのグループがあり Aは テレビ・ラジオ Bは 雑誌・チラシ Cは インターネット・知人 という具合に分けられているテーブル 種別　媒体 A　　　テレビ A　　　ラジオ C　　　インターネット B　　　チラシ C　　　知人 B　　　雑誌 があります。 これをフォームでリストボックスとして 扱いたいのですが 種別のリストボックスで選んだグループのみを 媒体のリストボックスに表示するにはどうしたらよいでしょうか。 よろしくお願いします。

excelマクロはここ半年位やっています。 あるマクロ(VBA)を作ったのですが、表が大き過ぎて思うような処理スピードが出ません。ハードは富士通FMV6750CL7Sで750MのCPU速度です。ＯＳはWINDOWS2000を使っています。環境的には問題が無いと思っています。 何か良い知恵がある方いらっしゃれば宜しくお願い致します。 （内容） sheet1・sheet2・sheet3にそれぞれ、3000行の表があります。 三つの表には、受注番号と言う名前の識別項目が、それぞれ1列だけ用意されています。表は受注番号順にソートしています。 マクロはsheet1のある行の受注番号を見て、それと同じ受注番号をsheet2から検索して、該当する行を求めます。次にsheet2の受注番号からsheet3の受注番号を検索して、該当する行を求めます。 （実際にはもうちょっと複雑ですが・・・） 遅い部分を調べて見ますと、3000行の表から該当する行を検索する部分に時間が掛かっている所までは分かっています。 先頭行から順じ見に行って該当する行が見つかったら検索終了するようにはしています。 また、データの存在しない行を見に言ってはいないようです。 （検索部分はこんな感じです） For Each objA In Worksheets(Sheet2).[A:A] 　　If objA.Text Like 受注番号 Then 　　　intStr = objA.Row 　　End If 　　If objA.Text > 受注番号 OR objA.Text = ""Then 　　　Exit For 　　End If Next Accessなどのデータベースを使えと言われそうですが、excel内で処理すると言う絶対条件がありますので、苦慮しております。 このようなご経験のある方宜しくお願い致します。

　エクセル２０００でＶＢＡ使用の場合の質問です。 　既にシートに表や画像ファイルが配置されています。 あちこちの他データベースから、送付されてくるデータをそのシートの下端に自動で追加するマクロを組んでいます。 しかし、シートの一番下が不定な大きさの画像ファイルであった場合に、次のデータが、既にある画像に隠されない位置から貼り付けたいのですが、画像の最下位置をセル位置で取得する方法が判りませんでした。 　こういう場合、どのような方法で取得すればいいのでしょうか？ 　最下データは必ずしも画像とは限らないので、出来れば同じコマンドかルーチンで画像であってもセル内データであっても、最下端セル（ここでは画像にが被っていないセルか、ヌルでないセル）位置、或いは最初の空きセル（ここでは、画像で隠されていず、かつヌルセルの位置の意味）位置を取得できれば嬉しいのですが、それが無理な場合、最後が画像か非ヌルセルかを判断した上で、画像だった場合の最下端情報を取得する方法（非ヌルセルと判断出来れば、情報取得方法はいくつか知っています）のどちらかを知りたいのです。

あるエクセルファイルがあり、 その一枚のシートにはオートフィルタ （A～Z列まで）を使用しています。 【質問1】 ファイルを保存して閉じる際、 オートフィルタで抽出したものを 「すべて」に戻す、 つまりなにも抽出されていない（＝左端の行番号が黒字） に戻すマクロはどこにどのように書けばよいでしょうか？ オートフィルタを戻すマクロは、 'オートフィルタのあるシートを選択 Sheets("買取リスト").Select 'T列のオートフィルタを「すべて」にする Selection.AutoFilter Field:=22 というところまでは理解できました。 【質問2】 上記のマクロを Sheets("顧客リスト") から、Sheets("商品リスト")へ移動した際、 ボタン等を使用せずに、 （ただ、下のタブをクリックするだけで） 実行させることは可能でしょうか？ 可能であれば、どこにどのように記述すれば よいでしょうか？？ 　よろしくお願いします。

ｃｃｅｓｓ２０００で　テーブルがＡ　と　Ｂあり テーブルＡは一時保存用で最終的にＢに保存しようとしてます。 まず、データをフィールド１が空欄でＡに保存して、後にそのデータをフォームで呼び出し、フィールド２を入力後テーブルＢに保存その呼び出したカレントレコードのみ削除したいのですが、どうすればいいのでしょうか＞ フォームは連結されていません。 可能であればサンプルコードをいただくと助かります。 お願い致します。