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

• #29403 bsh addikt Delila_1 #29402

  Új Válasz 2015-11-05 16:41:50 #29403

  Ú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

  

  bsh

  addikt

  válasz Delila_1 #29402 üzenetére

  ez nem jó, mert ha pl. képletek vannak a cellákban (de értékek nélkül), akkor azt így is beleveszi az usedrange-be.

  így van a form generálva:
  Load FrmTáblázat
  FrmTáblázat.Frame1.Caption = "blahblahblah"
  FrmTáblázat.Frame1.Left = 3
  FrmTáblázat.Frame1.Top = 2
  FrmTáblázat.Frame1.Width = 1100
  FrmTáblázat.Frame1.Height = 20 + 20 * RowHeight
  FrmTáblázat.Frame1.ScrollHeight = 7
  FrmTáblázat.Height = FrmTáblázat.Frame1.Height + 70
  FrmTáblázat.Width = FrmTáblázat.Frame1.Width + 10
  For Y = 1 To RefDocs.Count
  Call CreateRow(Y)
  'itt az adatok kitöltése
  Next Y
  
  If Y < 20 Then
  FrmTáblázat.Frame1.ScrollBars = fmScrollBarsNone
  Else
  FrmTáblázat.Frame1.ScrollBars = fmScrollBarsVertical
  End If
  FrmTáblázat.Show
  End Sub

  és minden sor minden egyes textboxa pedig így: (combobox tökugyanez, csak ott még a választható értékek feltöltése is benne van, +3 sor)
  Private Sub CreateTextBox(ByVal Y As Integer, ByVal Name As String, ByVal L As Long, ByVal W As Long)
  Set newTB = FrmTáblázat.Frame1.Controls.Add("Forms.TextBox.1", CStr(Y) & Name, False)
  newTB.Width = W
  newTB.Height = RowHeight
  newTB.Top = (Y - 1) * RowHeight + 6
  newTB.Left = L
  newTB.SelectionMargin = False
  newTB.AutoSize = False
  newTB.Font.Name = FntName
  newTB.Font.Size = FntSize
  newTB.SpecialEffect = fmButtonEffectFlat
  newTB.BorderStyle = fmBorderStyleSingle
  newTB.Visible = True
  Set newTB = Nothing
  End Sub

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