Excel Forum

สาเหตุที่เกิดเนื่องจาก window ที่ไม่ support หรอคะ
ไม่เกี่ยวกับ ความผิดพลาดจาด cide vba ใช่ไหมคะ

ลอง search หา pdfmaker.dot และ pdfmaker.xla แล้วแต่ไม่เจอค่ะ เลยทำตามวิธีแก้ไขต่อไม่ได้ค่ะ
ไม่ทราบว่ามีวธีอื่นอีกไหมคะ

ขอบคุณค่ะ

เนื่องจากที่เคยทำโปรแกรมบน Excel ซึ่งมี code vba ด้วย เมื่อนำไปเปิดที่เครื่องผู้ใช้คนอื่นแล้วเปิด Excel มาโปรแกรมกลับขึ้นเตือนว่า

"Compile error in hidden module sheet1" พอคลิกปิดหรือคลิก ok แล้วไปคลิกเลือก combobox อื่นในโปรแกรมก็จะขึ้นเตือนแบบเดิมตลอดค่ะ
หรือบางทีขึ้นว่า "Compile error: Can't ...

แก้ไขตามที่แนะนำ
ไม่มีปัญหาแล้วนะคะ

ขอบคุณมากๆๆค่ะ

ดูอย่างไรคะว่าเซลล์ E15 ของชีท UsEF_Utility มีความยาวอักขระถึง 2394 อักขระ

และลองลบออกไปแล้ว แล้วลอง Run Code ดูใหม่แล้วแต่ยังไม่ได้ค่ะ
ลองดู ชีท UsEF_Utility แล้ว และตั้งให้ format cell เป็น General

สงสัยว่าทำไมบางทีเซลล์ที่เราตั้งให้เป็น General แล้วและพอเปิดมาบางครั้งมันกลายเป็นรูปแบบ Time ค่ะ ...

ลองทำตาม code ที่แนะนำแล้วค่ะ
Private Sub UserForm26_Initialize()
Dim rall As Range
Dim r As Range
With Sheets("UsEF_Utility")
Set rall = .Range("E15", .Range("E" & Rows.Count).End(xlUp))
End With
For Each r In rall
If r <> "" Then
UserForm26.ListBox1_SelectNewRW.AddItem r ' Change lisbox1 ...

ลองนำcode ไปแก้ไขแล้ว แต่ยังได้ผลเหมือนเดิมค่ะ ข้อมูลที่เคยเพิ่มไว้ไม่แสดงใน ListBox ค่ะ

ทำตามที่แนะนำ ไม่มีปัญหาแล้วค่ะ
ขอบคุณมากค่ะ

ได้แก้ไข code ตามที่แนะนำแล้วค่ะ ไม่มีปัญหา Run - time error '-2147352571(80020005)':Type mismatch แล้วค่ะ

แต่ข้อมูลใน database ใน sheet UsEF_Utility ไม่มาขึ้นโชว์ใน Listbox ค่ะ จะมีเพียงข้อมูลทีเพิ่งเพิ่มเท่านั้นค่ะ

ปล.ไม่ได้แนบไฟล์นะคะเนื่องจากส่งไฟล์ไม่ได้ค่ะไม่ทราบว่าเพราะเหตุใดค่ะ

รบกวนอีกคร ...

แนบไฟล์ตัวอย่างมาแล้วค่ะ

ขอบคุณค่ะ

เมื่อคลิก ComboBox เพื่อเลือก Custom เพื่อให้แสดง UserForm แล้ว VBA error แสดง Debug ที่ UserForm และขึ้น Msg

Run - time error '-2147352571(80020005)':
Type mismatch

ก่อนหน้านี้ใช้งานได้ปกติค่ะ แต่ตอนนี้กลับขึ้น error ค่ะ ไม่ทรายว่าเป็นเพราะเหตุใดคะ
ลองตรวจสอบ ชื่อ Name ชื่อ Sheet แล้วก็ไม่ผิดค่ะ ...

ลองแก้ code ตามแล้วค่ะ แต่ยัง error อยู่ค่ะ
สิ่งที่ยัง error อยู่คือ list รายการ เมื่อ add data name ว่า vv ค่าที่โชว์ใน listbox ก็แสดง v และ vv แยกกันเป็นสองบรรทัดค่ะ ต้องแก้ไขตรงไหนอีกบ้างคะ

Private Sub ListBox1_SelectNewRW_Click()
With Worksheets("UsEF_RW")
TextBox14_SelectCF.Value ...

ค่ะ ไฟล์ที่แนบมาลองใส่ค่าตัวอย่าง
Name : test1
Carbon Footprint: 22

แล้วพอกด add data แล้วเพื่อให้แสดงข้อมูลใน input sheet และมากดที่ add to database และมากดดูที่ select data ที่จะ show ใน listbox
ค่าที่ add มาแสดงใน listbox แล้วค่ะ แต่แสดงเป็นแสดงเป็นแบบตัวอีกษรที่พิมพ์ตัวละ 1 บรรทัดค่ะ
เช่น t ...

Private Sub CommandButton7_Delete_Click()
Dim lng As Long
Answer = MsgBox("Are you sure you want to delete data from database?", 4 + 48, "Delete database")

If Answer = 6 Then
lng = Application.Match(ListBox1.Value, Worksheets("UsEF_RW").Range("E:E"), 0) 'บรรทัดนี้ขึ้น ERROR'
Worksheets("UsEF ...

ไฟล์ที่แก้ไขแล้วค่ะ

รบกวนช่วยดูด้วยนะคะ

ขอบคุณมากค่ะ

Private Sub ListBox1_SelectNewRW_Click()
With Worksheets("UsEF_RW")
TextBox14_SelectCF.Value = Application.VLookup(Me.ListBox1_SelectNewRW, .Range("E15:Q100"), 6, False)
TextBox12_SelectSource.Value = Application.VLookup(Me.ListBox1_SelectNewRW, .Range("E15:Q100"), 8, False)
TextBox11_SelectYear ...

ลองนำcode ทั้งหมดมาทำเองอีก แต่ขึ้น error ในcodeด้านล่างค่ะ ไม่ทราบว่าเป็นเพราะเหตุใดค่ะ รบกวนช่วยตรวจดูให้ด้วยนะคะ
แนบไฟล์มาให้ด้วยค่ะ
ขอบคุณค่ะ

Private Sub ListBox1_SelectNewRW_Click()
With Worksheets("UsEF_RW")
TextBox14_SelectCF.Value = Application.VLookup(Me.ListBox1_SelectNewRW, .Range("E15 ...

ขอบคุณค่ะ
คือถ้าช่อง Name ต้องใส่เฉพาะ ตัวอักษร ใช่ไหมคะ ถ้าเป็นคำที่มีทั้งตัวอักษรและตัวเลข จะได้ไหมคะ
ส่วนช่อง Value จะใส่เฉพาะค่าตัวเลขเท่านั้นค่ะ

code สำหรับการ delete สามารถทำได้แล้วค่ะ แต่ code ด้านล่างนี้ยัง error อยู่ค่ะ ไม่ทราบว่าเป็นเพราะเหตุใดคะ รบกวนด้วยค่ะ ขอบคุณมากค่ะ

Private Sub ListBox1_Click()
With Worksheets("Database")
TextBox14.Value = Application.VLookup(Me.ListBox1, .Range("C2:Z100"), 4, False)
TextBox12.Value ...

ขอบคุณนะคะ

ขอถามเพิ่มนะคะ ถ้าจะทำให้ TextBox ของ Value Source Year Location Comment ขึ้นแสดงค่าตามข้อมูลใน ListBox ที่เลือก ดึงข้อมูลมาจาก Sheet Databaseค่ะ
ได้ลองใช้ code ตามด้านล่างค่ะแต่ขึ้น error ไม่ทราบว่าต้องแก้ไขอย่างไรคะ

Private Sub ListBox1_Select()

With Worksheets("Database")
TxtBox14 ...

ขอบคุณนะคะ
แต่ทำไมเวลาที่ใส่ค่าไปแล้วค่าที่ไปแสดงใน ListBox ถึงต้องซ้ำกับเดิมที่เคยใส่ไว้ด้วยค่ะ ต้องแก้อย่างไรคะ

เช่น ใส่ค่า Name ครั้งที่ 1 เป็น 1 ค่าที่แสดงใน ListBox จะแสดงค่า 1 เรียงลงมา 3 ตัว ค่ะ
ใส่ค่า Name ครั้งที่ 2 เป็น we ค่าที่แสดงใน ListBox จะแสดงค่า 1 we 1 we เรียงลงมาค่ะ
ใส่ค่า ...