- 締切済み
エクセルのマクロ記述について
Ｊ列、Ｋ列に入力されている行まで下記処理を行うマクロの記述を教えてください。 Ｊ列のセルの文字列がにＳＨＡＰＥの場合、その行のＢ～Ｅ列のセルの色を黄色にする。 Ｋ列のセルの文字列がにＳＨＡＰＥの場合、その行のＦ～Ｉ列のセルの色を黄色にする。
- myk488698
- お礼率60% (3/5)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- a987654
- ベストアンサー率26% (112/415)
条件付き書式で簡単にできることを、 何のためにマクロを使わなければならないのか解りません。 勉強のため敢えてマクロでということであれば、丸投げ同様の 質問ではなくご自分がどこまでやってどこが判らないのかを 質問すべきです。 ・「Ｊ列、Ｋ列に入力されている行まで」の判断方法 ・繰り返し方法 ・繰り返しブレイクの方法 ・「Ｊ列のセルの文字列」の取込方法 ・Ｉf文の使い方 ・セル着色のマクロでの記載方法 等々
関連するQ&A
- エクセルのマクロ記述について
下記の処理をエクセルのマクロで行いたいのですが、どのように記述したよいか教えてください。 4行目から入力されている行まで下記の処理をマクロで行う。 １．J列のセル入力がCIRCLEの行で、B～E列の数値が同じセル間を結合する。 ２．K列のセル入力がCIRCLEの行で、F～I列の数値が同じセル間を結合する。 ３．J列のセル入力がOBLONG_XまたはOBLONG_Yの行で、B,D列及びC,E列の数値が同じ場合、B列をB列の数値ＸC列の数値とし、B～E列のセルを結合する。 ４．K列のセル入力がOBLONG_XまたはOBLONG_Yの行で、F,G列及びH,I列の数値が同じ場合、F列をF列の数値ＸG列の数値とし、F～I列のセルを結合する。 ５．J列のセル入力がOBLONG_XまたはOBLONG_Yの行で、B,D列及びC,E列の数値が同じでない場合、B列をB列の数値ＸC列の数値とし、B,C列のセルを結合する。又、D列をD列の数値ＸE列の数値とし、D,E列のセルを結合する。 ６．K列のセル入力がOBLONG_XまたはOBLONG_Yの行で、F,G列及びH,I列の数値が同じでない場合、F列をF列の数値ＸG列の数値とし、F,G列のセルを結合する。又、H列をH列の数値ＸI列の数値とし、H,I列のセルを結合する。 ７．J列のセル入力がSHAPEの行で、B～E列は何もしない ８．K列のセル入力がSHAPEの行で、F～I列は何もしない
- 締切済み
- Visual Basic
- Excel 2007のマクロ記述について
Excel 2007で、B4セルからＩ最終行までの整数のみを小数点以下１桁にする処理をマクロで実行したいのですが、どのように記述したらよいか教えてください。 最終行とはＩ列にセルの値がある最後の行です。 下記の例のマクロ実行結果は、1→1.0、2→2.0となります。 （例） 列 A B C D E F G H I J K 行4 A1 0.9 0.9 0.9 0.9 1.2 1.2 2 2 CIRCLE CIRCLE 5 A2 1.4 1.4 1.6 1.6 1 1 1.5 1.5 CIRCLE CIRCLE 6 A3 0.71 0.71 0.71 0.71 1 1 1.5 1.5 CIRCLE CIRCLE マクロ実行結果 列 A B C D E F G H I J K 行4 A1 0.9 0.9 0.9 0.9 1.2 1.2 2.0 2.0 CIRCLE CIRCLE 5 A2 1.4 1.4 1.6 1.6 1.0 1.0 1.5 1.5 CIRCLE CIRCLE 6 A3 0.71 0.71 0.71 0.71 1.0 1.0 1.5 1.5 CIRCLE CIRCLE
- 締切済み
- Visual Basic
- （エクセルマクロ）複数の一連作業をマクロで行う処理について
以下の一連の処理についてマクロのコードを一式で教えてください。 【エクセルの構成】 1.シート名 日付だけ都度変更する形式 （例:YYYYMM_教えてGoo） 2.表 列 AからAAまでデータあり 行 1行目はタイトル。2行目以降からデータ。 【処理手順】 1.表全体のフォントを「MS Pゴシック フォント9」にする。 2.1行目から11行目と13行目を削除 3.A列とD列削除 4.一行目の項目行にオートフィルタを設定 5.ウインドウ枠の固定（先頭行（一行目の項目行)の固定） 6.H列に文字が入ってる行のみ削除 7.E列とF列を昇順に並び替え（優先順位は(1)F列、(2)E列） 8.データの最終行の次の行のU列からZ列に表を入れる。 （例）5行目が最終データ行の場合 A…U V W X Y Z 1 ・ 5 6 A =SUM() 7 B 8 C =SUM() (書式設定と詳細） セルU6 「文字列A」と入力し、背景は黄色、文字色は赤 セルV6 背景は黄色、文字色は赤 セルW6 背景は黄色、文字色は赤 セルX6 背景は黄色、文字色は赤 セルY6 背景は黄色、文字色は赤 セルZ6 数式入力（=SUM(Z$2:Z5（最終行））、背景は黄色、文字色は赤 セルU7 「文字列B」と入力し、背景は黄色、文字色は赤 セルV7 背景は黄色、文字色は赤 セルW7 背景は黄色、文字色は赤 セルX7 背景は黄色、文字色は赤 セルY7 背景は黄色、文字色は赤 セルZ7 背景は黄色、文字色は赤 セルU8 「文字列C」と入力し、背景は黄色、文字色は赤 セルV8 背景は黄色、文字色は赤 セルW8 背景は黄色、文字色は赤 セルX8 背景は黄色、文字色は赤 セルY8 背景は黄色、文字色は赤 セルZ8 数式入力（=SUM(Z6:Z7）、背景は黄色、文字色は赤 すべて掛け線なし 9.データ最終行（表も含む）から5行目全体をグレーにし、その行のA列に「データA」と入力。 10.I列に文字が入ってる行のみを切り取り、一番最後にデータが入ってる行から6行目（「データA」と入力した下の行から） から貼り付ける。（切り取った行は行削除し、上詰め） 11.データ最終行（切取貼り付けしたデータAを含む）から3行目全体を黄色にし、その行のA列に「データB」と入力。 12.X列の前に列を挿入し、挿入した列の一行目（項目行）に「タイトル」と記入。 13.挿入した列の2行目から前の列（W列）にデータが入ってる行まで数式（＝ROUND（W2/1.05,0)※2行目に入力した場合)をコピー。 14.セルAB1に「No.」と記入。 15.G列からW列とY列からAA列を非表示にする。 6と8以降からマクロの自動記録ではできませんでした。 ご教授お願いします。
- ベストアンサー
- オフィス系ソフト
- ＥＸＣＥＬのマクロで。。。
シートＡのセルＣ２の値（数字）を シートＢのＥ、Ｆ、Ｇの各列のうち空いている一番左のセルで、かつ、Ｄ列に何か書いてある一番下の行のセル に転記したいです。 たとえば、シートＢが図のような場合にはＦ２８です。これが毎回、変化します。 マクロの記述を教えて下さい。よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excelのマクロ作成について
電車の時刻表がありまして Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ Ｎ １ ２ あ 1054 1425 1555 1725 ３ い 0 1059 1430 1600 1730 ４ う 5 1104 1235 1435 1505 1605 1735 ５ え 7 1105 1237 1437 1507 1607 1737 ６ お 9 1108 1239 1439 1509 1608 1739 ７ か 1110 1240 1430 1440 1510 1610 1740 1840 ８ き ９ く Ａ列は駅の名前、Ｂ列の数字は０と入力した駅からそれぞれの駅までの平均的な所要時間でＣ列以降は時刻です（：は抜いて対応） マクロで作りたいことは、 ０と書かれた行の時刻を１セルずつ見ていき、そのセルに色を付けます。 次にＢ列の最終行の数字の所までそれぞれ足して合致していいるものがあれば色を塗る。 もし途中で合致しないものがあればその瞬間今まで色を塗っていたものを元の状態（色を塗っていたものを全て真っ白）に戻して次のセルを見ていき、最後のセルまで行う。 上の例の場合 (1)まず０と書かれた行の最初のセルC3を見て確認のため色を付けます。 (2)次にC3とB4の時刻を足して合致するものが４行目にあれば色を付けます。このときC4に1104がありますので色を付けます。 (3)今度はC3とB5の時刻を足して合致するものが５行目にあれば色を付けるのですが、このとき５行目には1106はないので、この瞬間、C3とC4に付けた色をデフォルトの状態にし以降のチェックは行わず、D3のチェックに移ります。 (4)次はD3に移り、Ｃ列同様、D3とB4～B6の時刻を足したものがそれぞれ4行目、5行目、6行目にあるかチェックします。省きますが、全部あるのでD3、E4、E5、E6に色が付き、E3に移ります。 (5)E3も同様に行います。E3とB4～B5の時刻を足して対応したものがそれぞれ3行目、4行目にあるのですが、E3+B6の時刻が6行目には無いのでE3、G4、G5の塗ったセルをもとに戻し、F3に移動します。 (6)F3に移動し以下同様です。対応するものがあるのでF3、H4、H5、H6に色が付き、０と書かれた行の最終行なので処理が終了します。 ※Ｂ列の平均所要時間はいつもB3から入れるわけではなく、ケースバイケースで変わってきます。 一応、この例をマクロを使って無事動いた時の画像も載せておきます といったマクロを作りたいのですが、初心者のため手も足も出ません。 時間もないので、マクロ作成に自信のお有りの方、もしよろしければこれを実装するためのコードを教えて頂けないでしょうか？ 丸投げで誠に申し訳ございません。 長文失礼足しました。
- ベストアンサー
- Visual Basic
- エクセルのマクロの作成について
エクセルのマクロの作成について教えてください！！ 一つのセルの中に3行の文字があるとして・・・・ そのセルの2行目と3行目を隣のセルにうつしたいです。 例えば・・ E列の1行目のセルに あいうえお かきくけこ さしすせそ と文字が入っていて、 それを F列の1行目のセルに かきくけこ さしすせそ のみ移動させたいです。 1行～300行ほどあって、さらにデータは増え続けます、手作業での移行が困難になってきました。 そもそも一つのセルの中身の文字の一部を違うところに移動させるマクロは組めるのでしょうか。 当方初心者です。お手柔らかにお願いします。
- ベストアンサー
- オフィス系ソフト
- 作成したいマクロがあります。。。
どなたか教えてください。 マクロで、ある作業を自動化したいです。 【内容】 ある文字列の括弧内のみを取り出したいです。 【パターン1】 列1 列2 列3 ・・・ 1 A123(D234,E567,・・・) 【パターン2】 列1 列2 列3 ・・・ 1 B456(G785,H652, 2 C789,i951,j753 3 F963,K852・・・) 上記のように1つのセル内に（ ）が存在したり、また行をまたいで（ ）が存在したりします。 ※列は一定です。 その括弧内の文字のみをセルに分けて下記のように表示したいです。 列1 列2 列3 ・・・ 1 B456(G785,H652, G785 H652 2 C789,i951,j753 C789 i951 j753 3 F963,K852・・・) F963 K852 抜き出したい文字列についてですが、1桁から10桁くらいまであります。 たとえば U2,R965482 等 以上です。どなたか教えてください。
- 締切済み
- Visual Basic
- VBAマクロ抽出の記述
Ａ列からＡＨ列の６行目からデーターベースが入っています。 条件としてＡＨ列６行目の欄にKという文字で Ｆ列～ＡＣ列までのデータがブランク以外のデータを抽出したい。 このマクロの記述の仕方を教えてください。
- ベストアンサー
- Visual Basic
- エクセルのマクロ（検索）
お世話になります。 エクセルのマクロで以下の処理をしたいのですがアドバイスください。 Excel2002です。 以下は実際の作業を簡略化したものです。 F列が●●という文字列で、かつE列が空白以外の行を検索した結果、 →対象行がない場合、【対象行はありません】というメッセージボックスを出し、ＯＫをクリックしてマクロを終了させる →ある場合、１行目にオートフィルタを設定し、F列が●●という文字列で、かつE列が空白以外の行を表示させる（オートフィルタの機能で）ここでマクロの動作を一時停止させ、【続行】or【終了】が選択できるメッセージボックスを表示させる。 ここで【終了】をクリックすればマクロを終了させる。 【続行】をクリックすれば、いまオートフィルタで表示されている行のD列を値をすべて-1に変更する。次にオートフィルタを解除し、F列にある●●というセルをすべてクリア（空白）しマクロを終了させる。 アドバイスお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロ記述について
Ｂ列～Ｉ列に入力されている最終行まで下記処理を行うマクロの記述を教えてください。 整数のみ小数点以下１桁表示にする。（例： 2→2.0） 小数（例：1.32、2.4）の場合は何もしない。
- 締切済み
- Visual Basic
お礼
質問が分かり難くて申し訳ありません。 できるとこまでやってみて分からなければ質問させて頂きます。 回答ありがとうございました。