Twoje PC  
Zarejestruj się na Twoje PC
TwojePC.pl | PC | Komputery, nowe technologie, recenzje, testy
B O A R D
   » Board
 » Zadaj pytanie
 » Archiwum
 » Szukaj
 » Stylizacja

 
M E N U
  0
 » Nowości
0
 » Archiwum
0
 » Recenzje / Testy
0
 » Board
0
 » Rejestracja
0
0
 
Szukaj @ TwojePC
 

w Newsach i na Boardzie
 
OBECNI NA TPC
 
 » P@blo 18:17
 » ngP 18:13
 » ReMoS 18:13
 » rainy 18:13
 » RoBakk 18:12
 » kyusi 18:09
 » teneo 18:08
 » Kool@ 18:08
 » GULIwer 18:08
 » KHot 18:00
 » Lukas12p 17:59
 » hokr 17:59
 » MARtiuS 17:54
 » PeKa 17:54
 » PCCPU 17:52
 » wrrr 17:48
 » mo2 17:42
 » Dexter 17:34
 » J@rek 17:25
 » Venom79 17:19

 Dzisiaj przeczytano
 26415 postów,
 wczoraj 19730

 Szybkie ładowanie
 jest:
wyłączone.

 
ccc
TwojePC.pl © 2001 - 2024
A R C H I W A L N A   W I A D O M O Ś Ć
    

Problem z makrem w Excelu , turzol 2/10/06 12:53
Mam problem z pewnym makrem. Otóż jest to proste makro zamieniające , na . w poszczególnych komórkach. Niestety po wykonaniu zmienia wszystkie wartości w komórkach na tekstowe (zielone trójkąty przy wartościach) i trzeba ręcznie wszystko zmieniać na format liczbowy...

Wklejam cały kod z VBA:
Sub Makro1()
'
' Makro1 Makro
' Makro zarejestrowane 2006-10-02, autor turzol
'

'
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Columns("N:AE").Select
ActiveWindow.ScrollColumn = 1
Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("D1").Select
Selection.ClearContents
Range("F1").Select
Selection.ClearContents
Range("I1").Select
Selection.ClearContents
Rows("1:1").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("F4").Select
End Sub


Co jest nie tak, dane wejściowe są na pewno w formacie liczbowym

trance addicted
:B ::KX:: ::ASIO Otachan::

  1. To dodaj , Hiper 2/10/06 15:53
    jeszcze makto, które zamienia te komórki na format liczbowy.

    Szukam pracy jako informatyk (we
    Wrocq).

    
All rights reserved ® Copyright and Design 2001-2024, TwojePC.PL