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

Страницы: 1
сортировка по заданной таблице других таблиц
 
#
14.03.2014 01:00:57
как можно отсортировать по заданной таблице две других таблицы и сопоставить их друг другу
нижняя таблица вроде как эталонная!  как можно сопоставить две верхних таблицы чтобы один фрукт стоял на против другого подскажите пожалуйста?
 
Перейти    
зависает эксель после использования макроса
 
#
09.02.2014 00:36:44
посмотрите кто нибуть почему может после использования кнопки "пересоздать списки" ( CommandButton1 ) и попытке закрыть эксель эксель просто выдает ошибку и виснет


Код
Private Sub CommandButton1_Click()
KolSt = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
voditel = Worksheets("Лист2".Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To KolSt
Topz = Cells(i, 4).Top
 Leftz = Cells(i, 4).Left
 Widthz = Cells(i, 4).Width
 Heightz = Cells(i, 4).Height
 If i = 1 Then GoTo zz
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
 Link:=False, DisplayAsIcon:=False, Left:=Leftz, Top:=Topz, Width:=Widthz, Height:=Heightz)
 .Object.ColumnCount = 2
 .ListFillRange = "Лист2!b2:" & Cells(voditel, 3).Address
 .LinkedCell = "Лист1!d" & i
 .Object.Font.Size = 8
 .Object.ListRows = 20
 End With
zz:
Next i
 End Sub
 
Перейти    
как создать элемент activex через vba
 
#
08.02.2014 16:08:31
подскажите пожалуйста создаю элемент  ComboBox но он создается только как обычнй элемент управления а не как activex
Код
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
 Link:=False, DisplayAsIcon:=False, Left:=20, Top:=80, Width:=100, _
 Height:=15)
 End With
и подскажите как можно определить координаты ячейки допустим d4 (именно координаты  Left:=20, Top:=80, Width:=100, Height:=15)
 
Перейти    
параметры ComboBox, при использовании ColumnCount выдает ошибку
 
#
07.02.2014 01:10:35
подскажите почему не работает параметр  ColumnCount как только его добавляют появляется ошибка object doesn't support this property or method
Код
Private Sub CommandButton1_Click()
For i = 1 To 5
With OLEObjects("ComboBox" & i)
 .ColumnCount = 2
 .ListFillRange = "I3:J5"
 .LinkedCell = "K" & i
 End With
 
 Next i
 End Sub
 
Перейти    
как сделать чтобы в массив не записывались пустые значения
 
#
01.02.2014 15:09:10
код берет из 11 столбца все не повторяющиеся значения и записует в 12 подскажите как сделать так чтобы он не выводил в 12 столбце пустое значение которое ему по дороге попадается
Код
Sub zz()

Dim vItem, avArr, li As Long
ReDim avArr(1 To Rows.Count, 1 To 1)
With New Collection
On Error Resume Next
For Each vItem In Range("k2", Cells(Rows.Count, 11).End(xlUp)).Value
.Add vItem, CStr(vItem)
If Err = 0 Then
li = li + 1: avArr(li, 1) = vItem
Else: Err.Clear
End If
Next
End With
If li Then [L2].Resize(li).Value = avArr
End Sub
 
Перейти    
помогите с поиском
 
#
22.01.2014 17:56:02
по нажатии кнопки на первом листе  происходит поиск по списку имен со второго листа

но проблема в том что если на первой странице отсутсвует имя то выдается ошибка и ругается на  Cells.Find
как избавиться подскажите пожалуйста как продолжить поиск если имя отсутсвует


Код
Sub Кнопка1_Щелчок()
For nextTP = 0 To 90 Step 2
sledTP = 3 + nextTP
Set vremya = Worksheets("лИСТ1"    .Cells(1, 1)
vremya = vremya - 5
Set poTPimya = Worksheets("лИСТ2"    .Cells(sledTP, 1)
Cells.Find(What:=poTPimya, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
 xlNext, MatchCase:=False, SearchFormat:=False).Activate
 lRow = Selection.Row
 Cells.FindNext(After:=ActiveCell).Activate
 Nrow = Selection.Row
nakladPoTP = (Nrow - lRow) - 1
 Sheets("Лист2"    .Cells(sledTP, vremya).Value = nakladPoTP
 MsgBox poTPimya & Nrow & lRow & nakladPoTP
Next nextTP
End Sub
Изменено: Aleksander12 - 22.01.2014 22:43:20
 
Перейти    
Страницы: 1
Наверх