- ベストアンサー
VBAで特定の条件だったらセル番地を記載
xls88の回答
- xls88
- ベストアンサー率56% (669/1189)
数式の戻り値でなく、生の実データということなら Dim crng As Range Dim brng As Range Dim c As Range Dim i As Long Application.ScreenUpdating = False Set crng = Range("A2", Range("A" & Rows.count).End(xlUp)) crng.Replace 0, "" Set brng = crng.SpecialCells(xlCellTypeBlanks) Set crng = crng.SpecialCells(xlCellTypeConstants) For Each c In crng.Areas i = i + 1 MsgBox c.Address & vbLf & _ i & "ブロック開始セル " & Split(c.Address, ":")(0) & vbLf & _ i & "ブロック終了セル " & Split(c.Address, ":")(1) Next brng.value = 0 Application.ScreenUpdating = True
関連するQ&A
- 【VBA】特定の条件でセルをコピー
VBA初心者です 特定の条件を満たすセルの隣接する指定のセルをコピーして別のシートへ貼付けたいです 【sheet1】 A B C ~ F G 1 2 あ ~ 3 あり 2 1 い ~ 7 なし 3 2 う ~ 4 あり 5 3 え ~ 6 あり 6 2 お ~ 5 なし 7 1 か ~ 3 あり 8 3 き ~ 7 なし 9 2 く ~ 8 なし といったデータのうち、G列が「あり」の行の C~Fの値を別のシートへ以下のように貼り付けたいです 【sheet2】 A ~ D E あ ~ 3 _ う ~ 4 _ え ~ 6 _ か ~ 3 _ 全くの初心者です よろしくお願いします
- ベストアンサー
- Visual Basic
- VBAでセルの番地を増やす方法
VBAで以下のようなコード書いたのですが、うまくいきません。 For i = 3 To 14 Step 1 xa = "d" & i xb = "b" & i Worksheets("月別").Range(xa) = Evaluate("SUMPRODUCT((nt)*(date>=xb))") Next i xaとxbにはセルの番地が入ります。for文の一回目の結果は、xaにはセル(B1)の値が入り、xbにはセル(D1)の値を入れたいです。二回目以降はセル(B2)、(D2)と行をずらして参照するようにしたのです。上記の方法でxaはセル番地が入り、うまくいっています。xbはセル番地として認識されていないようです。どうすればよいでしょうか?
- ベストアンサー
- その他MS Office製品
- 特定のセルの数値の行数だけコピーしたい
お世話になります。 Excel2002で次のことをやろうとしています。 特定のセルに表示されている数値の行数だけコピーする。 これを、マクロを使って実行したいのですが、その方法が思いつきません。 どのようにしたら良いかお教えください。 [コピー元]のシートの"J53"のセルに、例えば「13」が表示されています。 この「13」がコピーする行数です。 このシートには多くのデータが入っていますが、そのうちの"A1"~"G13"だけのセルをコピーし、[コピー先]のシートの"A8"~"G20"に貼り付けるものです。 コピーする行数を表示しているセル"J53"は、常にこの位置です。 コピーするデータの列は常に"A"~"G"で、変わることはありません。 コピーするデータの行は、始まりは常に"1"からで、最後は"J53"に表示されている数値の行です。 コピーする行数を示す"J53"に表示される数値は「1」~「52」の範囲内です。 コピー先の位置は、[コピー先]のシートの"A8"~で、変わることはありません。 類似の質問を探したり、他にもネット上で探したのですが見つかりませんでした。 よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- セル番地という言い方
ExcelのA1やB1というセル番地の呼び方について 教えてください。 本には「列番号と行番号でセルの位置を表し、そ れをセル参照と言う」と記載されています。 セル番地と言う言い方と、セル参照という言い方、 どちらが正式ですか。
- ベストアンサー
- オフィス系ソフト
- excelで○○と入力されているセル番地を返す方法
excelについて質問です。 シートAに下記の記述をします。 A B 1 項目名 セル番地 2 ○○ B7 のような形で、シートBからセル番地を引っ張ってくる方法はありますでしょうか。 セル番地が難しいようであれば、行、列を返す形でもよいです。 上手く質問ができず、申し訳ありません。 できればVBAは使わず、関数で処理できるとベターです。 宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- VBA ジャンプで検索した複数セル番地の取得
教えてください。 一覧票の中で、#N/Aエラーになっているセル番地を拾って、別ワークブックに転記していきたいです。 試してみた方法ですが、 対象のデータをひらく→条件を検索してジャンプ→数値のエラー値を選択 →結果 #N/Aが出ているセル番地を1つだけ取得することはできました。ですが、複数該当している時は全てのセル番地が取得できないようです。(セルは複数選択された状態になっているのですがセル番地の一番若いものだけ取得しているようです) そもそもVBAで"条件を検索してジャンプ"から探そうとするのが無理なのでしょうか。
- 締切済み
- Excel(エクセル)
- OfficeExcel2003:マクロを用いた特定行のセル毎の条件判定
Microsoft Office Excel 2003を用いて簡単なデータ管理表を作っています。 その中で特定列の各セルに格納された値が一定の条件を満たした際に そのセルの設定を変更するマクロを実装したいと考えています。 ちょっと分かりづらいかもしれないので具体例を挙げます。 例えばB列の各セルに数値データが格納されているとします。 その数値データが100以上ならばそのセルの背景色を青に、-1以下ならば背景色を赤に変更する。 といった感じです。 全データ数(行数)は不定で必要があれば増やせるようにしたいです。 1データは複数行にまたがっており、判定する項目(列)はセルの結合を行っています。 また、一定行間隔で項目の見出しを記した行が挿入されています。 そのせいか、自分なりに組んでみたマクロはセルの走査がうまくいかず、オーバーフロウを起こしてしまいました。 結合セルでも問題なくデータ入力されている最後のセルまで順に検索していく方法はありますか? どなたか御存知の方いらっしゃいましたら、ご教授お願いします。 また、ネットで調べるのにも少し限界があるようなので 逆引き事典的に扱える、良いVBAの書籍がありましたら教えて頂けるとありがたいです。
- ベストアンサー
- オフィス系ソフト
- Excel VBAでシート間でセルの値がコピペできない
今日は、Excel VBAでシート間でセルの値を単純に飛ばすだけなのですが何故か隣のセルではうまくいくのにあるセル だけには、どうしてもその値が入っていきません。 勿論セル番地は間違っていません。 何か原因があるのでしょうか。 皆さん、同じような経験をされた方原因を教えて下さい
- 締切済み
- その他(プログラミング・開発)
- VBA処理でこんな条件処理ってできますか?
VBA初心者です。VBAで下記の様な処理は可能でしょうか? 実行したい処理を箇条書きにしますのでご意見下さい。 不明点はご質問下さい。尚、期限がありますので、早めの回答よろしくお願いします。 ・EXCELシートはテーブル、データ、合計値入力用があります。 テーブルシートは10列程の数値があります。これを順番にデータシートに該当する数字を検索して行き(データシートには規則的に空白行が1行ごとに入っています)、あればその下にある数値を覚えておき、1つのデータの検索が終了したら、合計値シートの1つのセルに合計値を入力。これの繰返しです。 初心者の私には複雑な処理に思えるのですが、どなたかアドバイスよろしくお願いします。
- ベストアンサー
- その他([技術者向] コンピューター)