- Fehér zakót öltenek a Super Flower platinás Leadex VII Pro tápjai
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- 3D nyomtatás
- MSI Thin: gamer notebook két változatban
- A PC-ből az asztalunkra is kilép a Noctua
- Száguldozáshoz való az új GeForce driver
- Milyen RAM-ot vegyek?
- Milyen billentyűzetet vegyek?
- HiFi műszaki szemmel - sztereó hangrendszerek
- Milyen belső merevlemezt vegyek?
Hirdetés
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Ismét elhalasztották a Life by You korai kiadásának megjelenését
gp Jövő hónapban indult volna az early access, jelenleg azonban nem tudni hogy mikor debütál a játék.
-
Még több AI-t hozna a Windowsba a Microsoft
it Új eszközökkel ösztönözné a programozókat a Microsoft, hogy még több AI-t hozzanak el a Windowsba.
Új hozzászólás Aktív témák
-
Boolash
aktív tag
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 SubEz í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[ Szerkesztve ]
Új hozzászólás Aktív témák
- Autós topik
- Politika
- Júniusban Magyarországra érkezik a Tecno, a fejlődő piacok egyik kedvenc márkája
- Jobb zoom, egyszerűbb kijelző - megérkezett a Sony Xperia 1 VI
- Renault, Dacia topik
- Kerékpárosok, bringások ide!
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Konzolokról KULTURÁLT módon
- Ubiquiti hálózati eszközök
- Kínai, és egyéb olcsó órák topikja
- További aktív témák...
- Barbie Groom and Glam Pups - PAL CIB OVP Nintendo 3ds Fun & Fashion Dogs SEALED
- Muse M-1050 BT bluetooth torony hangszóró - 3db
- Skull and Bones Premium Edition PS5
- Diamond Monster Sound MX 300 (Vortex 2) hangkártya retro hardware sound card PCI soundcard
- Szinte új PlayStation 5 VR2 eladó 2027.02.14-ig garanciás Beszámítás lehetséges
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest