- ベストアンサー
Excel VBA 初心者です。 作成中のマクロわからないところ
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
こんな感じでどうでしょうか。 For i1 = 1 To 1 If Cells(i1, 1).Value = "A" And Cells(i1, 2).Value = "G" And InStr(Cells(i1, 3), "J") > 0 Then i=Cells(i1, 4).Value End If Next i1 ※Sheet名は省略していますので、必要があれば追加してください。 ※条件を満たす行が複数あった場合に最初の行で処理をやめたければ、Exit Forを追加してください。
関連するQ&A
- Excel 2007のマクロ記述について
Excel 2007で、B4セルからI最終行までの整数のみを小数点以下1桁にする処理をマクロで実行したいのですが、どのように記述したらよいか教えてください。 最終行とはI列にセルの値がある最後の行です。 下記の例のマクロ実行結果は、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
- VBAマクロ作成について
A B C -------------- 1 ○○ 123 456 --------------- 2 □□ 789 123 --------------- 3 △△ 456 789 -------------- 上記のような表でInputBoxを使い「○○」と入力すると同じ行のB列「123」とC列「456」 「□□」なら「789」「123」のように値を取得し、変数に代入するような マクロを作成したいのですが、どのように記述すれば良いでしょうか。 初歩的な質問ですが、宜しくお願いいたします。
- ベストアンサー
- Visual Basic
- マクロ・VBA初心者です。
マクロ・VBAについて下記のような処理を簡素化できるかどうかお伺いさせて頂きたいです。 Excelシート前提条件 定期的に3社から入金(同じタイミングで受けております)を受けており、その入金を管理しているシートとなります。 A列には第何回目の入金か、B列には入金日を、C,D,E列には3社ごとの入金額が他のシートからとんでくるようになっており、F列には3社からの入金額をsum(C○:E○)で計算しております。 ※A2には「第一回目」、A3には「第二回目」のように入力されています。 ※○には、最新回文の行番号が入力されています。 このような設定とはなっていますが、新たに入金を受けると、前回分の1つ下の行に、前回分の数式をコピペし、また前回分のは前回分の行に値貼り貼り付けをしなおし、数式ではなく手打ちの入力と同じ形にしております。 つまり、数式が入力されているのは最新回の行のみで、過年度分は全て値貼りされ直されている状況です。 説明がへたっぴでごめんなさい( i _ i ) 前提条件は上記のようになっておりますが、 (1)最新回の行に、1つ上の行の数式をコピペする (2)コピペ後、前回分の行に前回分のを値貼りしなおす この(1)、(2)の動作をマクロ・VBAでできますでしょうか。 マクロ・VBAは初心者であるためなかなかうまくいかずに困っております。 ご指導のほど、宜しくお願い致します。
- 締切済み
- Microsoft ASP
- 作成したいマクロがあります。。。
どなたか教えてください。 マクロで、ある作業を自動化したいです。 【内容】 ある文字列の括弧内のみを取り出したいです。 【パターン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
- Excelでマクロを使用した削除に関して
マクロ初心者です。 Excelにて、以下のような表データがあるとします。 A列 B列 C列 D列 E列 … 1行 51 50 52 51 2行 50 a b c d 3行 51 e f g h 4行 52 i j k l この表の中で、A列と1行目の値が同じになる交点となるセルの値"以外"を 削除して以下のように表示させたいのですが、 その方法がわかりません。 A列 B列 C列 D列 E列 … 1行 51 50 52 51 2行 50 b 3行 51 e h 4行 52 k 単純な行削除・列削除ではないため、 頓挫しています。お知恵を拝借したく、よろしくおねがいします。
- ベストアンサー
- その他(プログラミング・開発)
- エクセルVBAについて
以下の処理をマクロで実行しようと思っていますが、わからない部分があるので教えてください。 (例): A B C D E F G 1 1 2 3 4 5 6 7 2 10 30 50 70 90 130 150 3 4 (1)1行目のどこかの連続したセル(例えばセルA1から セルD1)をドラッグする。 (2)マクロを実行する。 (3)セルA4に、「D2-A2」を計算した値が自動的に入力 される。この例では「70-10=60」 これは、(1)で例えばセルB1からF1をドラッグした場 合には、「F2-B2」を計算した値を入力したいので す。 要は、連続したセルを選択してその始点と終点のセルの行と列を取得できればこの処理はできると思うのですが、方法が分かりませんので教えてください。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルのマクロについてなのですが…
現在マクロを使用して数字の入力を行おうとしております。 セルのB2は変数iを入力(例えば5を入力) 値を入力する範囲はセルのCells(1,1)からCells(i,1)(下記あ~お)に 1~iまでの数字を重複する事無く入力します。 なお、セルのCells(1,1)からCells(i,1)に入力する数字は Rndを使用して乱数にしたいのですが 乱数の入力までは何とか辿り着いたのですが どうしても重複してしまいます。 ネットで調べたのですが、コピレば使えるのですが マクロの意味が良く分からないので 出来れば行ごとの意味も教えていただきたいのですが… ワガママばかりで申し訳ありません。 A B C D 1 あ 2 い 5 3 う 4 え 5 お 6 ・ ・ ・
- 締切済み
- その他(インターネット・Webサービス)
- EXCEL VBA 行の値を累計したいのですが・・
VBA初心者です。 VBAでEXCELの行の値を累計したいのですが、プログラムの仕方がわかりません。 どなたかわかる方教えてください。 A B C D E ・・・・ 1 1000 3000 2000 4000 3000 2 2000 5000 1000 3000 2000 3 4000 2000 3000 1000 5000 : 実行結果 A B C D E ・・・・ 1 1000 4000 6000 10000 13000 2 2000 7000 8000 11000 13000 ←行の値の累計 3 4000 6000 9000 10000 15000 : 行と列はたくさんあって、最後のセルまで累計する方法を教えていただけるとありがたいです。 どうぞよろしくお願いします。m(_ _)m
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロの組み方
マクロの初心者です。エクセルのマクロを組んでいるのですが,壁にぶち当たってしまいました。次のようにしたいのですが。 たとえば,A1のセルに「りんご」B1に「割引(1)」C1に「割引(2)」が入っている場合にはD1のセルに200を返す。A1が「りんご」でB1が空欄,C1が「割引(2)」ならD1に230を返す,A1が「みかん」でB1,C1が空欄ならD1に150を返す,のようにいくつかのセルの入力内容によって特定のセル(この場合はD1)に返す値を変えるようなマクロってありますでしょうか。 Selection.Replaceのようなものを使おうと思ったのですが,見当違いでしょうか。 ご指導をお願いします。
- ベストアンサー
- その他MS Office製品
- マクロ作成について
今、時刻表と合致するセルに色を付けてソートするマクロを作っています。 次のようになっています。(停留所が3つの場合) A B C D E F G H I J K L 1 2 a 0 1059 1145 1858 3 b 1 1030 1100 1130 1146 1510 1859 4 c 2 1000 1031 1101 1131 1147 1412 1511 1900 5 A列のa、b、cはそれぞれバス停名です。C2~J4に書いてある数字はそれぞれのバス停の発車時刻になります。 また、B列の数字はバス停名aを起点としてb、cのバス停までの所要時間です。B列に関してはユーザーの方で入力。以上を踏まえまして、今回実装したいことは、 (1)C2から範囲選択をして色を付け、選択した範囲とB列に入力した数字を足して、それと合致したセルに色を付ける。 A B C D E F G H I J K L 1 2 a 0 1059 1145 1858 3 b 1 1030 1100 1130 1146 1510 1859 4 c 2 1000 1031 1101 1131 1147 1412 1511 1900 5 これを行うとセルC2~E2とD3、F3、H3、E4、G4、J4には色が付くことになります。 (2)(1)で色の付いたセルのみをソート(色の付いていない部分は後ろのセルへ移動) A B C D E F G H I J K L 1 2 a 0 1059 1145 1858 3 b 1 1100 1146 1859 1030 1130 1859 4 c 2 1101 1147 1900 1000 1031 1131 1412 1511 5 以上になります。これを実装するためのコードを教えては頂けないでしょうか?よろしくお願いいたします。
- 締切済み
- Visual Basic
お礼
先ほど回答をもとにマクロを作ったら無事完成しました。 Jを含むというところでずっと悩んでました。 これでお盆休みを満喫できます。 本当にありがとうございました。