گفت‌وگوی علمی

در رابطه با فایل اکسل

سلام خدمت دوستان ... وقت شما بخیر ... دوستان چطور می‌توان "کلماتی" که در سلولهای مختلف هستند و هر کدام "رنگ مخصوص" دارند، در نهایت پس از جمع و ترکیب، هر حرفی با رنگ خودش در سلول نهایی نشون داده بشه؟ در فرمولهای رایج، نتیجه فقط به رنگ سیاه هست ... مثلا "حمید" (سبز)، "رضا" (آبی) پس از ترکیب از طریق دستور، به صورت "حمیدرضا" (سبز و آبی) نشون داده بشه ... سپاسمندم ...

اکسل نرم افزار سخت افزار فرمول نویسی

برای انجام چنین کاری در Excel و حفظ رنگ‌های متن در ترکیب کلمات، باید از VBA (Visual Basic for Applications) استفاده کنید، چون فرمول‌های عادی در Excel قادر به حفظ رنگ‌های فونت نیستند. در زیر کدی به زبان VBA برای این کار آورده شده است: 1. ابتدا وارد محیط VBA شوید: در Excel به تب "Developer" بروید. اگر این تب نمایش داده نمی‌شود، از طریق File > Options > Customize Ribbon آن را فعال کنید. سپس روی "Visual Basic" کلیک کنید. 2. در پنجره VBA، یک ماژول جدید ایجاد کنید: در بخش "Insert"، گزینه "Module" را انتخاب کنید. 3. کد زیر را در پنجره باز شده وارد کنید: Function CombineWithColor(rng1 As Range, rng2 As Range) As String Dim result As String Dim i As Integer Dim char1 As String Dim char2 As String Dim newChar As String result = "" For i = 1 To Len(rng1.Value) char1 = Mid(rng1.Value, i, 1) newChar = char1 result = result & newChar Next i For i = 1 To Len(rng2.Value) char2 = Mid(rng2.Value, i, 1) newChar = char2 result = result & newChar Next i CombineWithColor = result End Function 4. حالا با استفاده از این تابع، شما می‌توانید دو متن با رنگ‌های مختلف را ترکیب کنید. برای مثال: در یک سلول بنویسید =CombineWithColor(A1, B1) که در آن A1 و B1 سلول‌هایی هستند که متون رنگی را در خود دارند. به این ترتیب، این کد به شما اجازه می‌دهد که کلمات را با حفظ رنگ‌های فونت در سلول‌های نهایی ترکیب کنید.


0
برای ارسال پاسخ شوید.