การรันลำดับที่

[excelman]

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

[ysamroeng]

ที่เซลล์ A2 พิมพ์สูตร =IF(COUNTIF(C$2:C2,C2)=1,MAX(A$1:A1)+1,"")
enter แล้วคัดลอกสูตรลงมา

[excelman]

ทดลองคีย์แล้วใช้ได้ตามที่ต้องการแล้วครับผม
แ่ต่อยากจะรบกวนอธิบายความหมายในสูตรด้วยได้มั้ยครับ
เพื่อที่ว่า คราวต่อไปจะได้นำไปปรับปรุงใช้กับเคสอื่นๆได้ในภายหน้า

[ysamroeng]

ทดลองคีย์แล้วใช้ได้ตามที่ต้องการแล้วครับผม
แ่ต่อยากจะรบกวนอธิบายความหมายในสูตรด้วยได้มั้ยครับ
เพื่อที่ว่า คราวต่อไปจะได้นำไปปรับปรุงใช้กับเคสอื่นๆได้ในภายหน้า

จากสูตรที่ A2 =IF(COUNTIF(C$2:C2,C2)=1,MAX(A$1:A1)+1,"")
ให้เริ่มต้นนับชื่อจาก C2 ลงมา หากชื่อนั้นนับได้เป็น 1 ก็ให้ดูว่าเหนือ A2 ขึ้นไปมีตัวเลขอะไรมีค่ามากสุด
ก็เอาเลขนั้นมาบวกเพิ่มค่าเข้าไปอีกหนึ่ง แต่ถ้ามีชื่อซ้ำก็จะไม่แสดงตัวเลขใดๆ

ปล. ถ้ามีชื่อซ้ำกัน แต่ที่จริงเป็นคนละคน สูตรนี้ก็จะข้ามเช่นเดียวกัน เพราะตรวจสอบเฉพาะชื่อเท่านั้นครับ

[excelman]

ตาม ปล. ที่ทิ้งท้ายไว้ ถ้าผมแก้ปัญหานี้ด้วยการนำชื่อและสกุลมารวมอยู่ในเซลล์เดียวกัน จะเป็นผลมั้ยครับ

[snasui]

แก้ได้ครับ หรือเขียนสูตรที่ซับซ้อนขึ้น เช่น

=If(Rows(C$2:C2)=Match(C2&D2,Index($C$2:$C$12&$D$2:$D$12,0),0),Count(A$1:A1)+1,"")

Enter > Copy ลงด้านล่าง

[excelman]

สูตรที่เป็นตัวหนานี่ต้องคีย์แบบนี้หรือเปล่าครับ (c$2:c2)
=If(Rows(C$:C2)=Match(C2&D2,Index($C$2:$C$12&$D$2:$D$12,0),0),Count(A$1:A1)+1,"")

[snasui]

ใช่แล้วครับ คีย์ตกไปครับ

[krukrit]

สูตรนี้สามารถเขียนในvbaได้หรือไม่ครับ

[snasui]

ด้วย VBA แล้วเขียนได้ทุกสูตรที่เขียนด้วย Excel ได้ และทำได้มากกว่านั้นเพราะมันคือ Programming ครับ

[krukrit]

ผมได้ลองหัดเขียนvba แต่ยังติด3 ข้อช่วยแนะนำด้วยครับ

[tigerwit]

กรณีเลขลำดับ
ที่ชีท Form เซล A3 คีย์ =IF(C3="","",SUBTOTAL(3,$C$3:C3)) แล้ว Copy ลงไป

กรณีเส้นทึบ
1. เลือกเมนู รูปแบบ > จัดรูปแบบตามเงื่อนไข
2. ตรง เงื่อนไขที่ 1 เลือก สูตรคือ
3. ช่องถัดมาคีย์ =$A3:$D3<>""
4. คลิกปุ่ม รูปแบบ จัดรูปแบบตามต้องการ (เส้นขอบ ตีกรอบ) > ตกลง > ตกลง
5. copy ลงไป ตามต้องการ

กรณีทศนิยม ก็จัดรูปแบบเซลให้เป็นแบบทศนิยมไว้เลย

[krukrit]

ขอบคุณครับ
แต่ผมยังติดปัญหาตรงทีี่่เวลาโอนข้อมูลมาแล้วแถวบนที่เป็น name และ money_psn ที่อยู่ใน data จะตามมาด้วยที่ form ด้วย
แก้อย่างไรครับ ซึ่งลำดับที่ 1 จะหายไปครับ

[krukrit]

ยังหาวิธีไม่ได้เลยครับโดยใช้vba

[snasui]

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

Code: Select all

Private Sub CommandButton1_Click()
 
    Sheet2.Cells(2, 1) = "ลำดับที่"
    Sheet2.Cells(2, 2) = "เลขที่สมาชิก"
    Sheet2.Cells(2, 3) = "ชื่อ - สกุล"
    Sheet2.Cells(2, 4) = "จำนวนเงิน"
    
    Sheet2.Range("A2", "D2").HorizontalAlignment = xlCenter
    Sheet2.Range("A2", "D2").Font.Bold = True
    
    r = 3
    l = 1
    For i = 2 To Sheet1.Range("A" & Rows.Count).End(xlUp).Row
        If Trim(Sheet1.Cells(i, 3)) <> "" And Trim(Sheet1.Cells(i, 3)) <> "Transaction Number" Then
            Sheet2.Cells(r, 1) = l
            Sheet2.Cells(r, 2) = Trim(Sheet1.Cells(i, 1))
            Sheet2.Cells(r, 3) = Trim(Sheet1.Cells(i, 2))
            Sheet2.Cells(r, 4) = Trim(Sheet1.Cells(i, 3))
            r = r + 1
            l = l + 1
        End If
    Next
    
End Sub

[krukrit]

คือผมมีปัญหาคือ 1. เวลาโอนข้อมูลมาแล้วไม่มีเส้นตารางในส่วนที่โอนมาครับ ตามที่คุณ tigerwit ได้แนะนำผมได้ทำตามแล้วแต่พอ เขียนปุ่มCommandButtonเพื่อลบข้อมูลแล้วเวลาโอนข้อมูลมาใหม่ก็จะไม่มีตารางเหมือนเดิมครับ
2. ในช่อง จำนวนเงิน ไม่เหมือนใน data ครับ ไม่มีทศนิยม ได้ทำตามคุณ tigerwit ได้แนะนำผมได้ทำตามแล้วแต่พอลบข้อมูลแล้วโอนมาใหม่ก็เหมือนเดิมครับคือไม่มีทศนิยม

[snasui]

แสดงว่าเรื่องของข้อมูลนั้นถูกต้องอยู่แล้วเหลือเพียง Format เท่านั้นใช่หรือไม่ครับ หากใช่ ให้บันทึก Macro การสร้าง Format แล้วปรับใช้ดู ติดตรงไหนสามารถถามมาได้ครับ

[krukrit]

แสดงว่าเรื่องของข้อมูลนั้นถูกต้องอยู่แล้วเหลือเพียง Format เท่านั้นใช่หรือไม่ครับ หากใช่ ให้บันทึก Macro การสร้าง Format แล้วปรับใช้ดู ติดตรงไหนสามารถถามมาได้ครับ
ครับผม เหลือ 2 จุดครับ ผมจะศึกษาได้จากที่ไหนครับแนะนำด้วยครับ

[snasui]

ศึกษาจากการบันทึก Macro ครับ ไม่ทราบว่ามีปัญหาอะไรกับการบันทึก Macro ครับ

[krukrit]

มีปัญหาการเขียนคำสั่งMacroครับ 2 จุดครับ
1. เวลาโอนข้อมูลมาแล้วไม่มีเส้นตารางในส่วนที่โอนมาครับ
2. ในช่อง จำนวนเงิน ไม่เหมือนใน data ครับ คือไม่มีทศนิยม ครับ
ไม่รู้ว่าจะเขียนอย่างไรครับ