[[20210126162918]] 『条件分岐が上手くいかない』(VBA初心者マン) >>BOT

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

 

『条件分岐が上手くいかない』(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.