تغییر رنگ بعضی از سلول های اکسل بعد از اکسپورت شدن کوری به اکسل

[soroush_k12]

سلام من یک کوری رو به اکسل اکسپورت میکنم میخام وقتی فایل اکسل باز شد بعضی از سلول هاش مطابق با شرط کوری رنگی باشه.ایا روشی هست؟ ممنونم میشم از استاید
عکس های پیوست گویاست
از ورژن ۲۰۰۳ هم استفاده میکنم
با تشکر فراوان

[eb_1345]

سلام من یک کوری رو به اکسل اکسپورت میکنم میخام وقتی فایل اکسل باز شد بعضی از سلول هاش مطابق با شرط کوری رنگی باشه.ایا روشی هست؟ ممنونم میشم از استاید
عکس های پیوست گویاست
از ورژن ۲۰۰۳ هم استفاده میکنم
با تشکر فراوان

سلام
قطعا برای رنگی کردن فونت سلول های ستون مورد نظر شرط هائی قائل هستین . بطور مثال یکی از شروط شما میتونه این یاشه که اگر اعداد ستون H فلان مقدار بود رنگ فونت سلول مربوطه قرمز بشه و برای ستون های دیگر هم همچنین
حال با این توضیحات شرط یاشروط شما برای رنگی نمایش دادن فونت سلول های ستون مد نظر چیه ؟

[soroush_k12]

سلام ممنونم دوست عزیز از وقتی که گذاشتید.بله شرط من صفر بودن مقدار هست.فقط نکته اینجاست که من روی فایل اکسل نمی خام برنامه نویسی کنم.میخام وقتی فایل اکسل اکسپورت شد خودش بعضی سلول هاش رنگی باشه.یعنی کلیه کدها در اکسس باشه.البته یکاری هم انجام دادم.اول کوری به ریپورت تبدیل کردم بعد اکسل کردم و روی ریپورت کد رنگی شدن داده های صفر رو نوشتم.توی ریپورت رنگی بودن ولی بازم بعد تبدیل به اکسل همگی سیاه شدن

[eb_1345]

سلام ممنونم دوست عزیز از وقتی که گذاشتید.بله شرط من صفر بودن مقدار هست.فقط نکته اینجاست که من روی فایل اکسل نمی خام برنامه نویسی کنم.میخام وقتی فایل اکسل اکسپورت شد خودش بعضی سلول هاش رنگی باشه.یعنی کلیه کدها در اکسس باشه.البته یکاری هم انجام دادم.اول کوری به ریپورت تبدیل کردم بعد اکسل کردم و روی ریپورت کد رنگی شدن داده های صفر رو نوشتم.توی ریپورت رنگی بودن ولی بازم بعد تبدیل به اکسل همگی سیاه شدن
در تصویر اولتون مقادیر بزرگتر از صفر هم هست که رنگشون قرمزه ولی میفرمائین که شرط صفر بودن مقداره . علی ایحال بنظرم خواسته شما قابل انجام باشه ولی بهتره برای نتیجه گیری سریعتر نمونه کار خودتون رو ارائه فرمائید .

[eb_1345]

به عنوان نمونه به کدهای زیر دقت بفرما !



Dim MyCell
Dim StatValue As String
Dim StatusRange
Dim strPath As String
strPath = Access.CurrentProject.Path & "\" & "x.xlsx"
Dim XlSheet As Variant
Dim XlBook As Variant
Set xl = GetObject(strPath)
Set XlSheet = xl.Worksheets(1)
Set StatusRange = XlSheet.Range("A4")
For Each MyCell In StatusRange
StatValue = MyCell.Value
Select Case StatValue
Case 0
MyCell.Font.Color = vbRed
Case Is > 0
MyCell.Font.Color = 0
End Select
Next MyCell



در کدهای فوق شرط گذاشته شده که عدد ستون سطر 4 اگه صفر بود رنگ فونتش قرمز بشه و اگه بزرگتر از صفر بود سیاه
ضمناً فرض شده نام فایل اکسل شما x.xlsx میباشه

[soroush_k12]

به عنوان نمونه به کدهای زیر دقت بفرما !



Dim MyCell
Dim StatValue As String
Dim StatusRange
Dim strPath As String
strPath = Access.CurrentProject.Path & "\" & "x.xlsx"
Dim XlSheet As Variant
Dim XlBook As Variant
Set xl = GetObject(strPath)
Set XlSheet = xl.Worksheets(1)
Set StatusRange = XlSheet.Range("A4")
For Each MyCell In StatusRange
StatValue = MyCell.Value
Select Case StatValue
Case 0
MyCell.Font.Color = vbRed
Case Is > 0
MyCell.Font.Color = 0
End Select
Next MyCell



در کدهای فوق شرط گذاشته شده که عدد ستون سطر 4 اگه صفر بود رنگ فونتش قرمز بشه و اگه بزرگتر از صفر بود سیاه
ضمناً فرض شده نام فایل اکسل شما x.xlsx میباشه
سلام ممنونم از راهنمایی شما
این نمونه ساده . اگه ممکنه کدی برای باتن فرم بنویسید که دیتای صفر در فایل اکسل رنگی شود. تشکر فراوان154213

[eb_1345]

سلام ممنونم از راهنمایی شما
این نمونه ساده . اگه ممکنه کدی برای باتن فرم بنویسید که دیتای صفر در فایل اکسل رنگی شود. تشکر فراوان


Dim MyCell
Dim StatValue As String
Dim StatusRange
Dim i As Integer
Dim xl As Object
Dim XlSheet As Object
Set xl = GetObject(strPath & "\" & "t1.xlsx")
Set XlSheet = xl.Worksheets(1)
xl.Application.Visible = True
xl.Parent.Windows(1).Visible = True
For i = 1 To 6
Set StatusRange = XlSheet.Range("A" & i & ":" & "D1" & i)
For Each MyCell In StatusRange
StatValue = MyCell.Value
If StatValue = 0 Then MyCell.Font.Color = vbRed
Next MyCell
Next
XlSheet.Range("a1").Select
xl.Save
Set xl = Nothing
Set XlSheet = Nothing

[soroush_k12]

نمونه ضمیمه خدمت شما
خوشت اومد هرچند تا دوست داشتی صلوات بفرست!

عالی بود بسیار ممنونم

[soroush_k12]

Dim MyCell
Dim StatValue As String
Dim StatusRange
Dim i As Integer
Dim xl As Object
Dim XlSheet As Object
Set xl = GetObject(strPath & "\" & "t1.xlsx")
Set XlSheet = xl.Worksheets(1)
xl.Application.Visible = True
xl.Parent.Windows(1).Visible = True
For i = 1 To 6
Set StatusRange = XlSheet.Range("A" & i & ":" & "D1" & i)
For Each MyCell In StatusRange
StatValue = MyCell.Value
If StatValue = 0 Then MyCell.Font.Color = vbRed
Next MyCell
Next
XlSheet.Range("a1").Select
xl.Save
Set xl = Nothing
Set XlSheet = Nothing


سلام صبح بخیر.ظاهرا تغییراتی در کد لحاظ فرمودید.ممکنه فایل نمونه رو هم اصلاح بفرمایید.با تشکر

[soroush_k12]

با سلام خدمت جناب eb_1345
ممکنه نمونه اصلاح شده رو مجددا اپلود کنید.من همچنان منتظر هستم.ممنونم.موفق باشید

[eb_1345]

با سلام خدمت جناب eb_1345
ممکنه نمونه اصلاح شده رو مجددا اپلود کنید.من همچنان منتظر هستم.ممنونم.موفق باشید
سلام آقا سروش عزیز!
همون نمونه ای که دریافت کردی کامله و ایرادی نداره . اگه دقت کنی در کدهای پست 9 در حلقه for ... next تعداد سطرها رو 6 سطر و ستون ها از از A تا D مشخص کرده ام در صورتیکه در نمونه ای که شما دریافت کردی محدویت در سطر و ستون وجود نداره ، به عبارتی فایل اکسل شما هر تعداد سطر و ستون داشته باشه تغییرات در تمام سلول ها انجام میشه .