Hirdetés
- AMD vs. INTEL vs. NVIDIA
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- 3D nyomtatás
- Akciókamerák
- HiFi műszaki szemmel - sztereó hangrendszerek
- Milyen TV-t vegyek?
- Milyen monitort vegyek?
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Milyen videókártyát?
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
Hirdetés
-
Minden információt felhasználnak rólunk a közösségi cégek
it Az amerikai hatóságok szerint a közösségi média felhasználói nem igazán rendelkeznek irányítással azon adatok fölött, amit az AI-rendszerekkel megetetnek a nagy cégek.
-
E61 blog 2. rész
lo [Előző rész]Folytatnám a történetét a E61-nek. A sztereotípiákkal ellentétben még nem kerültem anyagi csődbe, és nem...
-
Színpadon a hardverzenekar
ph A hangeszközöké és monitoroké a rivaldafény, de asztali gépekről, komponensekről, notebookról és egérpadról is szó esik.
-
PROHARDVER!
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
teacherhajni
újonc
válasz Delila_1 #31478 üzenetére
Nagyon szépen köszönöm! Ez kézzel több órás munka volt eddig
Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Long
Dim usor As Long
Dim file As Stringutvonal = "C:\Users\Public\Pictures\Sample Pictures\"
usor = Range("A" & Rows.Count).End(xlUp).RowFor sor = 1 To usor
Kepneve = Cells(sor, "A") & ".jpg"
If Cells(sor, "A") = "" Then GoTo Tovabb
file = Dir(utvonal & Kepneve)
If file = "" Then GoTo Tovabb
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Left = Columns(4).Left
.Top = Rows(sor).Top
.Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 120
End With
If Kepneve = "" Then GoTo Tovabb
Rows(sor).RowHeight = 130Tovabb:
Next
End Sub
Új hozzászólás Aktív témák
- Diablo IV
- Cyberpunk 2077
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Nagy "hülyétkapokazapróktól" topik
- Gondoskodik róla az EU, hogy az Apple felnyissa a rendszereit
- AMD vs. INTEL vs. NVIDIA
- Ukrajnai háború
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Mobilinternet
- exHWSW - Értünk mindenhez IS
- További aktív témák...
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
- Dobozos PC Játékok jó áron eladók
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Eladó Steam kulcsok kedvező áron!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - 2990 Ft-tól!
Állásajánlatok
Cég: Ozeki Kft
Város: Debrecen
Cég: Ozeki Kft
Város: Debrecen