Спасибо, будет время займусь, пока достаточно реализовать первый вопрос: Shell ("C:\Program Files (x86)\Iteamma\Text Replacer\TR.exe tr /files *.sql /findtext абв /replacetext abc /folder D:\test") в файле ексел генерируеться 2 значения, и заносятся в ячейки листа, как сделать чтоб с этих ячеек данные подставлялись вместо абв и abc
Private Sub TextBox2_Change()
If Len(Me.TextBox2) > 10 Then MsgBox "Длина значения больше 10 знаков!!"
End Sub
Private Sub UserForm_Initialize()
Me.TextBox2.Value = "..2016"
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
Unload Me
Shell ("C:\Program Files (x86)\Iteamma\Text Replacer\TR.exe tr /files *.sql /findtext абв /replacetext abc /folder D:\test")
Application.Wait Time:=Now + TimeSerial(0, 0, 5)
ThisWorkbook.Save
Application.Wait Time:=Now + TimeSerial(0, 0, 5)
Shell ("C:\Program Files (x86)\Iteamma\Text Replacer\Kill_TR.exe")
ThisWorkbook.Close
End If
End Sub
Shell ("C:\Program Files (x86)\Iteamma\Text Replacer\TR.exe tr /files *.sql /findtext абв /replacetext abc /folder D:\test") в файле ексел генерируеться 2 значения, и заносятся в ячейки листа, как сделать чтоб с этих ячеек данные подставлялись вместо абв и abc
p.s.
На данный момент для замены текста я использую программу Text Replace, в идеале было хорошо все сделать на VB: Нужно проверить все файлы *.sql в определенной папке найти в них текст WAYBILL_date>1470009600 AND WAYBILL_DATE<1472342400 - 1470009600 - дата в unix каждый раз может быть разная и заменить ее на сгенерированное значение из определенной ячейки ------
Здравствуйте, есть таблица состоящая из пяти столбцов (№ | 111 | от | 24.02.2014| ; ), из них 1,3 и 5 столбец заполнен всегда (№ , от , , строк примерно 10-15 штук (всегда по разному), данные № | 111 | от | 24.02.2014| ; собираются в последний столбец в единый номер | № 111 от 24.02.2014 ; | , потом все номера собираются в одну ячейку на другом листе, т.к. 1, 3 и 5 столбец постоянно заполнены получается следующее № 111 от 24.02.2014 ; № 222 от 24.02.2014 ; № 333 от 24.02.2014 ; № от ; и т.д.
Подскажите как сделать если в 2 столбце появись то поставить данные в столбец 1 - №, в 3 - от, в 5 - ; если удалить данные то ячейки 1, 3, 5 должны очиститься ?
Здравствуйте, как в excel реализовать получение данных с web страницы при вставке ссылки в ячейку? Есть интернет магазин, нужно скопировать ссылку и вставить в ячейку excel, даные с страницы должны автоматически загрузиться в другие ячейки (название товара, цена, по возможности картинка, но не обязательно).
Создал форму с текстовым полем (textbox), нужно: когда откроется форма вписать (руками, т.к. номера всегда разные) значение (числового формата 0001072 - 1072 это пример, номер всегда разный) и чтоб после нажатия кнопки Enter форма закрылась и это значение появилось в ячейке J39 .
Помогите еще: создал форму с текстовым полем, нужно: когда откроется форма вписать в нее значение (числового формата 0001072) и чтоб это значение появилось в определенной ячейке.
Здравствуйте, есть рабочая книга, в ней 15 листов, объясните как сделать чтоб макрос запускался автоматически только когда книга открывается на определенном листе? Если книга сохранена на других листах, то при открытии макрос не должен выполнятся.
Здравствуйте, помогите написать макрос: нужно чтоб при открытии книги появлялось окно с выпадающим списком (будет 3 значения). После выбора в первой ячейке должно появится выбранное значение, а во второй (справа) и третей (ниже), зависящее значение от первой. Например: если мы выбрали с выпадающего списка "ГРАНИТ" то на листе первая ячейка (A1) Будет - " ГРАНИТ ", вторая (B1) " 6802931000 ", третья (B2) "6802939000", всего будет три значения, у каждого по два зависящих.
Есть расчетный лист, после его заполнения (данные копируются с одной книги в эту) выводится вес брутто в определенной ячейке, после заполнения пользователь нажимает кнопку, после чего документ сохраняется под определенным именем и распечатываются три документа. Как правило, когда много работы все печатается с хвостами, а потом приходится переделывать, т.к. одну из условий формирования данных документов - брутто должно быть целое, с так же применил форматирование к столбцам с значениями (взял с Вашего примера), чтоб видеть где нужно поправить. Спасибо.
Здравствуйте, есть сумма, которая постоянно меняется, к примеру 62990,00 как применить условное форматирование, если значение после запятой будет больше ноля, т.е. 62990,40 - тогда ячейка должна окраситься в другой цвет?
Здравствуйте, есть макрос, после его выполнения книга должна сохраниться в сетевую папку (откуда она была открыта - \\Serverlex\FAILS (D)\Мои документы\КОМПАНИИ\Хик\Август-сентябрь\Документы 2014\ГАББРО) , она сохраняется но не всегда, через раз, то в папке Мои документы, то в сетевой.
Код
Sub WPrintButton_Click()
Worksheets("Упаковочный").Range("A1:H35").PrintOut Copies:=2
Worksheets("Инвойс").Range("A1:I39").PrintOut Copies:=2
Worksheets("Приложение").Range("A1:H50").PrintOut Copies:=3
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Worksheets("Расчетка").Range("H22").Value
Sheets("ДТ").Select
MsgBox "Документы сохранены и распечатаны, заполняйте декларацию!", vbExclamation
End Sub