Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 236 След.
Массово поменять свойство "Кем сохранен" для файлов Word
 
Цитата
vitalyram написал:
Application.UserName = значение
одноцветно и в Excel, и в Word
Параметры масштабирования Excel в Windows 10, Установить параметр масштабирования для Excel
 
Дим, либо написать макрос, аналогичный тому, который ты писал для изменения разрешения экрана.
Массово поменять свойство "Кем сохранен" для файлов Word
 
На 95% это должно работать и в Excel,  и в Word.
5% - хз.
Одна формула на все листы. Как?
 
Цитата
Игорь Иванов написал:
Это все работает в Excel, а при попытке тоже самое сделать в Гугл Таблицах - нет
Почему на велосипеде надо крутить педали, а на автомобиле нет? Может кто знает?
Или на лисапете мотора нет?
Проблемы при экспорте из базы данных SQL, Обработка полученного файла
 
Цитата
Гагарин Константин написал:
значения, полученные из стороковых полей, имеют в начале апостроф
Этот апостроф добавляется затем, чтобы "значения, полученные из стороковых полей" вставились как текст, без преобразования данных механизмами Excel.
Удалить строки из умной таблицы vba
 
Цитата
Елена Дроздова написал:
Если в умной таблице остается одна пустая строка
Это не пустая строка. Это фантом. В таблице есть строка заголовков (есть таблица), но нет данных. Проверяйте так
Код
If tbl.DataBodyRange Is Nothing Then  
Исчезают данные
 
Цитата
powerwer написал:
Formula2Local
Вы откуда такое вы..ли?
Макрос удаление символов в начале строки, Как удалить определенные символы в начале строки?
 
Jack Famous,
СОРТИРОВКА ДАННЫХ ПО ФИЛЬТРУ ПО МНОЖЕСТВУ НОМЕНКЛАТУР
 
Тыц
Не работает кот, Бабл сорт не работает
 
Цитата
Сергей Иванов написал:
Последний вариант от Киберфорума не работает
Это кто вам сказал?
Вы смотрите не там.
Но я спрашивал про кота, который тут.
Судя по всему, вы не поняли смысл моего ответа.
Не работает кот, Бабл сорт не работает
 
После #10 много писанины, и одна непонятка. Кот заработал?
Не работает кот, Бабл сорт не работает
 
Цитата
MikeVol написал:
Там Кот тоже не работает...
Зато работает ReDim valuesArray
Сергей Иванов, Зачем вам пустой массив сортировать? Любой сортировкой получите пустой массив.  :)
Вытащить текст из документа ворд, Вытащить текст из документа ворд
 
Цитата
ALEXKSANDR LEVINSKII написал:
Спасибо большое, если кто нибудь объяснит как это сделать
Для начала попробуйте прочитать ПРАВИЛА форума.
Найти ИД процесса и закрыть процесс
 
Тыц
Тыц
Excel - Хранимка - SQL <> формат дата, тип дата
 
Цитата
powerwer написал:
RAN,     Dim   LastRow   As   String    Спасибо ))  
И тут умудрились извратить!  8-0
Dim   LastRow   As   Long,  или Dim   LastRow   As   Integer
Изменено: RAN - 04.11.2022 19:18:26
Шаблон Тестирование в Excel
 
Я бы даже предложил макрос самоудаления этого файла. Дабы не повадно...  :D
Excel - Хранимка - SQL <> формат дата, тип дата
 
Я знаю. Хотя понятия не имею, что такое "Хранимка".
powerwer, это никак не относится к заявленной теме. Это элементарное незнание основ VBA.
Что такое переменная и как правильно её объявить?
Изменено: RAN - 04.11.2022 18:33:36
Excel - Хранимка - SQL <> формат дата, тип дата
 
Мне за вас ввести текст сообщения в любой поисковик? А заодно и в переводчик?
Excel - Хранимка - SQL <> формат дата, тип дата
 
powerwer, вы не правильно формулируете вопрос
Ваш вопрос должен звучать так
"Почему в моем г**о коде сей фрагмент не работает? Сайт гадалок посещал, ответа не получил."

PS так вы даже не читаете, что вам Excel пишет?
Изменено: RAN - 04.11.2022 18:04:04
Excel - Хранимка - SQL <> формат дата, тип дата
 
Цитата
powerwer написал:
ругается на LastRow
Это вы жалуетесь, или хвастаетесь?
Ни как не могу решить школьную задачу
 
Цитата
Rphoenix написал:
Используя функцию «Подбор параметра» MS Excel
Требуется решить задачу через задний проход, а вы сразу в лоб!  :D
Копирование изменяемого столбца диапазона ячеек, Копирование изменяемого диапазона ячеек эксель
 
Цитата
Юрий М написал:
Назар Скалат ,  ещё одна бездумная цитата и я закрою тему!
Бездумная, это мягко сказано
Цитирует мой код, говорит, что не работает, но моего кода в файле нет.
Ну и как после этого назвать Назар Скалат?
Сохранение одного листа как отдельный файл.
 
Код
Sub CopyTest3()
    Dim sPath As String, sName As String
    sPath = ActiveWorkbook.Path
    sName = ActiveSheet.Name
    ActiveSheet.Copy Before:=Sheets(1)
    Sheets(1).UsedRange.Value = Sheets(1).UsedRange.Value
    Sheets(1).Move
    ActiveSheet.Name = sName
    ActiveWorkbook.SaveAs sPath & "\" & sName & ".xlsx", 51
    ActiveWorkbook.Close
End Sub
Сохранение одного листа как отдельный файл.
 
Цитата
tutochkin написал:
For Each sh In ActiveWindow.SelectedSheets       sh.UsedRange.Value = sh.UsedRange.Value    Next sh
И зачем это для 1 листа?
Макрос открытия файла в сети, с последующими действиями., Открыть только для чтения, скопировать, закрыть, вставить значениями в файле из которого производился запуск макроса.
 
Вангую наличие Sub Зарплата_на_БК() в двух экземплярах
Копирование изменяемого столбца диапазона ячеек, Копирование изменяемого диапазона ячеек эксель
 
Код
Sub qq()
    Dim lr&, lrow&, i&, j&, k&
    lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Range("A1").Resize(lr).AutoFilter Field:=1, Criteria1:="<>"
    k = 1: j = 4
    For i = 2 To lr
        If IsDate(Range("A" & i)) Or i = lr Then
            lrow = Cells(Rows.Count, j).End(xlUp).Row + 1
            If lrow = 2 Then lrow = 1
            Range("A" & k & ":A" & i - 1).Copy Cells(lrow, j)
            k = i
            j = j + 1
            If j > 6 Then j = 4
        End If
    Next
End Sub
Изменено: RAN - 03.11.2022 12:13:50
Подсчёт значений нарастающим итогом, VBA, scripting.dictionary
 
Код
Sub lknb()

'просуммировать значения в нарастании по ключам
Dim d1 As Object, i As Integer, j As Integer
Dim a, b, c

'пилим словарь
Set d1 = CreateObject("scripting.dictionary")

'массив с нарастающим итогом
a = Range("a4").CurrentRegion
'массив сттатей, которые попадут в нарастающий итог
b = Range("d4").CurrentRegion

'For i = 1 To UBound(a, 1)
'    d1.Add a(i, 1), 0
'Next

'прохожусь по статьям в массиве b. Если есть ключ сущестует, тогда
'к итему с 0 суммой прибавляется сумма привязанная к этому ключу
For i = 1 To UBound(b, 1)
'    If d1.Exists((a(1, 1))) Then d1(a(1, 1)) = d1(a(1, 1)) + b(i, 2)
    d1.Item(b(i, 1)) = d1.Item(b(i, 1)) + b(i, 2)
Next

'массив для вставки сложенных в нарастании итемов (сумм) по ключам
'ReDim c(1 To UBound(a, 1), 1 To 1)

'c = d1(a(1, 1))
c = d1.Items

Stop
End Sub
Сброс последней ячейки, сброс (reset) последней ячейки - аналог ASAP
 
Миша, упираться не буду.  Все могет быть.
А на сайтах гадалок я не очень популярен.
Изменено: RAN - 02.11.2022 17:13:28
Сброс последней ячейки, сброс (reset) последней ячейки - аналог ASAP
 
Цитата
БМВ написал:
 :D
Вопрос, конечно, интересный. До сих пор разницы не наблюдалось.
Но vral, он и есть Враль!  :D
И подтверждать враньё доказательствами ниже его "достоинства?"
Изменено: RAN - 02.11.2022 16:55:59
Отчет по продажам, посчитать прибыль на основании отчета продаж и документов приемки и оприходования
 
Цитата
New написал:
Ну, какая предоплата за 1000-2000 рублей?
Полная. А на нет и макроса нет. Или по желанию... И без негатива.
Кому надо, и 30 000 предоплаты делают.
А тот, кот считает, что бутылка коньяка дорого, максимум пачка сигарет - это не клиент. Пущай изучает Excel, VBA, PQ.

Я таким сообщаю, что подобные вопросы решаю бесплатно в темах на форуме, если появится желание.
Изменено: RAN - 02.11.2022 16:20:27
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 236 След.
Наверх