私は1000行以上のシートを持っています。コラムでAIが列Fに「innstiilinger」シートで値に特定のテキストがあるかどうかを確認する方法
:IO.Tgr37.Tank37.TT
のようなテキストを持って、私は列のGIでrow8
にrow7とTgr10にTgr37のように、ために を持って見てキーワードの束を持っています
Tgr 120, Tgr 600.......
テキストにTgr37またはTgr10が含まれている場合は、プレフィックスをテキストに追加します。 テキストはそれにTgr120またはTgr600を持っている場合、私はテキストに別の接頭辞を追加します。..
私はこのコードを試してみました:私は、列Aに私のキーワードを入れると、
Dim sCellVal As String
sCellVal = Range("A" & ActiveCell.Row).Value
Dim FindString As String
Dim Rng As Range
FindString = sCellVal
If Trim(FindString) <> "" Then
With Sheets("Innstillinger").Range("F:F") 'searches all of column F
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
tag_opc.Value = Sheets("Innstillinger").Range("F6") & Range("A" & ActiveCell.Row).Value & ".Value" 'value found
Else
MsgBox "Nothing found" 'value not found
End If
End With
End If
をしかし、それは動作しません。シート "innstillinger"の列Fのテキストが機能します。あなたがtag_opc
オブジェクトを宣言している
が、私はあなたが私の問題を理解してほしい... エクセル2013
私が参照しているテキストは、plcプログラムのopcタグです。タグをhistoryloggerソフトウェアにインポートしようとしていますが、タグは完全ではありません。タグに余分なテキストを追加する必要があります。追加する必要のあるテキストは、それが属する「Tgrxx」に依存します。だから私は、 "text1"をcoloum F(これは約10種類のTgr)のopcタグに追加する必要がある別のTgrを必要とし、 "text2"を追加する必要があるTgrはcoloum G ...などにリストされました。 。 –