Page 1 of 1
สอบถามเงื่อนไขในการเช็คสีพื้นหลังของ Cell
Posted: Wed Jan 23, 2013 1:37 pm
by ณัฐวุฒิ เบ็ญชา
รบกวนสอบถามผู้รู้ครับ คือ ผมต้องการจะเช้คสีพื้นหลัง ของ Cell ว่าเป็นสี ขาวหรือไม่ ถ้าเป้นสีขาวจะให้ใส่คำว่า ธรรมา ถ้าไม่ใช่ให้ใส่ด่วน อะครับ
VBA นะครับ โค้ดเท่าที่รู้กะแค่เปลี่ยนสีพื้นหลังอะครับแต่ไม่ทราบว่าจะเช็คยังไง รบกวนด้วยครับ
Code: Select all
' Sheet1.Cells(R, 7).Select
' Selection.Interior.ThemeColor = xlThemeColorDark1 'ขาว
' Sheet1.Cells(R, 7).Select
'Selection.Interior.Color = 255 'Red
If Sheet1.Cells(i, 7).Interior.Color <> xlThemeColorDark1 Then
Sheet1.Cells(i, 7) = "ด่วน"
Else
Sheet1.Cells(i, 7) = "ธรรมดา"
End If
Re: สอบถามเงื่อนไขในการเช็คสีพื้นหลังของ Cell
Posted: Wed Jan 23, 2013 1:43 pm
by joo
ลองแนบไฟล์มาดูด้วยครับ
Re: สอบถามเงื่อนไขในการเช็คสีพื้นหลังของ Cell
Posted: Wed Jan 23, 2013 1:46 pm
by ณัฐวุฒิ เบ็ญชา
File ที่เขียนครับ ตามแนบ
Re: สอบถามเงื่อนไขในการเช็คสีพื้นหลังของ Cell
Posted: Wed Jan 23, 2013 2:07 pm
by snasui
ณัฐวุฒิ เบ็ญชา wrote:รบกวนสอบถามผู้รู้ครับ คือ ผมต้องการจะเช้คสีพื้นหลัง ของ Cell ว่าเป็นสี ขาวหรือไม่ ถ้าเป้นสีขาวจะให้ใส่คำว่า ธรรมา ถ้าไม่ใช่ให้ใส่ด่วน อะครับ
VBA นะครับ โค้ดเท่าที่รู้กะแค่เปลี่ยนสีพื้นหลังอะครับแต่ไม่ทราบว่าจะเช็คยังไง รบกวนด้วยครับ
Code: Select all
' Sheet1.Cells(R, 7).Select
' Selection.Interior.ThemeColor = xlThemeColorDark1 'ขาว
' Sheet1.Cells(R, 7).Select
'Selection.Interior.Color = 255 'Red
If Sheet1.Cells(i, 7).Interior.Color <> xlThemeColorDark1 Then
Sheet1.Cells(i, 7) = "ด่วน"
Else
Sheet1.Cells(i, 7) = "ธรรมดา"
End If
ลองแทนที่
xlThemeColorDark1 ด้วย
vbWhite ครับ
Re: สอบถามเงื่อนไขในการเช็คสีพื้นหลังของ Cell
Posted: Wed Jan 23, 2013 2:11 pm
by ณัฐวุฒิ เบ็ญชา
ได้แล้วครับ
ขอบคุณมากครับผม ท่านอาจารย์
