-
GAMEPOD.hu
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
-
b3n1t0
csendes tag
válasz csferke #24043 üzenetére
Szia, próbáld meg először a C:\ProgramData\Microsoft Help mappát átnevezni majd újratelepíteni az Office-t, ha nem oldja meg a problémát akkor állítsd vissza az Internet Explorer-t alaphelyzetbe (Eszközök / Internetbeállítások / Speciális / Alaphelyzet)
Poco X5 Pro 5G *** "Néha nulla vagyok / Néha meg egy / Nem osztok, nem szorzok / Nekem egyre megy" - (ETA - Nulladal)
-
b3n1t0
csendes tag
Sziasztok,
az alábbi kihívást tárnám elétek, melyben szükségem lenne a segítségetekre.
Adott az alábbi szerkezetű táblázat (1), melyből a (2) táblázat szerinti végeredményt kellene generálnom az alábbi feltételek szerint:
- egy sornyi adatból annyi sort kellene létrehozni amennyi érték van az AJ:AQ tartományban - (2) tábla
- a (2) táblán jól látszik egy sor „felosztása”, a 4 érték alapján (AJ:AQ tartomány értékeivel módosítjuk K oszlop dátumát (kivonunk illetve hozzáadunk dátumhoz), AR:AZ tartomány értékeivel – ami százalék tulajdonságú – pedig szorozzuk a P:AH tartomány értékeit, kerekítve a legközelebbi egészre
- AJ:AQ tartomány értékei párban vannak a AR:AZ tartomány értékeivel (tehát AJ-ben lévő értékhez AR-ben lévő érték tartozik, AK-ban lévő értékhez AS értéke stb…)
- ezt kellene az összes sorra elkészíteniMindenkinek köszönöm aki foglalkozik vele!
Poco X5 Pro 5G *** "Néha nulla vagyok / Néha meg egy / Nem osztok, nem szorzok / Nekem egyre megy" - (ETA - Nulladal)
-
b3n1t0
csendes tag
-
b3n1t0
csendes tag
válasz alfa20 #32820 üzenetére
Szia,
ezt a TextBox vezérlőt használva, nálam a kód működik, az első megoldás UserForm-on elhelyezett TextBox-okra vonatkozott
Private Sub CommandButton1_Click()
For i = 1 To 13
Munka1.OLEObjects("Textbox" & i).Object.Value = ""
Next
End Sub[ Szerkesztve ]
Poco X5 Pro 5G *** "Néha nulla vagyok / Néha meg egy / Nem osztok, nem szorzok / Nekem egyre megy" - (ETA - Nulladal)
-
b3n1t0
csendes tag
válasz róland #33106 üzenetére
Szia,
az alábbi makrót bemásolod egy modulba (témaösszefoglaló), a munkalapon kijelölöd azt a tartományt, amit exportálni szeretnél, majd ALT + F8, kiválasztod a Save2Text makrót és indítás. A makróban kommenttel jelölt mentési helyre elkészíti a file-t, lentebb szintén kommentelt résznél tudsz még elválasztó jelet módosítani (vessző, pontosvessző stb...)
Public Sub Save2Text()
Dim lineText As String
Dim myrng As Range, i, j, k
Filename = "C:\export.csv" 'hova/milyen néven mentse
Open Filename For Output As #1
Set myrng = Selection
For i = 1 To myrng.Rows.Count
For j = 1 To myrng.Columns.Count
lineText = IIf(j = 1, "", lineText & ";") & myrng.Cells(i, j) '";" mivel legyenek elválasztva az adatok
Next j
Print #1, lineText
Next i
Close #1
End SubPoco X5 Pro 5G *** "Néha nulla vagyok / Néha meg egy / Nem osztok, nem szorzok / Nekem egyre megy" - (ETA - Nulladal)
-
b3n1t0
csendes tag
Szia, ezt találtam alternatív megoldásként, ez a kód mehet a Thisworkbook-ba:
Private Sub Workbook_Open()
Application.OnTime Now(), "OpenWkbkEvent"
End Subez pedig Module-ba:
Public Sub OpenWkbkEvent()
With ThisWorkbook
.RefreshAll
.Save
End With
Dim mysec As Integer, msg As String
mysec = 5 'Seconds
msg = "This Workbook would close in " & mysec & _
" seconds." & vbLf & "Press ok to terminate the timer."
With CreateObject("WScript.Shell")
Select Case .Popup(msg, mysec, "Info", 0)
Case 1
Exit Sub
End Select
End With
'ThisWorkbook.Close True
End SubPoco X5 Pro 5G *** "Néha nulla vagyok / Néha meg egy / Nem osztok, nem szorzok / Nekem egyre megy" - (ETA - Nulladal)
Új hozzászólás Aktív témák
- Eladó Steam kulcsok kedvező áron!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen