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]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)อยากขอ คำแนะนำ หรือ ตัวอย่าง จะเป็น Link ให้ลองไปศึกษาต่อเองก็ได้ครับ เพื่อช่วยให้ผมได้นำไปพัฒนาตามรูปแบบที่ผมได้วางแผนไว้ดังนี้ได้ครับ
ขอขอบคุณทุกท่านล่วงหน้าที่ได้แนะนำผมจากการตั้งกระทู้ในครั้งนี้ด้วยครับหลังจากที่ผมได้ลองพยายามศึกษา หาข้อมูลเกี่ยวกับสูตรต่างๆ มาเกือบเดือนแล้วครับ แต่ยังหาข้อมูลตัวอย่างได้เพียงเล็กน้อยเท่านั้นเองครับ
ผมจึงอยากขอคำแนะนำจากผู้รู้ ช่วยชี้แนะได้ตรงจุดเพื่อนำไปพัฒนาในสิ่งที่ผมได้ออกแบบไว้ได้เร็วยิ่งขึ้นครับ
Code: Select all
Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1
Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3Value
Cells(emptyRow, 4).Value = TextBox4.Value
Cells(emptyRow, 5).Value = TextBox5Value
End Sub
Code: Select all
For Each sh In Worksheets
Select Case sh.Name
Case "data_1"
With sh.ListObjects(1)
i = .Range.Count
.ListColumns(1).Range(i).Value = TextBox1.Value
.ListColumns(2).Range(i).Value = TextBox2.Value
.ListColumns(3).Range(i).Value = TextBox3.Value
.ListColumns(4).Range(i).Value = TextBox4.Value
.ListColumns(5).Range(i).Value = TextBox5.Value
End With
Case "data_2"
With sh.ListObjects(1)
i = .Range.Count
.ListColumns(1).Range(i).Value = TextBox1.Value
.ListColumns(2).Range(i).Value = TextBox3.Value
.ListColumns(3).Range(i).Value = TextBox5.Value
End With
End Select
Next sh
Private Sub CommandButton1_Click()
For Each sh In Worksheets
Select Case sh.Name
Case "data_1"
With sh.ListObjects(1)
i = WorksheetFunction.CountA(Range("B:B")) + 1
.ListColumns(1).Range(i).Value = TextBox1.Value
.ListColumns(2).Range(i).Value = TextBox2.Value
.ListColumns(3).Range(i).Value = TextBox3.Value
.ListColumns(4).Range(i).Value = TextBox4.Value
.ListColumns(5).Range(i).Value = TextBox5.Value
End With
Case "data_2"
With sh.ListObjects(1)
i = WorksheetFunction.CountA(Range("B:B")) + 1
.ListColumns(1).Range(i).Value = TextBox1.Value
.ListColumns(2).Range(i).Value = TextBox3.Value
.ListColumns(3).Range(i).Value = TextBox5.Value
End With
End Select
Next sh
End Sub
i = WorksheetFunction.CountA(Range("B:B")) + 1
ครับ