Programming in Visual Basic.Net: Get data from Excel file in VB.NET

 

Full Code

Imports ClosedXML.Excel
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Using workb As New XLWorkbook("H:\Names2.xlsx")
                Dim worksh = workb.Worksheet("Sheet4")
                Dim lastrow As Integer = worksh.LastRowUsed.RowNumber()
                Dim idfound As Boolean = False
                For i As Integer = 2 To lastrow
                    If worksh.Cell(i, 1).GetValue(Of Integer) = CInt(TextBox1.Text) Then
                        TextBox2.Text = worksh.Cell(i, 2).GetString()
                        TextBox3.Text = worksh.Cell(i, 3).GetString()
                        TextBox4.Text = worksh.Cell(i, 4).GetString()
                        idfound = True
                        Exit For
                    End If
                Next
                If Not idfound Then
                    TextBox2.Text = ""
                    TextBox3.Text = ""
                    TextBox4.Text = ""
                End If
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class

Excel Conditional Formatting: Change Font Color with Multiple Conditions

🔍 Searching and selecting records efficiently inside an Excel VBA UserForm can significantly improve user experience.

🎯 In this tutorial, I demonstrate how to implement a dynamic search feature using a TextBox and display filtered results in a ListBox. Selecting a row automatically populates the UserForm fields with the corresponding data, making data editing and navigation faster and more reliable.

📺 Full tutorial on YouTube:

https://youtu.be/c2paUiRcIPE

#Microsoft #ExcelVBA #VBA #UserForm #Automation #TechCommunity

 

VBA code for search ComboBox in userform Microsoft #Excel With Source Code

 Private Sub ComboBox1_Change()

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1")

Dim i As Integer

For i = 1 To ws.UsedRange.Rows.Count

If Me.ComboBox1.Column(0) = ws.Cells(i, 2).Value Then

Me.id_txt.Text = ws.Cells(i, 1).Value

Me.math_txt.Text = ws.Cells(i, 3).Value

Me.geo_txt.Text = ws.Cells(i, 4).Value

Me.chem_txt.Text = ws.Cells(i, 5).Value

Me.his_txt.Text = ws.Cells(i, 6).Value

Me.com_txt.Text = ws.Cells(i, 7).Value

End If

Next i

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()

Dim lastrow, i As Integer

lastrow = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row

For i = 2 To lastrow

Dim vs As String

vs = Sheet1.Cells(i, "B")

Me.ComboBox1.AddItem vs

Next i

End Sub

دليلك لتعلم اكسيل Excel 2020 من الصفر حتى الاحتراف في فيديو واحد!

فيديو يشرح برنامج الاكسل خطوة خطوة بطريقة بسيطة وسهلة للغاية. #Office #Excel - تم شرح في هذا الفيديو العديد من الأمثلة كما تضمن هذا الفيديو التالي : ☑ واجهة البرنامج والمفاهيم الأساسية. ☑ العديد من أدوات الأكسل المختلفة. ☑ التعبئة التلقائية Autofill (أرقام _ حروف - تواريخ) مع كيفية إنشاء قائمة تلقائية في حالة عدم وجودها. ☑ شرح إنشاء جداول مفصلة. ☑ اهم المعادلات الاساسية ( Sum, Average, Count, CountA,Countblank,Max, Min, IF ) وغيرهم ☑ الجمع، الضرب، القسمة، الطرح، المتوسط، دالة IF، الاكثر، الاقل وغيرهم. ☑ طريقة عمل الرسومات البيانية. ☑ أفضل الطرق لتنسيق الجداول والملفات. ☑ اكتشف بنفسك الباقي....

احترف Excel في اقل من 10 دقائق للمبتدئين والمحترفين وشرح تغيير القيم بين ملفات الاكسيل المختلفة

تعلم Excel وتغيير القيم بين ملفات  الاكسل والربط التشعبي بينهم: الفيديو يحتوي على مثال عملي لسجل الاجازات ومن خلاله هيتم شرح حاجات كتير في الاكسيل بسيطة ومتقدمة منها : العلاقات بين الملفات وكيفية الربط بينهم وتغيير القيم بين الملفات وكذلك الربط التشعبي بين الملفات والجمع والطرح ودالة التاريخ والتنسيق وتغيير اتجاه كتابة ملف الاكسيل ودمج الخلايا.