Kısa Açıklama
Kütüphane İçerisinde Olmayan Kodları Ekleme isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.- Excel Versiyonu
- Excel 2010
- Excel Sürümü
- 32 Bit
- Excel Dili
- Türkçe
Private Sub lstPersonel_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim lts As ListItem
Set lst = lstPersonel.SelectedItem
With Frame1
.Visible = True
.Top = lst.Top + lstPersonel.Top
.Left = lstPersonel.ColumnHeaders(6).Left + lstPersonel.Left
.Width = lstPersonel.ColumnHeaders(6).Width
.Height = lst.Reight
.ZOrder msoBringToFront
.Visible = True
With ComboBoxAcımlama
.Visible = True
.SetFocus
.SelStart = 0
.Left = 0
.Top = 0
Width = lstPersonel.ColumnHeaders(6).Width
.Height = lstPersonel.SelectedItem.Height + 5
.SelLength = Len(.Text)
End With
End With
End Sub
Bu kodlar kütüphanemde mevcut değil nasıl eklerim.
Dim lts As ListItem
Set lst = lstPersonel.SelectedItem
With Frame1
.Visible = True
.Top = lst.Top + lstPersonel.Top
.Left = lstPersonel.ColumnHeaders(6).Left + lstPersonel.Left
.Width = lstPersonel.ColumnHeaders(6).Width
.Height = lst.Reight
.ZOrder msoBringToFront
.Visible = True
With ComboBoxAcımlama
.Visible = True
.SetFocus
.SelStart = 0
.Left = 0
.Top = 0
Width = lstPersonel.ColumnHeaders(6).Width
.Height = lstPersonel.SelectedItem.Height + 5
.SelLength = Len(.Text)
End With
End With
End Sub
Bu kodlar kütüphanemde mevcut değil nasıl eklerim.