เขียนโค้ด VBA เพือกำหนดสี

[nopparuj]

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

[snasui]

ช่วยอ้างถึงตำแหน่งเซลล์ครับ

สาร AA อยู่ในเซลล์ใดครับ

การกำหนดเป็นสีอะไรดูจากเงื่อนไขใดช่วยอธิบายมาอย่างละเอียดครับ

[nopparuj]

Code: Select all

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 Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not (LastCell Is Nothing) Then LastCell.Interior.ColorIndex = LastColor
End Sub

เรียน อาจารย์
สีที่อ้างอิง อยู่ในช่วง AP17-AP28 ครับ
ชื่อสารที่อ้างอิง อยู่ในช่วง AQ17-AQ28 ครับ
ช่วงข้อมูลที่ต้องการให้แสดงคือ B18:AF58
การกำหนดสีอ้างอิงจากชื่อสารที่คีย์ลงเซลล์ครับ ซึ่งตรงนี้ผมต้องการเงื่อนไขว่า เมื่อคีย์ชื่อสารกับตัวเลข ให้เซลล์แสดงสีตามที่กำหนด โดยเมื่อคีย์แล้วให้ตัดอักขระออก เหลือแต่ตัวเลขครับ เช่น
ที่ B18 คีย์ AA1 เซลล์ตัด AA ออก แล้วกำหนดสีพื้นหลังเป็นสีน้ำตาล
(สิ่งที่คีย์ลงช่อง B18 = AA1)
(จุดประสงค์ที่ต้องการ = 1(พื้นหลังสีน้ำตาล)
ผมพยายามหาโค้ดมาเขียนเพิ่มเติม แต่ไม่สามารถทำได้ครับ รบกวนอาจารย์ช่วยแนะนำด้วยครับ
ขอแสดงความนับถือ

[snasui]

ไฟล์ที่แนบมานั้นไม่มี Code สำหรับการเขียนให้ดูค่าในเซลล์แล้วพิจารณากำหนดสีและกำหนดค่าใหม่ มีแต่ Code สำหรับการแสดงสีเมือเลือกเซลล์ซึ่งไม่เกี่ยวข้องกับสิ่งที่ถามตามกระทู้นี้ ให้เขียนมาเองก่อน ติดตรงไหนแล้วค่อยุถามกันต่อครับ

[nopparuj]

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

[snasui]

ขอชื่นชมในความพยายามศึกษาค้นคว้าและทดสอบทดลอง ขอเอาใจช่วยครับ

ผมไม่สามารถตอบเป็น Code ให้ได้เพราะว่าไม่ใช่เป็นการปรับปรุง หรือเขียนเพิ่มเติมจาก Code เดิม หรือช่วยแก้ไขสิ่งที่เป็นปัญหา

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

ขอตอบเป็นแนวทางตามด้านล่างครับ

1. เปลี่ยน Event จาก Worksheet_SelectionChange เป็น Worksheet_Change เนื่องจากเป็นการดักจับสิ่งที่กรอกในเซลล์ ไม่ใช่เมื่อเลือกเซลล์
2. ศึกษาการกำหนดตัวแปร, จัดการกับค่าในเซลล์, ศึกษาการ Loop ต่าง ๆ, ฟังก์ชั่นสำหรับการจัดการกับ String เช่น Left, Mid, Instr, Right เป็นต้น

[nopparuj]

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