Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
числовой формат
 
#1
19.08.2010 11:55:13
Всем привет!  
Подскажите, пожалуйста, как задать числовой формат?  
 
Я пишу Sheets(2).Cells(Count + 1, 15).NumberFormat = "#,##0.00"  
 
 
но у меня в ячейке сумма с запятыми 104,07  
А у меня не должно быть запятых 104.07  
 
То что указываю я, не работает  
Как быть?
 
 
 
#2
19.08.2010 12:13:36
{quote}{login=Natalia}{date=19.08.2010 11:55}{thema=числовой формат}{post}  
...у меня в ячейке сумма с запятыми 104,07  
А у меня не должно быть запятых 104.07  
Как быть?{/post}{/quote}  
Вариант: настройки XL - разделитель частей системный снять, поставить "." Это если всегда желательна "."...  
Z.  
14898
 
 
 
#3
19.08.2010 12:51:28
Подскажите еще, как на форме , при вводе в ячейку textbox дробного числа, не выскакивала ошибка при вводе вместо запятых- точки, как сделать чтобы и так  и так верно было?
 
 
 
#4
19.08.2010 14:20:38
я пишу в начале программы код, записанный макросом задания системного разделителя, но в итоге у меня всё равно вместо точки, запятая, что делать?
 
 
 
#5
19.08.2010 14:58:06
я из excel формирую отчет csv, и при написании кода  
 
With Application  
       .DecimalSeparator = "."  
       .ThousandsSeparator = " "  
       .UseSystemSeparators = False  
   End With  
 
перед выводом на экран данных в csv формат, программа всё равно осталяет запятую,а мне нужны точки в числах
 
 
 
#6
19.08.2010 16:26:57
Помогите, пожалуйста! Как сделать так, чтобы при выводе в  формат csv в числовых данных вместо запятой были точки
 
 
 
#7
19.08.2010 17:18:53
Запишите макрорекордером:  
выделить нужные столбцы; установить формат "Текстовый"; Найти "," ; заменить на ".".  
Вставьте в конце кода.  
Или, по мере получения чисел в макросе, преобразуйте их в текст, с заменой запятой на точку.
 
 
 
#8
19.08.2010 20:06:50
{quote}{login=}{date=19.08.2010 12:13}{thema=Re: числовой формат}{post}{quote}{login=Natalia}{date=19.08.2010 11:55}{thema=числовой формат}{post}  
...у меня в ячейке сумма с запятыми 104,07 А у меня не должно быть запятых 104.07  
Как быть?{/post}{/quote}  
Вариант: настройки XL - разделитель частей системный снять, поставить "." Это если всегда желательна "."... Z. 14898{/post}{/quote}  
Да, видимо, религия не позволяет экспериментировать, кавычить числа, и пр. и т.п... В русской локали, однако, разделитель для CSV ";", а есть еще CSV для DOS, Mac'a...  
Z.  
15352
 
 
 
#9
20.08.2010 09:50:13
ребята, помогите, пожалуйста, вывести в отчет формата .csv числовые данные в формате с разделителем точка, а не запятая!
 
 
 
#10
20.08.2010 09:59:34
Так именно в ss и замените запятые на точки, перед записью в файл.  
И этот ужас ss = Cells(L, 1) & ";" & Cells(L, 2) & ";" & Cells(L, 3) & ";" & Cell можно в цикл засунуть, счас...
 
 
 
#11
20.08.2010 10:06:14
Вот, но не проверял - у меня Application.FileDialog(msoFileDialogFilePicker) не работает, а переделывать лень :)  
 
MyLastRow = Cells.SpecialCells(xlLastCell).Row  
 
While L < MyLastRow  
   L = L + 1  
       For xxx = 1 To 29  
   If ss <> "" Then ss = Cells(L, xxx) & ";"  
   Else  
   ss = ss & Cells(L, xxx) & ";"  
   End If  
   Next  
   ss = Left(ss, Len(ss) - 1) 'отрезаем в конце лишнюю ";"  
   ss = Replace(ss, ",", ".") 'заменяем запятые на точки  
   Print #1, ss  
Wend
 
 
 
#12
20.08.2010 10:21:15
Игорь, спасибо большое! Программа заменила запятую на точку, а вот если файл теперь открыть в блокноте, то седьмая строчка состоит из одних ;;;;;;;;;;;;;;;;  
 
как их убрать?
 
 
 
#13
20.08.2010 10:36:02
Значит на одну строку меньше выгружать надо.  
MyLastRow покрутите, или -1 где-то вставьте.
 
 
 
#14
02.09.2010 16:46:42
Подскажите, пожалуйста, как теперь дописать сортировку по столбцу 5,после чего этот столбец удалить?  
 
While L < MyLastRow  
   L = L + 1  
   ss = Cells(L, 1) & ";" & Cells(L, 2) & ";" & Cells(L, 3) & ";" & Cells(L, 4) & ";" & Cells(L, 5)  
 
 
ss = Left(ss, Len(ss))  
 
Сортировка и удаление столбца 5  
 
Print #2, ss
 
 
 
#15
02.09.2010 16:55:09
Что я не так пишу, что у меня не сортируются данные?  
 
 
ss = Sort(ss, Key1:=Range("AX"), Order1:=xlAscending, _  
       Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _  
       DataOption1:=xlSortTextAsNumbers, DataOption2:=xlSortTextAsNumbers)  
 
ss = Left(ss, Len(ss))  
Print #2, ss
 
 
 
#16
02.09.2010 17:06:42
Строку Вы так не отсортируете. Запишите макрорекордером это действие: "сортировку по столбцу 5,после чего этот столбец удалить", потом формируйте строку из Вашего диапазона.  
 
> ss = Left(ss, Len(ss))  
Эта команда не делает ничего.
 
 
 
Страницы: 1
Читают тему
Loading...