- ベストアンサー
マクロについて質問です。
yuugure7の回答
- yuugure7
- ベストアンサー率26% (15/56)
#1さんへの補足です。 VBEの左部の該当シート名(Sheet1ならSheet1(Sheet1))をクリックし、そこに貼り付けてみてください。
関連するQ&A
- マクロについて質問です。
A B C 1 3 りんご 2 赤 3 くだもの 4 6 みかん 5 オレンジ 6 くだもの 7 9 ぶどう 8 紫 9 くだもの というデータがシート1にあったとして、シート2のa2セルに6と入力すると以下のようにa5セル以降に抽出し、6という入力を消すと抽出したものも消えるようなマクロ 6 みかん オレンジ くだもの 上のような質問で下のマクロを教えていただけたのですが、もし、みかんのb列も3だった場合いしたのようにみかんの行まで抽出できるようにするには下の構文をどうかえたらよいでしょうか。下手くそな質問ですがよろしくお願いします。 3 りんご 赤 くだもの みかん オレンジ くだもの 現在、わかっている構文↓ Private Sub Worksheet_Change(ByVal Target As Range) 'この行から Dim c As Range, wS As Worksheet Set wS = Worksheets("Sheet1") With Target If .Address = "$A$2" Then If .Value <> "" Then Set c = wS.Range("B:B").Find(what:=.Value, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then c.Offset(, 1).Resize(3).Copy Range("A5") Else MsgBox "該当データなし" End If Else Range("A5").Resize(3).ClearContents End If End If End With End Sub 'この行まで
- ベストアンサー
- Excel(エクセル)
- エクセルについて質問です。
現在、データベースを検索して別シートに抽出するマクロか関数を考えています。 内容としてはたとえばですがシート1に 商品 価格 色 ぶどう 100円 紫 いちご 80円 赤 みかん 120円 オレンジ ぶどう 120円 紫 このようにならんでるデータがあるとします。 シート2のA1セルにぶどうと入力するとA2セルとA3セルの行に ぶどう 100円 紫 ぶどう 120円 紫 というように抽出できる方法を教えていただけないでしょうか。よろしくお願いします。 また、A1セルの入力を消すと抽出されたものも消える方法も合わせて教えていただけるとありがたいです。
- ベストアンサー
- Excel(エクセル)
- Excel シート毎の比較、抽出
教えて頂きたい事が、二つあります。 sheetの名前が 「合計」「レモン」「みかん」「オレンジ」「ブドウ」「ひな形」とあります。 (1)各果物のSheetのセル(R7C6)に売上率が書いています(数値) 各果物のSheet毎に売上率を比べて 「合計」Sheetの同位置のセル(R7C6)に、一番高い売上率を表示させたい。 (2)もう一つは 各果物のSheetのあるセル(R7C7)に色が書いてあります(文字列) 書いてないこともあります。 「合計」Sheetの同位置のセル(R7C7)に各Sheetより抽出したデータを 表示させたい。 例えば Sheet 「レモン」「みかん」「オレンジ」「ブドウ」「ひな形」 R7C7 黄 紫 (空欄) 群青 (空欄) でSheet「合計」セル(R7C7)に [黄 紫 群青] と言うような具合。 「=レモン!R7C7&" "&みかん!R7C7&" "&オレンジ!R7C7&" "&ブドウ!R7C7」 とすると、スペース分が出てしまい、綺麗に表示されません。 今後フルーツが増えていく予定 (「合計」「レモン」「みかん」「オレンジ」「ブドウ」「メロン」「ひな形」) (「合計」「レモン」「みかん」「オレンジ」「ブドウ」「りんご」「メロン」「ひな形」) (「合計」「パイナップル」「レモン」「みかん」「オレンジ」「ブドウ」「りんご」「メロン」「ひな形」) なので間(合計が先頭でひな形が一番後ろ)に新しいsheetが入っても、対応できるような式がいいのですが・・・
- ベストアンサー
- オフィス系ソフト
- エクセル ブック内のシート間での行の参照?
エクセルの同じブック内のシート間で、セルを参照するのではなく、行参照?させたいのですが・・・。 例えば、、 シート1 A B C D 1行目 りんご みかん いちご ぶどう 2行目 赤 オレンジ 赤 紫 と入力すると同じようにシート2にも入力されるようにしたいのと、1行目と2行目の間に行を挿入しても同じようにシート2にも挿入されたり、 さらにはA列・B列のみ入力されたりするようにしたいのですが、(C列D列には別々のデータを入力したい)どのような方法がありますでしょうか?説明がわかりにくく申し訳ないのですが、宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- ピポットテーブルのマクロについて
A列 1 果物 2 りんご 3 みかん 4 みかん 5 りんご 6 メロン 7 メロン 8 ぶどう 9 りんご 10 みかん 11 りんご | | 以下名称が続きます ExcelのSheet1にある上記のようなデータを、Sheet2のA1に対して下記のような形式で 出力するのをマクロ化したいと考えております。 果物 集計 ぶどう 1 みかん 3 メロン 2 りんご 4 総計 10 通常通りピポットテーブルを行うのをマクロで記録した場合に、 下記のようになりますが、上手く実行できません。 Sub Macro4() Columns("A:A").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Sheet1!C1").CreatePivotTable TableDestination:="[Book1.xls]Sheet2!R1C1", _ TableName:="ピボットテーブル3", DefaultVersion:=xlPivotTableVersion10 With ActiveSheet.PivotTables("ピボットテーブル3").PivotFields("果物") .Orientation = xlRowField .Position = 1 End With ActiveSheet.PivotTables("ピボットテーブル3").AddDataField ActiveSheet.PivotTables( _ "ピボットテーブル3").PivotFields("果物"), "データの個数 / 果物", xlCount Range("D6").Select End Sub 列の名称は“果物”以外でも実行でき、A列の全てのデータをピポットテーブルで 集計できるようにしたいのですが、初心者のためなかなか上手く実行できません。 どなたか教えていただけますと幸いです。
- ベストアンサー
- Visual Basic
- エクセルのマクロについて
一つのセルに以下のマクロを設定したいです。 [Aシート] A1~B30の表があります。 A1~A30セルには、有 or 無 が入力されています。 B1~B30セルには、りんご、みかん、ばなな など物の名前(重複なし)が入力されています。 [Bシート] C3セルに、AシートのAセルが"有"だったら、Bセルの値を反映させたいです。 ※例えばAシートが以下の時 ---------------------- A B 1 有 りんご 2 有 みかん 3 無 ばなな 4 無 いちご 5 有 ぶどう 6 無 ぱいん 7 有 びわ ・ ・ ------------------------ BシートのC3セルに、AシートBセルの値を"折り返して"表示する。 A B C 1 2 3 りんご みかん ぶどう びわ 4 ------------------------ OS:Windows XP sp3 エクセル:Microsoft Office Excel 2003 sp3 ご存知の方がおりましたらご教授ください。
- ベストアンサー
- Windows系OS
- エクセルのマクロで別のSheetを印刷
Sheet3にデータが次のようにあります A B C 1 100 りんご 赤 2 150 ぶどう 紫 3 120 かき 青 Sheet2のA-1に数字を入れるとSheet3の行を以下のように 表示させるようにしています *1を入れた場合 A B C D 1 1 100 りんご 赤 *2を入れた場合 A B C D 1 1 150 ぶどう 紫 そのSheet2をSheet1に反映させ、Sheet1を印刷します ●以上のように設定している場合Sheet2でマクロを組んで、1だけ入れた場合の印刷、1から3までを入れた場合の印刷(3種類が印刷れる)などを指定できる方法はないでしょうか? どなたか、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 条件付書式の延長で・・・
初めて利用させていただきます。どうか教えてください。 いくつかのページを拝見したのですが、自分の問題解決には至りませんので助けて頂きたいのです。 ○○さん りんご みかん メロン ぶどう △△さん みかん ぶどう 柿 ××さん りんご めろん りんご 上記の様な時に、「りんご」のセルは赤、「みかん」のセルはオレンジに「ぶどう」のセルには紫、「メロン」のセルには緑、「柿」のセルには黄色と言ったように『セルの背景色』を指定したいのですが何とかなるものでしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセル 行にある項目を抽出
間違えて他のカテゴリーで質問してしまいました。 そちらは閉めましたので改めてこちらで質問させてください。 エクセルで下記のような表から項目を抽出したいのですが うまくいきません A列 りんご みかん りんご ぶどう みかん と入力されていて任意のセルに、A列に入力されている項目から 重複分を除き抽出したいです 具体的には任意セルに「りんご、みかん、ぶどう」と抽出したいのです。 フィルタオプションを利用し、抽出することはできました。 また、それをマクロ登録すれば、A列に追加項目があっても 自動変更できるという、回答も頂き、確かにできたのですが、 このエクセルから、ハイパーリンクでワードへ飛ばしたり、 いろいろと込み入っているため、できれば、 マクロではなく、関数利用をしたいのですが、 どのような関数を利用すればよいのかわかりません。 ご存知でしたら、ご教示お願いいたします。
- ベストアンサー
- オフィス系ソフト
- 該当する項目以外の数の総計をだしたい時
次のようなデータで果物の名前がA1に、果物の数がB1に入力されたときに りんごとみかん以外の果物の数だけをC1のセルに出したい場合は どのような関数を前もって組んでおくのが一番適切なのでしょうか? A1 B1 りんご 2 みかん 1 ぶどう 1 いちご 2 なし 3 ご回答宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト