วิธีการจัดรูปแบบเซลล์ระหว่างสองวันด้วยสีตามค่าใน vba


0

(ขออภัยหากคำถามนี้ยากที่จะเข้าใจฉันไม่สามารถโพสต์ภาพได้)

ฉันได้พยายามหาวิธีแก้ปัญหาสำหรับออนไลน์นี้ แต่ยังไม่ได้โชคดี

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

นั่นคือฉันได้แทรกแต่ละวันในปฏิทินในแนวนอนข้ามสเปรดชีตจาก F2 ตลอดทั้งปี IF C2 = 01/12/14 & D2 = 24/12/14 และ E2 = 3. เซลล์ทั้งหมดระหว่างวันที่ของ C2 และ D2 จะเติมด้วยสีแดง .. เช่นเดียวกันกับ IF C3 = 01/05/14 & D3 = 05/05/14 และ E3 = 2 เซลล์จะถูกเติมด้วยสีฟ้า

ขอบคุณ

คำตอบ:


1

ฉันไม่เชื่อว่ามีวิธีการใด ๆ ในการเลือกสีแบบไดนามิกเมื่อใช้ Excel ที่สร้างขึ้นในการจัดรูปแบบตามเงื่อนไข คุณสามารถใช้ VBA เพื่อให้บรรลุตามที่คุณคาดไว้

สมมติว่าคอลัมน์ C มีวันที่ที่ต่ำกว่าในช่วงช่วงที่คอลัมน์ D มีวันที่ด้านบนในช่วงคอลัมน์ E มี colorindex (ดูที่นี่ ) และคอลัมน์ F มีวันที่ที่เรากำลังทดสอบ (และนี่คือเซลล์ที่เราระบายสี ) คุณสามารถสร้างรูทีนย่อยต่อไปนี้:

Public Sub update_colors()
    Dim rngDates As Range
    Set rngDates = Sheet1.Range("F2:F3")

    Dim rngDateCell As Range
    For Each rngDateCell In rngDates.Cells
        If Sheet1.Cells(rngDateCell.Row, 3).Value <= rngDateCell.Value And Sheet1.Cells(rngDateCell.Row, 4).Value >= rngDateCell.Value Then
            rngDateCell.Interior.ColorIndex = Sheet1.Cells(rngDateCell.Row, 5).Value
        End If
    Next rngDateCell

End Sub

ตั้งค่า F2: F3 ในบรรทัดที่สามเป็นช่วงวันที่ทั้งหมดในแผ่นงานของคุณ

คุณสามารถเริ่มการย่อย / udf นี้ด้วยปุ่ม ในแท็บนักพัฒนาซอฟต์แวร์ของคุณ (ไปที่นี่สำหรับคำแนะนำเกี่ยวกับวิธีการเปิดใช้งานหากคุณยังไม่ได้คลิก) "แทรก" และเลือกปุ่มภายใต้ "การควบคุมแบบฟอร์ม" วาดปุ่มบนแผ่นงาน (คุณสามารถเลื่อนได้หลังจากนั้น) และเลือกรูทีนย่อยที่คุณเพิ่งสร้างจากรายการ ตอนนี้เมื่อคุณคลิกปุ่มรูทีนย่อยจะทำงาน

หากคุณไม่ชอบสีคุณสามารถใช้บางอย่างนอกเหนือจาก. ภายในสี color () เพื่อตั้งค่าสีของเซลล์ ฉันเป็นแฟนตัวยง. InColor = RGB (,,) คุณจะต้องมีค่า RGB ในแผ่นงานเพื่อดึงออกมา แต่คุณจะมีหลายล้านสีให้เลือกแทนที่จะเป็นเพียง 56 ดัชนีสีที่ ช่วยให้

โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.