» Excel VBA (часть 3)

Ну, если "в лоб", то так:

Код: Sub qq()
Dim i As Long: Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = 0 Then Cells(i, 3).Insert xlDown
Next
End Sub

Цитата:

Уважаемые форумчане! Опять прошу вашей помощи

Смотри пример: http://rghost.ru/38856099

Доброго Времени всем !
Помогите пожалуйста ...
Мне необходимо сделать так чтобы, при открытии документа на основе предыдущей записи - таблицы в документе ниже создавалась копия только с другой датой ...
excel 2010

Возможно это очень простой вопрос поэтому прошу прощения у всех, срочно надо, а чтобы все понять читать надо много, в особенности по макросам я ноль =(((

Цитата:

Помогите пожалуйста

В модуль "Эта книга" пишем следующее:

Код:
Private Sub Workbook_Open()
Dim lLr&
lLr = Worksheets("YourName").Cells(Rows.Count, "A").End(xlUp).Row ' Замените YourName на свое. А - столбик начала таблицы
Rows(lLr).EntireRow.Copy
Cells(lLr + 1, 1).Select
ActiveSheet.Paste
Cells(lLr + 1, 1) = Date ' После запятой поставьте вместо 1 порядковый номер столбика, куда нужно вставить дату
End Sub

andrewkard1980
Огромное СПАСИБО все получилось, все работает !!!

Добрый день всем,

Подскажите пожалуйста в чем проблема...

Есть вот такой код сортировки диапазона:


Код:
Sub sorted()
Dim sw As Worksheet
Set sw = Worksheets("3.sheet1")
sw.Range(Cells(1, 1), Cells(30, 12)).Sort Key1:=sw.Columns("A"), order1:=xlAscending, Header:=xlNo
End Sub

Pokemonchyk
А если писать

ActiveWorkBook.Sheets("sheet1").Range(Cells(1, 1), Cells(30, 12)).Sort

?

miwa

Цитата:

А если писать

ActiveWorkBook.Sheets("sheet1").Range(Cells(1, 1), Cells(30, 12)).Sort

?

То же самое.

Код:
Sub sorted()
ActiveWorkbook.Sheets("sheet1").Range(Cells(1, 1), Cells(30, 12)).Sort Key1:=ActiveWorkbook.Sheets("sheet1").Columns("A"), order1:=xlAscending, Header:=xlNo

End Sub

Цитата:

Помогите как можно открыть *xla vba код говорит project is unviewable
Попробовал через Open Office открыть без результатно..

Цитата:

Q: При открытии XLA-файла я получаю сообщение "Project is unviewable". Как посмотреть проект ?

посмотрите сюда http://freevba.narod.ru/

Pokemonchyk

Цитата:

нашел решение сам!!!
 
Нужно типа активировать лист

Блин, логично

nosewide
А это вы, простите, с кем только что общались?

Pokemonchyk
Активировать лист ни к чему. Ошибка возникает потому, что при обращении к диапазону ячеек в то время, когда лист sw не активен, Вы ссылаетесь на sw.Range (т. е. диапазон листа sw), а ячейки этого диапазона (Cells) ссылок на лист не имеют, т. е. по умолчанию принадлежат активному листу. Вот у Excel-я и "сносит крышу".
Достаточно добавить необходимые ссылки:

Код: sw.Range(sw.Cells(1, 1), sw.Cells(30, 12))

Коллеги, не подскажете, как сделать такой фон в UserForm, например как здесь:
http://excelvba.ru/tools/DatePicker
это картинка? Просто если я вставляю картинку через инструмент Image, ее можно выделить и посмотреть свойства, а тут?

Добавлено:
Уточняю: панель настроек, форма frmOptions

andrewkard1980, в свойствах формы есть пункт Picture, вот туда и надо прописывать картинку. Если она отличается по размерам от формы, то в пункте PictureSizeMode поставить ...Stretch. Я обычно делаю так, рисую в фотошопе линию в один пиксель, с градиентной заливкой и впяливаю в Picture формы. Свойство stretch её растягивает на всю форму и получается небольшой вес и красотища

Maximus777
Спасибо. Попробую.

Еще есть вопрос по пользовательским формам, в проекте есть 2 формы, запускаю их в немодальном режиме (.Show 0):
1) Первая запускается при открытии книги;
2) Вторая кнопкой с первой формы.

Суть вопроса: как вернуть фокус первой форме при закрытии второй программно:

Код:
Private Sub UserForm_Deactivate()
UserForm1.Activate ' Такой функции нет
End Sub

andrewkard1980
Так если первая не закрывалась, то она автоматом получает фокус, после закрытия второй. Пример.

Если не запустится, надо в референсах VBA отключить Xtreme controls (это контролы в стиле системы, а не такие унылые, как в VBA по дефолту).

Ага, спасибо. Да точно, у меня не активировалась из-за UserForm1.Show 0. Когда форма модальная, нельзя активировать другую книгу, что есть не совсем удобно

Добрый день, подскажите пожайлуста, как перевести в верхний регистр весь лист.

Может так:

Код:
Sub test()
Dim oCell As Object
For Each oCell In ActiveSheet.UsedRange
oCell.Value = UCase(oCell)
Next
End Sub

для проблемы, описанной здесь я раздобыл скрипт, но он ни в какую не компилится в 2007-м Экселе

[more=вот код]Dim Vse(1 To 100000) As aInfo

Private Sub CommandButton1_Click()
On Error Resume Next
Close
Open "d:\1.txt" For Input As #1
Dim col
While Not EOF(1)
col = col + 1
Line Input #1, Vse(col).Kompany
Line Input #1, Vse(col).Adress
Line Input #1, Vse(col).e_mail
Line Input #1, Vse(col).Phone
Line Input #1, Vse(col).propusk
Wend
Debug.Print col
Close #1
Label1 = col

For i = 1 To col
' If Mid(Vse(i).Kompany, 1, 1) <> Chr(22) Then Лист1.Cells(i, 1) = Vse(i).Kompany Else Лист1.Cells(i, 1) = Mid(Vse(i).Kompany, 2, Len(Vse(i).Kompany) - 1)
Лист1.Cells(i, 1) = Vse(i).Kompany
Лист1.Cells(i, 2) = Vse(i).Adress
Лист1.Cells(i, 3) = Vse(i).e_mail
Лист1.Cells(i, 4) = Vse(i).Phone
Next i

End
End Sub[/more]

в чём может быть загвоздка?

Ndr3w
Что значит "не компилится"? Говорит хоть чего или молча работу саботирует?

Upd:
Вобчем вот рабочий вариант. В примере делалось по ходу с формами, я же просто кнопку прям на лист положил.

Maximus777
вот скриншотик

Тип данных aInfo ему неизвестен, о чём он честно и сообчает. См. ссыль в моём предыдущем посте, я выложил там рабочий файл.

Maximus777
большое спасибо
но в итоге шляпа какая-то всё равно...

Ndr3w
Цитата:

но в итоге шляпа какая-то всё равно..

Пуркуа? Вроде всё заполняется.

Maximus777
вот как у меня происходит


Добавлено:
твой скрипт наверно работает по алгоритму, который не предусматривает пустые строки в оригинальном файле, да? а то они присутствуют, и потому наверно такая упяча

Ndr3w
Цэ не мой скрипт Я только дополнил его. Короче нужен твой *.txt, чтобы сразу всех собак откопать.

Maximus777
http://rghost.ru/39388813

Ну вот как-то так. Можно и дальше ещё вылизывать код, но для этого надо знать желаемый конечный результат.

Прикольно. В списке даже мой город есть, Усть-Каменогорск. Только телефоны устаревшие. Номеров на 47 уже нет в использовании.

Maximus777
всё супер =)
можно ещё код?

Добавлено:

Цитата:

Прикольно. В списке даже мой город есть, Усть-Каменогорск. Только телефоны устаревшие. Номеров на 47 уже нет в использовании.

это уже косяк единой справочной системы Аитэра