Color All Excel Worksheet Tabs in Different Colors With One Touch

แชร์
ฝัง
  • เผยแพร่เมื่อ 23 ธ.ค. 2024
  • 💡 Source Code
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms&)
    Sub ws_col_change()
    Dim ws As Worksheet, col_red As Byte, col_green As Byte, col_blue As Byte, _
    col_change_loop As Byte
    For col_change_loop = 1 To 50
    For Each ws In ThisWorkbook.Worksheets
    DoEvents
    col_red = WorksheetFunction.RandBetween(0, 255)
    col_green = WorksheetFunction.RandBetween(0, 255)
    col_blue = WorksheetFunction.RandBetween(0, 255)
    ws.Tab.Color = RGB(col_red, col_green, col_blue)
    Sleep 20
    Next ws
    Next col_change_loop
    End Sub
    ---------------------------------------------------------------------------------------
    Buy a Cofee ☕ for theworldofalgorithms: ko-fi.com/thew...
    🥰Thank you for the donation. I am deeply grateful for your help!🥰
    ----------------------------------------------------------------------------------------
    #excel
    #msexcel
    #msexceltutorial
    #msexcelcourse
    #vba
    #vbatutorial
    #excelvba
    #fulltutorial
    #excelvbatutorial
    #microsoftexceltutorial
    #tutorial
    #exceltutorial
    #advancedexcel
    #advancedexceltraining
    #tutor
    #exceltutor
    #exceltutoring
    #exceltutoringonline
    #onlineexceltutoring
    #algorithm
    #algorithms
    #programming
    #program
    #script
    #vbamacro
    #vbamacros
    #usingmacro
    #veryuseful
    #useful
    #veryusefulmacro
    #freeeducation
    #freeprogramming
    #freelancer
    #excelfreelancer
    #vbafreelancer
    #freelanceservices
    #microsoftofficespecialist
    #microsoftexcelexpert
    #vbauserform
    #excelvbauserform
    #change
    #changecolor
    #changetabcolor
    #worksheettabcolor
    #excelvbamultipage
    #projectdevelopedbyexcelvba

ความคิดเห็น • 2