[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『条件分岐が上手くいかない』(VBA初心者マン)
VBA初心者のものです。
ご質問させていただきます。
Dim FoundCell As Range
Set FoundCell = Range("H:H").Find("○○○")
If Not FoundCell.Offset(0, -5).Value Like "//" Then
'FoundCellから5個左のセルに「//」が含まれない場合
FoundCell.Offset(0, -5).Value = "//" & FoundCell.Offset(0, -5).Value 'FoundCellから5個左のセルの文字列の前に「//」を追加する End If
上記のようなマクロを書いたのですが、何度も実行すると
対象のセルに文字列「//」が含まれていても「//」が追加されてしまい、
「////」や「////////」となってしまいます。
「//」が既に含まれているときは処理を行わないでほしいのですが…。
どう直せばよいでしょうか?どうぞ宜しくお願い致します。
< 使用 Excel:Excel2019、使用 OS:Windows10 >
今の書き方ですと、処理を行いたいセルの中身が「//」と全く同一であるかどうかを判断しています。 if(A1="//")と同じような判定をしていると思ってください。 これを、含まれない という書き方にするにはこの記事など参考にいかがでしょうか。 http://officetanaka.net/excel/vba/tips/tips35.htm
(ななし) 2021/01/26(火) 16:54
ありがとうございます!
"//*"と打ち込んだことで期待通りの動きを実現することが出来ました。
本当に助かりました、ありがとうございました。
(VBA初心者マン) 2021/01/26(火) 17:04
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.