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 Save_Click()
If Me.TextBox1.Value <> "" Then
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
'Find first empty row in database
irow = ws.Cells("2").Range(TextBox6.Value).Row
'Copy The Data To The Database
ws.Cells(irow, 2).Value = Me.TextBox1.Value
ws.Cells(irow, 3).Value = Me.TextBox2.Value
ws.Cells(irow, 4).Value = Me.TextBox3.Value
ws.Cells(irow, 5).Value = Me.TextBox4.Value
ws.Cells(irow, 6).Value = Me.TextBox5.Value
Unload Me
UserForm1.Show
Else
MsgBox "Please check Data", vbCritical
End If
End Sub
Code: Select all
Private Sub UserForm_Initialize()
a = "List!B3:B19"
ComboBox1.RowSource = a
End Sub
Code: Select all
Sub Show()
UserForm1.Show vbModeless
End Sub
Code: Select all
Private Sub Save_Click()
If Me.TextBox1.Value <> "" Then
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
'Find first empty row in database
irow = ActiveCell.Row
'Copy The Data To The Database
ws.Cells(irow, 2).Value = Me.TextBox1.Value
ws.Cells(irow, 3).Value = Me.TextBox2.Value
ws.Cells(irow, 4).Value = Me.TextBox3.Value
ws.Cells(irow, 5).Value = Me.TextBox4.Value
ws.Cells(irow, 6).Value = Me.TextBox5.Value
ActiveCell.Offset(1, 0).Activate
' Unload Me
' UserForm1.Show
Else
MsgBox "Please check Data", vbCritical
End If
End Sub
Code: Select all
Sub Show()
UserForm1.Show vbModeless
End Sub
ผมก็ยังไม่เข้าใจครับ ลองอธิบายให้ละเอียดอีกครั้งได้ไหมครับ เพื่อว่าท่านอื่นที่เข้ามาจะได้ช่วยดูให้ครับkio2002 wrote:โค้ดอยู่ที่ UserForm1 และ Module1 ครับ
คือติดตรงที่ว่า ลำดับ เราไม่ต้องป้อนได้ไหมครับ แต่ให้โปรแกรมมันป้อนลงตารางให้อัติโนมัติครับ
ไม่รู้ว่าท่านอาจารย์ เข้าใจที่ผมอธิบายรึเปล่าครับ
ขอบคุณครับ
Code: Select all
Private Sub Add_Click()
' If Me.TextBox1.Value <> "" Then
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("S_Column1")
Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
'Find first empty row in database
irow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'Copy The Data To The Database
If Range("A10") = "" Then
ws.Cells(irow, 1).Value = 1
Else
ws.Cells(irow, 1).Value = Range("A9").End(xlDown) + 1
End If
ws.Cells(irow, 2).Value = Me.TextBox2.Value
ws.Cells(irow, 4).Value = Me.TextBox3.Value
ws.Cells(irow, 5).Value = Me.TextBox4.Value
ws.Cells(irow, 9).Value = Me.TextBox5.Value
ws.Cells(irow, 10).Value = Me.TextBox6.Value
ws.Cells(irow, 11).Value = Me.TextBox7.Value
ws.Cells(irow, 12).Value = Me.TextBox8.Value
ws.Cells(irow, 15).Value = Me.TextBox9.Value
ws.Cells(irow, 14).Value = Me.TextBox10.Value
ws.Cells(irow, 16).Value = Me.TextBox11.Value
Unload Me
UserForm1.Show
' Else
' MsgBox "¡Ãسһé͹ÅӴѺ·Õè¡è͹", vbCritical
' End If
End Sub
เมื่อทราบแล้วควรปฏิบัติครับkio2002 wrote:ขอโทษครับ ที่ใช้กระทู้ของคนอื่นในการโพส แต่ว่าขอโจทย์นี้ให้เสร็จไปก่อนได้ไหมครับ