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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 17 След.
как сделать чтобы в выпадающем списке было видно все значения даже если их 20 ?
 
gogy913,  здравствуйте!
А поискать не пробовали?
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=92574
https://www.planetaexcel.ru/techniques/1/40/
порядок вывода формы VBA и диалогового окна, нужен совет как поменять порядок вывода окна формы и диалогового окна
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
ф_Добавить_Комментарий111_Initialize
- это придуманная VIZ_VIZ процедура, которая по задумке автора должна выполняться при вызове формы - это главная его ошибка.
порядок вывода формы VBA и диалогового окна, нужен совет как поменять порядок вывода окна формы и диалогового окна
 
VIZ_VIZ написал:
Цитата
Private Sub ф_Добавить_Комментарий_Initialize()
Попробуйте поменять эту строку на штатную для всех UserForm.
Код
Private Sub UserForm_Initialize()
Изменено: Апострофф - 12 Ноя 2019 14:31:30
порядок вывода формы VBA и диалогового окна, нужен совет как поменять порядок вывода окна формы и диалогового окна
 
VIZ_VIZ, уберите лишнее объявление
Цитата
Private Sub CommandButton1_Click()
'Dim komment
flag = False
порядок вывода формы VBA и диалогового окна, нужен совет как поменять порядок вывода окна формы и диалогового окна
 
VIZ_VIZ, попробуйте так вызывать форму -
Код
Load ф_Добавить_Комментарий
ф_Добавить_Комментарий.Show vbModeless
ДД Как прибавить число во втором актете
 
Ans09, а что должно получится из 10.255.118.19? 10.355.118.19?
Скрытие строк и столбцов по значению ячеек
 
или
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets(2).Columns(1).Hidden = [a1] = "+"
End Sub
Запрос пути (места) сохранения файла
 
daw2666, Application.FileDialog(msoFileDialogFolderPicker) - направление...
Макрос: удалить все листы которые следуют после 7 листа
 
Как то так -
Код
Sub Del6()
Application.DisplayAlerts = 0
For i = ActiveWorkbook.Worksheets.Count To 8 Step -1
  ActiveWorkbook.Worksheets(i).Delete
Next i
Application.DisplayAlerts = -1
End Sub
Изменено: Апострофф - 8 Ноя 2019 12:59:16
VBA сравнение списков в книгах
 
paff, не в конце countifs , а в StrConv
Цитата
Function StrConv(String, Conversion As VbStrConv, [LocaleID As Long])
   Member of VBA.Strings

Const vbProperCase = 3
   Member of VBA.VbStrConv
Сбор имен листов книги
 
Цитата
askeara написал:
вначале есть апостроф
Ну как же без меня :D
Код
Sub name_sh()
Dim i As Integer
For i = 1 To Sheets.Count
  Cells(i, 1).NumberFormat = "@"
  Cells(i, 1) = Sheets(i).Name
Next
End Sub
Помогите решить задачку!, 500 р.
 
Сделано, оплачено :)  
Помогите решить задачку!, 500 р.
 
БМВ, если вы не против - могу взяться. Пишу в ЛС.
Помогите решить задачку, Грамотное распределение товара по коробкам.
 
Пишу в ЛС...
В работе...
Сделано, оплачено.
Изменено: Апострофф - 29 Окт 2019 11:24:41
Запуск макроса по времени
 
Привет, adamm,
Вторая строка-
Код
if time < cdate("10:00:00")then

???
Обмен значениями у двух элементов массива в Вба Excel.
 
Цитата
Юрий_Нд написал:
Не обижайтесь
На детские капризы грешно обижаться :)  
Обмен значениями у двух элементов массива в Вба Excel.
 
Цитата
Юрий_Нд написал:
или всё-таки цикл?
Можно и без цикла, но массив будет выглядеть немного иначе и обращаться к его элементам  нужно примерно так - M(1,2)(5)
Код
Sub rr()
Dim M(1, 2)
M(1, 1) = Array(1, 2, 3, 4, 5)
M(1, 2) = Array(11, 12, 13, 14, 15)
t = M(1, 2)
M(1, 2) = M(1, 1)
M(1, 1) = t
End Sub
Обмен значениями у двух элементов массива в Вба Excel.
 
Юрий_Нд,мне удалось за полчаса (а не полдня) угадать хотелку и дать ответ. Прошу прощения, что не догадался разжевать, что аналога SWAP в VBA нет, хотя в QBasic, например, оно было.
Выполняется только первое условие кода, VBA, Выполняется только первое условие
 
Цитата
zandaki2 написал:
If ActiveWorkbook.Name <> "Отчет по Центру А*" Then
Имя книги (и файла) не может содержать * .
Сравнение значений двух строк макросом
 
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
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 17 След.
Наверх