- MasterDeeJay: i7 4980HQ asztali gépben (vs i7 4770)
- Elektromos rásegítésű kerékpárok
- sziku69: Fűzzük össze a szavakat :)
- GoodSpeed: Te hány éves vagy?
- Luck Dragon: Asszociációs játék. :)
- hcl: Eszelős szívatás : kijelzőtükrözés 2026
- eBay-es kütyük kis pénzért
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- sh4d0w: Én és a számítógép
- mefistofeles: Az elhízás nem akaratgyengeség!
Új hozzászólás Aktív témák
-
T_bee
aktív tag
válasz
mariann71
#2456
üzenetére
Szia,
Nézd meg ezt a kódot, szerintem azt csinálja, ami neked kell:
Sub transzponal()
Dim inp, res As Variant
Dim r As Range
Dim n As Integer
inp = Range(Cells(1, 1), Cells(22, 1)) 'itt olvassa be a program az induló adatokat
n = Int(UBound(inp) / 5) 'itt nézi meg, hogy hány sor lesz az új tömb
If UBound(inp) Mod 5 <> 0 Then n = n + 1
ReDim res(1 To n, 1 To 5)
For i = 1 To n
For j = 1 To 5
If (i - 1) * 5 + j > UBound(inp) Then Exit For
res(i, j) = inp((i - 1) * 5 + j, 1)
Next j
Next i
Set r = Range(Cells(1, 2), Cells(n, 6)) 'itt lehet megadni hogy hova outputolja az eredményt
r = res
End SubÜdv
T_bee
-
T_bee
aktív tag
Hali
Az lenne a kérdésem. hogyan lehet VB-ben egy szöveges változóban tárolt számot áttenni számváltozóba úgy, hogy ha a szöveges változóban nem szám van, akkor ne fagyjon meg a progi, hanem mondjuk egy harmadik változóba eltárolja hogy a szöveges változó hanyadik karaktere nem számjegy
remélem érthető voltam, köszi a választ
T_bee -
T_bee
aktív tag
Hello
lenne pár kérdésem:
1. ha csinálok valami dhtml oldalt VBvel akkor azt ki lehet menteni index.html nek?
ha igen hogy?
2. meg lehet-e csinálni olyat, hogy vannak regisztrált felhasználók, és ők a saját jelszavukkal tudnak csak bejelentkezni? tehát el lehet-e menteni a felhasználó-jelszó tömböt valami külső fájlba, amiben később tudok keresgélni?
köszi -
T_bee
aktív tag
hoppá... most olvasom és rájöttem hogy ez nem a kivonnó eljárás...
Private Sub Command4_Click()
If List1.Text <> '''' Then
If mag >= 10 And szele >= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 1)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
ElseIf mag >= 10 And szele <= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 2)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
ElseIf mag <= 10 And szele >= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x''))
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
End If
Else
d = MsgBox(''Nincs kijelölt adat!'', vbInformation, ''Hiba'')
End If
End Sub
na ez lenne az, ha valaki rájön hogy mi benne a hiba annak megköszönném. -
T_bee
aktív tag
köszi...
megin nem akar menni a kivonás a listából, de rájöttem hogy a számok hosszával van kapcsolatban a probléma. valakinek ötlete hogy lehetne megoldani? jelenleg így néz ki a programsor: Private Sub szamit_Click()
'Számítás
Dim p900 As Double
If ossz <> 0 And tabhosssz <> 0 And tabbszel <> 0 And tabch = False And tebch = False Then
table = tabhossz * tabszel
tabter.Text = table
szam = ossz / table
proba = Int(szam)
p900 = szam - proba
If p900 = 0 Then tabszam.Text = szam
If p900 <> 0 Then tabszam.Text = proba + 1
Else
Dim c As Integer
c = MsgBox(''Add meg az adatokat'', vbInformation, ''Hiba'')
End If
End Sub
köszi -
T_bee
aktív tag
Hi
szerintetek mi a hibaa ebben a kódban?
Private Sub vesz_Click()
If List1.Text <> '''' Then
s1 = Left(List1.Text, InStr(List1.Text, ''*'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''*'') - 1)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
index = index - listitem
ered.Text = index
i = i - 1
Else
d = MsgBox(''Nincs adat!'', vbInformation, ''Hiba'')
End If
End Sub
mer csak a list1.list utolsó elemét vonja ki rendesen
köszi -
T_bee
aktív tag
na. már rájöttem erre is
DE.
van egy progi, ami bekér két számot text1 és text2 vezérlőben, a és b változóba.
Private Sub Command1_Click()
If i = False And j = False Then
c = a
c = c + ''*''
c = c + b
o = a * b
index = a * b
List1.AddItem = c
q = q + o
Text3.Text = q
End If
End Sub
és ha a lista egyik elemét törlöm akkor hogy lehet annak az értékét( tehát az elem c változójának értékét) törölni egy másik Q változóból?
Új hozzászólás Aktív témák
- Hosszú premier előzetest kapott az Arknights: Endfield
- Google Pixel topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Vezetékes FEJhallgatók
- Okos Otthon / Smart Home
- Bitcoin topic
- Fujifilm X
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Feltörték a regisztrációmat vagy elvesztettem a belépési emailcímet, 2FA-t
- További aktív témák...
- Asztali PC , i3 13100F , RTX 2060 Super , 16GB RAM , 512GB NVME
- Sapphire Radeon RX Vega 56 8 GB PCI-E Videokártya
- Asztali PC , R5 5500 , RX 6600 , 16GB DDR4 , 512GB NVME , 500GB HDD
- Gigabyte B560M DS3H V2 alaplap, i5-10400 CPU, 256 GB M.2 SSD, Windows 11
- Újszerű MSI RAIDER GE66 12UH 15.6QHD IPS 240Hz i7-12700H 32GB DDR5 RAM 1TB NVME SSD RTX 3080 175w
- Telefon felvásárlás!! Xiaomi Redmi Note 10, Xiaomi Redmi Note 10s, Xiaomi Redmi Note 10 Pro
- BESZÁMÍTÁS! Gigabyte B760M i5 14600K 16GB DDR4 512GB SSD RX 9060 XT 16GB Asus A31 PLUS TG ARGB 650W
- KIÁRUSÍTÁS - HP Elite / ZBook Thunderbolt 3 Dock (akár 2x4K felbontás)
- G.Skill Aegis 16GB DDR4 3200MHz VADIÚJ, GARANCIÁS, UTOLSÓ DARAB!
- Akciós kisWorkstation! Dell Precision 3560 i7-1165G7 4.7GHz / 32GB / 512GB / Quadro T500 2GB FHD 15"
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest