Snasui Excel Forum

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

เรียน อาจารย์ และผู้รู้

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

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

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

Public LastCell As Range, LastColor As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (LastCell Is Nothing) Then LastCell.Interior.ColorIndex = LastColor
Set LastCell = Target
LastColor = LastCell.Interior.ColorIndex
LastCell.Interior.ColorIndex = 3
End Sub
Private Sub ...

เรียน อาจารย์ และท่านผู้รู้
ผมรบกวนแนะแนวเขียน VBA เพิ่มเติมให้ด้วยครับ
ไฟล์เดิมผมให้กำหนดสี เมื่อเซลล์ Active ครับ แต่อยากเพิ่มเติมคือ เมื่อคีย์ตัวเลขพร้อมกับรายชื่อสารที่รับ ให้เซลล์แสดงสีตามชื่อสารนั้น แต่ตัดชื่อสารออก แสดงเฉพาะตัวเลข ตัวอย่าง
วันที่ 3 พ.ค. 59 สาร AA 1 เที่ยว หรือมากกว่า 1 เท ...

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

Private Sub worksheet_change(ByVal target As Range)
target.Offset(1, 0).Activate
End Sub
Private Sub worksheet_selectionchange(ByVal target As Range)
If target.Row = 41 Then
Cells(3, target.Column).Select
End If

End Sub

โค้ดที่อาจารย์ที่อาจารย์ปรับมาให้ ใช้งานได้ครับ แต่หากต้องการให้ขยับไปในคอล ...

ต้องขออภัยที่ลืมแนบโค้ดมาให้ด้วย
ตอนนี้แนบมาให้แล้วครับ

เรียน ท่านผู้รู้
ผมเขียน VBA ให้เริ่มต้นบรรทัดใหม่ โดยที่ผมเขียนจะเริ่มบรรทัดที่ 1 แต่อยากให้เริ่มใหม่ บรรทัดที่ 3 แต่ผมไม่ทราบว่าจะเปลี่ยนตรงไหน รบกวนแนะนำเพิ่มเติมด้วยครับ

เรียน อาจารย์
สูตรใช้ได้ตามจุดประสงค์ครับ
ขอบพระคุณอย่างสูงครับ

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

ขอบคุณอาจารย์ครับ

เรียน อาจารย์ /ท่านผู้รู้
อยากทราบสูตรนับแบบมีเงื่อนไขครับ จากไฟล์แนบเป็นการบันทึกรหัสงานในแต่ละเดือน
โดย ช่อง A เดือน,B วันที่,C รหัสงาน ,E นับจำนวนในแต่ละเดือน
ความต้องการคือ อยากให้ E 2 นับจำนวนเมื่อใส่รหัสงาน โดยมีเงือนไขว่าให้นับเฉพาะ
เดือนที่กำหนด
ขอแสดงความนับถือ

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

ได้ตามที่ต้องการครับ ขอขอบพระคุณอย่างสูงครับ

ไฟล์แนบครับ

เรียน อาจารย์และท่านผู้รู้

ผมรบกวนแนะนำด้วยครับ เนื่องจากผมเขียน VBA สำหรับให้เอ็กเซล เริ่มบรรทัดใหม่เมื่อสิ้นสุดบรรทัดที่ 33 และเริ่มใหม่
ปัญหาคือ ผมพยายามให้เริ่มบรรทัดที่ 2 แต่ทำไม่ได้สักทีครับ รบกวนแนะนำและเขียนโค้ดเพิ่มเติมให้ด้วยครับ

Private Sub Worksheet_Change(ByVal Target As Range ...

ขอขอบคุณสำหรับคำแนะนำครับ

ขออภัยที่ต้องมาคอยให้ตอบกระทู้บ่อยๆครับ ผมเองงานก็เยอะมาก ขออธิบายจุดประสงค์ดังนี้ครับ
1. เวลาบันทึกข้อมูล จะคึย์ข้อมูลตั้งแต่ A1 ภึง R40
2. ข้อมูลทั้งหมดเป็นตัวเลข โอกาสซ้ำกันจึงเกิดขึ้นได้
3. เมื่อมีข้อมูลที่ซ้ำกัน อยากให้แสดงออกมาว่า ตัวข้อมูลใดที่ซ้ำกัน
4. อยากทราบว่า ใช้ conditional กำหนดค่าได ...