Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Znajdz i zamien pewien ciąg liczb
Fogiu




Typ: neutral
Postów: 6
Zarejestrowany: Feb 2005
Znajdz i zamien pewien ciąg liczb

Witam mam napisac na zaliczenie pewnien program jest on juz prawie gotowy ale mam problem z jedna kwestia. Mianowicei: ma on przeszukiwac zakres komurek (refedit) i jesli pojawi sie w którejś wartosć liczbowa (textbox1) to ma ja zamienic na inna (textbox2). Probowalem z pentla for each i instrukcja warunkowa if ale nie dziala. Jestem jeszcze ciemny w tym temacie wiec prosze o jaką kolwiek pomoc.

Pozdrawiam

01-02-2005 15:50
Pokaż profil Fogiu  Wyślij email do Fogiu   
adalek




Typ: neutral
Postów: 54
Zarejestrowany: Jan 2005

zaczalem cos dlubac, i wydlubalem cos takiego:

Sub ZamianaCelek()

For Each cell In Selection
If IsNumeric(cell.Value) Then cell.Value = "wartosc textbox1"

Next cell
End Sub

tylko niestety nie umiem rozwiazac kawalka "wartosc textbox1" - zdaje sie byc to banalne ale wszystkie wersje wywalaja mi blad.

wiec moze ktos mi pomoze akurat w tej drobnej kwestii?

01-02-2005 17:11
Pokaż profil adalek  Wyślij email do adalek   
Fogiu




Typ: neutral
Postów: 6
Zarejestrowany: Feb 2005

chodzi ci o coś takiego
textbox1.value
????

nie wiem czy dobrze mnie zrozumiales.
Moze wyraże sie jaśniej..
Program ma porównywać zawartość komurek w arkuszu.
Zakres komurek ma byc wybrany przez pole refedit.
I w momecie gny jakas komurka ma wartosć taką jak pole textbox1 (na formularzu) to ta wartosc ma byc zamieniona na wartosć z pola textbox2.
Mam nadzieje ze nieco sprostowalem

01-02-2005 18:01
Pokaż profil Fogiu  Wyślij email do Fogiu   
adalek




Typ: neutral
Postów: 54
Zarejestrowany: Jan 2005

textbox1.value nie dziala - probowalem

troche wyjasniles - tzn tyle ze wiem ze zle zrozumialem.
wieczorem popatrze.

i nadal czekam na rozwiazanie mojej kwestii

01-02-2005 18:24
Pokaż profil adalek  Wyślij email do adalek   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

a czy przypadkiem, przyjacielu, nie masz już zamkniętego formularza?


'ukryj formularz
Form1.Hide = True

'pobierz z RefEdit
Dim rng as Range, cell as Range
Set Rng = Range(RefEdit1)

For Each cell In rng
    If cell = TextBox1 Then cell = TextBox2
Next cell

'zamknij formularz
Unload Form1



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

01-02-2005 21:02
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
adalek




Typ: neutral
Postów: 54
Zarejestrowany: Jan 2005

hmmm, ten textbox nie byl na formie, tylko wprost na arkuszu.
przepraszam za, byc moze dyletanckie pytanie, ale czy te wszystkie kontrolki mozna stosowac tylko na formie?

01-02-2005 21:35
Pokaż profil adalek  Wyślij email do adalek   
Fogiu




Typ: neutral
Postów: 6
Zarejestrowany: Feb 2005

Dziękuje wszystkim którzy prubóją mi pomóc problemu jednak nadal mi sie nieudalo rozwiązać.
Forma nie jest ukryta.

wcześniej prubowałem czegos takiego:

Dim komorka As Object
  For Each komorka In Range(RefEdit1.Value)
  If komorka.value = textbox1.value then
  komurka.value = textbox2.value
  End if
    Next komorka

ale i tak kicha. Tzn program sie niewywala ale i  nie zamienia.

01-02-2005 21:43
Pokaż profil Fogiu  Wyślij email do Fogiu   
Fogiu




Typ: neutral
Postów: 6
Zarejestrowany: Feb 2005

Aha zapomniałem dodac na bierząco prubuje wszystkich możliwości które są tu przez was przedstawione.

To co przedstawie poniżej działa, ale gdy np. mam ciag w komurce = "111" w textbox1 = "1" a textbox2= "33" po zamianie otrzymam zamiast 33 ciąg = 333333. A tak być niepowinno.

Sub bleble()
Dim x, y As Single
x = TextBox1.Value
y = TextBox2.Value

  Range(RefEdit1.Value).Select

    Selection.Replace What:=x, Replacement:=y, LookAt:=xlPart, _
        'SearchOrder:=xlByRows, MatchCase:=True
end sub

[Post edytowany dnia 01-02-2005 21:51 przez Fogiu]

01-02-2005 21:50
Pokaż profil Fogiu  Wyślij email do Fogiu   
Fogiu




Typ: neutral
Postów: 6
Zarejestrowany: Feb 2005

P.S. Kontrolki refedit i textbox są na formularzu.

01-02-2005 21:54
Pokaż profil Fogiu  Wyślij email do Fogiu   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

przykład


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

01-02-2005 22:10
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Fogiu




Typ: neutral
Postów: 6
Zarejestrowany: Feb 2005

Dzieki stary to mi na pewno pomoże. Dzieki wszystkim pozdro.

01-02-2005 22:26
Pokaż profil Fogiu  Wyślij email do Fogiu   
Wszystkich odpowiedzi: 10 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1