Listbox

[heft]

Merhabalar,
Genelde bazı sistemlerde exceldeki listbox a benzer bir takım listeler ile çalışılıyor.
Ve bu listelere direkt veri girişi yapılabiliyor.

Bildiğim kadarıyla excelde listbox a direkt veri girme imkanı yok.

Bununla ilgili başka yöntem yada örnek var mı inceleyebileceğimiz/öğrenebileceğimiz.

 

[Orion1]

SpreadSheete veri girebilirsiniz.
Spreadsheet diye arama yapınız.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Spreadsheet1_SheetActivate(ByVal Sh As OWC11.Worksheet)
Spreadsheet1.ActiveSheet.Range("A1:H30").Value = _
Sheets(Spreadsheet1.ActiveSheet.Index).Range("A1:H30").Value
End Sub

Private Sub Spreadsheet1_SheetChange(ByVal Sh As OWC11.Worksheet, ByVal Target As OWC11.Range)
Sheets(Spreadsheet1.ActiveSheet.Index).Range(Spreadsheet1.ActiveCell.Address).Value = _
Spreadsheet1.ActiveCell.Value
End Sub

Private Sub UserForm_Initialize()
Spreadsheet1.ActiveSheet.Range("A1:H30").Value = _
Sheets(Spreadsheet1.ActiveSheet.Index).Range("A1:H30").Value
End Sub

 

[heft]

teşekkürler sayın gizlen,
1-toolbox ta Spreadsheet butonu bulamadım nasıl eklerim userformlarıma.
2-ayrıca üst butonları,kolon adları (A,B,C...) ve SAtır numaralarını (1,2,3,...) nasıl gizlerim?

 

[Orion1]

teşekkürler sayın gizlen,
1-toolbox ta Spreadsheet butonu bulamadım nasıl eklerim userformlarıma.
2-ayrıca üst butonları,kolon adları (A,B,C...) ve SAtır numaralarını (1,2,3,...) nasıl gizlerim?

1-Toolboxa sağ tıklayın additinial controls seçin.
Çıkan pencerden Microsoft Office SpreadSheet xx seçin.
2- spread sheet üzerine sağ click yapın.
Komutlar ve seçenekler seçin.
Sayfa sekmesini seçin
Satır başlıkları ve sütun başlıkları tikini kaldırın.
Komut barını kaldırmak için Çalışma kitabı sekmesini seçin oradanda
Araç çubuğu sekmesini kaldırn.
Bu komutlar ve seçenkeleri inceleyerk daha başka özellikleri de deneyebilirsiniz.
Dosyayı ekledim.

 

[heft]

Tekrar merhaba,
ekli uyarıyı neden alıyorum,yapmam gereken bir ayar mı var?

birde öğrenmek için deneme yaptım

neden
Spreadsheet1 dekileri A1-A30 aralığına
Spreadsheet2 dekileri B1-B30 aralığına endeksleyip yapamadım?
yapılamaz mı?

 

[Orion1]

Bu mesaj çıkıyor.
Tamam deyip devam etmeniz lazım
spread sheetli dosyanızı açamadım.
Sanırım spread sheetlerimiz uyuşmuyor.
Dolayısı ile soruna bakamadım.

 

[heft]

Anladım peki tşekkürler.
Peki mesela,
Spreadsheet1 üzerindeki
C kolonunu ve 4.satırı gizlemek istersek bunu yapabilir miyiz?

 

[Orion1]

Anladım peki tşekkürler.
Peki mesela,
Spreadsheet1 üzerindeki
C kolonunu ve 4.satırı gizlemek istersek bunu yapabilir miyiz?

Private Sub UserForm_Initialize()
Spreadsheet1.ActiveSheet.Range("A1:H30").Value = _
Sheets(Spreadsheet1.ActiveSheet.Index).Range("A1:H30").Value
[B][COLOR="Red"]Spreadsheet1.Rows(4).Hidden = True
Spreadsheet1.Columns(3).Hidden = True[/COLOR][/B]
End Sub

 

[heft]

Kusura bakmayın sayın Gizlen,
Kurcaladıkça sorular çıkıyor ve zamanınızı ayırdığınız için teşekkürler.
Yeni öğrendiğim birşey olduğu için kurcalıyorum çapımca

1-4,5,6. kolonları gizlemek için
2-4-6 arası kolonları gizlemek için nasıl bir kod belitmeliyim?

Desteğinize sonsuz teşekkürler,yeni birşey öğrenmek gerçekten güzel...

 

[heft]

buldum
Spreadsheet1.Columns("a:b").Hidden = True
Spreadsheet1.Rows("14:19").Hidden = True

 

[Orion1]

Kusura bakmayın sayın Gizlen,
Kurcaladıkça sorular çıkıyor ve zamanınızı ayırdığınız için teşekkürler.
Yeni öğrendiğim birşey olduğu için kurcalıyorum çapımca

1-4,5,6. kolonları gizlemek için
2-4-6 arası kolonları gizlemek için nasıl bir kod belitmeliyim?

Desteğinize sonsuz teşekkürler,yeni birşey öğrenmek gerçekten güzel...

Spreadsheet nesnesi excel çalışma sayfasına benzer.
Çalışma sayfasında kullandığınız kodları buradada kullanabilirsiniz.
Bunun için denemeler yaparak sonuca ulaşabilirsiniz.
Eğer öyle yaparsanız öğrendikleriniz aklınızda dahada kalıcı olur.

birinci isteğiniz:

Spreadsheet1.Columns(1).Hidden = True
Spreadsheet1.Range("D:F").EntireColumn.Hidden = True

İkinci isteğiniz:

For i = 2 To 6 Step 2
     Spreadsheet1.Columns(i).Hidden = True
Next