-
Fototrend
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
-
-
#50797
lappy
őstag
botond2225
#50796
lappy
őstag
válasz
botond2225
#50796
üzenetére
index hol.van függvényekkel lehetne egy próbát tenni
-
-
#50487
lappy
őstag
pero19910606
#50485
lappy
őstag
válasz
pero19910606
#50485
üzenetére
Az autó márka nevek nagybetűvel vannak irva ahogy a példa mutatja? Ha nem akkor nem sok esély van rá szerintem
-
#50381
lappy
őstag
istvankeresz
#50377
lappy
őstag
válasz
istvankeresz
#50377
üzenetére
Vagy a két makró egyben
Sub mesage()
Dim xRg, xCell As Range
Dim xTxt, xStr As String
Dim xRow, xCol As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Rejtett elemek", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For xRow = 1 To xRg.Rows.Count
For xCol = 1 To xRg.Columns.Count
xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
Next
xStr = xStr & vbCrLf
Next
MsgBox xStr, vbInformation, "Rejtett elemek"
End Sub -
#50379
lappy
őstag
istvankeresz
#50377
lappy
őstag
válasz
istvankeresz
#50377
üzenetére
Sub mesage()
Dim msg As String
msg = ""
For i = 1 To 3
For Each a In Array("A", "B", "C")
msg = msg & Cells(i, a).Value & vbTab
Next a
msg = msg & vbCrLf
Next i
MsgBox msg
End Sub -
#50375
lappy
őstag
istvankeresz
#50374
lappy
őstag
válasz
istvankeresz
#50374
üzenetére
Sub Get_Cell_Value1()
Dim CellValue As String
CellValue = Range("A1").Value
MsgBox CellValue
End Sub -
lappy
őstag
Sub Open_workbook_example2()
Dim Myfile_Name As Variant
Dim Myfile_Name_ex As Variant
Myfile_Name = Application.GetOpenFilename(FileFilter:="Excel Files(*.xl*),*.xl*)")
If Myfile_Name <> False Then
Workbooks.Open FileName:=Myfile_Name
End If
Myfile_Name = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveWorkbook.Name)
Myfile_Name_ex = CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveWorkbook.Name)
ThisWorkbook.Sheets("Munka1").Range("A1") = Myfile_Name & "." & Myfile_Name_ex
End Sub
A Munka1 és A1 helyére mehet a saját munkafüzet neve és cella azonosítója -
#50175
lappy
őstag
Fire/SOUL/CD
#50174
lappy
őstag
válasz
Fire/SOUL/CD
#50174
üzenetére
-
lappy
őstag
Sub Get_Data_From_File()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*),*xls*")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(1).Range("A1:Z200").Copy
ThisWorkbook.Worksheets("SelectFile").Range("A1").PasteSpecial xlPasteValues
OpenBook.Close False
End If
Application.ScreenUpdating = True
End Sub
A Sheet(1) -nél az 1 helyére adhatod meg hogy hányadik munkafüzet legyen
Még azt nem sikerült megcsinálnom hogy a munkafüzetek közül is lehessen választani
ezzel bemásolod az adatokat és innen veszed át az indirekt függvényekkel ami kell
Új hozzászólás Aktív témák
Fferi50- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Xiaomi 15T Pro - a téma nincs lezárva
- Milyen alaplapot vegyek?
- Házimozi belépő szinten
- Crimson Desert
- VoIP telefonálás
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Sorozatok
- Soha nem szabta ilyen pénztárcabarátra új CPU-it az Intel
- További aktív témák...
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- Apple iPhone 12 Mini 64GB, Kártyafüggetlen, 1 Év Garanciával
- LG 45GX950A-B - 45" Ívelt OLED evo / 5K WUHD / 165Hz-330Hz / NVIDIA G-Sync / FreeSync / DP 2.1
- Bomba ár! Dell Latitude 5410 - i5-10GEN I 16GB I 256SSD I HDMI I 14" FHD I Cam I W11 I Garancia!
- Vállalom Xiaomi Okoskamerák szoftveres javíttását
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest