程式碼如下:
Sub VBAColor() Dim i As Integer For i = 1 To 56 If i < 29 Then Cells(i, 1).Interior.ColorIndex = i Cells(i, 2) = i Else Cells(i - 28, 3).Interior.ColorIndex = i Cells(i - 28, 4) = i End If Next i End Sub畫面如下
我是Amin,喜好整合軟體之間的應用至數據分析,如Excel VBA、Python、C/C++、C#、JavaScript、Google Apps Script、Batch、MultiCharts的相互應用,歡迎各領域同好相互討論,創造人生精采的火花
沒有留言:
張貼留言