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

Страницы: 1 2 След.
О музыке.
 
#
20.10.2013 19:59:16
Мурзилки:
http://www.avtoradio.ru/?an=ml_parody_page&uid=317959
Ажиотаж на шиномонтажах. Мурзилки Int. – пародия «Вернисаж» (Л. Вайкуле&В. Леонтьев).

http://www.avtoradio.ru/?an=ml_parody_page&uid=315521
Руководитель «АвтоВАЗа» Игорь Комаров может возглавить Роскосмос. Мурзилки Int. – пародия «В последний раз» (Гр. «Веселые ребята»).
 
Перейти    
Определение последнего заполненного столбца, ошибка в excel 2003
 
#
19.10.2013 11:19:47
Это определение столбца по строке, а нужно для диапазона, в котором неизвестно, где эти строки находятся.

Было взято выражение, имеющееся во многих учебниках,и был вопрос почему оно в данном случае неправильно работает.
Изменено: pavel68 - 19.10.2013 12:53:58
 
Перейти    
Определение последнего заполненного столбца, ошибка в excel 2003
 
#
19.10.2013 10:51:06
Данные загружаются из другой книги и заранее неизвестно где они есть.
Вопрос был почему 2003 и 2007 в приведенном выражении по разному работают.
 
Перейти    
Определение последнего заполненного столбца, ошибка в excel 2003
 
#
19.10.2013 10:13:21
Код
Public Sub www()
    MsgBox ActiveSheet.Cells(ActiveCell.Row, ActiveSheet.Columns.Count).End(xlToLeft).Column
End Sub

Это выражение дает единицу
 
Перейти    
Определение последнего заполненного столбца, ошибка в excel 2003
 
#
19.10.2013 03:02:16
Здравствуйте!
Почему в приложенном примере макрос в excel 2003 показывает неправильно последний заполненный
столбец (187), а в excel 2007 показывает правильно (17).
Изменено: pavel68 - 19.10.2013 03:02:41
 
Перейти    
Cравнить диапазон чисел в двух столбцах, Помогите создать Макрос
 
#
17.10.2013 15:46:07
Сравнивать надо построчно или каждую ячейку столбца В со всеми ячейками столбца С ?
 
Перейти    
Суммирование данных по строкам по 3 условиям
 
#
15.10.2013 13:47:24
Когда-то для подобной цели был макрос от Михаил С.
Приспособил его для Вашей таблицы.
 
Перейти    
Как поменять точки на запятые ?
 
#
06.10.2013 19:43:23
Здравствуйте!
http://www.excelworld.ru/forum/10-6371-1 в сообщении №13 макрос от "Michael_S" (Михаил С.)
правильно преобразует при любом системном разделителе (и запятая, и точка)
 
Перейти    
Преобразовать диапазон в список XML
 
#
04.10.2013 18:52:07
Это подходит для простых файлов, создать xml , для которого задана сложная структура , описанная в xsd схеме, не получается.
 
Перейти    
Удалить все симоволы до первого пробела, В том числе и пробел
 
#
01.10.2013 23:14:32
пропустил скобку:
Код
Cells(i, 2) = Mid(Str, InStr(1, Str, " ") + 1)
 
Перейти    
Удалить все симоволы до первого пробела, В том числе и пробел
 
#
01.10.2013 22:51:50
Или вместо пятой строки, такая строка:
Код
Cells(i, 2) = Mid(Str, InStr(1, Str, " "+ 1)
Изменено: pavel68 - 01.10.2013 22:55:16
 
Перейти    
Макрос импорта текста с диалогом выбора файла
 
#
30.09.2013 23:07:09
Вот пример диалога выбора текстового файла и импорта на лист:
Код
Filename = Application.GetOpenFilename("txt Files (*.txt), *.txt") 'получаем имя и путь файл
Dim r As Long
Set ImpRng = Cells(1, 1)
    Open Filename For Input As #1
    r = 0
    Do Until EOF(1)
        Line Input #1, data
   Cells(1, 1).Offset(r, 0) = data
    Cells(1, 1).Offset(r, 0) = LTrim(Replace(Cells(1, 1).Offset(r, 0).Text, Chr(9), " "))
r = r + 1
   Loop
    Close #1

Не помню откуда скопировал.
Изменено: pavel68 - 30.09.2013 23:07:43
 
Перейти    
Преобразование даты в массиве
 
#
30.09.2013 22:39:16
имеете в виду что-то так:
If IsDate(Arr(n, 1)) = False Then.....
 
Перейти    
Преобразование даты в массиве
 
#
30.09.2013 21:44:20
Работает как надо.
Как же мне дойти до Вашего профессионализма?
Наверное ума не хватит.
 
Перейти    
Преобразование даты в массиве
 
#
30.09.2013 20:39:39
Обнаружил, что макрос меняет местами день и месяц, а если день больше чем количество месяцев, например 13-е число,то не работает.
Изменено: pavel68 - 30.09.2013 20:40:29
 
Перейти    
Преобразование даты в массиве
 
#
30.09.2013 20:06:00
Михаил С. спасибо!!! Ваш макрос делает то, что мне нужно.
Теперь программа, в которую мне надо импортировать ексель-файл правильно понимает даты.
И работает Ваш макрос примерно в 10 раз быстрее чем цикл по ячейкам листа.
Только день поменялся местами с месяцем.
Изменено: pavel68 - 30.09.2013 20:12:06
 
Перейти    
Преобразование даты в массиве
 
#
30.09.2013 19:51:48
При выделении мышкой в столбце А первых четырех дат в нижней служебной строке сумма 07.05.2354
Если в нижней служебной строке сумма не появляется, то это значит, что дата
в каком-то несоответствующем формате, т.к. excel представляет дату как число.

Потом мне надо импортировать ексель-файл в программу, но эта программа не понимает даты,
если они не удовлетворяют вышеприведенным условиям.
Изменено: pavel68 - 30.09.2013 20:00:25
 
Перейти    
Преобразование даты в массиве
 
#
30.09.2013 19:13:14
в полученном формате при выделении мышью нескольких ячеек, excel не показывает сумму ячеек.
 
Перейти    
Преобразование даты в массиве
 
#
30.09.2013 18:50:06
Как из исходного форматы "дата" получить нормальный формат даты, чтобы при выделении
мышью нескольких ячеек, excel показывал бы сумму ячеек.
В примере в макросе сделано с помощью цикла на листе, возможно ли такой цикл сделать в массиве, чтобы ускорить время выполнения.
 
Перейти    
Поиск значений в ячейках
 
#
29.09.2013 15:16:13
anvg! благодарю за помощь, в примере с литрами тоже всё работает
 
Перейти    
Поиск значений в ячейках
 
#
28.09.2013 15:11:27
Слэн и Sergii87 спасибо! Для данного примера работает.
Но у меня слишком разнообразные вариации записей.
Буду разбираться как сделать, чтобы попытаться охватить как можно больше вариантов.
 
Перейти    
Поиск значений в ячейках
 
#
28.09.2013 13:14:25
Наверное надо pattern писать для RegExp
Изменено: pavel68 - 28.09.2013 13:24:18
 
Перейти    
Поиск значений в ячейках
 
#
28.09.2013 12:59:49
Пример с литрами
 
Перейти    
Поиск значений в ячейках
 
#
28.09.2013 12:36:25
Если в таблице и в макросе поменять "см" на "л", то некоторые строчки неправильно срабатывают.
Что еще надо поменять в макросе?
 
Перейти    
Как получить цвет текста ячейки в формате RGB
 
#
26.09.2013 12:13:23
Где-то раньше скачивал вот такой макрос.
Указываешь цвет, дает его параметры в разных вариантах
 
Перейти    
Разделить цифры и буквы формата ячейки по разным ячейкам
 
#
19.09.2013 12:35:14
Здравствуйте!
Первый вопрос обсуждался здесь: http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=51203&PAGEN_1=193
сообщение #12 и далее
 
Перейти    
Не считает сумму., Меняю в формате ячеек на "число", а ему по барабану.
 
#
16.09.2013 18:06:50
Т.е. такой формат образовался в результате какого-то сбоя?
 
Перейти    
Выделение ячеек несоответствующих формату "Дата"
 
#
16.09.2013 17:56:10
или так:
Код
Sub colour()
Dim D1 As Date, D2 As Date
   D1 = #1/1/2000#
   D2 = #12/12/2013#
   lLastRow = Cells(Rows.Count, 3).End(xlUp).Row

   For i = 1 To lLastRow
      If IsDate(Cells(i, 3)) = False Then Cells(i, 3).Interior.Color = 255
      If CDate(Cells(i, 3) < D1) Then Cells(i, 3).Interior.Color = 255
      If CDate(Cells(i, 3) > D2) Then Cells(i, 3).Interior.Color = 255
   Next i
End Sub
 
Перейти    
Не считает сумму., Меняю в формате ячеек на "число", а ему по барабану.
 
#
16.09.2013 14:47:40
Подскажите что за формат в примере, при попытке изменить формат на общий или другой,
всё что после семерки отбрасывается.

если  сохранить файл "сохранить как" и в строке "тип файла" выбрать CSV (разделители-запятые),
то в сохраненном файле"пример.csv" уже получится формат "общий"
Изменено: pavel68 - 16.09.2013 14:51:19
 
Перейти    
Не считает сумму., Меняю в формате ячеек на "число", а ему по барабану.
 
#
16.09.2013 14:26:05
Приходилось объединять разные файлы ексель от разных пользователей,
которые получали эти ексель-файлы выгрузкой из своих учетных программ
(1с разных версий,галактика,числа из excel95 и т.д.).
В результате в сборном файле очень тяжело было все числа сделать числами,т.к. были числа
с разными разделителями, в разных форматах,с апострофами спереди,с зелеными треугольничками и т.п.
перепробовал много разных способов.
Удалось все эти числа привести к нормальному формату таким способом:

1.Установить перед всеми числами апостроф,т.е. все числа привести к текстовому формату
2.Заменить точку на системный разделитель
3.Заменить запятую на системный разделитель
пункты 2 и 3 для универсальности макроса, чтобы все разделители привести к одному-системному
4.добавить к числам единицу
5.Вычесть из чисел единицу
6.Установить форматы ячеек "общий"
В данном случае сработает, если сначала убрать разделитель разрядов
Изменено: pavel68 - 16.09.2013 14:37:50
 
Перейти    
Страницы: 1 2 След.
Наверх