نحوه نوشتن کد برای InputBox

[hs208]

سلام دوستان
من میخوام با فشار دادن دکمه change text در فایل پیوست یه Inputbox باز شه که بتونم متن جدید و دلخواهم رو توش بنویسم و به جای متن قبلی جایگزین در تکست باکس بشه

همچنین میخوام موقع باز شدن InputBox متن فعلی موجود در تکست باکس رو به عنوان پیش فرض پیشنهاد بده

به عبارت دیگه میخوام بار اول که دکمه رو فشار دادم InputBox باز بشه و عبارت "لیست کل کارکنان " رو هم پیشنهاد بده
من عبارت رو عوض کنم بذارم "لیست کارکنان تاخیری" و این عبارت جایگزین متن فعلی بشه
دفعه بعد که دکمه change text رو فشار دادم InputBox باز بشه و عبارت "لیست کارکنان تاخیری" رو پیشنهاد بده و من باز عوضش کنم یه چیز جدید بذارم یا اینکه اگه خواستم عوضش نکنم

و این کار تا بی نهایت بار بشه تکرار شه

با تشکر فراوان

InputBox.xlsx

[abootorab]

سلام دوستان
من میخوام با فشار دادن دکمه change text در فایل پیوست یه Inputbox باز شه که بتونم متن جدید و دلخواهم رو توش بنویسم و به جای متن قبلی جایگزین در تکست باکس بشه

همچنین میخوام موقع باز شدن InputBox متن فعلی موجود در تکست باکس رو به عنوان پیش فرض پیشنهاد بده

به عبارت دیگه میخوام بار اول که دکمه رو فشار دادم InputBox باز بشه و عبارت "لیست کل کارکنان " رو هم پیشنهاد بده
من عبارت رو عوض کنم بذارم "لیست کارکنان تاخیری" و این عبارت جایگزین متن فعلی بشه
دفعه بعد که دکمه change text رو فشار دادم InputBox باز بشه و عبارت "لیست کارکنان تاخیری" رو پیشنهاد بده و من باز عوضش کنم یه چیز جدید بذارم یا اینکه اگه خواستم عوضش نکنم

و این کار تا بی نهایت بار بشه تکرار شه

با تشکر فراوان

[ATTACH]6718[/ATTACH]

با درود
از کد زیر برای رویداد click کلید change text استفاده کنید:

Private Sub CommandButton1_Click()
    df = Sheet1.Shapes("TextBox 1").TextFrame2.TextRange.Text
    ib = InputBox("لطفا متن مورد نظر را وارد کنيد:", "ورود متن", df)
    Sheet1.Shapes("TextBox 1").TextFrame2.TextRange.Text = ib
End Sub 

برای وارد کردن کد ابتدا وارد تب DEVELOPER شوید و از بخش Controls حالت Design Mode رو فعال کرده و سپس روی کلید change text دوبار کلیک کنید و کد بالا رو درون آن کپی کنید.