ฟังก์ชั่นของ Morefunc ไม่ทำงานใน Excel 2010

[kmb]

ผมได้อาศัยฟังก์ชั่นของ Morefunc ไปใช้ สามารถใช้งานได้ดี แต่เซลล์ที่มีการใช้ฟังก์ชั่นนั้นสำหรับเครื่องที่มี Excel 2010 ไม่ทำงานน่ะครับ ไม่ทราบว่าพอจะมีวิธีแก้ไขไหมครับ

[snasui]

หากนำไปใช้กับ 2010 คงต้องเขียน Function ขึ้นมาช่วยแทนใช้ Morefunc เนื่องจากว่า Morefunc ไม่ Support Excel 2010 ครับ

ไม่ทราบว่าได้นำฟังก์ชั่นใดของ Morefunc ไปใช้บ้างครับ

[kmb]

เดี๋ยวต้องขอไปดูที่ทำงานก่อนนะครับ ไฟล์อยู่ที่ทำงาน

[kmb]

ฟังก์ชั่นที่ใช้นะครับก็ MConcat, NBText ยังใช้ไม่เยอะเท่าไหร่ครับ เพราะว่าตอนนี้ผมใช้ 2010 ทั้งเครื่องที่บ้านและที่ทำงาน ฟังก์ชั่นที่ได้ใช้นั้นเขียนไว้ตั้งแต่เครื่องที่ทำงานยังใช้ 2007 น่ะครับ

[snasui]

กรณีใช้ Mconcat สามารถใช้ฟังก์ชั่นที่ผมเขียนแทนได้ครับ ดูที่ Link นี้ครับ

viewtopic.php?p=8089#p8089

หรือหากต้องการจะใส่ตัวคั่นด้วยตนเองสามารถใช้ฟังก์ชั่นตามด้านล่างครับ

Code: Select all

Function MCONC$(range As range, Optional s As String)
    Dim r As range
    Dim i As Integer
    Dim a() As Variant
    For Each r In range
        If r <> "" Then
            i = i + 1
            ReDim Preserve a(i - 1)
            a(i - 1) = r
        End If
    Next r
    MCONC = Join(a, s)
End Function

ซึ่งจะมีลักษณะเหมือนกับ Mconcat ของ Morefunc

ส่วนกรณีแปลงจำนวนเงินเป็นคำอ่านภาษาอังกฤษ ดูที่นี่ครับ

http://support.microsoft.com/kb/213360/th

[kmb]

ขอบคุณครับ จะศึกษาต่อไปครับ