Как отобразить число корректно. / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как отобразить число корректно.

16 сообщений из 16, страница 1 из 1

Как отобразить число корректно.

#36678031

vkopitsa

Гость

Доброе время суток!

Как тобразить число корректно, которое находиться в 1 столбце.

Макрос в документе.

...

Рейтинг:

0 / 0

09.06.2010, 13:44

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36678124

vkopitsa

Гость

Макрос

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Private Sub CommandButton1_Click()
Dim tbl As Table, cll As Cell, i As Long
Dim gjhgfj
Dim chis

chis = ChrW( 8734 )

For Each tbl In ActiveDocument.Tables
  For Each cll In tbl.Range.Cells
        If chis = Replace(cll.Range, Chr( 13 ) + Chr( 7 ), "") Then
            
            tbl.Cell(Row,  1 ).Select
            gjhgfj = tbl.Cell(Row,  1 )
            MsgBox Val(gjhgfj)
        
        End If
    
  Next
Next

End Sub

...

Рейтинг:

0 / 0

09.06.2010, 14:05

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36678298

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vkopitsaКак тобразить число корректно, которое находиться в 1 столбце.
Как бы перевести ваш вопрос с вашего внутреннеощущеньевского на русский и связать с макросом, который вы привели....

...

Рейтинг:

0 / 0

09.06.2010, 14:53

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36678343

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

И еще что-то мне подсказывает, что не вернет функция Replace юникод...

...

Рейтинг:

0 / 0

09.06.2010, 15:05

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36678393

vkopitsa

Гость

Надо чтобы макрос находил в таблице знак бесконечности ChrW(8734), в строке которой нашел, брал число с 1 - го столбца и запоминал, или сохранял в файл, через кому.

1 столбец - это нумерованный список, не получается переводиться в натуральное число.

...

Рейтинг:

0 / 0

09.06.2010, 15:20

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36678400

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vkopitsaНадо чтобы макрос находил в таблице знак бесконечности ChrW(8734)

Может просто искать его поиском? .FindExecute

vkopitsaсохранял в файл, через кому.

Пользователь должен впасть в кому?

vkopitsa 1 столбец - это нумерованный список, не получается переводиться в натуральное число.

Боюсь, придется доставать это число через свойства абзаца - надо ковырять.

...

Рейтинг:

0 / 0

09.06.2010, 15:23

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36678428

vkopitsa

Гость

Shocker.Pro,

Или хотя бы как то нумерованное число перевести в натуральное число.

...

Рейтинг:

0 / 0

09.06.2010, 15:30

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36678454

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vkopitsaИли хотя бы как то нумерованное число перевести в натуральное число.

Я же говорю - надо изучать свойства абзаца. Автонумерация задается через свойства абзаца, может быть возможно получить и текущий номер, возникший вследствие автонумерации. Так что вооружайтесь кнопкой F2 и вперед. Или подождем того, кто знает, но что-то последнее время мало кто кроме меня отвечает здесь на вопросы по ворду, а мои знания ограничены, большинство ответов на вопросы я наковыриваю сам с помощью F2, F1 и точки :)

...

Рейтинг:

0 / 0

09.06.2010, 15:37

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36678948

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Нашел

Код: plaintext

Range.ListFormat.ListValue

...

Рейтинг:

0 / 0

09.06.2010, 18:14

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36680018

vkopitsa

Гость

Shocker.Pro,

Большое спасибо.

...

Рейтинг:

0 / 0

10.06.2010, 11:16

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36680430

vkopitsa

Гость

Shocker.Pro,

А как мне с таких чисел

Код: plaintext

 1 ,  6 ,  10 ,  11 ,  12 ,  14 ,  20 ,  21 ,  22 ,  55 ,  56 ,  445 ,  446 ,  777 ,  779 ,  556 ,  557 ,  558 ,  559 ,  560  и т.д.

сделать

Код: plaintext

 1 ,  6 ,  10  -  12 ,  14 ,  20  -  22 ,  55 ,  56 ,  445 ,  446 ,  777 ,  779 ,  556  -  560   и т.д.

Чтобы числа которые идут по порядку, писало через "-".

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Private Sub CommandButton1_Click()
Dim tbl As Table, cll As Cell, i As Long
Dim chis
chis = ChrW( 8734 )
For Each tbl In ActiveDocument.Tables
  For Each cll In tbl.Range.Cells
        If chis = Replace(cll.Range, Chr( 13 ) + Chr( 7 ), "") Then
            tbl.Cell(Row,  1 ).Select
            pi = Selection.Range.ListFormat.ListValue
            TextBox1.Text = TextBox1.Text & pi & ", "
        End If
    
  Next
Next
End Sub

...

Рейтинг:

0 / 0

10.06.2010, 13:04

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36680456

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vkopitsaА как мне с таких чисел
сделать
Чтобы числа которые идут по порядку, писало через "-".

Вы хотите, чтобы я за вас алгоритм разработал?
Чего в нем сложного? Сравниваете текущее число с предыдущим, если оно больше на 1, включаете некий режим диапазона и не выводите число. Если разница с предыдущим больше, чем 1: если режим диапазона включен - ставите тире, если не включен - запятую, и выводите текущее число.

...

Рейтинг:

0 / 0

10.06.2010, 13:11

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36680490

vkopitsa

Гость

Shocker.Pro,

Я только учусь. Если бы умел, или хотя бы догадывался как или де искать, то не спрашивал.

Я в программирование большой 0000000000000000!

Хотя бы маленький примерчик? Плиз.

...

Рейтинг:

0 / 0

10.06.2010, 13:22

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36680528

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vkopitsaХотя бы маленький примерчик? Плиз.

Примерчик ЧЕГО? Вот у вас есть примерчик в вашем же посте. Алгоритм я вам набросал.
Или вы хотите, чтобы я за вас всю прогу написал? Ждите, когда у меня будет время.

Или попросим aduka05adm - он как раз тут практику нынче проходит

...

Рейтинг:

0 / 0

10.06.2010, 13:34

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36680662

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Вот.
Вместо чтения прессы за обедом набросал вам прогу, теперь остался не в курсе, что в мире творится...:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

Dim Rep As Integer, k() As String, i As Integer, Curr As Long, Prev As Long, Result As String
Result = ""
Curr = - 10 
k = Split(Replace("1, 6, 10, 11, 12, 14, 20, 21, 22, 55, 56, 445, 446, 777, 779, 556, 557, 558, 559, 560", " ", ""), ",")

For i =  0  To UBound(k)
  Prev = Curr
  Curr = CLng(k(i))
  If Prev +  1  = Curr Then
    Rep = Rep +  1 
  Else
    If Rep >  0  Then Result = Result + IIf(Rep =  1 , ", ", " - ") + CStr(Prev)
    Result = Result + ", " + CStr(Curr)
    Rep =  0 
  End If
Next
If Rep >  0  Then Result = Result + IIf(Rep =  1 , ", ", " - ") + CStr(Prev)

MsgBox Mid$(Result,  3 ) + "  и т.д."

выдает

Код: plaintext

"1, 6, 10 - 12, 14, 20 - 22, 55, 56, 445, 446, 777, 779, 556 - 560  и т.д."

как вы и просили

...

Рейтинг:

0 / 0

10.06.2010, 14:22

| Ответить | Цитировать | Написать

Как отобразить число корректно.

#36680853

vkopitsa

Гость

Shocker.Pro,

Большое спасибо, очень большое.

...

Рейтинг:

0 / 0

10.06.2010, 15:13

| Ответить | Цитировать | Написать

16 сообщений из 16, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как отобразить число корректно.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=36678124&tid=2159675]:	0ms
get settings:	11ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	36ms
get topic data:	11ms
get forum data:	3ms
get page messages:	46ms
get tp. blocked users:	1ms
others:	235ms

total:	362ms