MS Excel สามารถคำนวนแบบนี้ได้ไหมครับ

[chanari]

คือว่า ผมอยากจะแทนค่าตัวหนังสือด้วยตัวเลขนะครับ สมมุติตัว A = 1, B = 2, C = 3,..., Z = 30

เสร็จแล้วเมื่อพิมพ์เป็นคำ เช่น Cat ก็จะให้ตัวเลขที่แทนตัวหนังสือ C A T นำมาบวกกันครับ แล้วแสดงผล


คือ มันสามารถทำได้ไหมครับ แล้วต้องใช้คำสั่งอะไร หรือว่าไม่ได้ ถ้าไม่ได้ มีโปรแกรมใดๆที่สามารถทำได้บ้าง รบกวนช่วยแนะนำ ชี้แนะด้วยนะครับ

ขอบพระคุณเป็นอย่างสูง

[sudteenkun]

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

[boy2cry]

ถ้าทำครั้งเดียว
ก็ text to columns แยก แต่ละตัวอักษร ใส่แต่ละคอลัมน์
จากนั้นก็ vlookup ตัวอักษร แทนค่าด้วยตัวเลขในตารางที่กำหนดไว้
แล้วก็ sum ตัวเลขที่ได้ครับ

ส่วนถ้าจะทำเรื่อย ๆ ต้องเขียนเป็น macro วนลูปครับ

เขียนไง ลองศึกษาเองนะครับ ตอนนี้คิดไม่ออก อิอิ

[FunFunBoy]

ใน Excel สามารถทำได้เลยครับ
ไนเมนู เครื่องมือ > Macro > Visual Basic Editor หรือกด Alt-F11
ให้ไปสร้าง Function สำหรับคำนวณขึ้นมา
(ตรงนี้แหละยากนิดหน่อย)

พอสร้าง Function เสร็จสมมุติตั้งชื่อฟังก์ชั่นเป็น TransformText2Number
ใน excel ก็ใส่สูตร = TransformText2Number(หมายเลขเซลล์) ได้เลย

ปล. ไว้ว่างๆ เดี๋ยวช่วยคิดนะครับ

[FunFunBoy]

คิดๆ ดูแล้ว ไม่ยากเท่าไหร่...
ลองดูนะครับ ยังไม่ได้ตรวจ bug
โค้ดข้างล่างเป็นส่วนที่ต้องทำใน Code Editor นะครับ

Public Function TransformText2Number(strInputText As String) As Integer
Dim i As Integer
    
    For i = 1 To Len(strInputText)
        Select Case UCase(Mid(strInputText, i, 1))
        Case "A"
            TransformText2Number = TransformText2Number + 1
        Case "B"
            TransformText2Number = TransformText2Number + 2
        Case "C"
            TransformText2Number = TransformText2Number + 3
        Case "D"
            TransformText2Number = TransformText2Number + 4
        Case "E"
            TransformText2Number = TransformText2Number + 5
        Case "F"
            TransformText2Number = TransformText2Number + 6
        Case "G"
            TransformText2Number = TransformText2Number + 7
        Case "H"
            TransformText2Number = TransformText2Number + 8
        Case "I"
            TransformText2Number = TransformText2Number + 9
        Case "J"
            TransformText2Number = TransformText2Number + 10
        Case "K"
            TransformText2Number = TransformText2Number + 11
        Case "L"
            TransformText2Number = TransformText2Number + 12
        Case "M"
            TransformText2Number = TransformText2Number + 13
        Case "N"
            TransformText2Number = TransformText2Number + 14
        Case "O"
            TransformText2Number = TransformText2Number + 15
        Case "P"
            TransformText2Number = TransformText2Number + 16
        Case "Q"
            TransformText2Number = TransformText2Number + 17
        Case "R"
            TransformText2Number = TransformText2Number + 18
        Case "S"
            TransformText2Number = TransformText2Number + 19
        Case "T"
            TransformText2Number = TransformText2Number + 20
        Case "U"
            TransformText2Number = TransformText2Number + 21
        Case "V"
            TransformText2Number = TransformText2Number + 22
        Case "W"
            TransformText2Number = TransformText2Number + 23
        Case "X"
            TransformText2Number = TransformText2Number + 24
        Case "Y"
            TransformText2Number = TransformText2Number + 25
        Case "Z"
            TransformText2Number = TransformText2Number + 26
        End Select
    Next i
End Function

[plai]

สุดยอดไปเลยพี่

[FunFunBoy]

สุดยอดไปเลยพี่

เพิ่งเห็นกระทู้...
เจ้าของกระทู้ถามไว้ตั้งแต่เดือน 10...
ไม่รู้เอาไปใช้ประโยชน์ทันหรือเปล่า เห็นเงียบไปเลย