ঠিক আছে, সুতরাং আমি এই প্রথম কোড জমা দিয়েছি, তাই এখানে যায়। আমি ভেবেছিলাম ম্যাক্রো রুটটি যাওয়ার উপায় হবে, তবে আপনি শর্তযুক্ত বিন্যাস ব্যবহার করে ফন্টটি ঘরের রঙের মতো করতে সেট করতে পারবেন না তবে কেবল অন্য উপায়টি ম্যাক্রোর সাথে একইরকম কাজ করে যা উভয়ই পরিবর্তন করা হবে the শর্তসাপেক্ষ্য বিন্যাসের প্রভাব, নীচে দেখুন:
Sub change()
Dim Rstart, Rmid, Rend, Gstart, Gmid, Gend, Bstart, Bmid, Bend, Rsd, Rdd,_
Gsd, Gdd, Bsd, Bdd, Rcell, Gcell, Bcell As Integer
Dim maxsel, minsel, halfsel, halfval, v As Double
Rstart = 0
Rmid = 230
Rend = 255
Gstart = 0
Gmid = 230
Gend = 0
Bstart = 255
Bmid = 230
Bend = 0
Rsd = Rmid - Rstart
Rdd = Rend - Rmid
Gsd = Gmid - Gstart
Gdd = Gend - Gmid
Bsd = Bmid - Bstart
Bdd = Bend - Bmid
maxsel = Application.WorksheetFunction.Max(Selection)
minsel = Application.WorksheetFunction.Min(Selection)
halfsel = (maxsel - minsel) / 2
halfval = minsel + halfsel
If halfval = 0 Then Exit Sub
Dim cell As Variant
For Each cell In Selection
v = cell.Value
If v >= minsel And v < halfsel Then
Rcell = Round((Rstart + ((halfval - v) / halfsel) * Rsd), 0)
Gcell = Round((Gstart + ((halfval - v) / halfsel) * Gsd), 0)
Bcell = Round((Bstart + ((halfval - v) / halfsel) * Bsd), 0)
Else
Rcell = Round((Rmid + ((v - halfval) / halfsel) * Rdd), 0)
Gcell = Round((Gmid + ((v - halfval) / halfsel) * Gdd), 0)
Bcell = Round((Bmid + ((v - halfval) / halfsel) * Bdd), 0)
End If
cell.Font.Color = RGB(Rcell, Gcell, Bcell)
cell.Interior.Color = RGB(Rcell, Gcell, Bcell)
Next cell
End Sub
আশা করি এটি কাউকে সহায়তা করবে, যদিও মূল প্রশ্নের জন্য তিন বছর বেশি দেরি হয়েছে।
