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

Страницы: 1 2 След.
При вызове одной формы из другой ошибка run time error '-2147024809 (80070057)'
 
#
23.09.2021 22:10:07
Спасибо
 
Перейти    
При вызове одной формы из другой ошибка run time error '-2147024809 (80070057)'
 
#
23.09.2021 05:10:08
Здравствуйте.
Помогите пожалуйста.
При двойном нажатии на клетку AB71 с текстом "Test" появляется форма ContractorsForm.
На ней, при нажатии на любую кнопку с плюсиком "+" должна появится форма ClockForm.
Но появляется ошибка run time error '-2147024809 (80070057)' Invalid Argument.
Пробовал вызывать другую форму, все было нормально.
В чем ошибка?
Спасибо
Изменено: vikttur - 23.09.2021 23:13:38
 
Перейти    
Номер ячейки в диапазоне
 
#
15.08.2021 03:01:22
 Спасибо
 
Перейти    
Номер ячейки в диапазоне
 
#
15.08.2021 01:48:57
Спасибо
 
Перейти    
Номер ячейки в диапазоне
 
#
15.08.2021 01:08:30
Видимо я ошибся В13 это 4-я ячейка диапазона В10:В15, из-за этого прибавили единицу ?
В10-1, В11-2, В12-3, В13-4
13-10+1=4

И если можно еще вопрос.
Как записать , например : "привет" , в 2-ю ячейку диапазона B10:B15 ?
Я знаю, что она 2-я , но не знаю ее адреса.
 
Перейти    
Номер ячейки в диапазоне
 
#
15.08.2021 00:23:31
Спасибо. Работает.
А можете объяснить ,плиз

Если я правильно понимаю.
cc.Row - номер строки где находится нужная ячейка , например В13 = 13
r.Row - номер строки первой ячейки диапазона , например В10:В15 = 10
Изменено: ttp8 - 15.08.2021 00:30:50
 
Перейти    
Номер ячейки в диапазоне
 
#
14.08.2021 23:53:54
Код
For Each cc In Worksheets("пример").Range("В2:В5")
      If cc = "проверка" Then
              Worksheets("пример").Range("А1") = cc.?????
              Exit For
      End If
Next
Всем привет.
Надо найти номер ячейки в диапазоне.
А именно : проходя по диапазону, при выполнении условия, записать на каком месте в диапазоне эта ячейка находится.
Например: диапазон В10:В15. Ячейка В11 подходит под условие. Ответ: 2

Range.Row не подходит. В данном случае ответ:11, а нужно 2.

Я понимаю что можно поставить счетчик, но возможно есть у range() какое то свойство.
Спасибо
Изменено: ttp8 - 15.08.2021 00:15:26
 
Перейти    
Поиск даты в списке
 
#
15.11.2018 10:05:09
Только порадовался, опять перестал код работать
 
Перейти    
Поиск даты в списке
 
#
15.11.2018 09:59:53
Странно.
Как только поплакался (смайлик) ЗАРАБОТАЛО.
Спасибо
 
Перейти    
Поиск даты в списке
 
#
15.11.2018 09:57:09
я их даже скопировал, не работает
:cry:  
 
Перейти    
Поиск даты в списке
 
#
15.11.2018 09:48:35
можно ваш файл?
 
Перейти    
Поиск даты в списке
 
#
15.11.2018 09:40:42
Попробовал, не помогает
 
Перейти    
Поиск даты в списке
 
#
15.11.2018 09:16:23
Здравствуйте.
Мне нужно при нажатии на кнопку найти определенную дату в списке. .
Пробую использовать  range.find , но не выходит.
Пробовал писать дату в листе и прописывать в коде, не работает.
В форумах советуют при работе с датами работать перебором.
Может что посоветуете, прежде чем перейду на перебор?
Прилагаю файл с примером как я делаю.

Спасибо
 
Перейти    
Запрет на редактирование ячеек
 
#
27.10.2018 05:45:36
Цитата
Ts.Soft написал:
Наверное всё-таки нужно подумать о файле с примером.
Не хотел присылать весь файл. Спасибо

Цитата
Ts.Soft написал:
Был создан новый лист на котором ячейки диапазона защищены.
То есть код работает?
 
Перейти    
Запрет на редактирование ячеек
 
#
27.10.2018 03:52:18
Здравствуйте.
Есть следующий код.
При нажатии на кнопку он копирует лист "Master", задает имя новому листу и должен запретить редактирование диапазона "I7:P7"  в новом листе.
А потом запоролить новый лист.
Строка 10 (предпоследняя) почему то не работает.
Я знаю что надо послать сюда фаил эксэль, но это часть большого кода.
Спасибо

Код
Dim xNumber As Integer
On Error Resume Next   

Application.ScreenUpdating = False    
xNumber = ThisWorkbook.Worksheets.Count - 1    
Worksheets("Master").Copy Before:=ActiveWorkbook.Sheets("Master")
ActiveSheet.Name = "Ticket " & xNumber
    
ActiveSheet.Range("I7:P7").Value = Worksheets("Ticket1").Range("I7:P7").Value
            
ActiveSheet.Activate
Application.ScreenUpdating = True
    
Worksheets(ActiveSheet.Name).Range("I7:P7").Locked = True
     
Worksheets(ActiveSheet.Name).Protect Password:=MyPassword, UserInterfaceOnly:=True
Изменено: ttp8 - 27.10.2018 04:08:31
 
Перейти    
Как скрыть кнопку при группировании строк
 
#
09.10.2018 01:23:32
Опять же, эксэль у меня не на русском, взяло время понять где это.
Но все получилось.
Всем БОЛЬШОЕ спасибо
 
Перейти    
Как скрыть кнопку при группировании строк
 
#
09.10.2018 01:02:30
У меня эксэль не на русском. Можно на английском?
 
Перейти    
Как скрыть кнопку при группировании строк
 
#
09.10.2018 00:52:59
кнопка случайно ниже получилась.
Менял свойство  AutoSize на True.
Не исчезает
Изменено: ttp8 - 09.10.2018 00:56:52
 
Перейти    
Как скрыть кнопку при группировании строк
 
#
09.10.2018 00:43:25
плюсик не проблема, наоборот им и пользуюсь.
Кнопка ActivX должна выполнять другую работу (не группировать), например менять цвет строк.
Нужно что бы эта кнопка исчезала и появлялась когда я нажимаю плюсик (группирую строки)
 
Перейти    
Как скрыть кнопку при группировании строк
 
#
09.10.2018 00:34:17
Здравствуйте.
Нужно что бы кнопка ActivX исчезала при группировании строк.
Сейчас она просто смещается вверх.
Спасибо
 
Перейти    
Какое значение ячейки если удалить содержимое кнопкой Delete ?
 
#
12.05.2018 14:10:47
Цитата
AAF написал:
Заостряю внимание: Len(Target.Cells(1).Value)
Не заметил. Спасибо
 
Перейти    
Какое значение ячейки если удалить содержимое кнопкой Delete ?
 
#
12.05.2018 14:04:11
RAN,
Спасибо
А если несколько ячеек так проверить, скажем А1 и А2?
Можно код и пояснения.
 
Перейти    
Какое значение ячейки если удалить содержимое кнопкой Delete ?
 
#
12.05.2018 13:59:51
AAF,
Ошибочка, не помогло.
Ругается на :
Код
If Len(Target.Cells.Value) = 0 Then

Type mismatch
 
Перейти    
Какое значение ячейки если удалить содержимое кнопкой Delete ?
 
#
12.05.2018 13:37:04
AAF,
Спасибо помогло
У меня нет выбора. Приходится работать с объединенными ячейками.
Сделал как вы написали. Помогло.
Почему при условии
Case "$B$1","$B$1:$D$1"    :If Len(Target.Cells.Value) > 0 Then Worksheets("Main").Cells(1, 1).Value = "No"

выражение Len(Target.Cells(1).Value) = 0 не подпадает под Else?

Где то так:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lReply As Long
    Application.EnableEvents = False
    Select Case Target.Address
        Case "$B$1","$B$1:$D$1":
               If Len(Target.Cells.Value) > 0 Then 
                      Worksheets("Main").Cells(1, 1).Value = "No"
               Else
                      Worksheets("Main").Cells(1, 1).Value = "Yes"
               End if
        
    End Select
    Application.EnableEvents = True
End Sub
Изменено: ttp8 - 12.05.2018 13:51:36
 
Перейти    
Какое значение ячейки если удалить содержимое кнопкой Delete ?
 
#
12.05.2018 13:25:30
V,
Заметил, изменил, не помогает
 
Перейти    
Какое значение ячейки если удалить содержимое кнопкой Delete ?
 
#
12.05.2018 13:02:49
Ігор Гончаренко
Код
If Target.Cells.Value = Empty Then

Ругается
Изменено: ttp8 - 12.05.2018 19:17:49
 
Перейти    
Какое значение ячейки если удалить содержимое кнопкой Delete ?
 
#
12.05.2018 12:42:36
Проверил.
Не работает именно из-за того что несколько ячеек объединено.
Данный пример что должно быть.
Если поле В1 содержит текст, значение А1 = No, если В1 пусто А1=Yes.
A1 выпадающий список, можно изменить значение если надо.
При удалении содержимое ячейки В1 кнопкой Delete, значение А1 не меняется.
 
Перейти    
Какое значение ячейки если удалить содержимое кнопкой Delete ?
 
#
12.05.2018 12:22:21
Здравствуйте.
Удаляю содержимое ячейки кнопкой Delete.
После этого  вот эта строка:
Код
MsgBox "Target.Cells.Value = " & CStr(Target.Value)

Выдаёт ошибку : Type mismatch
Пробовал и так :
Код
MsgBox "Target.Cells.Value = " & CStr(Target.Cells.Value)

Важно отметить , Target - это несколько объединённых ячеек.
 
Перейти    
Длинный текст в MsgBox, как перенести строку (каретку)
 
#
03.05.2018 19:56:10
кнопка цитирования не для ответа [МОДЕРАТОР]

Так и сделаю. Спасибо
 
Перейти    
Длинный текст в MsgBox, как перенести строку (каретку)
 
#
03.05.2018 19:46:42
Цитата
bigorq написал:
время на эксперимент уйдет меньше, чем на написание сообщения
Обычно так и делаю, но видимо совсем устал. Не догадался
 
Перейти    
Страницы: 1 2 След.
Наверх