Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » umka777_89
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
VBA. Редактировать текст в ячейке
 
#
06.06.2013 20:22:42
Юрий М,
ааа, это тоже не знаю почему, надо зайти на другой лист потом вернуться на первый
и еще попробуйте в самом редакторе VBA запустить код
 
Перейти    
VBA. Редактировать текст в ячейке
 
#
06.06.2013 19:37:15
Юрий М,
вот там есть ячейка с значениями: vb,rrff, yes, no
я сделала, чтобы в combobox1 были только строки с текстом из ячеек,
а вот в ячейку I98(к нем прикреплен combobox1) нужно чтобы вставлялось значение из листа второго, например выбираем "vb" вставляется "птптngfn"
это как бы работает, если не очищаем combobox1, но тогда при каждом вызове combobox1 в его список снова добавляются строки
если поставить очистку combobox1, то получается что второе условие
Код
If Sheets(sn).Cells(i, 1) = Me.ComboBox1.Text Then
    Cells(98, 9) = Sheets(sn).Cells(i, 2)

не выполняется, вот...
 
Перейти    
VBA. Редактировать текст в ячейке
 
#
06.06.2013 16:51:16
Юрий М,
ну так можно ведь в режиме конструктора посмотреть где комбобокс, я понимаю, про вашу подсказку, просто если очищаю, то второй if не работает
 
Перейти    
VBA. Редактировать текст в ячейке
 
#
06.06.2013 15:19:22
Юрий М,
если очищаю в начале, то потом почему то вообще не работает что прописано
Изменено: umka777_89 - 06.06.2013 15:26:35
 
Перейти    
VBA. Редактировать текст в ячейке
 
#
06.06.2013 15:07:39
Юрий М,
Спасибо, буду соблюдать)
Вот что получилось, но каждый раз при выборе из комбобокса, в него добавляются элементы заново, и получается список (1,2,3,1,2,3,1,2,3...).Как сделать чтобы элементы в списке были по одному разу все?
Код
  Dim i&
     Const iRow = 65536: iClm = "A"
     sn = Лист2.Name
     iRws = Sheets(sn).Range(iClm & iRow).End(xlUp).Row
    ' ComboBox1.ListFillRange = sn & "!" & iClm & "1:" & iClm & iRws
  
    For i = 1 To iRws
    'If Cells(100, 2).Value Like Cells(i, 1).Value Then
    ' ComboBox1.AddItem Sheets(sn).Cells(i, 1)
    
    If [B100] Like "*" & Sheets(sn).Cells(i, 1) & "*" Then
    ComboBox1.AddItem Sheets(sn).Cells(i, 1)
    End If
    
    If Sheets(sn).Cells(i, 1) = Me.ComboBox1.Text Then
    Cells(98, 9) = Sheets(sn).Cells(i, 2)
    End If
  Next i
Изменено: umka777_89 - 06.06.2013 15:08:09
 
Перейти    
VBA. Редактировать текст в ячейке
 
#
06.06.2013 14:32:42
Dim i&
   Const iRow = 65536: iClm = "A"
   sn = Ëèñò2.Name
   iRws = Sheets(sn).Range(iClm & iRow).End(xlUp).Row
 ' ComboBox1.ListFillRange = sn & "!" & iClm & "1:" & iClm & iRws
 
   
   For i = 1 To iRws
   If [B100] Like "*" & Sheets(sn).Cells(i, 1) & "*" Then
   ComboBox1.AddItem i
  End If
 Next i

ошибка в строке ComboBox1.AddItem i
 
Перейти    
VBA. Редактировать текст в ячейке
 
#
06.06.2013 11:35:12
только вот что придумалось..
Наверное что-то не то пишу, ткните носом в ошибку?
Dim i&
Const iRow = 65536: iClm = "A"
sn = Лист2.Name
iRws = Sheets(sn).Range(iClm & iRow).End(xlUp).Row
' ComboBox1.ListFillRange = sn & "!" & iClm & "1:" & iClm & iRws


For i = 1 To iRws
If Cells(100, 2).Value Like Cells(i, 1).Value Then

ComboBox1.AddItem Sheets(sn).Cells(i, 1)
End If
Next i

Ничего не происходит...
 
Перейти    
VBA. Редактировать текст в ячейке
 
#
06.06.2013 10:40:29
Извините пожалуйста...
вот
Изменено: umka777_89 - 06.06.2013 11:24:24
 
Перейти    
VBA. Редактировать текст в ячейке
 
#
06.06.2013 00:12:23
Спасибо
Помогите,пожалуйста, как вот такое вот условие реализовать:
в таблице пример,
есть ячейка, в которой (на рисунке это В5) записаны пункты (они должны быть расшифрованы), и вот в наш комбобокс должны входить только строки с названиями из ячейки В5 из столбца А.

наверное, надо как-то проверять:
если значение ячейки В5 содержит значение ячейки из столбца А, то заносим в комбобокс.
не могу додумкать..
 
Перейти    
VBA. Редактировать текст в ячейке
 
#
05.06.2013 22:29:01
Здравствуйте, подскажите пожалуйста, можно ли как-то средствами VBA отредактировать текст в ячейке..может как-нибудь поиск и замена..
Дана строка в ячейке : ОК-1, 3, ПК-4,7,11
Нужно получить: ОК-1, ОК-3, ПК-4, ПК-7, ПК-11

Прошу помощи
 
Перейти    
Страницы: 1
Наверх