Új hozzászólás Aktív témák

• #14283 zz76zz csendes tag D@ni88 #14262

  Új Válasz 2012-07-09 08:23:38 #14283

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zz76zz

  csendes tag

  válasz D@ni88 #14262 üzenetére

  bocs, elszámoltam

• #14278 Delila_1 veterán D@ni88 #14274

  Új Válasz 2012-07-08 10:44:17 #14278

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz D@ni88 #14274 üzenetére

  VBE, Tools menü | VBAProject-Project Properties | Protection fül, ahol jelszóval védheted a makróidat.

• #14276 bugizozi őstag D@ni88 #14274

  Új Válasz 2012-07-07 18:39:26 #14276

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bugizozi

  őstag

  válasz D@ni88 #14274 üzenetére

  Tools/VBA Project Properties -> Protection

• #14261 zz76zz csendes tag D@ni88 #14260

  Új Válasz 2012-07-06 16:05:28 #14261

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zz76zz

  csendes tag

  válasz D@ni88 #14260 üzenetére

  "Azért azt a 2 GB xls-t is górcső alá venném. . .
  Nincs annyi adat szerintem, amit egy átlátható xls tartalmazna.
  Példa: el volt "harapózva" egy xls em mérete. Tesztelgettem egy adott feladatot.
  Majd minden adat nélkül csak 30 sor makrót tartalmazó xls lett 4MB.
  Na mondom ez nem járja.
  Nyitottam egy üres file-t és bemásoltam csak a makrót a szerkesztőbe. Így lett ugyan azt a funkciót ellátó file 46kB. . ."
  A lényeg, hogy az Excel dagasztja a file-okat. A csökkenést még nem tapasztalt érdekesség.

• #14258 lappy őstag D@ni88 #14257

  Új Válasz 2012-07-05 15:02:05 #14258

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz D@ni88 #14257 üzenetére

  Szia!
  itt van egy txt beolvasó

  Public Sub ImportTextFile(FName As String, Sep As String)
  
  Dim RowNdx As Long
  Dim ColNdx As Integer
  Dim TempVal As Variant
  Dim WholeLine As String
  Dim Pos As Integer
  Dim NextPos As Integer
  Dim SaveColNdx As Integer
  
  Application.ScreenUpdating = False
  'On Error GoTo EndMacro:
  
  SaveColNdx = ActiveCell.Column
  RowNdx = ActiveCell.Row
  
  Open FName For Input Access Read As #1
  
  While Not EOF(1)
  Line Input #1, WholeLine
  If Right(WholeLine, 1) <> Sep Then
  WholeLine = WholeLine & Sep
  End If
  ColNdx = SaveColNdx
  Pos = 1
  NextPos = InStr(Pos, WholeLine, Sep)
  While NextPos >= 1
  TempVal = Mid(WholeLine, Pos, NextPos - Pos)
  Cells(RowNdx, ColNdx).Value = TempVal
  Pos = NextPos + 1
  ColNdx = ColNdx + 1
  NextPos = InStr(Pos, WholeLine, Sep)
  Wend
  RowNdx = RowNdx + 1
  Wend
  
  EndMacro:
  On Error GoTo 0
  Application.ScreenUpdating = True
  Close #1
  
  End Sub
  
  Sub DoTheImport()
  Dim FileName As Variant
  Dim Sep As String
  FileName = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt")
  If FileName = False Then
  ''''''''''''''''''''''''''
  ' user cancelled, get out
  ''''''''''''''''''''''''''
  Exit Sub
  End If
  Sep = Application.InputBox("Írjon be egy elválasztó karaktert.", Type:=2)
  If Sep = vbNullString Then
  ''''''''''''''''''''''''''
  ' user cancelled, get out
  ''''''''''''''''''''''''''
  Exit Sub
  End If
  Debug.Print "FileName: " & FileName, "Separator: " & Sep
  ImportTextFile FName:=CStr(FileName), Sep:=CStr(Sep)
  End Sub

• #14247 zz76zz csendes tag D@ni88 #14245

  Új Válasz 2012-07-05 08:37:34 #14247

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zz76zz

  csendes tag

  válasz D@ni88 #14245 üzenetére

  Columns("A:A").Select
  Selection.NumberFormat = "@"

  á oszlopból szöveget.

  Columns("B:B").Select
  Selection.NumberFormat = "0.00"

  bé oszlopból számot.

  a txt betöltést kifejthetnéd . . .

• #6568 Tosee őstag D@ni88 #6567

  Új Válasz 2010-03-13 09:32:33 #6568

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tosee

  őstag

  válasz D@ni88 #6567 üzenetére

  Melyik Office-t használod?

  2007-ben így néz ki a dolog:
  Nézet -> panelek rögzítése -> felső sor rögzítése

  2003-ban:
  Jelöld ki a sorokat amiket rögzíteni szeretnél, majd Ablak menü, ablaktábla rögzítése

Új hozzászólás Aktív témák