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

Страницы: 1
Присвоение переменной имени листа VBA
 
#
25.01.2016 01:30:19
Kuzmich, Спасибо все работает. Истина была где то рядом))
 
Перейти    
Присвоение переменной имени листа VBA
 
#
25.01.2016 00:47:09
Прошу прощения за дурацкий вопрос (перешерстил уже кучу форумов), как правильно реализовать присвоение имя листа переменной?
Что бы не прописывать каждый раз длинное название
Ниже привел код, что то в нем не работает. Может кто подскажет как правильно записать его?
Код
Dim x, y As Sheets
    Set x = Sheets("Основные_данные")
    Set y = Sheets("Ввод_пробега")
x.Cells(5, 3) = y.Cells(1,1)
Изменено: Alex6656 - 25.01.2016 00:47:59
 
Перейти    
Удаление строки на другом листе по условию
 
#
23.01.2016 23:23:27
Да обработка ошибок хороший вариант, но в моем случае искомое выражение 100% присутствует на листе. Так как строки формируются программно и удаляются соответственно программно (без участия пользователя).
Изменено: Alex6656 - 23.01.2016 23:24:21
 
Перейти    
Удаление строки на другом листе по условию
 
#
23.01.2016 23:08:51
Спасибо заработало...я пробовал аналогичный вариант , но что то не работало (видать что то где то упустил, голова уже ватная)...Вот теперь рабочий модуль)
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Dat As Range
Set Dat = Sheets("Лист2").Range("A1:A100").Find(what:=Sheets("Лист1").Range("A1").Value)
MsgBox ("Адрес ячейки на листе2 где находится искомое выражение- " & Dat.Address & "   Удаляем строку на Листе2 номер- " & Dat.Row)
Sheets("Лист2").Rows(Dat.Row).Delete   '- Какой код должен быть в этой строке?
End Sub
 
Перейти    
Удаление строки на другом листе по условию
 
#
23.01.2016 22:41:59
Ок..исправил, но проблеме это как то не помогло)
 
Перейти    
Удаление строки на другом листе по условию
 
#
23.01.2016 22:29:00
На Листе1 в ячейке A1 указывается номер строки...Затем этот номер ищем на листе2. После того как нашли совпадающий номер нужно удалить полностью строку на ЛИСТЕ2 .....Загвоздка с кодом удалния(уже всю голову сломал)..помогите пожалуйста.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Dat As Range
Set Dat = Sheets("Лист2").Range("A1:A100").Find(what:=Sheets("Лист1").Range("A1").Value)                'Ищем значение ячейки А1 на листе2
MsgBox ("Адрес ячейки на листе2 где находится искомое выражение- " & Dat.Address & "   Удаляем строку на Листе2 номер- " & Dat.Row)
Dat(Row).Delete     'Удаляет какую то странную строку, но не ту
End Sub

Если записать Dat(Row) - выдает какое то другое значение от Dat.Row
Спасибо.
Изменено: Alex6656 - 23.01.2016 22:38:58
 
Перейти    
Как убрать заголовок на userform?
 
#
29.09.2015 15:12:36
Все спасибо разобрался...(моя дурная голова мне покоя не дает) рабочий вариант выложил сверху.
 
Перейти    
Как убрать заголовок на userform?
 
#
29.09.2015 15:06:33
Цитата
JayBhagavan написал: PtrSafe не пробовали?
Пробовали...но до кучи изменил Long на LongLong...исправил обратно...теперь все заработало ...Спасибо междометия помогают как ни когда))
Изменено: Alex6656 - 29.09.2015 22:57:02
 
Перейти    
Как убрать заголовок на userform?
 
#
29.09.2015 14:54:10
Эту тему я видел пробовал во всевозможных схемах сразу ругается на :
Declare PtrSafe Function MyMathFunc Lib "User32" (ByVal N As LongLong) As LongLong
удаляю ее ругается на следующую...пока всю программку не удалил, тогда все ок, но тогда и кода нет)

Итог -  нет кода, нет проблем)
Вставил PtrSafe в старую функцию ругань прекратилась, но начал ругаться на "FindWindow" в строке - lhWnd = FindWindow(vbNullString, Me.Caption)
Изменено: Alex6656 - 29.09.2015 22:56:53
 
Перейти    
Как убрать заголовок на userform?
 
#
28.09.2015 14:06:48
Цитата
JayBhagavan написал: воспользуйтесь поиском. Про совместимость с х64 ранее поднимался вопрос.
Воспользовался, но результата ноль.
При нажатии (на листе в любом месте) должна появляться форма...в 32 битах все "ок", а как реализовать в 64 битах?

P.s.   Прошу прощения за картинку(в файле) под рукой маленького размера ничего не оказалось..
 
Перейти    
Как убрать заголовок на userform?
 
#
28.09.2015 09:42:21
Да для 32 битных систем все работает, а как реализовать для 64 битных?
При запуске сразу ругается на "Private Declare Function FindWindow " и далее на все строки.
 
Перейти    
закрыть окно изображение(элемент ActiveX) с помощью vba, закрыть окно изображение(элемент ActiveX) с помощью vba
 
#
26.09.2015 22:08:23
Цитата
Юрий М написал:
ActiveSheet.Shapes.Range(Array("Image1")).Visible = True
О спасибо)) а я и так и сяк...а то окно UserForm со свом крестиком и названием окна, как то не наглядно было. Спасибо.



Разобрался и с userform ....вывод картинки на 3 секунды (без названия окна и крестика)...
p.s. я новичок пока в vba  
Изменено: Alex6656 - 26.09.2015 22:50:33
 
Перейти    
закрыть окно изображение(элемент ActiveX) с помощью vba, закрыть окно изображение(элемент ActiveX) с помощью vba
 
#
26.09.2015 21:54:32
вот что то вышло...что то было до этого не так, но с первой задачей разобрался))
Есть картинка ...после нажатия на кнопку он удаляется...либо после 10 секунд простоя. Как бы теперь ее вернуть назад при нажатии на кнопку (или после 10 сек простоя)...пример выложил
 
Перейти    
закрыть окно изображение(элемент ActiveX) с помощью vba, закрыть окно изображение(элемент ActiveX) с помощью vba
 
#
26.09.2015 20:30:09
пример из за картинки не выкладывается....Смысл в том что берем новый фаил excel, размещаем окно image(activX), загружаем картинку в него...далее как удалить с помощью VBA это окно.
Написали выше с помощью UserForm..кинете ссылку?
Изменено: Alex6656 - 26.09.2015 20:36:30
 
Перейти    
закрыть окно изображение(элемент ActiveX) с помощью vba, закрыть окно изображение(элемент ActiveX) с помощью vba
 
#
26.09.2015 20:19:20
Да уже весь инет перерыл и запись макроса пробовал...ноль эмоций
запись показывает:
выделяем форму image и удаляем:

ActiveSheet.Shapes.Range(Array("Image1")).Select
   Selection.Delete
но вставляю в тело программы ноль эмоций .
 
Перейти    
закрыть окно изображение(элемент ActiveX) с помощью vba, закрыть окно изображение(элемент ActiveX) с помощью vba
 
#
26.09.2015 18:51:27
Открыл окно  изображение(элемент ActiveX) вcтавил картинку. Но хотелось бы усовершенствовать программу чтобы при открытии excel выводилось изображение, а через некоторое время закрывалось. С формами все получается, но хочется что бы было без крестиков и названия окна.
Изменено: Alex6656 - 26.09.2015 18:54:33
 
Перейти    
Страницы: 1
Наверх