- ベストアンサー
エクセル ＶＢＡ 複数条件一致の場合の変換
エクセルの初心者ですが ぜひ教えてください。 Ｃ列のどこかに aaaaaa と記入されていて なおかつ、その記入されている行のＤ列に ｂｂｂ と記入されていて なおかつ、その記入されている行のＨ列に ｃｃｃ と記入されている場合 のみ ｄｄｄ と文字を変換するVBAの作成したいのですが、 ぜひ、教えてください。
- mituya08
- お礼率70% (7/10)
- Visual Basic
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
ごめんなさい。回答1です。 End If が抜けておりました。 Sub 置換() Dim i As Integer For i = 1 To Range("C65536").End(xlUp).Row If Range("C" & i) = "aaaaaa" And Range("D" & i) = "bbb" And Range("H" & i) = "ccc" Then Range("H" & i) = "ddd" 'H列のデータをdddに置換する場合 End If Next End Sub
その他の回答 (1)
- KURUMITO
- ベストアンサー率42% (1835/4283)
シート見出しを右クリックして「コードの表示」を選択し表示される画面の右側には下のコードを入力すればよいでしょう。 Sub 置換() Dim i As Integer For i = 1 To Range("C65536").End(xlUp).Row If Range("C" & i) = "aaaaaa" And Range("D" & i) = "bbb" And Range("H" & i) = "ccc" Then Range("H" & i) = "ddd" 'H列のデータをdddに置換する場合 Next End Sub
補足
回答ありがとうございます。 参考にさせていただいたのですが、 Nextに対するForがありません という表示が出でしまいました。
関連するQ&A
- ExcelのVBAで複数行削除を行う場合
Excel2007のVBAで複数行を削除する方法を教えて下さい。 Excel2003で使用していたマクロが使えなくなってしまいました・・・。 下記のようなExcelシートに対して複数行ずつ行を削除し、削除対象が無くなるまで 削除処理を行うか、指定した行まで削除処理を行うという事をしたいのですが うまく動きません。 例 A列 B列 C列 D列 E列 1行目 aaa1 bbb1 ccc1 2行目 ccc2 3行目 ccc3 4行目 ccc4 5行目 aaa2 bbb2 ccc1 6行目 ccc2 7行目 ccc3 8行目 ccc4 例に対しての結果 A列 B列 C列 D列 E列 1行目 aaa1 bbb1 ccc4 2行目 aaa2 bbb2 ccc4 例に対して、複数行(指定した行数ここでは3行)の削除を行いたいのですが、 単純に複数行(3行)ずつ削除していくのではなく。 1行目や5行目にあるように文字や情報が入力されているA列とB列の情報は 残しつつ、4行目のC列以降の列の情報はすべて活かしていくという事をしたいのです。 Excel2003の時に使用していたVBAは以下のものです。 Sub 行を削除するマクロ() Workbooks("xxxx.xlsx").Activate '処理を行いたいExcel ※１ n = n + 0 LastRow = 2138 '処理を終了させたい行 ※２ Sheets("Sheet1").Select '処理を行いたいシート ※３ Do Until (n > LastRow) Rows(n + 4).Delete Shift:=xlsiftUp '削除したい行指定 ※４ n = n + 3 Loop End Sub 皆様の良いアドバイスやお知恵をお貸しください。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルＶＢＡハイパーリンクの自動設定について
はじめて質問させていただきます。 エクセルＶＢＡハイパーリンクの自動設定についてですが Ａ列にAAA、BBB、CCC、DDD・・・という文字列が入っています。 D:\dataというフォルダーにAAA-01、BBB-02、CCC-01、DDD-05 という名前のファイル(.DOC)が入っています。 Ａ列の文字列にハイパーリンクを貼りたいのですがどうしたらよいでしょうか？ AAAの文字にAAA-01.docのハイパーリンクを自動で貼る。 -01はファイルのバージョンで更新されたら-02、-03と変わって いくため頭から３文字があえばリンクを貼るようにしたいのです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでの文字列抽出
エクセルVBAで文字列を検索して、検索した文字列を他のセルへ出力する方法がわかる方法を探しております。状況を図で説明すると、 A1セル：aaa\bbb\item1\ddd A2セル：aaa\bbb\ccc\item2\ddd A3セル：aaa\bbb\ccc\ddd\item3\eee このような状態からitemを検索して、B1セルに B1セル：item1 B2セル：item2 B3セル：item3 と表示させたいです。エクセルVBA初心者な者でRegExpを使うのかな、というところまではたどり着きましたが、そこから先にすすめません。 何か良い方法をご存知の方、教えていただきたいです。よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- エクセルVBAでの文字列抽出とセルへの出力
エクセルVBAで文字列を検索して、検索した文字列を他のセルへ出力する方法を探しております。状況を図で説明すると、 A1セル：aaa\bbb\item1\ddd A2セル：aaa\bbb\ccc\item2\ddd A3セル：aaa\bbb\ccc\ddd\item3\eee このような状態からitemを検索して、B1セルに B1セル：item1 B2セル：item2 B3セル：item3 と表示させたいです。エクセルVBA初心者なものでRegExpを使うのかな、というところまではたどり着きましたが、そこから先にすすめません。 何か良い方法をご存知の方、教えていただきたいです。よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- エクセルVBA 配列の書き方とセルへの一括表示方法
エクセルのVBAで 下記のようなプログラムを作成しています。 1行目はタイトル行で E列が空白になるまで、 各行のE列～H列の値を変数に入れて、 最後に一括で別の列・行にそれぞれの値を表示・書込したいと思ってますが、 どうもVBAは初めてでよくわかりません。 Dim aaa As String Dim bbb As String Dim ccc As String Dim eee As Double intRow = 2 Do Until Cells(intRow, 5).Value = "" aaa = Cells(intRow, 5).Value) bbb = Cells(intRow, 6).Value) ccc = Cells(intRow, 7).Value) ddd = Cells(intRow, 8).Value) intRow = intRow + 1 Loop aaaの各変数を2行目のA1～intRowまで bbbの各変数を2行目のB1～intRowまで cccの各変数を2行目のC1～intRowまで dddの各変数を2行目のD1～intRowまで セルに一括して表示したいのです。 配列の書き方と、セルの範囲に表示・書込する方法を どうかご教示下さい。お願いいたします。
- ベストアンサー
- Excel（エクセル）
- Excel VBAでのテキスト出力について
excel vbaでの文字列出力について エクセルからテキスト（メモ帳とか）に出力したいのですが 下記のように出力できなくて困っております。 どなたか教えてほしいです。 ●入力エクセル AAA BBB CCC DDD EEE セル（1,1）~（1,5）にそれぞれ文字列が入っている状況です。 これを下記のように出力したいのです。 ●テキスト出力 "AAA","BBB",CCC,"DDD",EEE CCCとEEEをダブルクォーテーションを付けないで出力したいのです。 出力の方法でwriteとprintがありますが writeで Write #1, Cells(1,1),Cells(1,2),Cells(1,3),Cells(1,4),Cells(1,5) やると、自動で全ての文字がダブルクォーテーションで囲まれて、カンマが自動でつき "AAA","BBB","CCC","DDD","EEE" のようになってしまします。CCCとEEEのダブルクォーテーションが不要です。 printで Print #1, CStr(Cells(1,1)), & "," CStr(Cells(1,2)), & "," Cells(1,3), & "," CStr(Cells(1,4)), & "," Cells(1,5) とすると "AAA", "BBB", CCC, "DDD", EEE となり、カンマの後ろに空白が何個か入った状態になります。 （ブラウザでは空白が分かりづらいですが、テキストですと入っております。） Trim関数でTrim(",")とか色々試しましたが上手くいきません。 どうしたら望み通りの出力ができるでしょうか。 ぜひ教えて頂きたいです。 よろしくお願いします。
- 締切済み
- Visual Basic
- Excel VBA サブディレクトリの取得について
Excel VBA についての質問です。 私は、VBAの初心者です。 フォルダ選択ダイアログを開き、あるフォルダを選択させます。 選択したフォルダ配下のファイルとサブフォルダにあるファイル一覧とそのファイルのパス取得したいです。 【例】D:\TEMP\AAA フォルダを選択 D:\TEMP\AAA D:\TEMP\AAA\BBB\CCC.txt D:\TEMP\AAA\BBB\DDD\EEE.txt D:\TEMP\AAA\BBB\DDD\FFF.txt GGG.txt が存在する。 まず、フォルダAAAまで選択されたら、 以下の結果がエクセルに出力したいです。 BBB CCC.txt BBB\DDD EEE.txt BBB\DDD FFF.txt GGG.txt うまく伝えないかもしれないですが、ご教授お願いいたします。
- ベストアンサー
- Visual Basic
- EXCEL VBA 行列操作
どなたか教えてください。 下記の様にA1からH5までの範囲に値がある行とない行があります。 空白セルを無視しA10に行列を操作し（行列入れ替え？）、さらに上詰め でコピーしたいのです（上にある行から列順に）。 よろしくお願いします。 例です A B C D E F G H 1 2 aaa bbb 3 ccc ddd eee fff ggg 4 5 hhh ～ 10 aaa 11 bbb 12 ccc 13 ddd 14 eee 15 fff 16 ggg 17 hhh
- ベストアンサー
- Visual Basic
- EXCELのVBAで空白列を削除して左づめにできますか？
いつも参考にしています。まだ、マクロの記録にチョット手を加えて自動化？している程度の腕前ですが？ 仕事の都合で下記の問題を解決しなくてはならなくなり、皆様のお知恵をお借りしたいと思い質問させて頂きます。 エクセルのワークシートに空白のセルがランダムに入っているデータがあります。これを、ある列まで（例ではD列までの左の空白セルをなくして左づめのデータとしたいのです。 （例） | A | B | C | D | E | 1|AAA|BBB|CCC|DDD|EEE| 2| |BBB|CCC|DDD|EEE| 3|AAA| |CCC|DDD|EEE| 4|AAA| |CCC| |EEE| 5| | | |DDD|EEE| ↓ | A | B | C | D | E | 1|AAA|BBB|CCC|DDD|EEE| 2|BBB|CCC|DDD| |EEE| 3|AAA|CCC|DDD| |EEE| 4|AAA|CCC| | |EEE| 5|DDD| | | |EEE| ここで、E列以降は詰めないでほしいのです。 できれば、VBAで実現したいのですが、どのような考えで、どのようなコード？を書けばよいのか教えてください。 質問の仕方も用途を得ないで、失礼な質問になっていると思いますが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAのprintステートメントについて
エクセルVBAのprintステートメントについて エクセルVBAからテキストファイルに文字列を書き出す場合、output権限でテキストファイルを開いて、printで一行ずつ書き出すということをやっています。この際、テキストファイルの最終行の次の行に一行を書き出すのではなく、最終行の最後に追記することはできますでしょうか。 例えば、下記のようなテキストファイルの場合、cccの次の行に書き出すのではなく、 cccの直後に文字列を書きたいのです。 よろしくお願いします。 ファイルの始まり aaa bbb ccc <EOF> -- エクセル2003
- ベストアンサー
- Visual Basic
お礼
ありがとうございました。 とてもわかりやすくてやりたい事ができました。