อยากให้ข้อมูลที่เรากรอกไปอยู่ในแถวที่เราต้องการ

[thanatsin]

สวัสดีครับ

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

.
.
แล้วหน้าSummary ของผมใช้ Pivot เพื่อสรุป
แต่พอสร้างไว้แล้ว ข้อมูลเปลี่ยน แต่ใน Pivot ไม่เปลี่ยนตามครับ

[snasui]

หน้า Return หน้า Renting ที่กล่าวถึงคือชีท Return ชีท Renting ใช่ไหมครับ

ลองอธิบายสิ่งที่ต้องการมาว่าต้องการจะทำอะไร จากไหนไปไหน อ้างถึงชีท เซลล์ และควรจะบอกด้วยว่า Code อยู่ใน Module ใด Procedure ใด ที่ทำมาแล้วติดปัญหาตรงไหน ที่ถูกต้องนั้น ต้องการให้แสดงผลอย่างไร จะได้เข้าใจตรงกันและเข้าถึงข้อมูลได้โดยไวครับ

[thanatsin]

ใช่ครับ คือต้องการให้ วันที่คืนของชืทReturn ไปอยู่ในตาราง วันที่คืนของชีท Renting เพื่อให้ สถานะ ในชีทBook เป็น Free ครับ
โค้ดสั้นมากครับที่ Module5
Sub Returning()
a = Range("Dreturn5")
Range("Dreturn3") = a
End Sub
คือผมเขียนต่อไม่เป็นครับ อยากใหเ Range("Dreturn5") ไปอยู่ใน Range("Dreturn3") โดยมีเงื่อนไขว่าถ้า Ccode4(คือรหัสลูกค้าในหน้าReturn) และ Bcode4(รหัสหนังสือในหน้าReturn) ตรงกับแถวใดให้ไปแสดงที่แถวนั้น
ประมาณนี้ครับ

[snasui]

สามารถปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub Returning()
'    a = Range("Dreturn5")
'    Range("Dreturn3") = a
    Dim rAll As Range
    Dim r As Range
    With Sheets("Renting")
        Set rAll = .Range("A2", .Range("A2").End(xlDown))
    End With
    For Each r In rAll
        With Sheets("Return")
            If r.Offset(0, 2) = .Range("B2") And _
                r = .Range("D2") Then
                r.Offset(0, 9) = .Range("B1")
            End If
        End With
    Next r
End Sub

[thanatsin]

โห สุดยอดครับ ได้แล้ว
ถ้าสมมุติว่าครั้งแรก ลูกค้าC1 เช่า หนังสือ B1 แล้วคืนแล้ววันที่ 26/9/2012
แล้วครั้งที่2ลูกค้า C1 มาเช่าหนังสือ B1 อีกครั้ง แล้วมาคืนในวันที่ 28/9/2012
วันที่คืนในครั้งแรกจะเปลี่ยนจากวันที่ 26/9/2012 เป็น 28/9/2012 ไปด้วยครับ
มีวิธีที่จะทำให้ วันที่นั้น ไม่เปลี่ยนตามไหมครับ

[snasui]

ปรับตรง If ครับ จากเดิม

Code: Select all

If r.Offset(0, 2) = .Range("B2") And _
  r = .Range("D2")

เป็น

Code: Select all

If r.Offset(0, 2) = .Range("B2") And _
  r = .Range("D2") and  r.Offset(0, 9) = ""

คราวนี้ผมปรับมาให้ดูเป็นตัวอย่างก่อน ในคราวต่อไปควรทดลองปรับมาเองก่อน ติดปัญหาแล้วค่อยถามกันครับ ผมทราบว่าการปรับมาเองก่อนนั้นมันไม่ได้ง่าย แต่หากว่าจะใช้ VBA ก็ต้องค่อย ๆ ศึกษาเรียนรู้กันไปครับ