Page 2 of 2
Re: สอบถามเกี่ยวกับการใช้เงื่อนไขครับ conditional formats
Posted: Fri Aug 28, 2015 6:25 pm
by snasui
สามารถใช้ Code โดยใช้ Offset เข้ามาช่วยได เช่นด้านล่างเป็นต้นครับ
Range(x).Value=Target.Offset(y,0).Value
x และ y คือสิ่งที่จะต้องแทนค่าด้วยตนเอง
Re: สอบถามเกี่ยวกับการใช้เงื่อนไขครับ conditional formats
Posted: Sat Aug 29, 2015 8:25 am
by DhitiBank
หากใช้ vba ก็ประยุกต์จากคำตอบของอาจารย์เลยครับ ซึ่งสามารถทำให้ยืดหยุ่นได้ตามใจขึ้นอยู่กับการเขียนโค้ด
หรือหากต้องการแก้ในสูตร ลองปรับเป็น
Code: Select all
=INDEX($J$6:$CB$56,MATCH(1,1/(MMULT(COLUMN($J$67:$CB$67)^0,--TRANSPOSE($J$67:$CB$117=$K$61))>0),0),
MATCH(1,1/(MMULT(TRANSPOSE(ROW($J$67:$J$117)^0),--($J$67:$CB$117=$K$61))>0),0))
Ctrl+Shift+Enter ครับ
แต่หากมีข้อมูลซ้ำกันมากๆ การใช้สูตรน่าจะทำให้มีปัญหาอยู่บ้างครับ
Re: สอบถามเกี่ยวกับการใช้เงื่อนไขครับ conditional formats
Posted: Sat Aug 29, 2015 7:49 pm
by yodpao.b
ขอบคุณมากครับ
ผมใช้ VBA ของอาจารย์ดีกว่าครับ คำตอบที่ได้แม่นยำกว่าครับ
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("K65, J67:CB117")) Is Nothing Then 'Range("K65")
Sheets("Table").Range("K61") = Target.Value
Sheets("Table").Range("K60") = Target.Offset(-61, 0).Value
End If
End Sub