- Ízléses lett a Drop kompakt, vezeték nélküli klaviatúrja
- Jól felszerelt, csúcskategóriás külső videokártya jött a Gigabyte zászlaja alatt
- Gamescom 2025: Limitált szériás Godlike X lap és más finomságok az MSI-nél
- Leégett az első Radeon a hírhedt 12V-2x6 tápkonnektorral
- India betiltja a pénzalapú online játékokat
- Milyen videókártyát?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Dobta az OLED kijelzőt a Honor MagicPad 3
- Leégett az első Radeon a hírhedt 12V-2x6 tápkonnektorral
- Amlogic S905, S912 processzoros készülékek
- Melyik tápegységet vegyem?
- Kormányok / autós szimulátorok topikja
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- Bambu Lab 3D nyomtatók
Új hozzászólás Aktív témák
-
Lokids
addikt
-
Pali79
aktív tag
válasz
Petya25
#2797
üzenetére
Így sem jó valami:
Error 1 Operator '*' is not defined for types 'System.Windows.Forms.TextBox' and 'System.Windows.Forms.TextBox'.Ez lenne a kód:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
TextBox2 = TextBox1 * TextBox1
End Sub -
Delila_1
veterán
válasz
Petya25
#2778
üzenetére
A képeken láthatod, hogy az adatokat tartománnyá alakítottam, majd az A2:B10-nek nevet adtam. Ez lett a ComBobox RowSource bemenő tartománya (Munka1!ID_Nev)
A ComboBox ColumnCount értéke 2, ezért látszik mindkét oszlop. Az egyik nevet (Anna) szándékosan 2 ID-hez rendeltem.
A név kiválasztásakor a lenti makró beviszi a kívánt értékeket a 2 labelbe.
Private Sub ComboBox1_Change()
Dim sor As Integer
With Sheets(1)
sor = Application.Match(ComboBox1, .Columns(1), 0)
Varos = .Cells(sor, 3)
Fogl = .Cells(sor, 4)
End With
End Sub
Azt még most sem értem, miért egy diagramról akarsz értékeket bevinni a formra, miért nem abból a tartományból, amiből létrehoztad a diagramot.
-
Delila_1
veterán
válasz
Petya25
#2776
üzenetére
1. A grafikonos kérdést nem értem.
2. Teszel a formra egy textboxot, ahol megadod a rekord sorszámát. Mivel az itt megadott érték szöveg típusú (ezért hívják textboxnak), át kell alakítanod számmá – pl. hozzáadsz 0-t, vagy szorzod 1-gyel. Ezután már beírhatod a form objektumaiba a cells(sorszám, oszlop) értékeket.
-
vilag
tag
válasz
Petya25
#2283
üzenetére
Ahogy írtam VBA-ban szeretném ezt a problémát megoldani, így sajnos az általad kínált megoldás nem használható.
A VBA súgójában annyit találtam, hogy "ActiveWorkbook.ReadOnly" az csak lekérdezhető.
A probléma az, hogy az adot fájlt tööben is használják a hálózaton, viszont a felhasználók egy körének csak olvasásra szabadna megnyitnia.
Fájlszinten a biztonsági beállítások között szépen be is állítottam, hogy mely felhasználók nyithatják írásra, és melyek szerkesztésre.
A fájl elsődleges használója azonban nem én vagyok. Hiába állítottam be mint tulajdonos, hogy semelyik más felhasználónak nem engedélyezem, hogy saját tulajdonba vegye a fájlt, ez valamiért időnként mégis előfordul és ilyenkor minden beállított fájlszintű korlátozás ment a levesbe.Ezért akartam ezt programkódból megoldani, ha lehet.
Új hozzászólás Aktív témák
Hirdetés
- Milyen videókártyát?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- GL.iNet Flint 2 (GL-MT6000) router
- Autós topik
- Kínai és egyéb olcsó órák topikja
- Dobta az OLED kijelzőt a Honor MagicPad 3
- Kerékpárosok, bringások ide!
- Leégett az első Radeon a hírhedt 12V-2x6 tápkonnektorral
- Gitáros topic
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- További aktív témák...
- 14900k-hoz keresek delid kittet vagy valakit BP-en akinek van és használhatnám a sajátját!
- AMD AM5 Ryzen7 Win11 FullHD gamingPC 2-3év garanciával (8700G/4060Ti/32GB/1TB M2/WiFi6/BT/Win11)
- Exclusive ajánlat! Eladó Dobozos 14" colos LG GRAM 14 i7-1165G7/16gb ram/512SSD nincs 1kg!
- DJI Mini 4 pro Fly More Combo FMC RC2 drón új állapotban
- DJI Mini 4 pro Fly More Combo RC2 drón 6 akkumulátorral - Garancia, Care Refresh
- PS Plus előfizetések
- BESZÁMÍTÁS! 4TB Western Digital Purple SATA HDD meghajtó garanciával hibátlan működéssel
- Apple iPhone 12 Pro Max /128GB / Gyári független / 12Hó Garancia / 83% aku
- Surface Laptop 4 i7-1185G7 16GB 256GB
- Azonnali készpénzes Sony Playstation 4 Slim / PS4 Pro felvásárlás személyesen/csomagküldéssel
Állásajánlatok
Cég: FOTC
Város: Budapest