Page 1 of 1
เขียนโค้ด VBA เพือกำหนดสี
Posted: Tue Jun 14, 2016 10:59 am
by nopparuj
เรียน อาจารย์ และท่านผู้รู้
ผมรบกวนแนะแนวเขียน VBA เพิ่มเติมให้ด้วยครับ
ไฟล์เดิมผมให้กำหนดสี เมื่อเซลล์ Active ครับ แต่อยากเพิ่มเติมคือ เมื่อคีย์ตัวเลขพร้อมกับรายชื่อสารที่รับ ให้เซลล์แสดงสีตามชื่อสารนั้น แต่ตัดชื่อสารออก แสดงเฉพาะตัวเลข ตัวอย่าง
วันที่ 3 พ.ค. 59 สาร AA 1 เที่ยว หรือมากกว่า 1 เที่ยว ก็กำหนดสีพื้นหลังเป็นสีน้ำตาล (รายละเอียดในไฟล์แนบ) แต่ถ้าเปลี่ยนเป็นชื่อสารอื่นๆที่รับมา ก็ให้เปลี่ยนสีพื้นหลังตามที่คีย์ครับ
ขอแสดงความนับถือ
Re: เขียนโค้ด VBA เพือกำหนดสี
Posted: Wed Jun 15, 2016 7:20 pm
by snasui
ช่วยอ้างถึงตำแหน่งเซลล์ครับ
สาร AA อยู่ในเซลล์ใดครับ
การกำหนดเป็นสีอะไรดูจากเงื่อนไขใดช่วยอธิบายมาอย่างละเอียดครับ
Re: เขียนโค้ด VBA เพือกำหนดสี
Posted: Thu Jun 16, 2016 3:19 pm
by 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(พื้นหลังสีน้ำตาล)
ผมพยายามหาโค้ดมาเขียนเพิ่มเติม แต่ไม่สามารถทำได้ครับ รบกวนอาจารย์ช่วยแนะนำด้วยครับ
ขอแสดงความนับถือ
Re: เขียนโค้ด VBA เพือกำหนดสี
Posted: Fri Jun 17, 2016 7:10 pm
by snasui
ไฟล์ที่แนบมานั้นไม่มี Code สำหรับการเขียนให้ดูค่าในเซลล์แล้วพิจารณากำหนดสีและกำหนดค่าใหม่ มีแต่ Code สำหรับการแสดงสีเมือเลือกเซลล์ซึ่งไม่เกี่ยวข้องกับสิ่งที่ถามตามกระทู้นี้ ให้เขียนมาเองก่อน ติดตรงไหนแล้วค่อยุถามกันต่อครับ
Re: เขียนโค้ด VBA เพือกำหนดสี
Posted: Mon Jun 20, 2016 1:34 pm
by nopparuj
เรียน อาจารย์
ถ้ายังงั้นผมคงไม่รบกวนแล้วครับ เพราะผมจนปัญญาจะเขียนจริงๆครับ โค้ดที่เขียนผมก็อาศัยอ่านแล้ว ลองประยุกต์ดูครับ
แต่คราวนี้ไม่ได้เลยถามมาในกระทู้ครับ
ขอแสดงความนับถือ
Re: เขียนโค้ด VBA เพือกำหนดสี
Posted: Mon Jun 20, 2016 6:44 pm
by snasui
ขอชื่นชมในความพยายามศึกษาค้นคว้าและทดสอบทดลอง ขอเอาใจช่วยครับ
ผมไม่สามารถตอบเป็น Code ให้ได้เพราะว่า
ไม่ใช่เป็นการปรับปรุง หรือเขียนเพิ่มเติมจาก Code เดิม หรือช่วยแก้ไขสิ่งที่เป็นปัญหา
Code ที่เขียนมานั้นไม่สามารถใช้ได้ เพราะเป็นการเขียนไปคนละวัตถุประสงค์กับสิ่งที่กำลังจะถามครับ
ขอตอบเป็นแนวทางตามด้านล่างครับ
- เปลี่ยน Event จาก
Worksheet_SelectionChange เป็น Worksheet_Change เนื่องจากเป็นการดักจับสิ่งที่กรอกในเซลล์ ไม่ใช่เมื่อเลือกเซลล์
- ศึกษาการกำหนดตัวแปร, จัดการกับค่าในเซลล์, ศึกษาการ Loop ต่าง ๆ, ฟังก์ชั่นสำหรับการจัดการกับ String เช่น Left, Mid, Instr, Right เป็นต้น
Re: เขียนโค้ด VBA เพือกำหนดสี
Posted: Wed Jun 22, 2016 10:32 am
by nopparuj
ขอบพระคุณอาจารย์ครับ ที่แนะแนว ผมจะนำไปประยุกต์ใช้ดูอีกที ผลเป็นอย่างไร จะกลับมาแบ่งปันครับ
ขอแสดงความนับถือ