Új hozzászólás Aktív témák

• #1073 Boolash aktív tag Boolash #1072

  Új Válasz 2008-11-27 10:49:21 #1073

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Boolash

  aktív tag

  válasz Boolash #1072 üzenetére

  Nemnagyon pörög a topik
  Sikerült előrejutnom. Márcsak 1 probléma van, hátha valaki tudja.
  a Selection.Find -nál szeretnék wildchardokat használni kereséshez. Engedélyeztem is a használatukat. Amit szeretnék keresni: [space]bármi[kukac]bármi[.]bármi[space]
  ezt kellene lefordítani. De ez így nem jó: <[ ]*[@]*[.]*[ ]> egyrészt mert a @ is jelent valamit, meg a space-t sem kezeli így....
  Hogy kellene?
  Köszi

• #1072 Boolash aktív tag Boolash #1071

  Új Válasz 2008-11-26 23:25:58 #1072

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Boolash

  aktív tag

  válasz Boolash #1071 üzenetére

  Oks.. benéztem a Loop-ot, már kijavítottam. viszont a keresésre ha van vkinek ötlete, az jöhet!

• #1071 Boolash aktív tag Polyák #1070

  Új Válasz 2008-11-26 22:03:36 #1071

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Boolash

  aktív tag

  válasz Polyák #1070 üzenetére

  word-ben írom, de hivatkozok excel-re is. Tehát itt jelen esetben a wordben megtalált @ -t egy excel munkafüzetbe dobálja.
  Amúgy itt tartok:

  Sub akarmi()
  
  Dim Obj1 As Object
  Set Obj1 = CreateObject("excel.application")
  Obj1.Visible = True
  Obj1.Workbooks.Add
  
  Do Until ActiveDocument.Bookmarks("\Sel") = _
  ActiveDocument.Bookmarks("\EndOfDoc")
  
  With Selection.Find
  .Forward = True
  .Wrap = wdFindStop
  .Text = "@"
  .Execute
  End With
  Dim i As Integer
  i = 1 + i
  Dim valtozoword As String
  valtozoword = Selection.Text
  'MsgBox valtozoword
  'Dim i As Integer
  'If i < 25 Then i = 1 + i 'itt i-nek annyinak kéne lenni, mint ahány @ van
  Dim excelmezo As String
  'MsgBox excelmezo
  Obj1.Worksheets("Munka1").Cells(i, 1).Value = valtozoword
  Loop
  ActiveDocument.Save
  End Sub

  Ez így végigkeresi az összeset a wordben, és bedobja az excelbe, a cellákba szépen egymás alá.
  Az az egyik baj, hogy ez így végtelen... Miért nem száll ki a Loop-ból?? Többször végigmegy a kereséssel az egész word dokumentumon, és így végtelen számút talál és rak be az excelbe....
  Köszi

• #1069 Boolash aktív tag Boolash #1068

  Új Válasz 2008-11-26 19:03:40 #1069

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Boolash

  aktív tag

  válasz Boolash #1068 üzenetére

  Oké.
  az If-et így kellene írnom:

  If i < 100 Then i = 1 + i

  ezzt dobja hibának:

  Obj1.Worksheets("Munka1").Cells(1, i).Value = ActiveDocument.Selection

  object doesn't support this property or method.....

• #1068 Boolash aktív tag

  Új Válasz 2008-11-26 18:47:32 #1068

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Boolash

  aktív tag

  Ebben mi lehet a hiba?
  Elméletileg azt csinálná, hogy körbeszalad a word dokumentumon, kikeresi a @-ot, majd ha talál azt egy új excelbe belepakolja (max100-at). Majd menti.

  Sub akarmi()
  
  Dim Obj1 As Object
  Set Obj1 = CreateObject("excel.application")
  Obj1.Visible = True
  Obj1.Workbooks.Add
  
  Do Until ActiveDocument.Bookmarks("\Sel") = _
  ActiveDocument.Bookmarks("\EndOfDoc")
  
  With Selection.Find
  .Forward = True
  .Wrap = wdFindStop
  .Text = "@"
  .Execute
  End With
  
  Dim i As Integer
  If i < 100 Then
  i = 1 + i
  
  Selection.Copy
  
  Obj1.Worksheets("Munka1").Cells(1, i).Value = ActiveDocument.Selection
  
  Loop
  
  ActiveDocument.Save
  
  End Sub

  Így azt dobja, hogy Loop, without Do. Szerintem több hina is lesz. pl.: Obj1.Worksheets("Munka1").Cells(1, i).Value = ActiveDocument.Selection
  Hogy lehetne ezeket?
  Köszi

• #1067 Boolash aktív tag VIC20 #1066

  Új Válasz 2008-11-26 14:57:28 #1067

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Boolash

  aktív tag

  válasz VIC20 #1066 üzenetére

  Igen megcsináltam, majd meg is néztem a kódot. Az okés, a find megvan.
  Csak nekem az kellene, hogyha talál egy @-ot, akkor ne csak az legyen kijelölve, hanem az egész szó. Valahogy a Range-t kellene kiterjeszteni.

• #1065 Boolash aktív tag

  Új Válasz 2008-11-25 17:53:27 #1065

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Boolash

  aktív tag

  Sziasztok!
  Egy gyors segítség jól jönne! Word-ben programozok, és elakadtam (elég hamar...) Azt szeretném kérdezni, hogy hogyan kell egy teljes szót kijelölni? Konrétan arról lenne szó, hogy rákeresek egy betüre a teljes word dokumentumban, majd az kellene nekem, hogy ne csak az a betü legyen kijelölve, hanem az egész szó!

  Set myrange = ActiveDocument.Content
  myrange.Find.ClearFormatting
  With Selection.Find
  .Text = "@"
  .Forward = True
  End With
  Selection.Find.Execute
  End Sub

  Illetve ez így ugyebár, ha megtalálta az első egyezőt, akkor leáll. Gondolom egy if -el nézem azt, hogy a myrange végére ért e. Hogy mondom neki, hogy végére ért e?
  Köszi!

• #1017 Boolash aktív tag [HUN]Zolee #1016

  Új Válasz 2008-09-25 19:15:36 #1017

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Boolash

  aktív tag

  válasz [HUN]Zolee #1016 üzenetére

  Okés, megvan minden! Köszi!
  Egyébként: ActiveCell.SpecialCells(xlLastCell).Select

• #1015 Boolash aktív tag [HUN]Zolee #1014

  Új Válasz 2008-09-25 18:56:10 #1015

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Boolash

  aktív tag

  válasz [HUN]Zolee #1014 üzenetére

  Áhh.. Megvan..
  Kicsit túllőttem a célon... Sok volt az 1000 oszlop.
  Esetleg azt nem tudod, hogy hogy lehet megnézni, hogy az adott sorban/oszlopban hol van az utolsó elem? Ne kellejen feleslegesen hiába végignézni sok-sok cellát...
  Köszi!

• #1013 Boolash aktív tag

  Új Válasz 2008-09-25 18:31:39 #1013

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Boolash

  aktív tag

  Sziasztok!
  Fontos lenne!
  Ezzel mi lehet a hiba?

  Sub elso()
  
  Dim i, j As Integer
  
  For i = 1 To 65536
  For j = 1 To 1000
  If Munka1.Cells(i, j).Value = Munka2.Cells(i, j).Value Then
  
  Else
  Munka1.Cells(i, j).Interior.ColorIndex = 27
  
  End If
  Next j, i
  
  End Sub

  Ez a sor nem jó: If Munka1.Cells(i, j).Value = Munka2.Cells(i, j).Value Then
  merthogy application/object defined error....
  De miért?
  Hogy kellene?

  Egyébként azt csinálja, hogy 2 munkalapot összehasonlít, és ahol különbözik a kettő, azt sárgával megjelöli.

  Köszi!

Új hozzászólás Aktív témák