Subpage under development, new version coming soon!
Subject: Kool
Mul on ehitusgraafika ja kujutava geomeetria nii I kui ka II materjal olemas. Mõtled neid?
Mitte ühegi teie kolme postitused ei olnud seotud kooliga.
Keegi Excelis VBA-d oskab algtasemel?
Oleks vaja abi kahe tulba liitmisel üheks arvtulbaks.
Oleks vaja abi kahe tulba liitmisel üheks arvtulbaks.
Sub liida()
Dim n As Single
Do
For n = 1 To 15
Cells(13 + n, 8) = Cells(13 + n, 5) + " " + Cells(13 + n, 6)
Next n
Loop Until n = 15
End Sub
no mis sel koodil valesti on et veateate annab?
veateade ise ei anna miskit kasulikku juurde.
Dim n As Single
Do
For n = 1 To 15
Cells(13 + n, 8) = Cells(13 + n, 5) + " " + Cells(13 + n, 6)
Next n
Loop Until n = 15
End Sub
no mis sel koodil valesti on et veateate annab?
veateade ise ei anna miskit kasulikku juurde.
Uhh exceli programmeerimine :D
Pmst seda loop untili pole vaja kirjutada, vähemalt googleldades ma sain nii aru, et do kuni next on see vahemik ja kui n on 15 siis lihtsalt on kõik, pole mingit loop untili vaja.
Kuid see ei tohiks põhjuseks olla, miks ei toimi asi.
Võid proovida, nende 8 ja 5 asemel kirjuta ntx "A" jne, sest seal veergudes on tähed mitte nr.
Pmst seda loop untili pole vaja kirjutada, vähemalt googleldades ma sain nii aru, et do kuni next on see vahemik ja kui n on 15 siis lihtsalt on kõik, pole mingit loop untili vaja.
Kuid see ei tohiks põhjuseks olla, miks ei toimi asi.
Võid proovida, nende 8 ja 5 asemel kirjuta ntx "A" jne, sest seal veergudes on tähed mitte nr.
hommikud on ikka õhtust targemad, tuli hoopis nii teha:
Cells(13 + n, 8) = Cells(13 + n, 5) & " " & Cells(13 + n, 6)
ja loop until asemel loop while.
Cells(13 + n, 8) = Cells(13 + n, 5) & " " & Cells(13 + n, 6)
ja loop until asemel loop while.
Keegi sellisest programmist nagu Multisim jagab midagi? 2 nädalat olin haige ja järgmiseks kolmapäevaks vaja mingid ülesanded teha. Mitte midagi ei saa aru sellest, pole sarnaste asjadega varem tegelenud...