Saya telah menggunakan Modul yang sangat berguna untuk menghitung jumlah sel yang diisi warna, yang bekerja dengan sangat baik.
Namun, saya ingin mewarnai sel dengan memformatnya secara kondisional, dan modul VBA tidak berfungsi dalam kasus itu.
Spreadsheet yang saya kerjakan menganalisis pengeluaran untuk komoditas per bulan. Sel ditautkan ke lembar lain untuk menunjukkan nilai bulan tersebut.
Saya kira Anda mungkin dapat mengubah modul VBA, tetapi saya tidak terlalu fasih dengan VBA.
Adakah yang bisa membantu mengubah skrip untuk mengakomodasi kebutuhan saya?
Berikut adalah kode VBA:
Namun, saya ingin mewarnai sel dengan memformatnya secara kondisional, dan modul VBA tidak berfungsi dalam kasus itu.
Spreadsheet yang saya kerjakan menganalisis pengeluaran untuk komoditas per bulan. Sel ditautkan ke lembar lain untuk menunjukkan nilai bulan tersebut.
Saya kira Anda mungkin dapat mengubah modul VBA, tetapi saya tidak terlalu fasih dengan VBA.
Adakah yang bisa membantu mengubah skrip untuk mengakomodasi kebutuhan saya?
Berikut adalah kode VBA:
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function