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

Это можно сделать так:
Код: plaintext
1.
2.
3.
4.
sText = ""
For nCell = nStartCell To nEndCell
    sText = sText + CStr(Cells(nRow, nCell).Value)
Next
sText = Trim(sText)

2. В словах могут встречаться пробелы. Т.е. если "квадратик" пуст, в результирующее слово нужно добавить пробел.

Можно решить так
Код: plaintext
1.
2.
3.
4.
5.
6.
sText = ""
For nCell = nStartCell To nEndCell
	sLetter = CStr(Cells(nRow, nCell).Value)
	if sLetter = "" Then sLetter = " "    
	sText = sText + sLetter
Next
sText = Trim(sText)

3. "Квадратики" могут быть состоять из нескольких объединенных (merge) ячеек.

И вот тут - проблема. Приведенный код добавляет пробелы для всех ячеек, которые входят в состав "объединенных".
Как для одной пустой "объединенной" ячейки добавить один пробел, а не два или три, по количеству входящих в нее ячеек?
...
Рейтинг: 0 / 0
24.12.2009, 12:42
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384489
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Код: plaintext
Cells(nRow, nCell).MergeArea.Value
...
Рейтинг: 0 / 0
24.12.2009, 13:48
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384729
karly™
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
karly™
Гость
Deggasad
Код: plaintext
Cells(nRow, nCell).MergeArea.Value
Спасибо за мысль, но чуть-чуть не то. Если ячейка nRow, nCell входит в объединение ячеек, то это выражение даст ошибку.

Появилась мысль сравнивать Cells(nRow,nCol).Address и Cells(nRow,nCol).MergeArea.Address. Если их начальные части совпадают, то Cell(nRow, nCol) - первая ячейка в объединенном диапазоне, и ее значение можно учитывать, а остальные - игнорировать.
Код: plaintext
1.
2.
IF Cells(nRow,nCol).Address = left(Cells(nRow,nCol).MergeArea.Address, len(Cells(nRow,nCol).Address) Then
 ' Здесь код, обрабатывающий значение ячейки
End IF
Есть более оптимальные алгоритмы?
...
Рейтинг: 0 / 0
24.12.2009, 15:15
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384787
_Boroda_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Boroda_
Гость
karly™,

А я что-то не понимаю, зачем? Ведь внизу макроса есть
sText = Trim(sText) - сжать пробелы
...
Рейтинг: 0 / 0
24.12.2009, 15:33
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384882
karly™
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
karly™
Гость
Исходный текст выглядит так:
Код: plaintext
1.
2.
 ┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐
 │у│л│.│П│е│р│в│о│г│о│ │М│а│я│ │ │ │ │ │ │ │
 └─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘
В результате должно получиться "ул.Первого Мая". Обрезать нужно только концевые пробелы, в середине текста пробел нужен.

Проблема в том, что пользователь в 11й клетке, между словами, не напишет символ "пробел", посчитав клетку и так пустой.
...
Рейтинг: 0 / 0
24.12.2009, 16:01
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384904
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
karly™Исходный текст выглядит так:
Код: plaintext
1.
2.
 ┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐
 │у│л│.│П│е│р│в│о│г│о│ │М│а│я│ │ │ │ │ │ │ │
 └─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘
В результате должно получиться "ул.Первого Мая". Обрезать нужно только концевые пробелы, в середине текста пробел нужен.

Проблема в том, что пользователь в 11й клетке, между словами, не напишет символ "пробел", посчитав клетку и так пустой.Что-то я проблемы не вижу, код под цифрой 2 в самом первом вашем сообщение должен корректно отработать.
Функция trim обрубает концевые пробелы, а внутренние пробелы сжимает до одного.
...
Рейтинг: 0 / 0
24.12.2009, 16:09
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384909
_Boroda_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Boroda_
Гость
karly™,

СЖПРОБЕЛЫ работоет так: одиночные пробелы внутри текста оставляет, двойные и более пробелы внутри текста преобразует в один пробел, первые и последние пробелы (в любом количестве) убивает. Вроде так и нужно.
...
Рейтинг: 0 / 0
24.12.2009, 16:11
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384921
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
karly™,

Я бы например так код написал, фактически тоже что и у вас, предварительно нужно выделить ячейки с текстом:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub test()
 Dim s As String
 Dim ch As Range
 
 s = ""
 For Each ch In Selection
  If ch.Value <> "" Then
     s = s & ch.Value
    Else
     s = s & " "
  End If
 Next ch
 
 s=trim(s)

 MsgBox s

End Sub

Если проблемы именно с объединенными ячейками, приведите конкретный пример с проблемой, лучше в виде файла.
...
Рейтинг: 0 / 0
24.12.2009, 16:17
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384922
karly™
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
karly™
Гость
Djon PlayerЧто-то я проблемы не вижу, код под цифрой 2 в самом первом вашем сообщение должен корректно отработать.
Функция trim обрубает концевые пробелы, а внутренние пробелы сжимает до одного.Есть пункт 3 - "квадратики" могут состоять из нескольких объединенных ячеек.
Код под цифрой 2 добавляет пробелы между буквами, по числу ячеек. После Trim получается "у л . П е р в о г о М а я"
...
Рейтинг: 0 / 0
24.12.2009, 16:17
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384926
_Boroda_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Boroda_
Гость
Интересно получается:
если писать
m = Trim(n),
то внутренние задвоения не убираются,
а если
k = Application.WorksheetFunction.Trim(n),
то убираются все лишние пробелы
...
Рейтинг: 0 / 0
24.12.2009, 16:17
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384944
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
karly™Djon PlayerЧто-то я проблемы не вижу, код под цифрой 2 в самом первом вашем сообщение должен корректно отработать.
Функция trim обрубает концевые пробелы, а внутренние пробелы сжимает до одного.Есть пункт 3 - "квадратики" могут состоять из нескольких объединенных ячеек.
Код под цифрой 2 добавляет пробелы между буквами, по числу ячеек. После Trim получается "у л . П е р в о г о М а я"

Т.е. вы имеете ввиду, что к примеру у вас буква "П" находиться в объединённой ячейке, а "е" в следующей, в результате при соединении букв в слова вместо "Пе" получается "П е"?
...
Рейтинг: 0 / 0
24.12.2009, 16:23
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384957
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
karly™,

Тогда попробуйте так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub test2()
 Dim s As String
 Dim ch As Range
 
 s = ""
  
 For Each ch In Selection
  With ch.MergeArea.Cells( 1 ,  1 )
    If .Address = ch.Address Then
     If .Value <> "" Then
        s = s & .Value
       Else
        s = s & " "
     End If
    End If
  End With
 Next ch
  
 MsgBox s
End Sub
...
Рейтинг: 0 / 0
24.12.2009, 16:28
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384959
karly™
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
karly™
Гость
Djon PlayerТ.е. вы имеете ввиду, что к примеру у вас буква "П" находиться в объединённой ячейке, а "е" в следующей, в результате при соединении букв в слова вместо "Пе" получается "П е"?Именно так. И ваш вариант кода, к сожалению, дает такие же результаты.
...
Рейтинг: 0 / 0
24.12.2009, 16:29
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384962
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
karly™Djon PlayerТ.е. вы имеете ввиду, что к примеру у вас буква "П" находиться в объединённой ячейке, а "е" в следующей, в результате при соединении букв в слова вместо "Пе" получается "П е"?Именно так. И ваш вариант кода, к сожалению, дает такие же результаты.А последний вариант должен всё правильно давать.
...
Рейтинг: 0 / 0
24.12.2009, 16:30
| Ответить | Цитировать | Написать  
Значение объединенных ячеек
    #36384979
karly™
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
karly™
Гость
Djon PlayerТогда попробуйте так:
Код: plaintext
1.
2.
3.
4.
 With ch.MergeArea.Cells( 1 ,  1 )
    If .Address = ch.Address Then
...
...
It Works! Спасибо, так и сделаю
...
Рейтинг: 0 / 0
24.12.2009, 16:33
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Значение объединенных ячеек
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36384922&tid=2178663]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 164ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 237ms
total:  503ms
созд. / загр.: 503ms
x
x
Закрыть


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