Поиск по ключевым словам и ввод текста - PullRequest
Новая
       55

Поиск по ключевым словам и ввод текста

0 голосов
/ 23 февраля 2020

Я очень зеленый, когда дело доходит до VBA для Excel. Тем не менее, я прочитал столько, сколько я могу на VBA и до сих пор не могу понять, как написать этот код. Одна из проблем, с которыми я сталкиваюсь, связана с самим синтаксисом.

В настоящее время у меня есть электронная таблица, в которой информация не является постоянной, и я хочу иметь возможность искать в этой таблице определенные c слова, а затем Excel переместить одну ячейку вправо и ввести текст. Если указанных c слов нет, я хочу, чтобы VBA ничего не делал и продолжал искать следующие слова.

Итак, вот что у меня в голове, я просто не знаю, как это написать в правильном синтаксисе: 

Option Explicit
Sub SortAndLabel()

'Here is where I get lost as far as syntax goes so I will just type in what I'm wanting it to do...

Search the current worksheet for "12345 Total"

If "12345 Total" is not found then Do Nothing

Else

'Move 1 cell to the right
ActiveCell.Offset(0,1)

'Then enter in the following text (I don't know the proper syntax for this)...
Enter text "Electric"

End If

Буду признателен за любую помощь, которую вы можете предоставить.

1 Ответ

0 голосов
/ 23 февраля 2020

Попробуйте следующий код. 

Sub FindSub()
Dim fng As Range
Dim fText As String

fText = "12345 Total"

    Set fng = Sheet1.Cells.Find(fText)

        If Not fng Is Nothing Then
            fng.Offset(0, 1) = "Electric"
        Else
            MsgBox "No match found."
        End If
Set fng = Nothing
End Sub
...