سلام،
آقا وحيد احتياجي به شارژ نيست عزيز جان،
اين کد را براي دگمه اي که اطلاعات را از تکست بکس به صفحه انتقال مي دهد بايد بنويسيد:
کد:
Range("B3").Value = TextBox1.Text
Range("C7").Value = TextBox2.Text
اين يکي براي پاک کردن تکست بکس ها است:
کد:
TextBox1.Text = ""
TextBox2.Text = ""
اگر مي خواهيد داخل صفحه هم پاک شود Range("B3").Value و Range("C7").Value هم به کد اضافه کرده و آنها را هم برابر تهي قرار دهيد
اين کد هم براي فرم بگذاريد تا هنگام اجراي فرم اگر در خانه هاي C7 و B3 مقدار بود اتوماتيک در تکست بکس هاي فرم لود شود:
کد:
Private Sub UserForm_Initialize()
TextBox1.Text = Range("B3").Value
TextBox2.Text = Range("C7").Value
End Sub
علاقه مندی ها (Bookmarks)