Merhaba arkadaşlar sadece bir kaç satır kod ile resimde gördüğümüz gibi nasıl karışık hesaplama yaparız görelim.
Öncelikle ihtiyacımız olan nesneler;
1 adet CommandButton
1 adet Textbox
1 adet Label
bunları uygunca yerleştirin, forma iki kez tıklayın kodları silin ve bunları yapıştırın;
Kod:
Option Explicit
Private Sub Command1_Click()
On Error Resume Next
Dim excel_app As Object
Dim excel_sheet As Object
Set excel_app = CreateObject("Excel.Application")
excel_app.Workbooks.Add
If Val(excel_app.Application.Version) >= 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If
excel_sheet.Cells(1, 1) = _
"=" & Text1.Text
Label1.Caption = excel_sheet.Cells(1, 1)
excel_app.ActiveWorkbook.Close False
excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing
End Sub
Evet. bu kadar basit. Kodlardan da anlıyacağınız üzere hesaplama işlemi excel üzerinden yapılmaktadır fakat hesaplanırken ekranda başka pencere vs. açılmaz. Hesaplama işlemi bir kaç sn sürer Kolay gelsin...
Kesinlikle alıntı değildir, tamamını ben yazdım.
İşine yaradıysa Teşekkür edebilirsin.