|
|
|
|
Konstantinl |
Вторник, 27 Апреля 2004, 12:50
|
Участник
Профиль
Группа: Участник
Сообщений: 22
Регистрация: 27.04.2004
Пользователь №: 6856
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: Нет дисковода CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
В файле xls в столбце "А" 48 строк с некими данными. Необходимо вырезать и скопировать последние 8 символов из каждой строки и вставить в соседний столбец. Имя файла всегда разное
|
|
|
|
|
Konstantinl |
Вторник, 27 Апреля 2004, 13:13
|
Участник
Профиль
Группа: Участник
Сообщений: 22
Регистрация: 27.04.2004
Пользователь №: 6856
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: Нет дисковода CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
Файл.xls, это некий график получасовых значений состоящий из 48 строк, содержащий в каждой строке: время (00:00-00:30), графику, и само значение (которое может колебаться от 0,023 кВт до 9,999 мВт). Вот как вырезать эти значения с помощу макроса я не знаю.
|
|
|
|
|
Konstantinl |
Вторник, 27 Апреля 2004, 13:15
|
Участник
Профиль
Группа: Участник
Сообщений: 22
Регистрация: 27.04.2004
Пользователь №: 6856
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: Нет дисковода CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
¬¤¬в¬С¬ж¬Ъ¬Ь¬С ¬У¬н¬Ф¬Э¬с¬Х¬Ъ¬д ¬д¬С¬Ь ўЖ ¬Ъ ¬У¬г¬Ц¬Ф¬Х¬С ¬в¬С¬Щ¬Я¬а¬Ы ¬Х¬Э¬Ъ¬Я¬н.
|
|
|
|
|
gavin |
Среда, 28 Апреля 2004, 9:13
|
Участник
Профиль
Группа: Участник
Сообщений: 304
Регистрация: 26.11.2002
Из: Минск
Пользователь №: 4182
Конфигурация
Корпус: -- Процессор: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: -- CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
Тебе нужна функция Excel ПРАВСИМВ(текст;число_символов). Макрос тут не нужен.
|
|
|
|
|
-vic- |
Среда, 28 Апреля 2004, 9:14
|
Участник
Профиль
Группа: Гость форума
Сообщений: 3
Регистрация: 23.04.2004
Пользователь №: 6840
Конфигурация
Корпус: -- Процессор: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: -- CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
Если это то что надо то нет необходимости в макросах 00:00-00:30 00-00:30 00:00-00:31 00-00:31 00:00-00:32 00-00:32 00:00-00:33 00-00:33 00:00-00:34 00-00:34 00:00-00:35 00-00:35 00:00-00:36 00-00:36 00:00-00:37 00-00:37 00:00-00:38 00-00:38 00:00-00:39 00-00:39 00:00-00:40 00-00:40 Формула выглядит так: =ПРАВСИМВ(A1;8)
|
|
|
|
|
Барэль |
Среда, 28 Апреля 2004, 9:26
|
Впередсмотрящий
Профиль
Группа: WinCity Team
Сообщений: 6383
Регистрация: 08.11.2001
Из: Санкт-Петербург, Россия
Пользователь №: 633
Конфигурация
Корпус: CM Centurion 534 + 850W Zalman Процессор: Другой Материнская плата: ASUS M4A79XTD EVO Оперативная память: Samsung - 2x2048 Mb DDR3 PC10600 Видеокарта: 1024 Mb Asus Radeon HD5770 Жесткий диск (винчестер): 250 Gb Seagate SATA (системный) + 2 Tb Seagate LP SATA + 2 Tb Seagate LP SATA Дисковод: 3.5" CD/DVD: Nec 4570 DVD+-RW Модем: -- Сетевой адаптер: OnBoard Звуковая плата: OnBoard Монитор: 22 Samsung SyncMaster P2250 Операционная система: Windows XP Прочее: Акустическая система Microlab Solo 1, UPS APC CS500, МФУ Canon MP800, Cooler CoolerMaster (CM) V8, Процессор AMD Phenom II 945
|
Konstantinl, что у вас с кодировками творится?
--------------------
Вот. Винда проставилась. И даже уже BSOD выдала. Значит, работает! На всякий случай, воспользуйтесь поиском
|
|
|
|
|
Konstantinl |
Среда, 28 Апреля 2004, 11:21
|
Участник
Профиль
Группа: Участник
Сообщений: 22
Регистрация: 27.04.2004
Пользователь №: 6856
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: Нет дисковода CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
[QUOTE]00:00-00:40 00-00:40 нет мне нужны вот эти данные (0,023 кВт и т.д.)
В строке указывается сначала время, затем некие графические символы, а затем данные которые мне необходимы.
Скодировкой все в порядке это я хотел показать образец графического элемента в строке, а получаются такие иероглифы.
Я мог бы выслать образец файла.
|
|
|
|
|
Барэль |
Среда, 28 Апреля 2004, 11:34
|
Впередсмотрящий
Профиль
Группа: WinCity Team
Сообщений: 6383
Регистрация: 08.11.2001
Из: Санкт-Петербург, Россия
Пользователь №: 633
Конфигурация
Корпус: CM Centurion 534 + 850W Zalman Процессор: Другой Материнская плата: ASUS M4A79XTD EVO Оперативная память: Samsung - 2x2048 Mb DDR3 PC10600 Видеокарта: 1024 Mb Asus Radeon HD5770 Жесткий диск (винчестер): 250 Gb Seagate SATA (системный) + 2 Tb Seagate LP SATA + 2 Tb Seagate LP SATA Дисковод: 3.5" CD/DVD: Nec 4570 DVD+-RW Модем: -- Сетевой адаптер: OnBoard Звуковая плата: OnBoard Монитор: 22 Samsung SyncMaster P2250 Операционная система: Windows XP Прочее: Акустическая система Microlab Solo 1, UPS APC CS500, МФУ Canon MP800, Cooler CoolerMaster (CM) V8, Процессор AMD Phenom II 945
|
Цитата | Я мог бы выслать образец файла. |
Жду на barel@pisem.net
--------------------
Вот. Винда проставилась. И даже уже BSOD выдала. Значит, работает! На всякий случай, воспользуйтесь поиском
|
|
|
|
|
Барэль |
Среда, 28 Апреля 2004, 12:11
|
Впередсмотрящий
Профиль
Группа: WinCity Team
Сообщений: 6383
Регистрация: 08.11.2001
Из: Санкт-Петербург, Россия
Пользователь №: 633
Конфигурация
Корпус: CM Centurion 534 + 850W Zalman Процессор: Другой Материнская плата: ASUS M4A79XTD EVO Оперативная память: Samsung - 2x2048 Mb DDR3 PC10600 Видеокарта: 1024 Mb Asus Radeon HD5770 Жесткий диск (винчестер): 250 Gb Seagate SATA (системный) + 2 Tb Seagate LP SATA + 2 Tb Seagate LP SATA Дисковод: 3.5" CD/DVD: Nec 4570 DVD+-RW Модем: -- Сетевой адаптер: OnBoard Звуковая плата: OnBoard Монитор: 22 Samsung SyncMaster P2250 Операционная система: Windows XP Прочее: Акустическая система Microlab Solo 1, UPS APC CS500, МФУ Canon MP800, Cooler CoolerMaster (CM) V8, Процессор AMD Phenom II 945
|
Держите Присоединённые файлы
Рабо_ий_стол.zip ( 0байт )
Кол-во скачиваний: 304
--------------------
Вот. Винда проставилась. И даже уже BSOD выдала. Значит, работает! На всякий случай, воспользуйтесь поиском
|
|
|
|
|
Инженер Вошкин |
Пятница, 30 Апреля 2004, 5:54
|
Участник
Профиль
Группа: Участник
Сообщений: 7
Регистрация: 30.04.2004
Пользователь №: 6868
Конфигурация
Корпус: -- Процессор: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: -- CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
option compare text option explicit
Public Sub Get_digit()
Const ColWrite = 10
Dim i As Long, s As String, j As Integer Dim s_res As String
i = 1 While Trim(Cells(i, 1).Text) <> "" s = Trim(Cells(i, 1)) j = Len(s) s_res = "" While (j > 0) And (Asc(Mid(s, j, 1)) <> 45) s_res = Mid(s, j, 1) & s_res j = j - 1 Wend Cells(i, ColWrite) = Val(s_res) i = i + 1 Wend End Sub
|
|
|
|
|
ТАВ |
Вторник, 04 Мая 2004, 4:06
|
Участник
Профиль
Группа: Гость форума
Сообщений: 2
Регистрация: 04.05.2004
Пользователь №: 6879
Конфигурация
Корпус: -- Процессор: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: -- CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
Здравствуйте все! Помогите с написанием макроса. Понимаю, что мой вопрос - вопрос "чайника", но ответ быстро найти нигде не смог, а очень нужно. Как записать макрос в Visual Basic, указав на относительную ссылку. То есть мне нужно, чтобы курсор перемещался с той ячейки, на которой стоит на определенное количество ячеек (к примеру, на одну) вниз, или влево, или вправо. Для простоты объясните, пожалуйста, с той позиции, где курсор стоит, переместить его на одну ячейку вниз.
|
|
|
|
|
Инженер Вошкин |
Среда, 05 Мая 2004, 8:26
|
Участник
Профиль
Группа: Участник
Сообщений: 7
Регистрация: 30.04.2004
Пользователь №: 6868
Конфигурация
Корпус: -- Процессор: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: -- CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
Option Compare Text Option Explicit
Public Sub DownCursor(pnt As Long)
'//вызов DownCursor(1) Dim ccol&, crow As Long
ccol = ActiveCell.Column crow = ActiveCell.Row Cells(crow + pnt, ccol).Select End Sub
|
|
|
|
|
Konstantinl |
Четверг, 06 Мая 2004, 11:58
|
Участник
Профиль
Группа: Участник
Сообщений: 22
Регистрация: 27.04.2004
Пользователь №: 6856
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: Нет дисковода CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
Макрос работает, но есть одно но. В иногда графические элементы разделены вертикальными линиями и когда графическая часть графика заканчивается вертикальной линией, то переносится 0-вое значение. Это можно как нибудь исправить.
|
|
|
|
|
Квазимодо |
Четверг, 06 Мая 2004, 12:45
|
Участник
Профиль
Группа: Участник
Сообщений: 162
Регистрация: 25.11.2003
Пользователь №: 6223
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: Нет дисковода CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
Вместо
While (j > 0) And (Asc(Mid(s, j, 1)) <> 45)
поставь
While (j > 0) And (Asc(Mid(s, j, 1)) <> 45) And (Asc(Mid(s,j,1))<>124)
(124 - это код вертикальной черты; если ее не убирать, она войдет в хвост строки, и Val вернет 0).
--------------------
Я долго учился на чужих ошибках, и теперь мои собственные ошибки не хуже, чем у других.
|
|
|
|
|
ТАВ |
Пятница, 07 Мая 2004, 1:31
|
Участник
Профиль
Группа: Гость форума
Сообщений: 2
Регистрация: 04.05.2004
Пользователь №: 6879
Конфигурация
Корпус: -- Процессор: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: -- CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
Инженер Вошкин, спасибо огромное!
|
|
|
|
|
Konstantinl |
Среда, 12 Мая 2004, 9:13
|
Участник
Профиль
Группа: Участник
Сообщений: 22
Регистрация: 27.04.2004
Пользователь №: 6856
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: Нет дисковода CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
Макрос работае отлично, спасибо всем. А можно сделать так, что бы этот макрос еще и изменял кВт в МВт (допустим было 946,5 кВт - а в МВт это будет 0,9465 или 65,33 кВт - 0,06533 МВт).
|
|
|
|
|
Квазимодо |
Среда, 12 Мая 2004, 11:43
|
Участник
Профиль
Группа: Участник
Сообщений: 162
Регистрация: 25.11.2003
Пользователь №: 6223
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: Нет дисковода CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
Тогда в конце вместо
Cells(i, ColWrite) = Val(s_res)
придется вставить условие:
If UCase(Right(Trim(s_res), 3)) = "КВТ" Then Cells(i, ColWrite) = Val(s_res) / 1000 Else Cells(i, ColWrite) = Val(s_res) End If
(это на случай, если в таблице будут и кВт, и МВт)
--------------------
Я долго учился на чужих ошибках, и теперь мои собственные ошибки не хуже, чем у других.
|
|
|
|
|
Konstantinl |
Четверг, 13 Мая 2004, 8:50
|
Участник
Профиль
Группа: Участник
Сообщений: 22
Регистрация: 27.04.2004
Пользователь №: 6856
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: Нет дисковода CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
Спасибо!!! Получилось то что надо.
|
|
|
|
|
|
1 чел. читают эту тему (1 Гостей и 0 Скрытых Пользователей)
|
0 Пользователей:
|
|
© Copyright by WinCity.Ru 2001 - 2008 | Обратная связьУслуги веб-хостинга предоставлены компанией MTW.RU
|
|