- ベストアンサー
Excel VBAでサーチを使った分類をする方法を教えてください。
こんばんは。 下記のような名前がB列にあるとします。 ------------- こまったパンダ ころげおちたパンダ山 コンビにモンキー きっとあるよねパンダ団子・・・ 羽鳥ツバメ ------------ この文字列の中からパンダを含んだ場合、「Aパンダ」。モンキーを含んだ場合、「Bモンキー」。含まない場合は、「Cその他」とA列に分類する項目を設け、VBAで転記さたいのですが、どのように記述したらよいのでしょうか。 できればSheet2に分類表を設け「パンダ」を含んだら「パンダA」に分類というふうに出来ればベストです。 難しい場合は、考え方だけでも教えていただけると助かります。 宜しくお願い致します。
- みんなの回答 (3)
- 専門家の回答
関連するQ&A
- EXCEL VBA
はじめまして。ExcelのVBAについて質問させて頂きます。 - A-B-C 1 0 あ 2 0 い 3 1 う 4 1 え 5 1 お 上記のようなデータに対して、A列の値が1の場合、B列の値をC列へコピー して、B列をゼロにする。A列の値が0の場合は、そのまま。 (結果) - A-B-C 1 0 あ 2 0 い 3 1 0 う 4 1 0 え 5 1 0 お といったようにVBAを作成したいのですが、なにぶん初心者なもので、 どのように記述すればよいのかわかりません。 よろしくお願いいたします。
- ベストアンサー
- その他(プログラミング・開発)
- エクセルVBA:表の内容を分類別に振り分けたい
VBA初心者です。 入門書などで勉強中ですが、手に負えません。 助けてください。 A B C 名前 体重 分類 1ニワトリ ○ 鳥 2ヒラメ ■ 魚 3スズメ △ 鳥 4インコ ▼ 鳥 5タイ ◇ 魚 6イワシ ◆ 魚 というような入力シートの表があります。(下にたくさん続きます) このデータを分類別にしてワークシートを作成しています。 そこで、次のようなVBAを書きたいのです。 VBAを実行すると、 別シートに分類別に入力表のデータが振り分けられて、 魚がA,B列 A B 名前 体重 1ヒラメ ■ 2タイ ◇ 3イワシ ◆ 鳥がD,E列 D E 名前 体重 1ニワトリ ○ 2スズメ △ 3インコ ▼ と入力シートに入力されたデータが振り分けられるものです。 どうか、よろしくご指導お願いいたします。
- 締切済み
- その他MS Office製品
- エクセルでデータを蓄積するVBA
蔵書管理用の一覧表です。 エクセルでデータ入力用のフォームは作ることができたのですがシートに転記するVBAをどのように書けばよいのか分かりません。 データは次々に増えていきます。 A列には番号を入力せずに自動的に番号が増えていくようにしたい。 3番まで入力済みのあとは、自動で「4」と番号が付与されて、下の行に転記されるようにしたい。 VBA初心者です。よろしくお願いします。 A B C D 番号 分類 図書名 冊数 1 文庫本 日本の歴史 3 2 週刊誌 新潮 1 3 月刊誌 月刊ゴルフ 1
- 締切済み
- オフィス系ソフト
- 急!!Excel VBA 転記マクロを教えて下さい
Excel VBA超初心者です、 急ぎ作らなければならない資料があり、ご助力願います。 次の様な転記するアクションをコマンドボタンに設定したいです。 Sheet1の列A(先頭セルA2)に入力したデータを、 追加した(入力間違い等を除き、保存した)データ分だけ Sheet2の列B(先頭セルB3)の最終行から転記させていく。 列Aに入力したデータは、並び替えをするので (この分は、今回のVBAに含みません。入力・転記後、Sheet1で普通に並び替えをします。) 列Aと列Bのデータの順番が異なる。 以上です。 どうぞ宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで住所録の分類コードを自動で作成
エクセルで作成した住所録があります。 数が増えてきたのでコードで分類したいと考えています。 現在の住所録には「大分類」のC列まで入力されています。 ここからVBAによって、 「中分類」と「小分類」を入力したいと思います。 *中分類は末尾に2ケタの数字を追加(20ごとに 01、02、03 とする。) *小分類は末尾に1ケタの英字を追加(1つごとに A、B、C とする) どうかよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- Excel VBAに詳しい方教えてください。
Excel VBAについて 下記内容をマクロを使ってできるようにしたいのですが、どなたかお力添えいただけませんか? 例えば、下記のような記載のファイルBook1があるとします。 A1セル内 名前 B1セル内 〇〇会社 C2セル内 〇〇部 D2セル内 〇〇係 この内容を別のファイルBook2へ転記したいのです。 ただし、Book2の列は下記のようになっており A列 名前(すでに入力されている) B列 会社名 C列 部 D列 課 E列 係 Book1の内容をBook2の下記の条件で正しいセルへ転記したいです。 -Book1で[部]で終わっているものはBook2のB列[部]に転記 -Book2ですでに入力されている名前の行に、Book1の情報を転記 ご協力のほど何卒よろしくお願いいたします。
- 締切済み
- Excel(エクセル)
- エクセルVBAについてアドバイスお願いします。
見出し列A1からG1かけてあり A1→大分類 B1→小分類 C1~G1→A×Bの情報 となっています。 A B C D E F G ア 1 ア 2 ア 2 ヒ 1 ・ ・ ・ ヒ 2 ヤ 1 ヤ 1 ヤ 3 ちなみに A列昇順→B列昇順に並んでおり、行数は毎回不定です。 ここから、A×Bの組合せが同じ行ごとにまとめて、新規のブックを作成し、そこに張り付けて、A見出し+B見出しの名前で、csvファイル形式で保存したいです。 今は、オートフィルターをかけて、A列選択→B列選択をしてコピー、を全ての組み合わせごと行っています。 大分類も小分類も、数は不定で、名称も毎回様々です。 この作業をVBAで組み立てるとしたら、どのようになるでしょうか? 詳しい方、お力をお貸し下さい。 よろしくお願いします。
- 締切済み
- Visual Basic
- EXCEL VBA 複数ファイル値を集計
yakkunnと申します。 お世話になっております。 下記処理を実現するためのEXCEL VBAコードをご教授いただけないでしょうか。 ■やりたい事 デスクトップに「実績集計.xlsx」というファイルがあります。 このファイルにボタンを配置し、このボタンをクリックしましたら、C3セルに記述されているファイルパス配下を見てその配下ファイルを全て開き、各ファイルの値を「実績集計.xlsx」に全て転記するVBAコードをご教授いただきたく思います。 ■転記内容 例えばA.xlsx~C.xlsxという3つのファイルがあるとします。この3つのファイルを開いて・・ 左が「A.xlsx」、右が[実績集計.xlsx」とします 処理付を転記・・B4セル⇒B7へ転記 コードを転記・・B7セル⇒C7へ転記 商品名を転記・・C7セル⇒D7へ転記 数量を転記・・ D7セル⇒E7へ転記 金額を転記・・ E7セル⇒F7へ転記 これをA.xls~C.xlsまで繰り返し、実績集計.xlsxに値をどんどん転記したいです。 金額のF列の最後に合計金額が出力されれば最高です。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- excel vba 検索の方法について
excel vba 検索の方法について sheet1とsheet2があり sheet1のA列に10列(全て8桁の数字)文字が並んでいます。 sheet2のA列には1000列(全て8桁の数字)文字が並んでいます。 sheet1のA列とsheet2のA列で同じ文字がある場合 sheet2のA列の同じ文字の隣のsheet2のB列に◎がつくような vbaが書きたいです。 A列の文字は消したり、文字を変えたりします。 コマンドボタンに書いて、ボタンを押せば B列に◎がつくようにしたいです。 ご教授お願いします。
- 締切済み
- Visual Basic
- エクセルVBAで重複する名前に(2)、(3)等をつける方法は?
こんにちは。お世話になります。 以下のようなデータ(約1500件)があります。 データは分類と名称でソート済みです。 同じ分類のなかで同じ「名称」があった場合、B列の名称の直後に同一セル内で(2)や(3)を順に振っていくマクロを教えていただきたいのです。(1)は不要です。 下記の例では、ううう(2)、ううう(3)といった具合です。 よろしくお願いします。 A列 B列 C列 分類 名称 データ1 aaa あああ a aaa いいい b aaa ううう a aaa ううう a aaa ううう a aaa えええ b bbb かかか a bbb かかか a bbb ききき a bbb くくく b ccc さささ a ccc ししし b ccc すすす a ccc すすす a ccc すすす a ccc すすす a ccc せせせ a
- ベストアンサー
- オフィス系ソフト
お礼
なんとなく感じがつかめました。 データを検索するためにFind(What:=r.Value, After:=r1.Item(1), LookIn:=xlValues, LookAt:=xlPart)を使えば良いのですね。 ありがとうございました。