-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
m.zmrzlina
senior tag
válasz Fire/SOUL/CD #9492 üzenetére
Ezt nem igazán értem. Próbáltam Inputboxra alkalmazni de nem ment.
Ide kellene valahogy beilleszteni:
Private Sub CommandButton1_Click()
Dim tech As String
start:
tech = InputBox("Add meg a technikus nevét!" + Chr(13) + Chr(13) + "A lista törléséhez nyomj < SPACE >-t!")
If InStr(tech, " ") = 1 Then tech = " " Else tech = tech
If tech = vbCancel Then Exit Sub
Select Case tech
' Case Is = vbCancel
' Exit Sub
Case Is = " "
GoTo clearcontent
Case Is = ""
MsgBox "Nem adtad meg a technikus nevét!", vbCritical, "Hiányzó adat!"
GoTo start
Case Is <> ""
GoTo paste_list
End Select
Új hozzászólás Aktív témák
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen