Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объединение значений из нескольких ячеек / 17 сообщений из 17, страница 1 из 1
09.07.2013, 17:31
    #38325908
danzki
danzki
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
Пытаюсь в макросе прописать, чтобы значение одной ячейки было составным из данных из двух других ячеек и строки.

Код: plsql
1.
Sheet.Cells('|| cRow ||', 3).Value = Sheet.Cells(23, 12).Value & "' || tab(1).cl.[NAME] || '" & Sheet.Cells(23, 14).Value



Значение из ячейки (23, 12) не переносится в нужную ячейку (cRow, 3)

Обе ячейки имеют формат Text

Отличие в том, что ячейка (cRow, 3) - это объединение нескольких ячеек из строки. А (23, 12) - просто ячейка.

Подскажите в чем проблема?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2013, 17:47
    #38325943
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
Пример файла с данными и вашим макросом можно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2013, 17:57
    #38325955
danzki
danzki
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
AndreTM,

Строка из PL_SQL, выполняющая описанные действия
Код: plsql
1.
excel.cmd('Sheet.Cells('|| cRow ||', 3).Value = Sheet.Cells(23, 12).Value & "' || tab(1).cl.[NAME] || '" & Sheet.Cells(23, 14).Value');



В результате формируется кусок VBA кода

Sheet.Cells(35, 3).Value = Sheet.Cells(23, 12).Value & "ООО Ромашка" & Sheet.Cells(23, 14).Value

где Sheet - переменная, хранящая текущий лист

Файл выложить, к сожалению, не могу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2013, 18:04
    #38325964
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
danzkiSheet.Cells(35, 3).Value = Sheet.Cells(23, 12).Value & "ООО Ромашка" & Sheet.Cells(23, 14).ValueЕсли испольнить этот код прямо в Excel-файле - нужное действие происходит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2013, 10:01
    #38326336
danzki
danzki
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
AndreTM,

нет

пробовал даже так

Sheet.Cells(35, 3).Value = Sheet.Cells(23, 12).Value

как я понимаю, это просто присваиваение значения одной ячейки другой ячейке.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2013, 10:05
    #38326343
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
а если
Код: vbnet
1.
Workbooks("Книга1.xls").Worksheets("Лист1").Cells(35, 3).Value =....



и вообще, тупо ничего не происходит или ошибка какая-нибудь выдается?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2013, 10:33
    #38326379
danzki
danzki
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
Shocker.Pro,

Код: vbnet
1.
2.
3.
Sub mrc1()
    Workbooks("test_file.xlsx").Worksheets("Letter_tmp").Cells(31, 3).Value = Workbooks("test_file.xlsx").Worksheets("Letter_tmp").Cells(23, 12).Value
End Sub



не работает это...

файл не могу приложить, залочено все...

Может объединение ячеек (merge) влиять?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2013, 10:34
    #38326382
danzki
danzki
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
Shocker.Pro,

Код: vbnet
1.
2.
3.
Sub mrc1()
    Workbooks("test_file.xlsx").Worksheets("Letter_tmp").Cells(31, 3).Value = Workbooks("Sum_Reply_Generation_Report_Auditor1.xlsx").Worksheets("Letter_tmp").Cells(23, 12).Value
End Sub



не работает это...

файл не могу приложить, залочено все...

Может объединение ячеек (merge) влиять?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2013, 10:39
    #38326390
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
danzkiМожет объединение ячеек (merge) влиять?ну так а без него попробовать слабо?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2013, 10:46
    #38326398
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
danzki,

У вас случайно офис не 2007/2010, а файл - XLSX?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2013, 10:46
    #38326399
danzki
danzki
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
[quot danzki]
Код: vbnet
1.
2.
3.
Sub mrc1()
    Workbooks("test_file.xlsx").Worksheets("Letter_tmp").Cells(31, 3).Value = Workbooks("test_file.xlsx").Worksheets("Letter_tmp").Cells(23, 12).Value
End Sub


quot]

При таком варианте пишет Script out of range
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2013, 10:47
    #38326401
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
Ага, вижу что XLSX... Что ж вы макросы пытаетесь исполнять в файле, который макросы не поддерживает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2013, 10:47
    #38326402
danzki
danzki
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
AndreTM,

проверяю на 2010 офисе, но

из PL/SQL запускает файл-шаблон xlt и работает все в офисе 2003
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2013, 10:48
    #38326405
danzki
danzki
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
AndreTM,

дык он и в xlsm выдает Аут оф Рэндж
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2013, 10:50
    #38326410
danzki
danzki
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
Код: vbnet
1.
2.
3.
Sub mcr1()
    Workbooks("test_file.xlsm").Worksheets("Letter_tmp").Cells(31, 3).Value = Workbooks("test_file.xlsm").Worksheets("Letter_tmp").Cells(23, 12).Value
End Sub



файл xlsm.
никаких ошибок тупо ничего не делает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2013, 10:52
    #38326411
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
Ну, раз вы пример выложить не можете - дальше сказать пока нечего...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2013, 10:53
    #38326412
danzki
danzki
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение значений из нескольких ячеек
AndreTM,

сорри. ладно сам разберусь.

спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объединение значений из нескольких ячеек / 17 сообщений из 17, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 382ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156871]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 27ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 252ms
total:  382ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]