VBA.Mania

vbamania.pl

Dziś jest wtorek, 14 maja 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	VBA[Excel 2007] - Separator miejsc dziesiętnych otwarty rozpoczął: slaszost postów: 3

napisał: slaszost postów: 2 umieszczony: 18 maja 2011 23:06
	Bardzo dziękuję. Nie wiem czemu, ale mimo wszystko wpisywał tekst (z "dobrym" separatorem miejsc dziesiętnych) - jak się przemnoży przez 1, to w arkuszu już pojawiają się liczby. Jeszcze raz bardzo dziękuję.

napisał: Trebor postów: 1209 umieszczony: 29 kwietnia 2011 20:12
	Różnych rozwiązań może być sporo. Spróbuj jak poniżej Dim Wartosc As Variant Wartosc = Replace(TextBox1, ",", ".") If Not IsNumeric(Wartosc) Then Wartosc = Replace(TextBox1, ".", ",") Range("A1") = CDbl(Wartosc)

napisał: slaszost postów: 2 umieszczony: 29 kwietnia 2011 00:40
	Witam Wszystkich, mam taki problem, u mnie w firmie używa się przecinka jako separatora miejsc dziesiętnych (i ja też tak muszę), muszę wykonać pewną aplikację dla współpracowników w USA, gdzie używa się kropki jako separatora miejsc dziesiętnych. Na formularzu mam tekst box, który zasysa wartość zmiennoprzecinkową z arkusza (u mnie pojawia się przecinek, u nich będzie pojawiała się kropka). Użytkownik będzie mówgł tę wartość zmienić i z powrotem zapisać do arkusza. Jak sprawić, aby niezależnie od separatora formularz wpisał wartość numeryczną. VBA widzi tę wartość jako tekst (przecinek) i wpisuje ją z powrotem jako tekst. Próbowałem różnych rzeczy: 1. przemnażać wartość w zmiennej Variant; Dim Wartosc As Variant Wartosc = 1 * UserForm2.Controls("TextBox" & i).Value Sheets("SM_Parameters").Cells(Row, Column).Value = Wartosc 2. przemnażać wartość komórki w arkuszu przez 1, gdy VBA już ją wpisze do arkusza Sheets("SM_Parameters").Cells(Row, Column).Value = 1*Sheets("SM_Parameters").Cells(Row, Column).Value 3. ponownie w arkusz wpisywać tę samą wartość Sheets("SM_Parameters").Cells(Row, Column).Value = Sheets("SM_Parameters").Cells(Row, Column).Value i za każdm razem błąd. Czy ktoś mógłby mi pomóc w rozwiązaniu tego problemu? Z góry dziękuję.

wstecz 1 dalej

wszystkich stron: 1