PDA

View Full Version : مبتدی: هشدار در VBA



m3343kh
جمعه 26 آبان 1402, 20:10 عصر
با سلام خدمت دوستان
یک جدول اکسل دارم مثل تصویر زیر
میخواهم هر گاه مقدار ستون D منفی شد پیام هشدار ظاهر شود و به کاربر اجازه ادامه کار ندهد، تا زمانی که مقادیر را تصحیح کند.
سپاسگزارم
155045
https://barnamenevis.org/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAQEAAAC0CAYAAAC UnJmPAAATqElEQVR4Ae2dYbarKgyFO64OqOPpaDqS8MxrsQsYD ZAdsKaPZb67yqERu hC1S5N7 /fs38Y8MmAM2cmAS/ru54PM/TIB8MBtnIZ/z8EGxogjoMWSSk0 BgG5GDU8vdYwV UIRKPBG4ArFzJjJRw/1SHyQLxQBPYbsCZBPgYBuRg1PL3WMFfmSicDf9Lzfpttt /d41Tv297xn17hPz7/68iOdicB19/H1mO4R1L/no5rx6/mcfhWOYfm4AP09p0fEqDZmV WDYiWKQJxcM7jXY27UZSFYROSeJlkQhXL52jC1Ow Ba cB Ka/53RPxPox1en0a3pk8QHfUHV4WD6zBrib0d4b0HX5oFjVicDkG/dGHLI0eT1u0w0k2CwEwJZdZqhdBG4EJ7247k1yF8tawSjXcmQ 03Lzuu26 wzAZxH4XW6XQwUfbX8oAq/pcbtNv3a8om6HnjJ0kk eeUmcc0CvhyIcruHcn9PTCXpFMMfmM03zjem2T/SuygfFqk4ElsRQnyNn9VKSK8/Ek wjcKO4r/W kI uTNK Xew 7KWNzseNC9x3PhIczufvNb3UxuTHM9zjXiLw RjHzrihWIkiIA0M3kpqOsPep7goSUc6jsAN42ONQC/Px6Hhu8eIsL3WIx5oXLrRSQK6E4UGNTyf VG2fHOKmcTbR/D5ez6L4ze N5KNT0ixjuO2Ous38nqgWIkisAn 0u1Ez/vzVwoJkvl0yl0EbpjK1IqvOy/c7V PrQhM0 RHxf m58MN7GbPxqG8S8RIQYbn4 qlPf6EQIb6uf2D bwepZtleLTOYjC7ti0Lf82I66TM7qwUAQ8m9AacwsS9BS8awfF ANf909rIi56V674 f5NtEQczW5ANJvt6hlp5AiPcUbgJzbzD9vvH5uA5M3c nrfj49rNtzEncNjHw1jVG0cnSsWBe6/RrEQhfkH/OlQt3m8xYVfGszAi7Z0jyONAas/W818t3R9dE284LiUXebbub/1v83wl8Bj5aI4l5NeWzg30ai8f02pR9xyOuj9te6/S9CDj1zwYp8m b9/15 WNDSJ6oFymWHvHgGZK8iptLHCDQVeXBSeQDwCyHu/LJYo58ER8HUuXxd4ntOAGuvP9ZJr67nO8xINQOgQv2ET/z7q PxzExIB89A1rxqYk58iUTAb1CFq0I3Ngslh7ZOqMQdxe/rQf56AR/x0fuZb /vRxz5AtF4E1R3ELgxJMNHiQfPei/4ON7ct8LOfKFIqDHEE61LBQzY0aJZQZAoaIj8UG zCLgjPwjA bA9XNA0iz2BCQq0TGkntEppjfJRw//SHyQLxQBPYZ8HCCfAgHdjBqeXuoYK/KFIlDgjcAVipkxk48e6pH4IF8oAnoM2RMgnwIB3Ywanl7qGCvy hSIw88bvNSBwx4Sp11VR/dPfnqUJY7b5 Pdl3pPrtj/jteeDYomXh6cIzPOr3exGeUZd yC2FwI0o3A vs719gmfC4FdPosArHyWBUyyqdmt aBYuqxCvhgXgVjJLYqAUn/3GmomjNILYiix2kvZEd o8Jlf4slyRmDWjo/i64IG WJbBFwg/etxm4QPKYXABfupPyvqH9fPnAjs5NN10ZUKX1Eu2xaBkOGCggc TAhfsl/hU6v un7/TRL3f2UQ ESFhod3mfJRYIl8oAi6GH4B7h/4CW0r9p2Wl6XnwK3vedTVHiXUBKu8qqHz8af51 ezxoAcfxVcUK4qAi EH4N4ZcoEtpf5J7VyXM1trEiVWUu7sOwU 2noZzfkoviJfTIhACFL4KScf4aYIbAcB5Xa7fSRAiSWXP lRpWFpo/Guts35KL4iX0yIQDH1PgBXvOaZTpDqL9z1w1qD8bgASqwzVb/oq8RnWcE57xnl12rOB/jq/EK UAQcnQ/A5cE 9b5Yfz9RKG7w87/ok40LoMQ6NY/ceYmPdCwvpzQ84dTfHFL8QrGiCDj0H4D7TcQGuQqsfzpjUFqjE CXWIDX7jRsCn/wRMzxqus9YOJvzEXwNEJAvFIFACHwicOB0c4fJRw/5SHyQLxQBPYbwOapQzIwZJZYZAIWKjsQH UIROFEQC652MaPE6uLMgF86Eh/kyywCzsg/MmAOXD8HJJ1kT0CiEh1D6hmdYnqTfPTwj8QH UIR0GPIMQHyKRDQzajh6aWOsSJfKAIF3ghcoZgZM/nooR6JD/KFIqDHkD0B8ikQ0M2o4emljrEiX4yLQLwQg1tdaITloY5JgPJV HYvtW3C HLahxCp/35nOQPVPJ1Nt3klpOmPw81w2LAILtGh61/wyiMVpsYUl1rSXZCyIAKr/fHzNH59PuRC04fNdLtsVgfkFmezOJ0y5bBPEnnfF A6S8Zg0m/f52nyU gu5Mk8l7nET TKX7YqA1O6EwF47yecuAF5izSWXu9MJXAK S/OpqH/g4D67iUDsRNgWYoZiRREI0EKXuIeSRz502xSSZvVFsaHEWsteY UOp/7t6vtewPh0shl589jzaUgSWYPm3wvLuMH4H x38i2xpia7YeiV5U pK/Udcfm1vLlMEQjcuewU0JJmJJHeV1RJdsZngo9Q/5Mn8OT bp78wtebjBSB9nTn4iHwxLwJo5LcELtgv86klumJDiXUZLq4iS v3Tem4fCVry TSXTYuAV81UudOg8nFg5qE0gpZJnsem2b5Uf Gu33P5tW9y2a4ISIEVsspEkrt6azwUmwk Yv0HWn5N9G bzChWZkUgPDvFy0KF7XiEF4HbIj75ES2RFJsJPrD 6YzBXsuvfZvLZkWgtsmaSPJaGMJ55CNAiQ6NxAf5QhGIAiZtIn DSuRaPkY8e9ZH4IF8oAnoM RYh RQI6GbU8PRSx1iRL7MIOCP/yIA5cP0ckOSFPQGJSnQMqWd0iulN8tHDPxIf5AtFQI8hHwfIp0 BAN6OGp5c6xop8oQgUeCNwhWJmzOSjh3okPsgXioAeQ/YEyKdAQDejhqeXOsaKfDEvAn6 tVta7Db1muxxTMjbXBUlVptvH/9b2vFJJy7lKxw5UsgX0yIwz7Ra1w9YIMbTBRVw46dfGw9RYrX5 9vG/pRWf Wa25q5/kSkXAuSLYRHYvvE1/9Pb2WKjCNz46dfGQ/LROTfhI0xrTm9w3kfki10REMD1fAtMT6VxrSixxvW4rWe9 FAEauI82KugNS6PeE6vJB RheRTHz5CL1d5tLXbE1BEIH6W6hNEKZ3GPEY elza8okGB9exrrd/yBeKwJuRW2p0emTLjCFwSTHDO SjB78bH Emh3yxKwIcE9Czt9KKEquy OVP68en/oZmVwSEuz5/HdjfJvsl X5fe5Rowke46 /p1RoWgWmaf1tdn504T CTRtIkyT9xbJAybfj43F2nCbi6O2FYc9vDQL6YFgHPapkt6GYM JhR1cN7K/6PEIpnW RMNCu6c/WpeBErJyiTXCZHPefigWFEE9BjC daFYmbMKLHMAChUdCQ yBeKwImCWHC1ixklVhdnBvzSkfggX2YRcEb kQFz4Po5IOkkewISlegYUs/oFNOb5KOHfyQ yBeKgB5DjgmQT4GAbkYNTy91jBX5QhEo8EbgCsXMmMlHD/VIfJAvFAE9huwJkE BgG5GDU8vdYwV WJeBLi82HcJhxLru6tep3QXPuJ7MVxeTMyqdOEFThsWIRUOdkn ygk8jmdvzCTMH79PzLyWBfDHcE9i ZcUXiNKkqdlDiVVT1sI5rfn4G9t9ut8oAuX8ErtMW2FoHcSy42 OdQT56PJrymXP6Mb3E3ObjwDZSX75 ub2gzSNNk/yEiNvxid4kpAhUZooiAlxerJKhsm5d/RWufWYrEZgfA8JbsBSByqRSRCCwdFdqFcRKr4c7jXz0kDThEx4 DgisUgUCi8CmC4phAgdrG3CTJN996ngMt My9ALeGgPBXc0PjrwOvKKGE3kGLIEYenG6TfPSQdeEj3uBwr9a wCHB5MT1966xdkrzOtSHO6sKHIrAv9smMwbjvtFymSxD3VaHr2 eSj4 /ChyKgB2WvtUsQ9zrZ8Xzy0eGPxAf5YvpxQA ftyJwNWUtnEM epRH4oN8oQjoMeRPhORTIKCbUcPTSx1jRb7MIuCM/CMD5sD1c0CSF/YEJCrRMaSe0SmmN8lHD/9IfJAvFAE9hnwcIJ8CAd2MGp5e6hgr8oUiUOCNwBWKmTGTjx7q kfggXygCegzZEyCfAgHdjBqeXuoYK/LFvAgkk4Wyf8DRhQKBOyZM57sq egxa8ZnniCUvT Q5TPyxbQIcHkxPYFrrCixaspaOKcZH/feS9boc77IF8MisH1jkMuL5WlT3keJVS5p44xWfJL1BABa5Itd ERDnV2 FAYEDnM0dJh895K34uMfaeDEcySvki10REF4bniaKgJQ82jGUW FoZS7Y2fHze3u/3aE2BxxS/Je YI18oAklGLjCjtZoRuKSY4R3y0YPfhM8yKJj0BOZjqRAgXygCS QzZE0hwVOygxKooauKUfnzqc9muCHBM4CeNsF S/8T9wy/Sjw9FoCK4W0j8daACW3ZKvyTPHBl0twkfOL6V/gMkyBe7PYGJy4v9ot2gxPrFta9wjTZ8on9zIEAT5g0gX0yLgOO VzBjk8mIhhao/UWJVX DiJ7bj43u264rDwsQh5It5ESjlIAJXKmfFTj56pEfig3yhCOgx hL tFoqZMaPEMgOgUNGR CBfKAInCmLB1S5mlFhdnBnwS0fig3yZRcAZ UcGzIHr54Ckk wJSFSiY0g9o1NMb5KPHv6R CBfKAJ6DDkmQD4FAroZNTy91DFW5AtFoMAbgSsUM2MmHz3UI/FBvlAE9BiyJ0A BQK6GTU8vdQxVuSLeRFIJgvtmGBxTJjOd1WUWOeryTEet TzaS6bFgEuL/Z94rdM8u 9bX FVnzyRUVmQchuasgXwyLAF4h 0SRQYv3i2le4RhM 0huxwjHki10RECBxZaH9zQ4l1v4rXbNEEz7Cy0ISTeSLXRGAr1/epvg9IgROgmzxGPnoUW/BZ11kdM7psOx4uqqQ8xL5QhFIYugfEeJlmhC4pJjhHfLRg9 CzzogGN 9hN4B8oUikMRwO06AwCXFDO Qjx78FnykQcA9j7Z2RYBjAnr2VlpbJHmlK0Oe1oLP jiQEKi/odkVAWF5cS4vlmRR1U6LJK9yZNCTmvCB41tcXqyYFmk3yi/RdIufq5TBlOLFjZzQJMlPzLINH5 78VhWOgfGA0S GO4JeDDroMrtNuUC4M5A4E6clz91nXx0nO34LDcxl8fuL5sopO WyeRHQQ0gRIJ8SAd3eTgR0P5wV UIRKLBD4ArFzJjJRw/1SHyQLxQBPYZQPQvFzJhRYpkBUKjoSHyQL7MIOCP/yIA5cP0ckDSLPQGJSnQMqWd0iulN8tHDPxIf5AtFQI8hHwfIp0 BAN6OGp5c6xop8oQgUeCNwhWJmzOSjh3okPsgXioAeQ/YEyKdAQDejhqeXOsaKfDEvAslkoR0TLI4J0/muihLrfDU5xuMmfJJXiMOrxP4zngCLfDEtAunUSk4b/qQZoMT65FpXLNOLTzol3pNFvhgWge1bVnyBaH8zRIm1/0rXLNGFz9wzSF8ecnSRL3ZFgK8S/6TVocT6ycUvcJH2fOQeLUVASib4 iWXF5NwoWPtkxx5Mubx5nxAL8DRQb7Y7QkoIhC/konAjZly7b0iH515az7zWEA8Ghi5h3yhCESQ9izJlBQzvIMSyz CSpOpt QjjXJE3yBe7IsAxgSg9Pt9EifX5Fa9VsikfsXf75ol8sSsCXF7 snR1fbKHE uKSlyrakk/6k/cWI/LFsAhMU/pbqjyqisBtEds8Qj563Fvy0cYDnJfIF9Mi4MDM4MKSTMKACgKn h96OlXz0WLfj429i8aB27hnyxbwI5KDyfQQuP8/qPvnokR JD/KFIqDHEHahCsXMmFFimQFQqOhIfJAvFIETBbHgahczSqwuzgz4 pSPxQb7MIuCM/CMD5sD1c0DSSfYEJCrRMaSe0SmmN8lHD/9IfJAvFAE9hhwTIJ8CAd2MGp5e6hgr8oUiUOCNwBWKmTGTjx7q kfggXygCegzZEyCfAgHdjBqeXuoYK/LFvAgkk4W4vNju7EOJtftCFy3Qjs8y4zVMfNuRy6ZFIJ1rzWnD n7TDdkn iXf9y7Ths Ru1PDTKfGeA/LFsAgIr10Kb2EhcP3TawwPyEePQxM 0huxwjHki10RECBxPQE9oSUrSizpXIvHmvCRclk4hnyxKwLCXZ 8isL ZosTaf6VrlmjDh48Dn2WPIgLxm1htgvhZFUYoRT56FFry XSQmz2BJIbbcYKWQUxcOckO eiBasPH5 1tfRU /FLwmF6Re8gXuyIgPDPxcSDKmMpNlFiVxS9/WhM Uq9WyG/ki10R4PJiP2mAKLF cvELXKQJH4rA55mS/pbKeQKfkGyS5J84NkiZNnzyx4F86TwPA/liuCfgwSSDKesz1TuDELj3Gba3yEePfzs ixBwxqAekE s7YL4iXf9y5CPHoOR CBfzPcE9BDiFVpL5azYUWJZqX pniPxQb5QBApRROAKxcyYyUcP9Uh8kC zCDgj/8iAOXD9HJAk6yYd5DESIAE7BCgCdmLNmpKASIAiIGLhQRKwQ4A iYCfWrCkJiAQoAiIWHiQBOwQoAnZizZqSgEiAIiBi4UESsEOAI mAn1qwpCYgE/gMQwgh9M1W/KAAAAABJRU5ErkJggg==

m3343kh
شنبه 27 آبان 1402, 22:25 عصر
کسی میتونه کمکی کنه؟

mazoolagh
سه شنبه 30 آبان 1402, 17:37 عصر
سلام و روز خوش

این رو باید از همون data validation استفاده کنین؛

1- سلول های ستون های B و C که در فرمول هستن رو انتخاب کنین:
155052

2- از تب DATA گزینه Data Validification :
155053

155054

155055

3- تست :
155056

m3343kh
سه شنبه 30 آبان 1402, 18:03 عصر
بسیار :تشویق: سپاسگزارم