LookAt の定数を変数で指定する方法について
- エクセルVBAでLookAtの定数を変数で指定する方法について教えてください。
- 質問者は、LookAtの部分のxlWholeまたはxlPartをシートから読み取って変数に格納し、Replaceメソッドで置換したいと考えています。
- しかし、コードを実行すると「型が一致しません」というエラーが発生します。String型ではなく他の型を使用する必要があるのでしょうか？
- ベストアンサー
LookAt の定数を変数で指定するには？
エクセルvbaです。 Sub test() Dim strLookAt As String strLookAt = "xlPart" Cells.Replace What:="aaa", Replacement:="iii", LookAt:=strLookAt End Sub このようなことはできないのでしょうか？ LookAtの部分のxlWhole または xlPart かをシートから読み取って変数に格納し、 Replace メソッドで置換したいのですが、 このコードを実行すると「型が一致しません」になります。 多分、LookAt:=strLookAtでエラーになってるのだと思います。 String型だからいけないのでしょうか？ 回避方法を教えてください。よろしくお願いします。
- agikhmtfdpvx
- お礼率100% (43/43)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
VBEの画面で表示→イミディエイトウィンドウで ?xlPart と入れればわかります。2が答えです。 そういう定数は数値です。なので以下の様にします。 Sub test() Dim strLookAt As Integer strLookAt = xlPart Cells.Replace What:="aaa", Replacement:="iii", LookAt:=strLookAt End Sub
関連するQ&A
- エクセル（2003） 「1900/1/0」を消したい
セルA1に0を入力し 書式設定で日付→yyyy/m/dを選択しました。 しかし下記のマクロ実行しても 0が空白になりません。 Sub 日付置換() Cells.Replace what:="1900/1/0", Replacement:="", LookAt:=xlPart Cells.Replace what:="00/01/00", Replacement:="", LookAt:=xlPart Cells.Replace what:="0", Replacement:="", LookAt:=xlWhole End Sub なら最初から0なんか入力しなきゃいいじゃん。 と思われるかもしれませんが これはCSVファイルで出力したもので 最初から0の数値にも書式設定がかかってて「1900/1/0」となっています。 「1900/1/0」のデータをなくしたいのですが どんな方法がありますか？ データ量が多いためマクロなどで一度に行ないたいです。 アドバイスよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Cells.Replace What:="*234
このような事は出来ないのでしょうか？ 「2345」で終わる文字列を検索して 「2345?」にしたいのですが Sub test() Cells.Replace What:="*2345", Replacement:="*2345?", LookAt:=xlWhole End Sub を実行すると「a12345」が「*2345?」になってしまいます。 お尻のみ完全一致で「2345」以前の文字列は変更せず 「a12345」を「a12345?」にするにはどうすれば良いでしょうか？ 実際の置換妻帯データは 「5」と「?」が連続している訳ではないので Sub test() Cells.Replace What:="5", Replacement:="5?", LookAt:=xlPart End Sub は考えていません。
- ベストアンサー
- Excel（エクセル）
- シート内のひらがなを全て削除したい
こんばんは。エクセル２００３です。 シート内の全てのひらがなを削除して 英数字、漢字、記号のみを残したいのですが Cells.Replace what:="あ", Replacement:="", LookAt:=xlPart Cells.Replace what:="い", Replacement:="", LookAt:=xlPart Cells.Replace what:="う", Replacement:="", LookAt:=xlPart ・ ・ ・ Cells.Replace what:="ん", Replacement:="", LookAt:=xlPart とやっていくしかないでしょうか？ 何か効率のいい方法があれば教えて頂ければ助かります。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- CSVファイルの「20090423」を日付型の「2009/4/23」へ変換したい
CSVファイルには書式設定が標準で「20090423」と入力されていますが これを日付型の「2009/4/23」へ変換したいのですがどうすればいいでしょうか？ 現在は With Columns(1) .Replace what:="200809", Replacement:="2008/09/", LookAt:=xlPart .Replace what:="200810", Replacement:="2008/10/", LookAt:=xlPart .Replace what:="200811", Replacement:="2008/11/", LookAt:=xlPart .Replace what:="200812", Replacement:="2008/12/", LookAt:=xlPart .Replace what:="200901", Replacement:="2009/01/", LookAt:=xlPart .Replace what:="200902", Replacement:="2009/02/", LookAt:=xlPart End With とやっていますが量が多くて追いつけません。 ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 置換（検索場所に「ブック」を指定した）
ｖｂａでわからないので教えてください。 手作業なら可能ですが 何回も行なうのでマクロを組みたいのですが Sub 置換() Cells.Replace What:="スッキリ", Replacement:="すっきり", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub のコードのどこに「検索場所」が書かれているのでしょか？ 前回、シート単位で置換した後、上記のコードを実行すると、 またシート単位での置換になってしまいます。 検索場所を「ブック」にするコードを教えてください！ご教授よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 半角全角区別しない場合の置換
エクセルｖｂａで Cells.Replace What:=str置換前, Replacement:=str置換後, LookAt:=xlPart のように置換するときに 半角でも全角でも置換できるようにするにはどうすればいいですか？ Replaceにカーソルを当てF1を押すと ライブラリでVBAとExcelのヘルプがありますが どちらを見ても、半角全角区別しない場合の書き方は書いてなかったため わかりませんでした。
- ベストアンサー
- Excel（エクセル）
- エクセルの置換の検索場所に「ブック」を指定し置換
エクセルの置換の検索場所に「ブック」を指定し置換するには? 過去ログを見たのですが http://okwave.jp/qa/q5268557.html シートをループするしかないのでしょうか？ Sub Macro2() Cells.Replace What:="aaaa", Replacement:="zzz", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub のように、シート全体にするかブック全体にするかのプロパティは存在しないのでしょうか？
- ベストアンサー
- Excel（エクセル）
- 半角の?を全角の？にVBAで置換する方法
Ａ１に「ありますか?」を入力して、 Sub test1() Range("a1").Value Replace(Range("a1").Value, "?", "？") End Sub なら、ハテナが全角になるのですが Sub test2() Range("a1").Replace What:="?", Replacement:="？", LookAt:=xlPart End Sub だと、？？？？？？になってしまいます。 前後のコードの関係で、test2の方法で置換したいのですが、どうすればいいでしょう？ Replace関数ではなく、Replaceメソッドで？だけを全角にする方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- Excel VBA で 選択セルの一部を置換
こんにちは。お願いします。 選択セルの文字列の右端が"号"、"番地"、"番"だったときに、それを消す、というマクロを作ろうとして、以下のようになりました。 Sub adrconv() Dim c For Each c In Selection If Right(c.Value, 1) = "号" Or Right(c.Value, 2) = "番地" Or Right(c.Value, 1) = "番" Then c.Replace what:="号", replacement:="", lookat:=xlPart c.Replace what:="番地", replacement:="", lookat:=xlPart c.Replace what:="番", replacement:="", lookat:=xlPart End If Next c End Sub お気づきかもしれませんが、これでは右端の"番"だけでなくどの"番"も消えてしまうのです。 右端の文字のみ消す方法をご教示願います。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
?xlPartをやってみたら2が返りました。 数値型にしてみたら問題なくできました。 とてもわかりやすい説明ありがとうございます。