Excel Forum

ผมต้องการสร้างแถบเครื่องมือบนหน้าต่างของโปรแกรมที่สร้างขึ้นตามรูป อยากทราบว่าต้องใช้เครื่องมืออะไรในการสร้างและขอคำแนะนำสำหรับการสร้างครับ

ตอนนี้ผมลองเขียนโค้ดรับค่าจำนวน Textbox ที่ต้องการมาเก็บไว้ในรูปแบบ Array และผมต้องการให้มันวน loop เพื่อแสดงTextbookตามจำนวนค่าที่รับมา ไม่สำเร็จครับ มันขึ้นว่า Sub or Function not defined ครับ

นี่โค้ดที่ลองเขียนครับ

Private Sub CommandButton1_Click()
Dim machinenum As Integer
Dim mannum As ...

ขอบคุณสำหรับคำแนะนำครับ จะนำไปปรับปรุงแก้ไขและนำไปพัฒนาตนเองต่อไปครับ

สวัสดีครับ ต้องการให้สร้างTextboxอัตโนมัติตามจำนวนที่รับค่ามา ใน userform ใหม่ครับ ตามภาพครับ ควรเขียน code ยังไงหรือมีคำสั่งไหนที่สามารถทำได้ไหมครับ

1.jpg

ตอนนี้ผมลองเขียนโค้ดได้แค่การรับค่าและเด้งไป userform ใหม่ครับ


Private Sub CommandButton1_Click()
Dim machinenum As Integer
Dim mannum ...

สิ่งที่lookup จากค่าได้ค่าเหมือนกันทุกอัน

สมมุติว่าผมมีไฟล์ ข้อมูล 1,2 แล้วอัน 3 ที่เป็นไฟล์ที่มีโค้ดอยู่ ผมต้องการดึงข้อมูลมารวมไว้ที่ไฟล์ 3 โดยตอนเลือกดึงเป็นลำดับ คือ1,2 แต่ผลที่ออกมาคือมันออกเป็น 2,1ครับ

ตอนผมรันไม่เป็นแบบนี้อ่าครับ เลยคิดว่าผมต้องผิดตรงไหนแน่เลย

มันกำหนดอย่างไรหรอครับ แบบเลือกไฟล์ใดก่อนให้ขึ้นอันนั้นก่อน พอดีผมไม่ค่อยมีความรู้เท่าไรครับ

Private Sub CommandButton1_Click()

Dim strPath As Variant, i As Integer
Dim fName As String, nb As Workbook
Dim tb As Workbook

Set tb = ThisWorkbook
strPath = Application.GetOpenFilename("Excel files(*.xlsx*),*.xlsx*", _
Title:="Please select text files.", MultiSelect:=True)
If TypeName ...

Dim strPath As Variant, i As Integer
Dim fName As String, nb As Workbook
Dim tb As Workbook

Set tb = ThisWorkbook
strPath = Application.GetOpenFilename("Excel files(.xlsx),*.xlsx*", _
Title:="Please select text files.", MultiSelect:=True)
If TypeName(strPath) = "Boolean" Then Exit Sub

For ...