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 CommandButton1_Click()
Dim msg As String
If NoTxt.Value = "" Then
MsgBox "¡ÃسҡÃÍ¡ÃËÑʾ¹Ñ¡§Ò¹", vbCritical, "Save failed"
BookTxt.Value = ""
Exit Sub
End If
If BookTxt.Value = "" Then
MsgBox "¡ÃسҡÃÍ¡Çѹ·Õè¨Í§Ëéͧ¾Ñ¡", vbCritical, "Save failed"
NoTxt.Value = ""
Exit Sub
End If
msg = MsgBox("µéͧ¡Òúѹ·Ö¡¢éÍÁÙÅãªèäËÁ", vbYesNo + vbInformation, "Successful !!!")
If msg = vbYes Then
Call Submitform2
NoTxt.Value = ""
BookTxt.Value = ""
MsgBox "ºÑ¹·Ö¡¢éÍÁÙÅÊÓàÃç¨", vbOKOnly + vbInformation, "Save !!"
Else: Exit Sub
End If
End Sub
Code: Select all
Sub Submitform2()
Dim sh As Worksheet
Dim iRow As Long
Set sh = ThisWorkbook.Sheets("Database")
iRow = [Counta(Database!A:A)] + 1
With sh
.Cells(iRow, 1) = iRow - 1
.Cells(iRow, 3) = UserForm2.NoTxt.Value
.Cells(iRow, 2) = UserForm2.BookTxt.Value
.Cells(iRow, 10) = [Text(now(),"DD-MM-YYYY HH:MM:SS")]
End With
End Sub
Code: Select all
Sub Submitform2()
Dim sh As Worksheet
Dim iRow As Long
Set sh = ThisWorkbook.Sheets("Database")
iRow = [Counta(Database!A:A)] + 1
With sh
.Cells(iRow, 1) = iRow - 1
.Cells(iRow, 3) = Record_Form.NoTxt.Value
.Cells(iRow, 2) = Record_Form.BookTxt.Value
.Cells(iRow, 10) = [Text(now(),"DD-MM-YYYY HH:MM:SS")]
End With
With Record_Form
.ListDatabase.ColumnCount = 10
.ListDatabase.ColumnHeads = True
.ListDatabase.ColumnWidths = "30,60,75,40,60,45,55,70,70,45"
If iRow > 1 Then
.ListDatabase.RowSource = "Database!A2:I" & iRow
Else
.ListDatabase.RowSource = "Database!A2:I2"
End If
End With
End Sub
Code: Select all
Private Sub UserForm_Initialize()
Dim iRow As Long
iRow = [Counta(Database!A:A)] + 1
With Record_Form
.ListDatabase.ColumnCount = 10
.ListDatabase.ColumnHeads = True
.ListDatabase.ColumnWidths = "30,60,75,40,60,45,55,70,70,45"
If iRow > 1 Then
.ListDatabase.RowSource = "Database!A2:I" & iRow
Else
.ListDatabase.RowSource = "Database!A2:I2"
End If
End With
End Sub
Code: Select all
Private Sub CommandButton1_Click()
Dim Msg As String
Msg = MsgBox("¤Ø³µéͧ¡ÒÃà»ÅÕè¹á»Å§¢éÍÁÙÅãªèäËÁ?!", vbYesNo + vbExclamation, "Editing")
If Msg = vbYes Then
Namelist_Form.ListBox1.Column(0) = Me.TextBox1.Text
End If
End Sub
Code: Select all
Private Sub CommandButton1_Click()
Dim Msg As String, l As Long
Msg = MsgBox("คุณต้องการเปลี่ยนแปลงข้อมูลใช่ไหม?!", vbYesNo + vbExclamation, "Editing")
If Msg = vbYes Then
With Worksheets("Database")
l = Application.Match(CLng(Me.TextBox2.Value), .Range("c1", .Range("c" & .Rows.Count).End(xlUp)), 0)
' Namelist_Form.ListBox1.Column(0) = Me.TextBox1.Text
.Cells(l, "a").Value = Me.TextBox1.Value
.Cells(l, "b").Value = Me.TextBox2.Value
'Other code
End With
End If
End Sub
Code: Select all
Application.Match(CLng(Me.TextBox2.Value), .Range("c1", .Range("c" & .Rows.Count).End(xlUp)), 0)
ขอบคุณครับsnasui wrote: ↑Thu Dec 01, 2022 8:40 am เป็นการเปลี่ยน Data Type เพื่อให้ Match กันได้ ดูที่นี่เพิ่มเติมครับ https://learn.microsoft.com/en-us/offic ... -functions