VBA Concentrate / Merge (range)

[Supachok]

เรียน ท่านผู้รู้

เราสามารถใช้สูตรที่รวมข้อความเป็น Range ได้หรือไม่ใน excel.
วิธีที่2 -3 เป็นการนับ cell
วิธีที่ 4 เป็นการใช้ define name กำหนด range. ไม่สามารถแสดงค่า
ลองมั่วเขียน VBA ดูผลสุดท้ายได้ code ตามข้างล่าง ใช้ 3 ตัวแปร.

1 /$C$1 =VBA
2 / $C$2 =A1&A2&A3
3 / $C$3 =CONCATENATE(A1,A2,A3)
4/ $C$4 =CONCATENATE(fff)

Code: Select all

Sub xx()

For x = 1 To Range("a" & Rows.Count).End(xlUp).Row
r = Cells(x, 1).Value
t = t & r
Next x
[C1].Value = t

End Sub

[snasui]

อ่านแล้วไม่เข้าใจครับ

กรุณาอธิบายมาใหม่พร้อมทั้งชี้ให้เห็นว่าต้องการคำตอบเป็นแบบใด มีหลักการคิดอย่างไรจึงได้ค่าเป็นเช่นนั้น

หากใช้ Code กรุณาแนบ Code นั้นมาในไฟล์ตัวอย่างด้วย ไฟล์ที่จะแนบ Code ได้ควรมีนามสกุลเป็น .xlsm เป็นอย่างน้อยครับ

[Supachok]

แนบไฟล์ใหม่ครับ xlsm.

เรียน ท่านอาจารย์

ที่ต้องการถามคือมี สูตรใดๆ ที่สามารถรวมค่าใดๆ จากแต่ละ Cells โดยใช้กำหนดสูตรจาก Range(a1:a3)
ตามตัวอย่างแนบคือรวม ค่าจาก A1,A2,A3 ไปยัง C1


รูปแบบสูตรที่พยายามใช้หา
1 /$C$1 =VBA
2 / $C$1 =A1&A2&A3
3 / $C$1 =CONCATENATE(A1,A2,A3)
4/ $C$1 =CONCATENATE(fff) = define name

[snasui]

เข้าใจว่าต้องการเขียนฟังก์ชั่นขึ้นมาใช้เอง

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

Code: Select all

Function xx(allRng As range) As String
    Dim r As range, t As String
    For Each r In allRng
        t = t & r.Value
    Next r
    xx = t
End Function

จากนั้นที่เซลล์ใด ๆ คีย์สูตร

=xx(A1:A3)

Enter > สังเกตผลลัพธ์ที่ได้

[Supachok]

เรียน ท่านอาจารย์
้
ผมยังไม่สามารถเข้าใจการเขียน VBA ได้มากแบบนั้น
แต่ที่อาจารย์แนะนำมานั้นถูกต้องแล้ว

เพราะ formula ใน excel คงไม่มี function นี้
ขอบคุณมากครับ

[Supachok]

เรียน ท่านอาจารย์

VBA Subprocedure กด F8 step into
ใช้ในการตรวจ code

VBA function run หรือ มี step into หรือไหมครับ

[snasui]

คลิกในแถบที่ลูกศรชี้ตรงบรรทัดที่ต้องการจะเริ่ม Step Into จากนั้นไปคลิกในเซลล์ที่มีสูตรใน Worksheet > กดแป้น F2 แล้ว Enter จากนั้นค่อยกดแป้น F8 เพื่อ Run ไปทีละ Step ครับ

[Supachok]

ขอบคุณมากๆครับ