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

[ประภาพร ไพบูลย์]

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

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


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

[snasui]

ตัวอย่าง 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

[ประภาพร ไพบูลย์]

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