EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
Private Sub CommandButton3_Click()
Dim irow As Long, i As String
i = Worksheets("DataStudent").Range("Z1").Value
If Application.CountIf(Worksheets("DataStudent").Range("J:J"), TextBox1.Value) > 0 Then
irow = Application.Match((TextBox1.Value), Worksheets("DataStudent").Range("J:J"), 0)
Else
End If
Worksheets("DataStudent").Range("A" & i).Value = Frame1.ComboBox1.Value 'ระดับ
Worksheets("DataStudent").Range("B" & i).Value = Frame1.ComboBox2.Value 'ชั้น
Worksheets("DataStudent").Range("C" & i).Value = Frame1.ComboBox3.Value 'ห้อง
Worksheets("DataStudent").Range("D" & i).Value = Frame1.TextBox1.Value 'ปีการศึกษา
Worksheets("DataStudent").Range("E" & i).Value = Frame1.ComboBox4.Value 'ภาคเรียน
Worksheets("DataStudent").Range("I" & i).Value = Frame1.ComboBox5.Value 'สถานะนักเรียน
Worksheets("DataStudent").Range("K" & i).Value = Frame1.ComboBox6.Value 'คำนำหน้า
Worksheets("DataStudent").Range("L" & i).Value = Frame1.TextBox3.Value 'ชื่อ
Worksheets("DataStudent").Range("M" & i).Value = Frame1.TextBox4.Value 'นามสกุล
Worksheets("DataStudent").Range("N" & i).Value = Frame1.TextBox5.Value 'เลขประชาชน
'Call refresh_data
End Sub