vba ไฟล์ excel 2007 เปิดด้วย excel 2019 ภาษาไทยมีปัญหาค่ะ

[suka]

เรียนอาจารย์และท่านผู้รู้ช่วยเรื่องปรับภาษาไทยในโค้ดค่ะ

นำไฟล์ excel 2007 มาเปิดใช้กับ excel 2019 ภาษาไทยใช้ในชีท exccel ใช้ได้ปกติแต่ใช้กับโค้ด vba ภาษาไทยมีปัญหาค่ะ ภาษาอ่านไม่รู้อ่านไม่ได้ทำให้ไม่สามารถใช้โค้ดได้ค่ะ

ไม่ทราบต้องปรับแก้อย่างไร ขอความช่วยเหลือด้วยนะคะนะคะ ขอบคณค่ะ

[puriwutpokin]

เรียนอาจารย์และท่านผู้รู้ช่วยเรื่องปรับภาษาไทยในโค้ดค่ะ

นำไฟล์ excel 2007 มาเปิดใช้กับ excel 2019 ภาษาไทยใช้ในชีท exccel ใช้ได้ปกติแต่ใช้กับโค้ด vba ภาษาไทยมีปัญหาค่ะ ภาษาอ่านไม่รู้อ่านไม่ได้ทำให้ไม่สามารถใช้โค้ดได้ค่ะ

ไม่ทราบต้องปรับแก้อย่างไร ขอความช่วยเหลือด้วยนะคะนะคะ ขอบคณค่ะ

ได้ลองเปลี่ยน option ใน หลังบ้าน ที Tool ยังครับ ถ้ายังให้ทำตามรูปครับ เลือกแบบภาษาที่ มีคำว่า ไทย ครับ

[suka]

ขอรบกวนอีกรอบนะคะ เลือกเปลี่ยนภาษาตามที่คุณ puriwutpokin แนะนำแล้วภาษาไทยในโค้ดอ่านได้แล้วค่ะ แต่ยังไม่สามารถใช้งานได้ค่ะ

ได้แนบไฟล์ตัวอย่างมาเพื่อขอช่วยเหลือทดสอบค่ะ

[suka]

ขออนุญาตแนบรูปฟ้อง error นะคะ

[logic]

เข้าใจว่าหาไฟล์ไม่พบ ลองเอาไฟล์ไปวางไว้ในโฟลเดอร์อื่นหรือวางที่ C:, D: แบบที่ไม่ซับซ้อนว่าติดอะไรอีกไหมครับ

[puriwutpokin]

ขออนุญาตแนบรูปฟ้อง error นะคะ

นี่ เป็นเครื่องใหม่ใช่ไหมครับคงต้องเซ็ตค่า Legion ของระบบด้วยให้เป็นภาษาไทยไม่ทราบว่าพอจะเข้าใจไหมครับ

[suka]

ใช่ค่ะเป็นเครืองใหม่และ excel 2019 ก็ใหม่ด้วยค่ะเดิมใช้แค่ excel 2007 ทำให้งงกับการใช้งานมากค่ะ ตอนนี้ใช้งานได้แล้วนะคะ

ขอบคุณอาจารย์มาก ๆ ที่เปิดฟอรั่มถามตอบดี ๆ ขอขอบคุณทุกท่านมาก ๆ ที่สละเวลามาช่วยตอบช่วยแก้ปัญหาได้รับการช่วยเหลือมาตลอดทำให้ผ่านได้ทุกปัญหาที่ติดขัดนะคะ

[suka]

ขอรบกวนถามเพิ่มนะคะ Code ในชีท Sheet1 ข้างล่างนี้เดิมใช้กับ excel 2007 สามารถใช้ได้ดีค่ะ แต่นำมาใชักับ excel 2019 ใช้โดยกดปุ่มเปิดในชีท excel ได้ค่ะ แต่กดที่แป้นคีย์บอร์ด F10 ใช้ไม่ได้โค้ดไม่รันค่ะ และปุ่มปิดไฟล์ก็เช่นกันค่ะกดที่ปุ่มใช้ได้ กดแป้นคีย์บอร์ด End โค้ดไม่รันค่ะ

หากนำโค้ดนี้มาใช้กับ excel 2019 ควรปรับโค้ดอย่างไรเพื่อให้สามารถกดแป้นคีย์บอร์ดแล้วรันโค้ดได้คะ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Application.EnableEvents = False
        
        Application.OnKey "{F10}", "Form_OpenB11"
        Application.OnKey "{END}", "CloseForm"
     
        Application.EnableEvents = True
End Sub

[snasui]

ขอรบกวนถามเพิ่มนะคะ Code ในชีท Sheet1 ข้างล่างนี้เดิมใช้กับ excel 2007 สามารถใช้ได้ดีค่ะ แต่นำมาใชักับ excel 2019 ใช้โดยกดปุ่มเปิดในชีท excel ได้ค่ะ แต่กดที่แป้นคีย์บอร์ด F10 ใช้ไม่ได้โค้ดไม่รันค่ะ และปุ่มปิดไฟล์ก็เช่นกันค่ะกดที่ปุ่มใช้ได้ กดแป้นคีย์บอร์ด End โค้ดไม่รันค่ะ

หากนำโค้ดนี้มาใช้กับ excel 2019 ควรปรับโค้ดอย่างไรเพื่อให้สามารถกดแป้นคีย์บอร์ดแล้วรันโค้ดได้คะ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Application.EnableEvents = False
        
        Application.OnKey "{F10}", "Form_OpenB11"
        Application.OnKey "{END}", "CloseForm"
     
        Application.EnableEvents = True
End Sub

โพสต์นี้ไ่ม่น่าจะเกี่ยวกับกระทู้เดิม ให้ตั้งกระทู้ใหม่ครับ

[suka]

ค่ะอาจารย์