[حل شده] پیدا کردن تاریخ امروز در تقویم اکسل

[alikhassi]

سلام
یک جدول تقویم اکسل که برای یکسال برنامه ریزی شده
میخوام وقتی اکسل باز میشه با کلیک کردن بر روی یک آیکون ، روز جاری پیدا بشه

[Amir Ghasemiyan]

سلام
یک جدول تقویم اکسل که برای یکسال برنامه ریزی شده
میخوام وقتی اکسل باز میشه با کلیک کردن بر روی یک آیکون ، روز جاری پیدا بشه

سلام دوست عزيز
شما ميتونين تو يك سلول تاريخ روز رو بزنيد و با conditional formatting تعريف كنيد كه اگر يكي از سلول ها با تاريخ روز برابر بود رنگي كنه

[alikhassi]

[QUOTE=Amir Ghasemiyan;61874]سلام دوست عزيز
شما ميتونين تو يك سلول تاريخ روز رو بزنيد و با conditional formatting تعريف كنيد كه اگر يكي از سلول ها با تاريخ روز برابر بود رنگي كنه

ولی باید دنبالش بگردم
اونی که شما گفتید انجام دادم
یه ماکرو تعریف کردم که فقط اون روز جواب میده ، فرداش که ماکرو رو اجرا میکنم تاریخ قبل رو پیدا میکنه

[Amir Ghasemiyan]

Cells.Find([COLOR=#ff0000]What:="43220"دوست عزيز شما در كدي كه نوشتيد تاريخ يك روز خاص رو فقط گذاشتيد. بايد رفرنس بدين به سلولي كه تاريخ روز داره

, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

[/COLOR]

[alikhassi]

Cells.Find([COLOR=#ff0000]What:="43220"دوست عزيز شما در كدي كه نوشتيد تاريخ يك روز خاص رو فقط گذاشتيد. بايد رفرنس بدين به سلولي كه تاريخ روز داره

, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

[/COLOR]

همینو نمیتونم

[Amir Ghasemiyan]

همینو نمیتونم

چرا نتونین؟

مثلا فرض کنید در سلول A1 نوشتید اون مقدار رو

t=Range("A1").Value
Cells.Find(What:= t , After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

[alikhassi]

دمت گرم ممنون