- 締切済み
エクセル2003 VBAで セル内を 一発呼び出し
エクセル2003 オートフィルタではなく VBAで セル内を 一発呼び出ししたいので。 よろしく お願いします。 表 列A~E（結合２行） ：商品名と内容 列H~K（結合２行） 住所氏名電話番号を記載してます。 １年分を オートフィルターで 氏名 や 商品名で 探すのは 結構 時間がかかります。 同じものが ほぼ少ないため。。。 そこで たまに 同じ氏名 同じような 品を 検索する セルを ２個ほど作って そこへ セル１へ 商品名を入力すると 該当する 行のみ 表示される。 セル２に 名前をを入力すると 該当する 行のみ 表示される。 また、セルを赤色に塗った部分の結合行（２～３行）を 赤色に塗りつぶした行のみ 表示も できれば うれしいです。 コマンドボタン等を使ってもいいので お願いします。 そんな VBAを 作っていただけませんでしょうか＾＾； お手数おかけしますが どなたか よろしく お願いします。
- w1zgoo
- お礼率0% (0/2)
- オフィス系ソフト
- 回答数2
- ありがとう数0
- みんなの回答 （2）
- 専門家の回答
みんなの回答
- 某HN クロメート(Chromate)（@CoalTar）
- ベストアンサー率40% (705/1742)
バージョンがないので2002/2003での説明 オートフィルタが使えるんだったら >そこで たまに 同じ氏名 同じような 品を 検索する セルを ２個ほど作って データ-フィルタ -「フィルタオプションの設定」を使えばよいです。 # 応用編と書かれているようなテキストや、MOS expert対策本をマスターしましょう。 # VBAを使うのだったら、一般機能をマスターしてからでも遅くはないと思います。
＞そんな VBAを 作っていただけませんでしょうか＾＾； ここそういうサイトじゃないんで帰ってくださいｗｗｗｗｗ
関連するQ&A
- オートフィルターによって、抽出したセルにだけペーストしたい。
例えば、 ５行ごとの世帯表があります。 A列には氏名が入力されています。 ２人世帯は２行しか使いませんので、下３行は何も入力されていない行です。 つまり、10世帯分で100行あり、その中に合計38名分の氏名が入力されています。 列を挿入して、B列に新しい列を作りました。 この列に、別シートの同じ世帯員の生年月日が入力された列（ブランクの無い38行の38個のセル）を貼り付ける場合、どのように貼り付けるのでしょうか。 オートフィルターで、A列の空白セルを除いてから貼り付けたら、オートフィルター解除後、空白セルにも貼り付いてしまったので、ずれてしまいました。 オートフィルターで、省いた（隠した）セルに貼り付かないように貼り付けるにはどうすればいいのでしょうか。
- ベストアンサー
- オフィス系ソフト
- Excel VBAでセルの整列
Excel VBAでセルの整列 現在、VBAを勉強中の者です。 最近、勉強を始めたばかりですが、この前何とかVBAを用いてセルの塗り潰しが出来る様になりました。 そこで、今度は色が塗り潰されたセルを添付した画像のように整列したいと考えていますが、どんな風にすれば良いのか見当がつきません。 誰か、教えてください。 やりたい事は、A列に結合されているセルがいくつか存在していて、B列を挟んでC列にA列に関連する文字が入力されています。 そして、C列には予めセルが塗り潰されている箇所がありますが、今回、C列において塗り潰されているセルのみを、結合されているセルの最終行に移動させたいのです。
- ベストアンサー
- オフィス系ソフト
- エクセルのピポットテーブルのセルの値を繰り返し表示（結果をあとでオートフィルタや並び替えにかけたいが・・・）
エクセルのピポットテーブルのカテゴリーのセルを結合することはできますが、各セル全部に値を入れることはできるでしょうか。 例えば： 色,大,小,value 赤,A,a,10 赤,B,a,５ 青,B,b,２ を、エクセル2002のピポットテーブルにて次の表のように行に色、大文字、列に小文字ににすると、赤が一つの行にしか表示されません ,a , b 赤,A,10, ,B,５, 青,B, ,２ このままだと値をコピーしてもオートフィルタや並び替えにかけられませんが、どなたか、同じカテゴリーの部分の全部の行にカテゴリー名を表示する方法やそのためのVBAなどをお教えいただけますと大変助かります。どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA 条件にあうときセルを塗りつぶすには？
エクセルVBA 条件にあうときセルを塗りつぶすには？ エクセルVBAについて教えてください。 _________A 列 _________B 列_________C列_________D列 -------------------------------------------- 1行| 基準値_________ 5_____________1____________8 2行| りんご____________1_____________9____________０ 3行| みかん___________12___________5____________3 4行| ぶどう____________15___________7____________8 5行| バナナ____________3_____________1____________4 上図のようにデータがあります。 （実物は列行共に膨大です。また条件を４つ以上つける予定なので条件付書式は使えません） 各列の基準値に対して、セルの増減が、０以下のときに黄色に、５から８のとき大きくなるときに赤、９以上のときに青にセルの色を塗りつぶしたいです。 どのようにすればよいでしょうか？ B列の場合、基準値が５です。 B2のセルの場合、基準値５と１（B2セル）の増減は－４です。 増減が０以下のときは黄色に、増減が５から８のときは赤に、増減が９以上のときに青にするので、このときは黄色に塗りつぶします。 B3のセルの場合、基準値５と１２（B３セル）の増減は７です。 増減が５から８のとき赤に塗りつぶすので、このセルは赤に塗りつぶします。 B4のセルの場合、基準値５と１５（B４セル）の増減は１０です。 増減が９以上のとき青色に塗りつぶすので、このセルは青色に塗りつぶします。 C２のセルの場合は、C列の基準値は１（C1セル）です。 基準値１と９（C2のセル）の増減は８です。 増減が５から８のとき赤に塗りつぶすので、このセルは赤に塗りつぶします。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- エクセル vba セル合計
添付表について下記の様な処理をしたいのですが途中からVBAの書き方が（セル合計）がわからず困っております。 ＊日別の原価計（K列のセル値）の小計（K列の最終入力行の下※ｋ１１２）に計算する。 自分ではこの様を処理を考えております。 (1)商品名（G列）最終入力行の1行下を選ぶ（G１１２） (2) (1)の同行にある（k112)を合計算出セルとして選ぶ (3)商品名（G列）最終入力行（g112)からその列上の空欄行の１セル下（ｇ６６）を見て（要はg 112からEnd(xlUp))、その行と同じ範囲のK列（ｋ１１２ーｋ６６）を合計をする範囲として選ぶ (4) (2)の合計する範囲を(3)で算出する。 VBA素人の私では(1)～(3)までを下記の通り書きました。 Sub 原価合計求める() Dim lastrowshu As Long Dim lastrowgen As Long Dim fastrowgen As Long lastrowshu = Cells(Rows.Count, 7).End(xlUp).Row + 1 '帳票シートの商品名（G列）最終入力行+1を取得する。 lastrowgen = Cells(Rows.Count, 7).End(xlUp).Row '商品名行の最終入力 fastrowgen = Cells(lastrowgen, 7).End(xlUp).Row '商品名最終入力行から一番上 Cells(lastrowshu, 11).Select ここまでを実行すると添付ファイルでいうｋ１１２セルをselectするまではうまくいきましたが、 これ以降の(4)の合計の書き方がわかりません。 どなたか御教授願います。 あるいはもっといい方法があれば同時にご指導頂けますと幸いです。
- ベストアンサー
- 財務・会計・経理
- 繰り返し処理でセルの結合表示
繰り返し処理でセルの結合表示 VBAの初心者です。 例えば、参照シートにA列、B列それぞれ苗字と名前が入力されてあり 数百人分の氏名が1行ずつ入力されてあるとします。 その情報を異なるシートに苗字と名前をA列に結合させ、１０行間隔で 表示させる繰り返し処理を行いたいのですが、何方か教えていただけると 助かります。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- Excel VBAで結合セルに連番を振っていくには？
Microsoft Excel 2003での質問です。 表を作成しました。 結合セルが複数ある1列に（セル数はまちまち・複数の列には非結合）、連番を振っていく作業をしています。 これをVBAを使って自動化したいのです。 列に連番がすでに入力されている最終行の下のセル（つまりこれから連番が入る空白セル）を選択、 範囲指定し（セル数はまちまちなのでこれは手作業）、 セルを結合させるまではできたのですが、 この結合させたセルに、[（一つ上の結合セル）＋（１）]の値を入力させるにはどうプログラムしたらよいでしょうか？ わかりにくい説明で恐縮ですが、どなたかご教示ください。
- ベストアンサー
- オフィス系ソフト
- セルが結合されている場合のオートフィルタ
図のようにフィルタ抽出するセルが結合されています。 このままだと、3行ある下の2行は折りたたまれてしまいます。 該当する行を全て表示したい。 オートフィルタにこだわりませんが、何かいい知恵がありましたら、 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- Excelでマクロを使用して、列を表示させる質問です。
Excle2003での質問です。 C3セルからAE78セルまでにデータが入力されています。 C列には項目名・3行には氏名が並んでいます。 D4セルからAE78セルには、 各人に対応する項目に○や△等が記入されています。 （空白セルもあります） A1セルに氏名を記入して（３行目のリストから選択して）、 マクロを実行させると、 １．氏名を一致する氏名の列のみを表示して、 ２．オートフィルタで空白以外の行を表示する。 （ただしC列の項目名は表示されたまま） このようなマクロを組みたいのですが、 初心者の私ではまったく分かりませんでした。 どなたかご教授いただけたらと思います。 よろしくお願いいたしますm(_ _)m
- ベストアンサー
- オフィス系ソフト
- VBA 表の１つ下のセルを選択する
EXCEL2003のVBAを使っています。 オートフィルタで抽出させた表があります。 入力されているセルの、1つ下のセルを選択するにはどうしたら良いでしょうか。 A 1 あああ 2 あああ 5 あああ １行目から19行目までの列の中で、"あああ"だけをオートフィルタで抽出している 10 あああ 14 あああ 16 あああ 20 ※ ←ここを選択したい。 Range("A65536").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select これだとA17のセルが選択されてしまいます。 表全体の1つ下のセルを選択する方法はあるでしょうか？
- ベストアンサー
- オフィス系ソフト
