Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как избавиться от ... / 19 сообщений из 19, страница 1 из 1
07.12.2006, 12:46:32
    #34182898
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как избавиться от ...
После обработки макросом колонка с ценами в прайс листе выглядит как-то странно (файл приложен) из-за этого в рограмме, в которую закачивают этот прайс не воспринтмает разделитель "," и цены увеличиваются на порядок. А когда прайс обрабатывается в ручную, то все хорощо получается. Изменение форматов не приводит ни к чему. Че за фигня??? Подскажите чего-нибудь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 12:48:24
    #34182910
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как избавиться от ...
Почему не прикрепился файл я не понимаю. Пробую еще раз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 13:14:39
    #34183046
dinogen
dinogen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как избавиться от ...
Так правильно, число сохранено как текст вот и не считает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 13:16:51
    #34183060
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как избавиться от ...
нужно с макросом разбираться: например, число записывается из строковой переменной
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 13:17:47
    #34183063
dinogen
dinogen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как избавиться от ...
Сделай замену Ctrl+H "," на "," (без кавычек) будет все нормально, а вот почему видимо в макросе что-то напутано.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 13:27:00
    #34183107
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как избавиться от ...
Прикрепляю исходный файл и код макроса
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 13:27:52
    #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:35:07
    #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, 15:07:47
    #34183578
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как избавиться от ...
ну а как данные попадают в колонку?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 15:25:02
    #34183655
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как избавиться от ...
vbaproну а как данные попадают в колонку?

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

Не понял вопроса
Вот вид листа твоего файла. Как на лист попадают данные, которые сейчас в колонке D?
Код, который ты показал, не меняет этих данных на листе, данные до него как-то попали...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 16:39:09
    #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:59:41
    #34184048
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как избавиться от ...
самое простое - заполнить соседнюю колонку формулой вида: =D1+0, тогда в ней будут числа, ну а затем обрабатывать дальше
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 17:11:20
    #34184093
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как избавиться от ...
Колонка D меня маловолнует, а вот колнка С очень сильно, т.к. это цена препарата
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2006, 10:53:37
    #34185416
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как избавиться от ...
заполнить тогда вот этой формулой
=INT(C1) & "." & MID(MOD(C1;1);3;100)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2006, 10:59:53
    #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, 19:31:29
    #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, 20:05:36
    #34187351
lena_####
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как избавиться от ...
=LEFT(C2;FIND(",";C2)-1) & "." & MID(C2;FIND(",";C2)+1;100)

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

=ЛЕВСИМВ(C2;НАЙТИ(",";C2)-1) & "." & ПСТР(C2;НАЙТИ(",";C2)+1;100)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.12.2006, 09:26:49
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как избавиться от ... / 19 сообщений из 19, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 373ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2183782]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 55ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 235ms
total:  373ms
x
x
Закрыть


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