Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 36 След.
1С и плоская таблица
 
А где таблица на входе и таблица на выходе? В вашем примере несколько заполненных строк и всё.
Никаких врагов, зато и никаких друзей.
23 февраля, Наступающий праздник
 
Ой, спасибо за поздравление.  :D
Никаких врагов, зато и никаких друзей.
Макрос для переделывания данных из 1с, Макрос строчную таблицу переделывает в столбцы и по критериям выборки
 
Цитата
Алмас написал:
только вот что то у меня не сработало(((
Что именно не сработало? ССЫЛКА
Изменено: Alemox - 23 Фев 2018 17:46:06
Никаких врагов, зато и никаких друзей.
Макрос для переделывания данных из 1с, Макрос строчную таблицу переделывает в столбцы и по критериям выборки
 
Во вложении вариант макроса. На нужном листе, на котором надо обработать данные, запускаете макрос Preobrazovanie.
Окно макросов можно вызвать нажав ALT+F8.
За капитальную правильность выполнения не ручаюсь.
Скрытый текст
Изменено: Alemox - 22 Фев 2018 19:44:37 (Удалил повторную строку в коде)
Никаких врагов, зато и никаких друзей.
Макрос для переделывания данных из 1с, Макрос строчную таблицу переделывает в столбцы и по критериям выборки
 
Можно кое-что придумать. Сейчас покумекаю.
Никаких врагов, зато и никаких друзей.
Макрос для переделывания данных из 1с, Макрос строчную таблицу переделывает в столбцы и по критериям выборки
 
Грустная форма выгрузки. Ручками тут не обойтись. Либо к шаблону приводить небольшому, чтобы зацепки макроса были.
Никаких врагов, зато и никаких друзей.
Актуальный интерес к нейросетям в excel есть у кого-нибудь?
 
И в какой области вы хотите применить эти нейросети? Я пару раз сталкивался. Для востановления картинок, предсказания погоды, или  точный счёт в футболе?
Никаких врагов, зато и никаких друзей.
Переменные VBA
 
Jack Famous, Да я увидел тоже потом уже. Просто у меня свои источники для переменных, поэтому дал статью, в которой хорошо описано не вникая в глубину текста и не заметил, что там это тоже имеется. Ну ладно. Повторение мать учения.
Никаких врагов, зато и никаких друзей.
Переменные VBA
 
Ну коли на то пошло, то выложу информацию ещё по одному типу описания переменных, который тянется с далёкого 1965 года, после первой версии Basic.
Мало кто знает, что так можно описывать переменные.

Например, все переменные с именами, начинающимися с букв из диапазона от А до Q,
имеют строковый тип:
Объявляется в начале модуля перед процедурой
DefStr A-Q

Код
DefStr A-Q

Sub Пример()
A = 1
B = "Строка"
C = 123456
End Sub


Вот основные команды объявления таким образом переменных.
DefBool - Тип данных Boolean
DefByte - Тип данных Byte
Deflnt - Тип данных Integer
DefLng - Тип данных Long
DefCur - Тип данных Currency
DefSng - Тип данных Single
DefDbl - Тип данных Double
DefDate - Тип данных Date
DefStr - Тип данных String
DefObj - Тип данных Оbject
DefVar - Тип данных Variant
Никаких врагов, зато и никаких друзей.
HB
 
Присоединяюсь ikki останется с нами на форуме до тех пор, пока жив сам форум. Его след на Planete до сих пор помогает людям и мне в том числе. И мне ikki не однократно помогал.
Никаких врагов, зато и никаких друзей.
Microsoft отказывается от Excel?, Что же теперь со всеми нами будет?
 
Цитата
Максим Зеленский написал:
И это правильно с точки зрения Microsoft
Не соглашусь. Это правильно только с точки зрения зарабатывания денег. Правильно это когда есть продукт и ты его доводишь до совершенства. А у нас картинки анимации и прочую лабуду делают, плюс кучу ошибок накрошат. Вот и выпускают новые версии. Покупайте люди. Как бы сами ненавязчиво. Как с виндовс 10. Сначала задавили ХР, и вынудили людей перейдти минимум на 7, теперь всех задавили и перетягивают как бы ненавязчиво на 10. А поменялось-то чего даже сравнивая ХР и 10. Да ничего. Какая-то система безопасности о которой каждый день трещат. А так вроде кроме красоты и того, что всё от пользователя спрятали и сделали для пользователя "дятла" всё. Так же можно было и ХР до совершенства дотянуть. А так занимаются тупым зарабатыванием денег.
Никаких врагов, зато и никаких друзей.
Макрос создание листа с именем ячейки?
 
Пример по лучше сделайте.
Никаких врагов, зато и никаких друзей.
Нестираемые пробелы. Как удалить массово?
 
Ну или так
Код
Function УБРАТЬПРОБЕЛЫ(a As Range)
Dim t$, s%
For s = 1 To Len(a.Text)
    If IsNumeric(Mid(a.Text, s, 1)) Then t = t & Mid(a.Text, s, 1)
Next s
УБРАТЬПРОБЕЛЫ = LTrim$(t)
End Function
Никаких врагов, зато и никаких друзей.
Нестираемые пробелы. Как удалить массово?
 
Код
=СЖПРОБЕЛЫ
Никаких врагов, зато и никаких друзей.
Как увеличить размер размер окна книги?
 
Снимите защиту с книги.
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=92056&MID=s
Изменено: Alemox - 12 Фев 2018 14:25:12
Никаких врагов, зато и никаких друзей.
Вставка смайлика в зависимости от текстового значения в ячейке
 
Какая разница? Напишите условие на текст, и всё.
Никаких врагов, зато и никаких друзей.
Вставка смайлика в зависимости от текстового значения в ячейке
 
Пост №9 уважаемого ikki как раз ваш вариант.
Никаких врагов, зато и никаких друзей.
Открыть гиперссылку другим браузером (не браузером по умолчанию)
 
У меня вообще все ссылки через Word пытаются открываться. И чего я только не делал и не менял, всё равно через Word.
Никаких врагов, зато и никаких друзей.
Теоретический вопрос про Application.ScreenUpdating
 
Тоже сталкивался несколько раз с таким, что обновление экрана переставало работать. Поэтому лучше включать всегда. Даже если включен обработчик ошибок, то в конце лучше включить, если ранее где-то отключалось.
Никаких врагов, зато и никаких друзей.
Анекдот дня, Постим сюда понравившиеся:)
 
Никаких врагов, зато и никаких друзей.
Самопроизвольное закрытие UserForm при StartUpPosition = 1 (Center)
 
Назначьте в Listbox на двойной клик.
Никаких врагов, зато и никаких друзей.
Отобразить рисунок на форме согласно коду из ячейки.
 
В Е2 так же как и другое
Никаких врагов, зато и никаких друзей.
Определить последний номер заполненных строки и столбца с работающим Ctrl+Z
 
SAS888, Казанский Спасибо большое, это то что надо.
Параметры поиска не важны, никто им не пользуется.
Код
R = Cells.Find("*", Cells(1, 1), xlFormulas, xlWhole, xlByRows, xlPrevious).Row
C = Cells.Find("*", Cells(1, 1), xlFormulas, xlWhole, xlByColumns, xlPrevious).Column
Никаких врагов, зато и никаких друзей.
Расстановка названий картинок на листе (над каждой картинкой)
 
Код
ActiveSheet.Cells(r.Row - 1, r.Column) = Mid(n, 1, Len(n) - 4)
Никаких врагов, зато и никаких друзей.
Определить последний номер заполненных строки и столбца с работающим Ctrl+Z
 
Добрый день.
Вопрос заезженный, но есть нюанс. Необходимо определить последний номер строки и столбца, заполненный, но чтобы при этом Ctrl+Z работал.
Имеется "рваная" динамическая таблица. Эта таблица увеличивается по высоте и ширине.
В листе на событие SelectionChange назначен макрос, который записывает данные в переменную по количеству столбцов и строк.
Данный метод работает, но нюанс возможно известен, что при удалении данных из ячейки номер определяется ошибочно:
Код
R = Cells.SpecialCells(xlLastCell).Row


При использовании данного метода
Код
R = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

Ctrl+Z не работает (один раз не считается)

Пробовал метод и через Macroчегототам, но ситуация как и в первом варианте. Есть выход из данного положения или нет?
Буду благодарен за любую информацию.
Никаких врагов, зато и никаких друзей.
Сумма прописью с заглавной буквы, макрос
 
Если чисто букву то так
Никаких врагов, зато и никаких друзей.
Переменные VBA
 
Могу только добавить следующее. Сейчас программисты в более крупных и запутанных программах, объявляют все переменные с типом Variant. Так код легче поддаётся изменению. Если у вас макрос небольшой, то можете и не объявлять переменные. Но иногда бывают случаи, что их просто необходимо объявить, так как программа может определить её неправильно. Сам лично встречал такие ситуации.
А вообще можете по данным ориентироваться по этой таблице.
Никаких врагов, зато и никаких друзей.
Расстановка названий картинок на листе (над каждой картинкой)
 
Как-то так
Никаких врагов, зато и никаких друзей.
Преобразование файла из xls в xlsx - макрос
 
тогда диалоговое окно по выбору файлов с последующим их открытием и пересохранением в нужное расширение.
Никаких врагов, зато и никаких друзей.
Макрос на обновление только одной книги
 
Цитата
Viacheslav.D написал:
как обновлять только одну из открытых книг
Мы не знаем, что вы понимаете под словом "Обновлять". Нажмите F9.
Никаких врагов, зато и никаких друзей.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 36 След.