VBA - cохранять дробь "1/2" как есть - Как - Microsoft Office Excel

KOSTIK1 · 25.03.2010, 21:08

Вечер добрый! Есть такая строка

Код:

sh.Cells(N + 2, 4).Value = Combobox1.Value

когда стоит просто число "11" то всё сохраняет нормально, как только "11/1" так сохраняет как дату!! Как правильно написать, подскажите? Спасибо.

Dophin · 25.03.2010, 21:15

sh.Cells(N + 2, 4).Value = "'" & Combobox1.Value

KOSTIK1 · 25.03.2010, 21:26

Спасибо Dophin! Так сохраняет как текст, а мне бы в "Общем" формате хотелось! Возможно?

Dophin · 25.03.2010, 22:11

что значит "в общем"? либо текст либо дата либо число.

Код:

sh.Cells(N + 2, 4).NumberFormat = "#"" ""???/???"
sh.Cells(N + 2, 4).Value = Combobox1.Value

но 11/1 это все равно текст.

KOSTIK1 · 26.03.2010, 11:12

Dophin спасибо! Такой вопрос возник, потому что, когда в Общем формате сохранено число, не появляется сообщение типа "число сохранено как текст". Можно ли как то распределить сохранение, то есть если "11" то сохранить как число, если "11/1" то как текст?

The_Prist · 26.03.2010, 11:22

Код:

If IsNumeric(Combobox1.Value) Then
sh.Cells(N + 2, 4).Value = Combobox1.Value 
Else
sh.Cells(N + 2, 4).Value = "'" & Combobox1.Value
End If

KOSTIK1 · 26.03.2010, 11:28

The_Prist и Dophin ещё раз спасибо вам, именно это я и хотел!!

25.03.2010, 21:08	#1
KOSTIK1 Форумчанин Регистрация: 06.10.2009 Сообщений: 193	VBA - cохранять дробь "1/2" как есть - Как Вечер добрый! Есть такая строка Код: `sh.Cells(N + 2, 4).Value = Combobox1.Value` когда стоит просто число "11" то всё сохраняет нормально, как только "11/1" так сохраняет как дату!! Как правильно написать, подскажите? Спасибо. С Уважением, Костик

25.03.2010, 21:26	#3
KOSTIK1 Форумчанин Регистрация: 06.10.2009 Сообщений: 193	Спасибо Dophin! Так сохраняет как текст, а мне бы в "Общем" формате хотелось! Возможно? С Уважением, Костик

25.03.2010, 22:11	#4
Dophin Форумчанин Регистрация: 13.01.2010 Сообщений: 410	что значит "в общем"? либо текст либо дата либо число. Код: `sh.Cells(N + 2, 4).NumberFormat = "#"" ""???/???" sh.Cells(N + 2, 4).Value = Combobox1.Value` но 11/1 это все равно текст.

26.03.2010, 11:12	#5
KOSTIK1 Форумчанин Регистрация: 06.10.2009 Сообщений: 193	Dophin спасибо! Такой вопрос возник, потому что, когда в Общем формате сохранено число, не появляется сообщение типа "число сохранено как текст". Можно ли как то распределить сохранение, то есть если "11" то сохранить как число, если "11/1" то как текст? С Уважением, Костик

26.03.2010, 11:22	#6
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Код: `If IsNumeric(Combobox1.Value) Then sh.Cells(N + 2, 4).Value = Combobox1.Value Else sh.Cells(N + 2, 4).Value = "'" & Combobox1.Value End If` WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru

25.03.2010, 21:15	#2
Dophin Форумчанин Регистрация: 13.01.2010 Сообщений: 410	sh.Cells(N + 2, 4).Value = "'" & Combobox1.Value

26.03.2010, 11:28	#7
KOSTIK1 Форумчанин Регистрация: 06.10.2009 Сообщений: 193	The_Prist и Dophin ещё раз спасибо вам, именно это я и хотел!! С Уважением, Костик

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Есть в VBA аналог "repeat until keypressed" (из Pascal) ? (-)	novak_26	Microsoft Office Excel	3	28.02.2010 19:02
"ОКРВВЕРХ", "ОКР", "ЕСЛИ". Как бы их связать.	Каравай	Microsoft Office Excel	13	17.02.2010 09:53
Есть ли аналог "Range()=Array()" как в Excel?	DoctorDron	Microsoft Office Word	2	15.02.2010 09:40
Как заставить Vba "###" понимать не как число?	Mike555	Microsoft Office Excel	5	25.01.2010 12:21
Паскаль. 2 задачи (Программа "Верификация","КАК БРИГАДИРУ РАЗДЕЛИТЬ ЗАРОБОТАННЫЕ ДЕНЬГИ")	Valik102	Помощь студентам	3	20.05.2009 20:42