заменить строку только в текстовом поле vba excel

Привет всем, просто хочу спросить, можно ли заменить или удалить часть строки в текстовом поле? вместо замены или удаления всей строки она просто удалит часть ее только. Программа будет следующей процедурой.

  1. Пользователь вводит строку или текст в текстовом поле abc123cd
  2. в ячейках excel имеют значение по умолчанию abc и cd. Пусть мы говорим, что abc находится в A1 и cd в A2.
  3. Затем эти значения по умолчанию в A1 и A2 будут удалять abc и cd в abc123cd. Вывод будет 123 в том же текстовом поле. это означает, что до того, как он будет abc123cd, после нажатия кнопки commnad результат будет равен 123 только в том же текстовом поле.

Ниже приведен пример программы vba. Но, очевидно, я не могу найти способ исправить проблему только в соответствии с моими требованиями. Надеюсь, кто-то может помочь. Спасибо.

Private Sub CommandButton1_Click() Dim myLastRow As Long Dim myRow As Long Dim myFind As String Dim myReplace1 As String Dim myReplace2 As String Dim sExportFolder, sFN Dim rArticleName As Range Dim rDisclaimer As Range Dim oSh As Worksheet Dim oFS As Object Dim oTxt As Object 'Specify name of Sheet with list of replacements Set myReplaceSheet = Sheets("Sheet2") 'Assuming list of replacement start in column A on row 2, find last entry in list myLastRow = myReplaceSheet.Cells(Rows.Count, "A").End(xlUp).Row Application.ScreenUpdating = False 'Loop through all list of replacments For myRow = 2 To myLastRow 'Get find and replace values (from columns A and B) myFind = myReplaceSheet.Cells(myRow, "A") myReplace1 = myReplaceSheet.Cells(myRow, "B") 'Start at top of data sheet and do replacements myDataSheet.Activate Range("A2").Select 'Ignore errors that result from finding no matches On Error Resume Next 'Do all replacements With TextBox1 .Replace What:=myFind, Replacement:=myReplace1, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End With Next myRow End Sub 

Как просто изменить значение внутри текстового поля? Например:

 TextBox1.Value = VBA.Replace(TextBox1.Value, myFind, myReplace1) 
Interesting Posts

Получить UsedRange для одного столбца только в Excel Interop

Excel Сортировка столбца на основе числа после последнего –

ClosedXML – настройка типа данных для ячейки не работает

ЕСЛИ И МАТЧА ИЛИ

BO 4.X Webi скачать отчет от excel

Переведите формулу в VBA

несколько для следующих циклов, 2 (или более) из них должны меняться одновременно

необходимо скопировать данные с одного листа на другой в зависимости от значения первого листа

3 вопроса по созданию многомерного листа в excel

Excel VB – чтение столбца в 1-й массив, выполнение операций, запись обратно в именованный диапазон?

excel find string, а затем IF statement it

Выбор определенных строк в электронной таблице

Использование Dic для поиска совпадений и обновления столбцов в VBA

Как настроить стиль строк в Primefaces DataExporter XLS через соответствующий Java-объект

Получать данные из определенных областей на нескольких листах в отдельных книгах

Давайте будем гением компьютера.