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

• Boolash aktív tag

  #1073

  #1072 Boolash

  2008-11-27 10:49:21

  Új Válasz

  Ú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

  

  Boolash

  aktív tag

  #1072 Boolash

  #1072 Boolash

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

  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

• Boolash aktív tag

  #1072

  #1071 Boolash

  2008-11-26 23:25:58

  Új Válasz

  Ú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

  

  Boolash

  aktív tag

  #1071 Boolash

  #1071 Boolash

  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

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

• Boolash aktív tag

  #1071

  #1070 Polyák

  2008-11-26 22:03:36

  Új Válasz

  Ú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

  

  Boolash

  aktív tag

  #1070 Polyák

  #1070 Polyák

  Szia!
  Ez most akkor wordben vagy excelben van?

  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

• Boolash aktív tag

  #1069

  #1068 Boolash

  2008-11-26 19:03:40

  Új Válasz

  Ú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

  

  Boolash

  aktív tag

  #1068 Boolash

  #1068 Boolash

  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

  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.....

• Boolash aktív tag

  #1068 2008-11-26 18:47:32

  Új Válasz

  Ú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

  

  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

• Boolash aktív tag

  #1067

  #1066 VIC20

  2008-11-26 14:57:28

  Új Válasz

  Ú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

  

  Boolash

  aktív tag

  #1066 VIC20

  #1066 VIC20

  Huh, most mindenféle utánanézés előtt megkérdem: szoktad használni a Word makrórögzítőjét? Nagyon hasznos tud lenni: megcsinálja ezeknek a szövegszerkesztős műveleteknek a kódját.

  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.

• Boolash aktív tag

  #1065 2008-11-25 17:53:27

  Új Válasz

  Ú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

  

  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!

• Boolash aktív tag

  #1017

  #1016 [HUN]Zolee

  2008-09-25 19:15:36

  Új Válasz

  Ú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

  

  Boolash

  aktív tag

  #1016 [HUN]Zolee

  #1016 [HUN]Zolee

  Nemtudom. De én úgy szoktam megtudnia a parancsokat, hogy elindítok egy makró rögzítést és megadom a függvényt ami kell nekem beépítetből, így szépen lementi a mscro verzióját.

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

• Boolash aktív tag

  #1015

  #1014 [HUN]Zolee

  2008-09-25 18:56:10

  Új Válasz

  Ú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

  

  Boolash

  aktív tag

  #1014 [HUN]Zolee

  #1014 [HUN]Zolee

  Hát nem tudom hogy amiatt reklamál-e hogy az else és a then között nincs semmilyen utasítás.

  Á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!

• Boolash aktív tag

  #1013 2008-09-25 18:31:39

  Új Válasz

  Ú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

  

  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