InStrとLEFTの組み合わせで文字削除を行いたいです。

シート１N列にある値【Cells(i, 14).Value】から
シート２のB14セル【Worksheets("sheet2").Range("B14").Value】に記載されている値より後を消したいです。

例えば、シート１のN1に「abcdefg」という値、N2「abbccddeefghijk」が入っていたとして、
シート２のB14セル「ef」とした場合・・・

シート１N1「abcd」
N2「abbccdde」

そのため、下記のような記述を作りましたが、下記では
「プロシージャの呼び出し、または引数が不正です。」となってしまいます。

comment1 = Left(Worksheets("sheet1").Cells(i, 14).Value, InStr(Worksheets("sheet1").Cells(i, 14).Value, Worksheets("sheet2").Range("B14").Value) - 1)

Cells(i, 14).Valueの部分をRangeに変えた下記だとエラーが起きないのですが、何が原因かが分かりません。
お手数ですが、ご教授頂けますと幸いです。

comment1 = Left(Worksheets("sheet1").Range("N14").Value, InStr(Worksheets("sheet1").Range("N14").Value, Worksheets("sheet2").Range("B14").Value) - 1)

行動規範の内容に同意します

回答4件

ベストアンサー

＞→このケースが発生した場合はセルを赤くするなどの目印を残してほしいです。

vba
1comment1 = Left(Worksheets("sheet1").Cells(i, 14).Value, InStr(Worksheets("sheet1").Cells(i, 14).Value, Worksheets("sheet2").Range("B14").Value) - 1)

上記を以下のようにしてください。
エラーのあったセルを赤くします。エラーがない場合は、元に戻します。

vba
1        Dim pos As Variant
2        pos = InStr(Worksheets("sheet1").Cells(i, 14).Value, Worksheets("sheet2").Range("B14").Value)
3        If pos > 0 Then
4            comment1 = Left(Worksheets("sheet1").Cells(i, 14).Value, pos - 1)
5            Worksheets("sheet1").Cells(i, 14).Interior.Color = xlNone
6        Else
7            Worksheets("sheet1").Cells(i, 14).Interior.Color = 255
8        End If

投稿2019/09/25 07:54

tatsu99

総合スコア5493

既に指摘されていますが、
１．シート２のB14のセルが空白の場合、どうしたいのか。（それともこのケースは発生しないのか）
２．シート１のN列のセルが空白の場合、どうしたいのか。（それともこのケースは発生しないのか）
３．シート２のB14のセルの値が、シート１のN列のセルに存在しない場合、どうしたいのか。
について、明確にされると良い回答がつくかと。

投稿2019/09/24 10:35

tatsu99

総合スコア5493

退会済みユーザー

2019/09/25 06:05

ご指摘ありがとうございます。１．シート２のB14のセルが空白の場合、どうしたいのか。（それともこのケースは発生しないのか） →このケースは発生しません。２．シート１のN列のセルが空白の場合、どうしたいのか。（それともこのケースは発生しないのか）３．シート２のB14のセルの値が、シート１のN列のセルに存在しない場合、どうしたいのか。 →このケースが発生した場合はセルを赤くするなどの目印を残してほしいです。

行動規範の内容に同意します

その行にブレークポイントを入れてプログラムを停止し、Worksheets("sheet1").Cells(i, 14).Valueの内容を確認してみてください。
おそらく想定している内容と違う内容が取得されるはずです。
そこから想定した内容が取得できない原因を確認して修正しましょう。

投稿2019/09/24 08:54