ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как избавиться от ...
19 сообщений из 19, страница 1 из 1
Как избавиться от ...
    #34182898
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
После обработки макросом колонка с ценами в прайс листе выглядит как-то странно (файл приложен) из-за этого в рограмме, в которую закачивают этот прайс не воспринтмает разделитель "," и цены увеличиваются на порядок. А когда прайс обрабатывается в ручную, то все хорощо получается. Изменение форматов не приводит ни к чему. Че за фигня??? Подскажите чего-нибудь
...
Рейтинг: 0 / 0
07.12.2006, 12:46:32
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34182910
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Почему не прикрепился файл я не понимаю. Пробую еще раз
...
Рейтинг: 0 / 0
07.12.2006, 12:48:24
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34183046
dinogen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dinogen
Гость
Так правильно, число сохранено как текст вот и не считает.
...
Рейтинг: 0 / 0
07.12.2006, 13:14:39
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34183060
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
нужно с макросом разбираться: например, число записывается из строковой переменной
...
Рейтинг: 0 / 0
07.12.2006, 13:16:51
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34183063
dinogen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dinogen
Гость
Сделай замену Ctrl+H "," на "," (без кавычек) будет все нормально, а вот почему видимо в макросе что-то напутано.
...
Рейтинг: 0 / 0
07.12.2006, 13:17:47
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34183107
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Прикрепляю исходный файл и код макроса
...
Рейтинг: 0 / 0
07.12.2006, 13:27:00
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34183110
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Код: plaintext
1.
2.
3.
Columns("B:B").Delete Shift:=xlToLeft     
Columns("C:C").Insert Shift:=xlToRight
Columns("A:A").Insert Shift:=xlToRight
Columns("C:C").NumberFormat = "0.00"
...
Рейтинг: 0 / 0
07.12.2006, 13:27:52
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34183145
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
У меня элемент ComboBox1. Может в след. коде ошибка?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
Private Sub CommandButton1_Click()
    Форма_шапка_аптеки.Hide
    
    Application.ScreenUpdating = False
    
    If Worksheets(ActiveSheet.Name).AutoFilterMode Then Selection.AutoFilter
    
    
    ActiveWindow.FreezePanes = False
    Cells.Select
    Selection.NumberFormat = "General"
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation =  0 
        .AddIndent = False
        .IndentLevel =  0 
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        End With        
 
   Select Case ComboBox1.Value

Case "Аптека"

        Columns("B:B").Delete Shift:=xlToLeft        
        Columns("C:C").Insert Shift:=xlToRight
        Columns("A:A").Insert Shift:=xlToRight
         Columns("C:C").NumberFormat = "0.00"
  End Select

Private Sub UserForm_Initialize()
ComboBox1.Value = "Аптека"
End Sub
...
Рейтинг: 0 / 0
07.12.2006, 13:35:07
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34183578
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
ну а как данные попадают в колонку?
...
Рейтинг: 0 / 0
07.12.2006, 15:07:47
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34183655
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
vbaproну а как данные попадают в колонку?

Не понял вопроса
...
Рейтинг: 0 / 0
07.12.2006, 15:25:02
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34183856
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
andMegaM vbaproну а как данные попадают в колонку?

Не понял вопроса
Вот вид листа твоего файла. Как на лист попадают данные, которые сейчас в колонке D?
Код, который ты показал, не меняет этих данных на листе, данные до него как-то попали...
...
Рейтинг: 0 / 0
07.12.2006, 16:13:35
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34183967
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Этот файл выкидывает из своей (какой не знаю) программы аптека и присылает мне его по Email-у.
Мне нужно привести к определенному виду этот прайс-лист и закачать в свою базу данных. По-этому происхождение данных мне не известно. Главное дело в том, что в другом модуле все работает нормально. Я показал не совсем полный код, за что дико извеняюсь. Вот код где могла быть ошибка

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
Private Sub CommandButton1_Click()
    Форма_шапка_аптеки.Hide
    
    Application.ScreenUpdating = False

    If Worksheets(ActiveSheet.Name).AutoFilterMode Then Selection.AutoFilter


    ActiveWindow.FreezePanes = False


    Cells.Select
    Selection.NumberFormat = "General"
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation =  0 
        .AddIndent = False
        .IndentLevel =  0 
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        End With


   Select Case ComboBox1.Value

Case "Апрека"
Columns("B:B").Delete Shift:=xlToLeft
        
        Columns("C:C").Insert Shift:=xlToRight
        Columns("A:A").Insert Shift:=xlToRight
         Columns("C:C").NumberFormat = "0.00"
         End Select
         
    Rows("1:1").ClearContents
    
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "abcd"
    
    Columns("C:C").Select
    
    
'    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
'        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
'        ReplaceFormat:=False




    Application.ScreenUpdating = True
    
    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:="C:\sprav.txt", _
    FileFormat:=xlText, CreateBackup:=False
         
End Sub

Private Sub UserForm_Initialize()
ComboBox1.Value = "Аптека"
ComboBox1.AddItem "Аптека"  
End Sub
Мне кажется длео в замене "." на ",". Наверно из-за того, что в той колонке нет "."
Если я не прав, то я совсем не понимаю из-за чего такая фигня происходит. А когда закоментировал, то все работает
...
Рейтинг: 0 / 0
07.12.2006, 16:39:09
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34184048
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
самое простое - заполнить соседнюю колонку формулой вида: =D1+0, тогда в ней будут числа, ну а затем обрабатывать дальше
...
Рейтинг: 0 / 0
07.12.2006, 16:59:41
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34184093
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Колонка D меня маловолнует, а вот колнка С очень сильно, т.к. это цена препарата
...
Рейтинг: 0 / 0
07.12.2006, 17:11:20
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34185416
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
заполнить тогда вот этой формулой
=INT(C1) & "." & MID(MOD(C1;1);3;100)
...
Рейтинг: 0 / 0
08.12.2006, 10:53:37
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34185439
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
vbaproзаполнить тогда вот этой формулой
=INT(C1) & "." & MID(MOD(C1;1);3;100)
или, лучше, этой:
=LEFT(C2;FIND(",";C2)-1) & "." & MID(C2;FIND(",";C2)+1;100)
...
Рейтинг: 0 / 0
08.12.2006, 10:59:53
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34187299
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
vbapro vbaproзаполнить тогда вот этой формулой
=INT(C1) & "." & MID(MOD(C1;1);3;100)
или, лучше, этой:
=LEFT(C2;FIND(",";C2)-1) & "." & MID(C2;FIND(",";C2)+1;100)

Не понял... Что тут написано? Выдает ошибку
...
Рейтинг: 0 / 0
08.12.2006, 19:31:29
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34187351
lena_####
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lena_####
Участник
=LEFT(C2;FIND(",";C2)-1) & "." & MID(C2;FIND(",";C2)+1;100)

в русской локали это:

=ЛЕВСИМВ(C2;НАЙТИ(",";C2)-1) & "." & ПСТР(C2;НАЙТИ(",";C2)+1;100)
...
Рейтинг: 0 / 0
08.12.2006, 20:05:36
| Ответить | Цитировать | Написать  
Как избавиться от ...
    #34187614
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
lena_####=LEFT(C2;FIND(",";C2)-1) & "." & MID(C2;FIND(",";C2)+1;100)

в русской локали это:

=ЛЕВСИМВ(C2;НАЙТИ(",";C2)-1) & "." & ПСТР(C2;НАЙТИ(",";C2)+1;100)
2lena_#### спасибо за помощь! :)
...
Рейтинг: 0 / 0
09.12.2006, 09:26:49
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как избавиться от ...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=303&tid=2183782]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 35ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 79ms
get tp. blocked users:
 2ms
others: 226ms
total:  382ms
созд. / загр.: 382ms
x
x
Закрыть


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