ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как прописать значение в строку где есть значение
11 сообщений из 11, страница 1 из 1
как прописать значение в строку где есть значение
    #35973553
Rusaln
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rusaln
Гость
привет, вот опять проблема. кто может помогите ааа...
мне надо вписать значение в строку, если строка пуста то просто записать туда значение, а если в строке уже есть значение то нужно добавить новое значение через запятую.

If Worksheets(1).Cells(r, trans_ref.Column) = "" Then
Worksheets(1).Cells(r, trans_ref.Column) = pl_type
Else
Worksheets(1).Cells(r, trans_ref.Column) = Worksheets(1).Cells(r, trans_ref.Column) + "," + pl_type
End If
вот так писал, не получаеться (((. программирую всего 3 день.
...
Рейтинг: 0 / 0
07.05.2009, 10:07
| Ответить | Цитировать | Написать  
как прописать значение в строку где есть значение
    #35974110
Rusaln
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rusaln
Гость
никто не поможет что ли ????? ((((
...
Рейтинг: 0 / 0
07.05.2009, 12:31
| Ответить | Цитировать | Написать  
как прописать значение в строку где есть значение
    #35974192
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Rusaln
> вот так писал, не получаеться (((.
вот так напиши
Код: plaintext
1.
2.
3.
4.
5.
6.
If Len(Trim(CStr(Worksheets( 1 ).Cells(r, trans_ref.Column).Value))) 
=  0  Then
    Worksheets( 1 ).Cells(r, trans_ref.Column).Value = pl_type
Else
    Worksheets( 1 ).Cells(r, trans_ref.Column).Value = 
CStr(Worksheets( 1 ).Cells(r, trans_ref.Column).Value) & "," & pl_type
End If
и не используй дефолтных свойств, пиши явно, что нужно

> программирую всего 3 день.
программирую всего с 1990 года с перерывом в 10 лет.
это нормально когда что-то не получается и это не зависит от стажа и опыта,
просто проблемы разные.
для оформления кода используй теги. Посмотреть их можно нажав ссылку
"Цитировать"
;)


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
07.05.2009, 12:50
| Ответить | Цитировать | Написать  
как прописать значение в строку где есть значение
    #35974440
Rusaln
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rusaln
Гость
большое спасибо Игорь Горбонос.

мне не удобно, но у меня еще один вопрос .

With Worksheets(2).Range("poz_cat.Columns:BK1")
Set pl_cat_list2 = .Find("PLCATEGORY", LookIn:=xlValues)
столбец PLCATEGORY повторяеться несколько раз, и мне надо находить его позицию каждый раз, ну то есть все позиций этого столбца.
помоги мне With Worksheets(2).Range("А1:BK1") так работает, но только для первого, так как находит и все дальше не идет. теперь мне надо поменять диапозон поиска,
как нужно прописать туда переменную, то есть позицию ааа With Worksheets(2).Range("?:BK1") ???
я использую там while do ))) так как надо производить поиск до поределенного момента. просто можешь показать как прописывают переменную. то есть позицию?
...
Рейтинг: 0 / 0
07.05.2009, 13:56
| Ответить | Цитировать | Написать  
как прописать значение в строку где есть значение
    #35974511
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Не понял что у тебя с поиском, а переменные в адрес прописываются так:
Код: plaintext
1.
Worksheets( 2 ).Range(переменная_содержащая_имя_столбца_и_номер_строки_строкового_типа & ":BK1")
Worksheets( 2 ).Range(переменная_содержащая_имя_столбца_строкового_типа & "1:BK1")
можно еще адресоватся не используя строки а номера столбцов и строк:
Код: plaintext
1.
2.
3.
4.
5.
6.
dim sh as Worksheet
set sh = Worksheets( 2 )
sh.range(sh.cells(переменная_с_номером_строки_левого_верхнего_угла_диапазона_число, 
переменная_с_номерам_столбца_левого_верхнего_угла_диапазона_число), 
sh.cells(переменная_с_номером_строки_правого_нижнего_угла_диапазона_число, 
переменная_с_номерам_столбца_правого_нижнего_угла_диапазона_число)
Теперь поиск, при поиске метод Find возвращает объект типа Range, если что-то находит, если не находит возвращает
Nothing.
тебе нужно проверять Do While Not pl_cat_list2 Is Nothing , если я правильно понял. Хотя можно переписать на
постустловие. без кода не видно что ты делаешь и что хочешь получить.


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
07.05.2009, 14:11
| Ответить | Цитировать | Написать  
как прописать значение в строку где есть значение
    #35974584
Rusaln
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rusaln
Гость
допустим что у меня есть 50 столбцов, и каждая 5 это сталбец под названием PLCATEGORY,
теперь номер строки допустим 1, а номер столбца 5, там значение стоит 5, это когда х=1,
а когда х = 2, та надо продолжить поиск по столбцу и найдти следующий PLCATEGORY, то есть его позиция 10, то есть будет номер строки 1 а номер столбца 10 должен быть, воот. теперь чтобы найдти следующий столбец название которго тоже PLCATEGORY, чтобы не остановиться на первом, надо ведь поменять позицию поиска.
for x = 1 to 10
With Worksheets(2).Range("A1:BK1")
Set pl_cat_list2 = .Find("PLCATEGORY", LookIn:=xlValues)
' poz_cat = pl_cat_list2.Column
End With
...
Рейтинг: 0 / 0
07.05.2009, 14:23
| Ответить | Цитировать | Написать  
как прописать значение в строку где есть значение
    #35974644
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
В методе Find есть есщу параметры, может стоит их посмотреть?


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
07.05.2009, 14:40
| Ответить | Цитировать | Написать  
как прописать значение в строку где есть значение
    #35974664
Rusaln
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rusaln
Гость
ок пробую, даже на угда уже ))))
...
Рейтинг: 0 / 0
07.05.2009, 14:45
| Ответить | Цитировать | Написать  
как прописать значение в строку где есть значение
    #35974689
Rusaln
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rusaln
Гость
poz_cat = A1 или poz_cat = 1, короче ставил и так и так.

for x = 1 to 10

With Worksheets(2).Range(poz_cat & ":BK1")
Set pl_cat_list2 = .Find("PLCATEGORY", LookIn:=xlValues)
poz_cat = pl_cat_list2.Column

вот теперь смотри
и так With Worksheets(2).Range(poz_cat & ":BK1")
и так писал With Worksheets(2).Range(poz_cat & "1:BK1")
правильно ли я садал позицию или как?
With Worksheets(2).Range(poz_cat.Column & ":BK1")
надо
...
Рейтинг: 0 / 0
07.05.2009, 14:50
| Ответить | Цитировать | Написать  
как прописать значение в строку где есть значение
    #35974755
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Не правильно, потому что у тебя pl_cat_list2.Column возвращает номер столбца(цифру), а тебе нужна буква столбца и номер строки в переменной типа String.
для так тебе нужно было писать так:
Код: plaintext
1.
2.
3.
4.
With Worksheets( 2 ).Range(poz_cat & ":BK1")
 Set pl_cat_list2 = .Find("PLCATEGORY", LookIn:=xlValues)
poz_cat = pl_cat_list2.Column
With Worksheets( 2 ).Range(Worksheets( 2 ).cells(номер_строки_числом_левого_верхнего_угла, poz_cat),  Worksheets( 2 ).cells( 1 ,  63 ))
...
Рейтинг: 0 / 0
07.05.2009, 15:11
| Ответить | Цитировать | Написать  
как прописать значение в строку где есть значение
    #35974796
Rusaln
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rusaln
Гость
))))) спасибо, спасибо , спасибо
...
Рейтинг: 0 / 0
07.05.2009, 15:20
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как прописать значение в строку где есть значение
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35974664&tid=2161051]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 45ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 214ms
total:  316ms
созд. / загр.: 316ms
x
x
Закрыть


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