<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; VBA: замена запятой на точку в Ексель]]></title>
		<link>http://forum.script-coding.com/viewtopic.php?id=17816</link>
		<atom:link href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=17816&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «VBA: замена запятой на точку в Ексель».]]></description>
		<lastBuildDate>Mon, 05 Jun 2023 06:10:49 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[VBA: замена запятой на точку в Ексель]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=158452#p158452</link>
			<description><![CDATA[<p>Всем привет! Создаю макрос по замене в файле Ексель чисел с разделителем запятая, при формате ячеек Общий, на числа с разделителем точка, и изменении формата ячейки на Текстовый!<br />Хотел создать такой макрос на основе этого, но что-то не выходит, буду благодарен за помощь!<br /></p><div class="codebox"><pre><code>Sub Fix_Numbers_From_Dates()
    Dim num As Double, cell As Range
 
    For Each cell In Selection
        If Not IsEmpty(cell) Then
            If cell.NumberFormat = &quot;General&quot; Then
                num = CDbl(Replace(cell, &quot;.&quot;, &quot;,&quot;))
            Else
                num = CDbl(Format(cell, &quot;m,yyyy&quot;))
            End If
            cell.Clear
            cell.Value = num
        End If
    Next cell
End Sub </code></pre></div>]]></description>
			<author><![CDATA[null@example.com (Andropov)]]></author>
			<pubDate>Mon, 05 Jun 2023 06:10:49 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=158452#p158452</guid>
		</item>
	</channel>
</rss>
