Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> макрос в Excel! 
:(
    Опции темы
Hiflyer
Дата 12.11.2005, 15:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 12.11.2005

Репутация: нет
Всего: нет
Проблема такая! Нужен макрос в Excel!!! Сам в них (в VBA) !!!Полный ноль!!!

Вот сама проблема=)!
http://img487.imageshack.us/img487/8499/excel4lh.jpg

На картинке Pic1 часть документа которую надо с помощью макроса переделать (так что бы было как на картинке Pic2)

Т.е. Дату со столбца B перенести в столбец А... причем чтоб было так как на картинке Pic2


http://www.es-tuning.org/test.xls - пример файла тут (если можно записать в него макрос и выслать мне на е-mail
[email protected]

Это возможно? Заранее спасибо за помощь, совет!!! smile
PM MAIL   Вверх
Staruha
Дата 14.11.2005, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27
smile smile
Код

Private Sub CommandButton1_Click()
Dim c As String

 For x = 1 To 20
  If Range("B" & x).NumberFormat = "d/m/yy" Then
   c = Range("B" & x).Value
   Else
   Range("A" & x).Value = c
  End If
  Next
End Sub


В данном случае формат надо заменить на "m/d/yyyy"

Это сообщение отредактировал(а) Staruha - 14.11.2005, 21:03


--------------------
Возмездие настигнет
PM MAIL   Вверх
likhobory
Дата 14.11.2005, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 10
Всего: 20
поскольку даты (судя по рис.2) не нужны. можем сразу удалять соотв. значения
Код

'''''''''''''
c = Range("B" & CStr(x)).Value
Range("B" & CStr(x)).Value=vbnullstring
   Else
''''''''''''''


Это сообщение отредактировал(а) likhobory - 14.11.2005, 17:51


--------------------
TSC! Russia 
PM MAIL   Вверх
Staruha
Дата 14.11.2005, 21:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27
Цитата(likhobory @ 14.11.2005, 16:54)
Range("B" & CStr(x)).Value=vbnullstring]

Здесь удаляется строка,ячейка или значение(остается пустая ячейка)?

Это сообщение отредактировал(а) Staruha - 14.11.2005, 21:11


--------------------
Возмездие настигнет
PM MAIL   Вверх
likhobory
Дата 14.11.2005, 21:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 10
Всего: 20
последнее


--------------------
TSC! Russia 
PM MAIL   Вверх
Staruha
Дата 14.11.2005, 22:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27
В чем тогда разница
Цитата (likhobory @ 14.11.2005, 16:54)
Цитата
Range("B" & CStr(x)).Value=vbnullstring] 
и
Код

Range("B" & CStr(x)).Value = ""


Это сообщение отредактировал(а) Staruha - 14.11.2005, 22:34


--------------------
Возмездие настигнет
PM MAIL   Вверх
bankuss
Дата 15.11.2005, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 396
Регистрация: 26.3.2004

Репутация: нет
Всего: 4
Staruha разницы нет smile но vbNullString работает быстрее, так как это внутренняя константа VB (кстати таких констант много).
Но на современных компах разница почти не заметна.
PM MAIL   Вверх
likhobory
Дата 15.11.2005, 11:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 10
Всего: 20
Цитата(bankuss @ 15.11.2005, 10:54)
vbNullString работает быстрее,

vbNullString - указатель на пустую строку
в данном случае ...Value = ""
пустая строка создается (на что тратится энное кол-во времени) и присваивается

Это сообщение отредактировал(а) likhobory - 16.11.2005, 13:05


--------------------
TSC! Russia 
PM MAIL   Вверх
Hiflyer
Дата 16.11.2005, 02:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 12.11.2005

Репутация: нет
Всего: нет
smile smile smile

Спасибо!!!!!!!!!!!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0486 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.