Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.87/15: Рейтинг темы: голосов - 15, средняя оценка - 4.87
0 / 0 / 0
Регистрация: 15.05.2011
Сообщений: 14

Cells.NumberFormat - нестандартный ?

13.06.2006, 22:44. Показов 3015. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Необходимо отформатировать в создаваемом листе ячейку так, чтобы она сразу показывала
единицы измерения, напр. при присвоении значения 50 показывала "50.00 m". Из Excel это делается через свойства ячейки и введение доп. формата во "(все форматы)" вида 0.00" m" - а как этот же эффект получить из VB (кавычки в кавычках он не воспринимает) ?
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim WSheet As New Microsoft.Office.Interop.Excel.Worksheet
WSheet = EXL.Application.Workbooks.Add.Worksheets.Add
EXL.Application.Visible = True
 
WSheet.Name = System.IO.Path.GetFileNameWithoutExtension(CurFile)
With WSheet
.Range("c1").HorizontalAlignment = Microsoft.Office.Interop.Excel.XlHAlign.xlHAlignRight
.Range("c1").Font.Name = "Arial"
.Range("c1").Font.FontStyle = "Bold"
.Range("c1").Font.Size = 14
.Range("c1").Cells.NumberFormat = "0.00" ' вот здесь надо аналог 0.00" m" 
.Range("c1").Value = 50
End With
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
13.06.2006, 22:44
Ответы с готовыми решениями:

Ошибка: BC30456: 'Cells' is not a member of 'System.Web.UI.Control'
Hi wsem! ne podskashete? Chto ja delaju ne prawil'no: sub btnEdit_CLK(ByVal Sender as Object, ByVal e as ImageClickEventArgs) ...

Grid Click. Подключить данные, которые находятся в cells в выбраном ряду?
U menja est grid, sobitie click. gr_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles gr.Click Kak ja mogu...

With Worksheets('Лист1') TestVvod Obl:=.Range(.Cells(x,y),.Cells(x+5,y+10)) end with
Пожалуйста, ну откликнитесь умельцы!!! Обращаюсь к процедуре TestVvod Obl:='C5:K32' - срабатывает, а если With Worksheets('Лист1') ...

1
86 / 62 / 69
Регистрация: 15.03.2007
Сообщений: 6,903
13.06.2006, 22:49
Чтобы вставить кавычку внутрь строки ее нужно удвоить.

Range("c1").Cells.NumberFormat = "0.00"" m"""
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.06.2006, 22:49
Помогаю со студенческими работами здесь

ThisWorkbook.Worksheets('Table').Range(Cells(i, 9), Cells(i, 12)).Select Selection.Delete Shift:=xlUp Ошибка 1004
Помню я с этим уже сталкивался, но забыл как выкрутился. ThisWorkbook.Worksheets('Table').Range(Cells(i, 9), Cells(i, 12)).Delete...

Объединение областей Range('A1:Cells(i,2)),A5:Cells(i,6)') не проходит
Господа, опять прошу помочь. Мне нужно объединить две области и пометить их.... причем начало области знаю, а конец плавающий, а строка...

Не может открыть файл. Ошибка 9 (Worksheets('aaa').Cells(1, 1) = Workbooks(curr_path).Worksheets('2').Cells(1, 1))
Подскажите, пожалуйста, почему так работает : Worksheets('aaa').Cells(1, 1) = Workbooks(curr_path).Worksheets('2').Cells(1, 1) ...

Запись значений ListBox1 в cells, сумма значений listbox и вывод в cells
Доброго времени суток. Требуется, что бы по нажатию кнопки, значения ListBox1, ListBox2, ListBox3 заносились в Cells(3+1,8), Cells(3+1,9),...

Numberformat
Всем привет!!!! У меня очередной вопрос. Кто-нить пробовал программно менять формат числового значения? Меня интересует числовой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru