Hirdetés
- Android alkalmazások - szoftver kibeszélő topik
- Amazfit T-Rex 3 Pro – világítós dínó
- Xiaomi 14T - nem baj, hogy nem Pro
- iPhone topik
- Külföldi prepaid SIM-ek itthon
- Xiaomi 15T Pro - a téma nincs lezárva
- VoLTE/VoWiFi
- A lapkakészlet és az akku különbözteti meg a Motorola Edge 60 és Edge 60 Pro-t
- One mobilszolgáltatások
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
Ú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
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- VR topik
- Xbox Series X|S
- Gaming notebook topik
- Android alkalmazások - szoftver kibeszélő topik
- Mini-ITX
- Amazfit T-Rex 3 Pro – világítós dínó
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Milyen videókártyát?
- További aktív témák...
- Lenovo Thinkpad P1 Gen 6 - i9-13980HX, 32GB, 2TB SSD, 16" WQUXGA (3840 2400), RTX 4090
- 15.gen! Intel Core Ultra 9 285K +16-32GB DDR5 RAM +hűtött VRM-es Z890 lap! GAR/SZÁMLA (a Te nevedre)
- OP AudioCodes C450HD Ip Phones - Szines kijelzős - Teams/ Zoom telefon - Új dobozos
- ATEN Cat 5 KVM over IP Switch Altusen KH1508AI - Új ára 284.000Ft
- AirPort Extreme 802.11n (3rd Generation) Model A1301 -
- HIBÁTLAN iPhone 13 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3139
- HIBÁTLAN iPhone 13 mini 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3050
- iKing - Apple iPhone 15 Pro Natural Titanium ProMotion 120 Hz, A17 Pro, USB-C 128 GB
- BESZÁMÍTÁS! MSI B450M R5 5500 16GB DDR4 512GB SSD RX 6600XT 8GB DeepCool CC560 Thermaltake 730W
- magyar billentyűzet - 171 - Lenovo Legion Pro 7 (16IAX10H) - Intel Core U9 275HX, RTX 5080
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest