VBA detect ListBox MultiSelect



Private Sub commandMultiSelect_Click()
Dim x As Integer
For x = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(x) = True Then
TextBox1.Value = TextBox1.Value & "ListBox1.Selected(" & x & ")" & vbCrLf
End If
Next
End Sub

Private Sub UserForm_Initialize()
Dim Y As Integer
For Y = 1 To 100
ListBox1.AddItem Y
Next Y
End Sub

GPU Computing


Logo for Windows : Shape 008

Logo for Windows : Shape 007


From watching MSWLogo Tutorial Kit


edit "

to polygon1 :side
repeat :side [fd 100 rt 360/:side]
end

polygon1 7



Logo for Windows : Shape 006

to gon1
fd 100 rt 35 fd 100 rt 145 fd 100 rt 35 fd 100


gon1 home rt 60 gon1 home rt 120 gon1 home rt 180 gon1 home rt 240 gon1 home rt 300 gon1

Stripped screw head removal

Facebook: Kena bayar ker?





Bayar dengan sebahagian masa dalam kehidupan...

UniFi speed test 2


DiGi Internet Broadband speed test


MS Excel VBA Range Resize

1. Open new Excel file
2. Save as .xls or .xlsm
3. View|Macros|View Macros
4. Type in a new macro name|Click Create
5. Key in macro:


Dim arrayTestData(0 To 99, 0 To 99) As Long
Dim n As Integer, m As Integer

For n = 0 To 99
For m = 0 To 99
arrayTestData(n, m) = n * 100 + m
Next
Next

Range("A1", "A1").Resize(100, 100).Value = arrayTestData

6. Click Run button


Reference
http://msdn.microsoft.com/en-us/library/aa139976%28v=office.10%29.aspx
كو تق ڤرنه ڤوڽا هاتي
اونتوق منيڠڬلكن اڠكاو
هاڽ كاو سيسا هيدوڤكو
تنڤامو لبيه باءيق ماتي
كو مناهن راس لوك
بيلا كاو ممبنچي اكو
بيسيكن هاتيكو يڠ هنچور
منچينتايمو هاتي همڤا كيني تريسي
ددكتمو هاتيكو تنڠ
هاڽ كاو ڤليڤور لاركو
منچيوم اڠكاو بيسا جوڬ تنڠكن جيوا
سلوروه يڠ اد د اڠكاو
باڬيكو اين كارونيا
ساعت جيواقو ترڬونچڠ
ڤلوكنمو مڽمبوهكن
كاو تق بيسا دڬنتيكن
باڬيكو كاو ككاسيه يڠ تراخير
منچيوم اڠكاو بيسا جوڬ تنڠكن جيوا
تق اكن بيسا دڬنتيكن
باڬيكو اڠكاو يڠ تراخير