Snasui Excel Forum

Posted: **Sat Feb 01, 2014 9:54 pm**

ต้องการสอบถามเกี่ยวกับการเขียนโค้ดค่ะ ว่าควรเขียนโค้ดยังไงดีคะ
หากต้องการนำข้อมูลจากตารางในชีท1 มาแปลงเป็นตัวอักษร เช่น
ถ้าในตารางเป็น 1 ให้แสดงเป็นคำว่า TRUE
แต่ถ้าในตารางเป็น 0 ไม่ต้องแสดงอะไร
แล้วนำข้อความที่ได้จากการแปลงค่าไปใส่ไว้ในตารางในชีทที่2

(โดยตารางในชีทที่1 และ2 สลับแถวเป็นหลัก หลักเป็นแถวกันไว้)

จากที่ลองเขียนมา error ตลอดเลย รบกวนช่วยแก้ไขโค้ดให้หน่อยค่ะ

Posted: **Sat Feb 01, 2014 10:55 pm**

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub test()
    Dim r As Range
    Sheets("Sheet1").Range("c2:g11").Copy
    Sheets("Sheet2").Range("c4").PasteSpecial xlPasteValues, _
        Transpose:=True
    For Each r In Sheets("Sheet2").Range("c4:l8")
        If r.Value = 1 Then
            r.Value = True
        Else
            r = ""
        End If
    Next r
    Application.CutCopyMode = False
End Sub

Posted: **Sun Feb 02, 2014 2:55 pm**

ขอบคุณมากๆค่ะอาจารย์ ขอบคุณค่ะ ^_____________________^

Snasui Excel Forum

ต้องการแปลงข้อมูลจากตัวเลขเป็นตัวอักษร แล้วใส่ในตาราง

ต้องการแปลงข้อมูลจากตัวเลขเป็นตัวอักษร แล้วใส่ในตาราง

Re: ต้องการแปลงข้อมูลจากตัวเลขเป็นตัวอักษร แล้วใส่ในตาราง

Re: ต้องการแปลงข้อมูลจากตัวเลขเป็นตัวอักษร แล้วใส่ในตาราง