Mohon bantuan dari teman2...
Saya bingung mengecek data pada list box yang sudah
diimport dari excell (data berupa angka),
yang saya inginkan adalah bagaimana caranya bisa dicek
bahwa angka yang boleh diimport tidak
lebih dari 250. Saya ingin jika data yg diimport lebih
dari 250 maka keluar message "data melebihi
batas". Bagaimana ya caranya???saya sudah mencoba2 dgn
membuat tombol cmd yang isinya
jika listX.List(listX.ListIndex) > 250 maka akan
keluar message box tapi error terus.....saya bingung
sintaksnya (maklum pemula)....Mohon
pencerahannnya......Dibawah adalah programmnya.......
======================================================
Private Sub cmdImport_Click()
Dim objXLApp As Excel.Application
Dim intLoopCounter As Integer
Dim count As Integer
Set objXLApp = New Excel.Application
With objXLApp
.Workbooks.Open "C:\Book1.xls"
.Workbooks(1).Worksheets(1).Select
count = 1
While StrComp(.Cells(count, 1), "") <> 0
listX.AddItem .Range("G" & count)
listY.AddItem .Range("H" & count)
count = count + 1
Wend
End With
Set objXLApp = Nothing
cmdImport.Enabled = False
End Sub
===================
Private Sub listX_Click()
txtKord.Text = listX.List(listX.ListIndex)
End Sub
===================
Private Sub listY_Click()
txtKord.Text = listY.List(listY.ListIndex)
End Sub
===================
Private Sub txtKord_Change()
End Sub
================================
____________________________________________________________________________________Ready
for the edge of your seat?
Check out tonight's top picks on Yahoo! TV.
http://tv.yahoo.com/
