excel run เป็นภาษาต่างดาว

[yodpao.b]

เครื่องที่ทำงานก็เป็นครับ
ลองแก้ตามโพสต์ยังไม่หายครับ
ของผมสั่งให้มัน พิมพ์เป็นภาษาไทยครับ
เครื่องส่วนใหญ่ 2 ใน 3 ทำงานได้เป็นปกติ
บางเครื่องเป็นภาษาต่างดาวดังรูป

Capture.JPG

Code: Select all

Sub Createtable()

    'ปรับขนาดตาราง
    Cells.Select
    Selection.RowHeight = 20
    With Selection.Font
        .Name = "Tahoma"
        .Size = 11
    End With
    Rows("1:1").RowHeight = 57.5
    Rows("2:2").RowHeight = 19.5
    Rows("3:4").RowHeight = 20.25
    Rows("5:5").RowHeight = 40.5
    Columns("A:A").ColumnWidth = 3.5
    Columns("B:B").ColumnWidth = 36
    Range("C:C,F:F,K:K").ColumnWidth = 5.5
    Range("D:D,G:G,I:I,L:L,N:N").ColumnWidth = 9
    Range("E:E,H:H,J:J,M:M,O:O").ColumnWidth = 14
    
    'หัวตาราง
    Range("A3:A5,B3:B5,C3:J3,C4:E4,F4:H4,I4:J4,K3:O3,K4:M4,N4:O4").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    Selection.Merge
    Range("C5:O5").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    Range("A3:O5").Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
    End With

    'เส้นตาราง
    Range("A6:O6").Select
    Range(Selection, Selection.End(xlDown)).Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
    End With
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
    End With
    



    'ตัวอักษร
    Range("A3") = "NO."
    Range("B3") = "มาตรการ"
    Range("C3") = "ขั้นตอนก่อนการปรับปรุง"
    Range("C4") = "ตรวจวัดก่อนปรับปรุง"
    Range("C5") = "จำนวน"
    Range("D5") = "กำลังไฟฟ้า" & Chr(13) & "" & Chr(10) & "(kW)"
    Range("E5") = "พลังงานไฟฟ้า" & Chr(13) & "" & Chr(10) & "(kWh)"
    Range("F4") = "ค่าจากการประเมิน"
    Range("F5") = "จำนวน"
    Range("G5") = "กำลังไฟฟ้า" & Chr(13) & "" & Chr(10) & "(kW)"
    Range("H5") = "พลังงานไฟฟ้า" & Chr(13) & "" & Chr(10) & "(kWh)"
    Range("I4") = "ผลประหยัดคาดการณ์"
    Range("I5") = "กำลังไฟฟ้า" & Chr(13) & "" & Chr(10) & "(kW)"
    Range("J5") = "พลังงานไฟฟ้า" & Chr(13) & "" & Chr(10) & "(kWh)"
    Range("K3") = "ขั้นตอนหลังการปรับปรุง (M&V)"
    Range("K4") = "ตรวจวัดหลังปรับปรุง"
    Range("K5") = "จำนวน"
    Range("L5") = "กำลังไฟฟ้า" & Chr(13) & "" & Chr(10) & "(kW)"
    Range("M5") = "พลังงานไฟฟ้า" & Chr(13) & "" & Chr(10) & "(kWh)"
    Range("N4") = "ผลประหยัดจากการตรวจวัด"
    Range("N5") = "กำลังไฟฟ้า" & Chr(13) & "" & Chr(10) & "(kW)"
    Range("O5") = "พลังงานไฟฟ้า" & Chr(13) & "" & Chr(10) & "(kWh)"
    Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("O3") = "=""อัตราค่าไฟฟ้าเฉลี่ย(บาท)  ""&TEXT(Log!O16,""#,##0.00"")"

    Range("O3").Select
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlCenter
    End With
    With Selection.Font
        .Name = "Tahoma"
        .Size = 10
    End With
    
    Rows("1:1").RowHeight = 10
    Rows("2:2").RowHeight = 40
    Range("B3") = "*Document = ดูเอกสารเพิ่มเติม"
    Range("B3").HorizontalAlignment = xlLeft
End Sub

Capture1.JPG

ส่วนใน Control Panel ก็ ทำแล้วเหมือนกันครับ
ดังรูปด้านล่าง

1.JPG

2.JPG

3.JPG

[snasui]

ตรงส่วนไหนที่เป็นภาษาต่างดาว มีภาพให้ดูไหมครับ

[yodpao.b]

ขอโทษครับ
รูปแรกโพสตผิด
พอดีรีบกลับบ้านเลยไม่ได้ตรวจสอบ
เครื่องที่เป็นปัญหาอยู่ที่ทำงานครับเป็นหลายเครื่องครับ
ผมสมุติให้ดูก่อนนะครับอาจารย์อาจแนะนำได้
ผมขอโพสต์ในส่วนที่เป็นตัวหนังสือที่อ่านไม่รู้เรื่อง
ในVBA ที่เป็นสีเหลือง ขึ้นข้อความที่อ่านไม่รู้เรื่อง หมายถีง ตัวหนังสือตรง workbook เป็นภาษาอื่น
(แต่ถ้าข้อความที่อยู่ใน codeหรือใน Sub ที่เป็นภาษาไทยแสดงถูกต้อง)
หมายเหตุ ในVBAที่เป็นสีเหลือง ไม่มีปัญหาอะไรครับถึงอ่านไม่รู้เรื่องเครื่องก็ทำงานได้

2.JPG

อีกอันที่เป็นปัญหา
โคดจะสั่งให้ excel พิมพ์ข้อความตามรูปด้านล่าง
ตามรูปด้านล่างถ้าเครื่องมีปัญหาจะอ่านไม่รู้ภาษา

1.JPG

เพราะฉนั้นโคดไม่มีปัญหาใดๆ
น่าจะเป็นปัญหาในส่วนอื่นครับ
เครื่องที่ทำงานประมาณ 10 เครื่องที่ พิมพ์ภาษาที่อ่านไม่รู้เรื่อง

ขอเรียนอาจารย์ว่าปัญหานี้เคยเกิดกับเครื่องที่ผมใช้เอง
และผมเคยโพสต์ถามมาแล้วครั้งหนึ่ง
จำไม่ได้ว่าไปทำอะไรมาบ้าง
ที่จำได้แก้อยู่ 2 ที่ คือใน VBA ในส่วนของ ออฟชั่นที่เป็นภาษา
และในส่วนที่เป็น Region
แก้แล้วก็ยังใช้ไม่ได้ ในช่วงนั้นก็ไปเขียนโคดที่เครื่องอื่น
พอเวลาผ่านไปประมาณเดือนผมก็ลองกับมาแก้ใน vba ในส่วนออฟชั่นที่เป็นภาษา set ทุกอย่างให้เหมือนเครื่องที่ไม่มีปัญหา
แต่ปัญหาไม่ได้อยู่ส่วนนี้หรอกครับ เพราะจำได้ว่า code มันเป็นพื้นสีดำมองไม่เห็นตัวหนังสือ อาจารย์สั่งให้ไปทำที่ ออฟชั่นให้เหมือนเครื่องอื่น
เครื่องก็กลับมาทำงานเป็นปกติ

ผมว่าอยู่ในส่วนของ Region นี้ละครับที่เป็นปัญหา
ผมหากระทู้เก่าไม่เจอจริงๆครับ
ไม่รู้พิมหัวข้อว่าอะไร

[snasui]

น่าจะเป็นกระทู้นี้ครับ viewtopic.php?t=14391

[yodpao.b]

ขอบคุณครับ โพสต์นี้ละครับ