Hirdetés
- Amazfit Helio Strap – képernyőmentesen
- Külföldi prepaid SIM-ek itthon
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Milyen okostelefont vegyek?
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Xiaomi 14T Pro - teljes a család?
- Fotók, videók mobillal
- iPhone topik
Ú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
- Tőzsde és gazdaság
- Amazfit Helio Strap – képernyőmentesen
- Microsoft Excel topic
- Call of Duty: Black Ops 7
- Konkrét moderációval kapcsolatos kérdések
- Fejhallgatós találkozó
- Külföldi prepaid SIM-ek itthon
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- A fociról könnyedén, egy baráti társaságban
- Milyen billentyűzetet vegyek?
- További aktív témák...
- BESZÁMÍTÁS! ASUS H510M i3 10105F 16GB DDR4 512GB SSD GTX 1050Ti 4GB Thermaltake V3 fekete NBase 650W
- Lenovo Thunderbolt 3 kábel (4X90U90617)
- GYÖNYÖRŰ iPhone 12 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3654, 100% Akksi
- Bomba ár! Dell Latitude E7440 - i5-4GEN I 8GB I 256SSD I 14" FHD I HDMI I Cam I W10 I Gari!
- Apple iPhone 15 Pro Max 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest