Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 16 След.
Сравнение значений двух строк макросом
 
Chueoko, примерно так -
Код
Sub asd()
For r = 2 To Cells(1000000, 1).End(xlUp).Row
  If Cells(r, 2) > Cells(r - 1, 2) Then
    Cells(r, 1).Font.Size = 63
  End If
Next
End Sub
Как определить номера строк всех выделенных ячеек.
 
Цитата
Borrusale написал:
номера строк
Код
Sub GetRows()
a = Split(Selection.Address, "$")
ReDim aa(UBound(a) \ 2 - 1) As Long
For r = 0 To UBound(a) - 2 Step 2
  'Debug.Print a(r + 2)
  aa(r \ 2) = a(r + 2)
Next r
End Sub
Вставить строку над ячейкой, в которой поменялось значение
 
Код
Sub insZ()
For r = Range("a20001").End(xlUp).Row To 2 Step -1
  If Cells(r, "C") <> Cells(r - 1, "C") Then
    Rows(r).Insert
  End If
Next r
End Sub
Вставить строку над ячейкой, в которой поменялось значение
 
Цитата
nikita49 написал:
каждый раз когда это значение меняется, нужно вставить пустую строку,
Тогда в чём вопрос? Не меняются значения - нет проблемы, ничего вставлять не надо?
Файл сократить до 500 строк и обрисовать там задачу нереально?
Вставить строку над ячейкой, в которой поменялось значение
 
nikita49,  по теме -
1: каким образом в 20 000 строк умещаются 200 уникальных значений?
2: как и кто меняет значения?
3: файл-пример очень помог бы решению.
Скопировать содержимое листа из одной книги в другую
 
Цитата
slider85 написал:
скопировать целиком все данные из одного листа одной книги на лист другой книги
Цитата
slider85 написал:
только отфильтрованные данные
уж определились бы для начала?
Изменено: Апострофф - 16 Окт 2019 16:47:09
Скопировать содержимое листа из одной книги в другую
 
slider85, к чему такие сложности?
Код
    wb3.Sheets("Лист1").delete
    wb1.Sheets("Лист1").Copy wb3.sheets(1)
Удалить открытый файл без сохранения макросом из другой книги, с очисткой буфера обмена
 
Цитата
slider85 написал:
Workbooks.Add    
ActiveWorkbook.SaveAs Filename:="обработка.xlsx"    
a = ActiveWorkbook.FullName
файл обработка.xlsx является активным, не надо заблуждаться.
Удалить открытый файл без сохранения макросом из другой книги, с очисткой буфера обмена
 
slider85, попробуйте не
Цитата
slider85 написал:
a.Close
а
Код
ActiveWorkbook.close
Использование значения из ячейки в макросе
 
yuppic, вместо
Код
Const Волшебное_число As String = 63.4
напишите
Код
DIM Волшебное_число As String 
Волшебное_число = sheets("данные").[K6]
Изменено: Апострофф - 15 Окт 2019 10:51:58
Снятие выделения в ListBox по событию Click
 
невеДимка Соколов, трудно вас понять: перечитайте своё последнее сообщение внимательно.
Цитата
невеДимка Соколов написал:
если оба листбокса сделать мульти, то не снимает выделение
если оба мульти, то и обработчики _Enter должны быть одинаковы?
Код
Private Sub ListBox1_Enter()
Dim i&
For i = 0 To ListBox2.ListCount - 1
    ListBox2.Selected(i) = False
Next
End Sub

Private Sub ListBox2_Enter()
Dim i&
For i = 0 To ListBox1.ListCount - 1
    ListBox1.Selected(i) = False
Next
End Sub
Снятие выделения в ListBox по событию Click
 
Цитата
невеДимка Соколов написал:
Надо чтоб сбрасывалось выделение при переходе на другой листбокс
не тогда _Enter напрашивается -
Код
Private Sub ListBox1_Enter()
ListBox2.ListIndex = -1
End Sub

Private Sub ListBox2_Enter()
Dim i&
For i = 0 To ListBox1.ListCount - 1
    ListBox1.Selected(i) = False
Next
End Sub
Снятие выделения в ListBox по событию Click
 
Цитата
невеДимка Соколов написал:
Работает только один раз.
Не допонял - что именно не работает и в чём задача?
Снятие выделения в ListBox по событию Click
 
невеДимка Соколов, вместо ListBox1_Click попробуйте ListBox1_Change
Непонятный серый квадрат на листе
 
Диагноз по фотке - это к гадалкам. fillnurka, сам файл приложить не получится?
VBA. Подтягивать полученный ранее результат в одном макросе в другой макрос
 
AnastasiaSchaste, Option Explicit должно быть первой строкой модуля, но уж никак не процедуры.
[ Закрыто] Работа с листом с помощью кода, Уперся и ни как не напишу код для листа
 
БАТОНОВОЗ, какая необходимость была в создании новой темы?
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=120956&...
Табель учета рабочего времени, Автоматическая постановка данных в табель учета рабочего времени из одного файла в другой
 
Заказ свободен, но предупрежу - здесь тендер, никакой предоплаты не предусматривается.
т.е. 99% - кидалово.
Изменено: Апострофф - 25 Авг 2019 21:27:00
Табель учета рабочего времени, Автоматическая постановка данных в табель учета рабочего времени из одного файла в другой
 
Написал в ЛС.
Окошко, где вписать два значения и получить ответ, Программка
 
isteriKA, а зачем exe? Чем не устраивает форма в VBA?
как узнать цвет выделенной ячейки при её УФ через VBA в RGB?
 
Андрей VG, БМВ, в данном примере мне этого достаточно. Ещё раз спасибо!
как узнать цвет выделенной ячейки при её УФ через VBA в RGB?
 
ctrl + G
?[a10].FormatConditions(1).Interior.Color
14211291
на R, G и B сам разложу. Всем спасибо, до свидания!
как узнать цвет выделенной ячейки при её УФ через VBA в RGB?
 
БМВ, я знаю как RGB разделить на R,G и B уже лет тридцать. Спасибо за попытку помочь идиоту!
Excel2007, другого нету и не надо!
Езжу на БМП3, но немецкие тарантасы уважаю! С прошедшим всех праздником 23 февраля и 15 февраля (30 лет победы? в Афгане)!
Изменено: Апострофф - 26 Мар 2019 23:02:33
как узнать цвет выделенной ячейки при её УФ через VBA в RGB?
 
Не то, к сожалению. УФ - это условное форматирование
ран тайм еррор 438 ?
как узнать цвет выделенной ячейки при её УФ через VBA в RGB?
 
Всем привет! С прошедшими и наступающими праздниками! День дурака - 1 апреля я люблю больше всех остальных!
Вопрос в заголовке темы.
Перебор значений для генерации маркировки
 
Цитата
Alexey0185 написал:
перебрать все возможные варианты маркировок и создать список этих вариантов.
Вот для конкретно вашего варианта -
Код
Sub main()
P 1
End Sub
 
Sub P(C As Integer, Optional S$ = "")
Dim R&
For R = 7 To 23
  If Cells(R, C) = "" Then Exit For
  If C = 14 Then
    Debug.Print S & Cells(R, C)
  Else
    P C + 1, S & Cells(R, C)
  End If
Next R
End Sub
Правда, в Dedug не влазит результат (можете перенаправить куда хотите), и конец вывода будете ждать ооочень долго.
Перебор значений для генерации маркировки
 
Alexey0185, что в данной маркировке
AB-1/X1K1Y11Z4111/HL
стоит на 10-й позиции (1 или 11)
и на 11-й (11 или 1 - соответственно)
Или это не принципиально
Есть сглаженный график, как извлечь промежуточные значения, между точками?, ..и еще несколько вопросов.
 
Faun_1, раз уже вручную точками отлично совместили линию с картинкой - интерполируйте по этим точкам.
Загрузка данных в userform другого файла
 
Hydro, например так:
код в первой книге
Код
Sub f2Show()
Run "'file2.xlsm'!form1Show", "bla-bla-bla"
End Sub
во второй
Код
Sub form1Show(t1)
With UserForm1
  .TextBox1 = t1
  .Show
End With
End Sub
Народ, подскажите пожалуйста, как работать с CommandBars.Add ?
 
Код
Sub aaa()
CommandBars("Меню").Delete
Set CstmBar = CommandBars.Add("Меню", msoBarPopup, False, True)
Application.CommandBars("Меню").ShowPopup 0, 0
End Sub
И любуетесь на пустой квадратик в левом верхнем углу.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 16 След.
Наверх