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 CommandButton2_Click()
Dim recdRow As Long
recdRow = Application.Match(TextBox14.Text, Sheets("Berast").Range("a:a"), 0)
With Sheets("Berast")
.Cells(recdRow, 1).Value = TextBox1.Text
.Cells(recdRow, 2).Value = TextBox2.Text
.Cells(recdRow, 3).Value = TextBox3.Text
.Cells(recdRow, 4).Value = ComboBox1.Text
.Cells(recdRow, 5).Value = TextBox4.Text
.Cells(recdRow, 6).Value = TextBox5.Text
.Cells(recdRow, 7).Value = ComboBox2.Text
.Cells(recdRow, 8).Value = ComboBox3.Text
.Cells(recdRow, 9).Value = TextBox6.Text
.Cells(recdRow, 10).Value = ComboBox4.Text
.Cells(recdRow, 11).Value = ComboBox5.Text
.Cells(recdRow, 12).Value = ComboBox6.Text
.Cells(recdRow, 13).Value = ComboBox7.Text
.Cells(recdRow, 14).Value = ComboBox8.Text
.Cells(recdRow, 15).Value = TextBox7.Text
.Cells(recdRow, 16).Value = ComboBox9.Text
.Cells(recdRow, 17).Value = TextBox8.Text
.Cells(recdRow, 18).Value = TextBox9.Text
.Cells(recdRow, 19).Value = TextBox10.Text
.Cells(recdRow, 20).Value = TextBox11.Text
.Cells(recdRow, 21).Value = ComboBox10.Text
.Cells(recdRow, 22).Value = ComboBox11.Text
.Cells(recdRow, 23).Value = ComboBox12.Text
.Cells(recdRow, 24).Value = ComboBox13.Text
.Cells(recdRow, 25).Value = TextBox12.Text
.Cells(recdRow, 26).Value = ComboBox14.Text
.Cells(recdRow, 27).Value = ComboBox15.Text
.Cells(recdRow, 28).Value = TextBox13.Text
End With
MsgBox ("แก้ไขข้อมูลเสร็จแล้ว")
End Sub
recRow
เป็นตามด้านล่างครับCode: Select all
recdRow = Application.Match(CLng(TextBox14.Text), Sheets("Berast").Range("c:c"), 0)
เป็นการเปลี่ยนตัวแปรจาก Type หนึ่งไปอีก Type หนึ่งprasert_lasong wrote:ขอสอบถามว่า CLng คืออะไรครับ