Page 1 of 1
อยากให้ข้อมูลที่เรากรอกไปอยู่ในแถวที่เราต้องการ
Posted: Wed Sep 26, 2012 5:56 pm
by thanatsin
สวัสดีครับ
คือหน้า Return ของผมจะป้อนข้อมูลเข้าไป พอกดปุ่ม แล้วให้ข้อมูลวันที่คืนไปอยู่ในหน้า Renting ในช่องวันที่คืน
แต่ผมอยากสร้างเงื่อนไขว่า ถ้า รหัสหนังสือ กับ รหัสลูกค้า ตรงกันก็จะให้ข้อมูล วันที่คืน ไปอยู่ในแถวนั้นๆ
ผมไม่รู้ว่าต้องเขียนเงื่อนไขเป็น โค้ด รึเปล่า ปกติผมจะสร้างชื่อช่วงนั้นแล้วเขียนเงื่อนไขใน Name Manager แต่ครั้งนี้ผมคิดไม่ออกว่าจะต้องทำยังไง
รบกวนด้วยนะครับ
.
.
แล้วหน้าSummary ของผมใช้ Pivot เพื่อสรุป
แต่พอสร้างไว้แล้ว ข้อมูลเปลี่ยน แต่ใน Pivot ไม่เปลี่ยนตามครับ
Re: อยากให้ข้อมูลที่เรากรอกไปอยู่ในแถวที่เราต้องการ
Posted: Wed Sep 26, 2012 6:06 pm
by snasui
หน้า Return หน้า Renting ที่กล่าวถึงคือชีท Return ชีท Renting ใช่ไหมครับ
ลองอธิบายสิ่งที่ต้องการมาว่าต้องการจะทำอะไร จากไหนไปไหน อ้างถึงชีท เซลล์ และควรจะบอกด้วยว่า Code อยู่ใน Module ใด Procedure ใด ที่ทำมาแล้วติดปัญหาตรงไหน ที่ถูกต้องนั้น ต้องการให้แสดงผลอย่างไร จะได้เข้าใจตรงกันและเข้าถึงข้อมูลได้โดยไวครับ
Re: อยากให้ข้อมูลที่เรากรอกไปอยู่ในแถวที่เราต้องการ
Posted: Wed Sep 26, 2012 6:19 pm
by thanatsin
ใช่ครับ คือต้องการให้ วันที่คืนของชืทReturn ไปอยู่ในตาราง วันที่คืนของชีท Renting เพื่อให้ สถานะ ในชีทBook เป็น Free ครับ
โค้ดสั้นมากครับที่ Module5
Sub Returning()
a = Range("Dreturn5")
Range("Dreturn3") = a
End Sub
คือผมเขียนต่อไม่เป็นครับ อยากใหเ Range("Dreturn5") ไปอยู่ใน Range("Dreturn3") โดยมีเงื่อนไขว่าถ้า Ccode4(คือรหัสลูกค้าในหน้าReturn) และ Bcode4(รหัสหนังสือในหน้าReturn) ตรงกับแถวใดให้ไปแสดงที่แถวนั้น
ประมาณนี้ครับ
Re: อยากให้ข้อมูลที่เรากรอกไปอยู่ในแถวที่เราต้องการ
Posted: Wed Sep 26, 2012 6:38 pm
by 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
Re: อยากให้ข้อมูลที่เรากรอกไปอยู่ในแถวที่เราต้องการ
Posted: Wed Sep 26, 2012 6:56 pm
by thanatsin
โห สุดยอดครับ ได้แล้ว
ถ้าสมมุติว่าครั้งแรก ลูกค้าC1 เช่า หนังสือ B1 แล้วคืนแล้ววันที่ 26/9/2012
แล้วครั้งที่2ลูกค้า C1 มาเช่าหนังสือ B1 อีกครั้ง แล้วมาคืนในวันที่ 28/9/2012
วันที่คืนในครั้งแรกจะเปลี่ยนจากวันที่ 26/9/2012 เป็น 28/9/2012 ไปด้วยครับ
มีวิธีที่จะทำให้ วันที่นั้น ไม่เปลี่ยนตามไหมครับ
Re: อยากให้ข้อมูลที่เรากรอกไปอยู่ในแถวที่เราต้องการ
Posted: Wed Sep 26, 2012 7:47 pm
by 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 ก็ต้องค่อย ๆ ศึกษาเรียนรู้กันไปครับ