label

[intro]

سلام
من يه يوزر فرمي دارم كه چندين ليبل و تكست باكس را داره كه باكليك روي كامند اطلاعات موجود در تكستها به سلهاي تعريف شده وارد ميشن .
آيا امكان داره كه قبل از كليك كامند بتونم چند تا تكست را باهم جمع كنم ودر يه ليبل نشان بدم.
البته من اين كار رو به صورت زير انجام دادم ولي جواب نگرفتم.
Private Sub UserForm_Activate()
UserForm1.Label25.Caption = TextBox1.Value + TextBox2.Value
End Sub

[~M*E*H*D*I~]

RE: label

سلام
منظور شما ازجمع کردن ، جمع کردن 2 عدد باهمه یا نه اتصال 2 متن باهم؟

[mahsa shayesteh]

RE: label

سلام
من اطلاعاتم اونقد زیاد نیس ولی فک نکنم کپشن عدد بگیره شما باید عدد رو تو یه متغیر ذخیره کنی بعد متغیر رو با & به کپشن وصل کنی اگه فایلو ضمیمه میکردین بهتر میشد جواب داد

[khakzad]

RE: label

سلام
اگه عدد باشه، ایتطوری جواب میده.
اما اگر متن هست به گفته خانم شایسته باید عطف بشه با & .

[~M*E*H*D*I~]

RE: label

اگه بخواد عدد بگیره باید کپشن رو برداره یعنی بعد از lable25 مساوی بذاره

[khakzad]

RE: label

اهان .بله.به اون دقت نکردم

[~M*E*H*D*I~]

RE: label

intro جان ما منتظر جوابیم چی شد بالاخره

[Javid Mokhtari]

RE: label

سلام
من يه يوزر فرمي دارم كه چندين ليبل و تكست باكس را داره كه باكليك روي كامند اطلاعات موجود در تكستها به سلهاي تعريف شده وارد ميشن .
آيا امكان داره كه قبل از كليك كامند بتونم چند تا تكست را باهم جمع كنم ودر يه ليبل نشان بدم.
البته من اين كار رو به صورت زير انجام دادم ولي جواب نگرفتم.
Private Sub UserForm_Activate()
UserForm1.Label25.Caption = TextBox1.Value + TextBox2.Value
End Sub

با سلام.
بذارید اول یه چیزی رو توضیح بدم:
همانطور که رشته ی الحاقی "&" عمل پیوند رو انجام می دهد،"+" هم می تواند همین عمل را انجام دهد .یعنی وقتی ما می نویسیم:
UserForm1.Label25.Caption = TextBox1.Value + TextBox2.Value
Lebel25 ،مقادیر باکس 1 و 2 را به هم پیوند میدهد و جمع نمی کند.برای اینکه از این عمل جلوگیری شود ابتدا باید مقادیر از رشته به عدد تبدیل شود.یعنی به شکل زیر:

UserForm1.Label25.Caption = Val(TextBox1.Value) + Val(TextBox2.Value
در اینصورت اگر بعد از عدد متنی هم واقع شود باز قسمت عددی را انتخاب و با عدد مورد نظر جمع می کند.ولی اگر عدد بعد از متن قرار بگیرد، دیگر عدد را جزء رشته دانسته و عملی بر روی آن انجام نمی دهد.

اما در مورد مقدار گرفتن label بدون استفاده از کامند:
خب،میشه از راههای متنوعی استفاده کرد.مثل Mouse Move،Mouse Up , ...

اما پیشنهاد من روش زیر است:
Private Sub UserForm_Initialize()
TextBox1.Value = 5
TextBox2.Value = 10
UserForm1.Label1.Caption = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub

[intro]

RE: label

سلام خدمت دوستان
فايل به پيوست تقديم ميگردد

http://www.shakheh.com/up/uploads/1431051329.rar

[Javid Mokhtari]

RE: label

[quote=intro]
سلام خدمت دوستان
فايل به پيوست تقديم ميگردد

با سلام.
دوست عزیز مثل اینکه به توضیحات بالا توجهی نکردید.

[intro]

RE: label

سلام آقا جاويد
البته كه فرمايشاتون رو خوندم توضيحات دوستان كامل بود از راهنماييتون ممنونم . بله قبلا اين مطالب رو ننوشته بودم . ولي بايد به بزرگي خودتون ببخشيد اشكال از بنده است كه شاگرد خوبي نيستم و نتونستم توضيحات كافي بدم .
درفايل زير يه يوزر فرم گذاشتم كه براي هرفردي تعدادي تكست باكس وجود داره درست عين شيت اكسل . مي خوام كه همزمان با وارد كردن اطلاعات در يوزر فرم اين اطلاعات به شيت و سل مربوطه منتقل شده و همزمان ليبل مقابل ( يعني ليبل 25) جمع رو نشان بده و همينطور ليبل 27 هم متوسطي كه از سل j70 بدست مياد را نشان بده .
ليبل
از راههايي هم كه فرموديد رفتم ولي هركدام مستلزم اينه كه مثلا موس را روي ليبل ببرم و ياروي اون كليك كنم و...

[Javid Mokhtari]

RE: label

با سلام.
برای اینکه به محض وارد کردن اطلاعات داخل TextBox،تغییرات در سلول متناظر خودش اعمال بشه ،باید از رویداد Change استفاده بشه(که خودتون این کار رو انجام دادید).یعنی باید برای هر باکس یک کد بنویسید.فکر نکنم راه دیکه ای باشه.البته تو بیسیک یک رویداد به نام Load وجود داره که کار رو آسون میکنه ولی متاسفانه تو اکسل همچین رویدادی وجود نداره.
اما برای مقدار میانگین Label27می توان از کد زیر هم استفاده کرد:

Private Sub Worksheet_Change(ByVal Target As Range)
UserForm1.Label27.Caption = WorksheetFunction.Average((Range("j45:j68")))
End Sub