نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

موضوع: ذخيره مذاكرات به صورت بايگاني در يوزرفرم

  1. #1


    آخرین بازدید
    2020/03/10
    تاریخ عضویت
    April 2015
    محل سکونت
    مشهد
    نوشته ها
    72
    امتیاز
    19
    سپاس
    45
    سپاس شده
    6 در 6 پست
    تعیین سطح نشده است

    ذخيره مذاكرات به صورت بايگاني در يوزرفرم

    با سلام به اساتيد محترم
    تو فايل پيوست ارسالي در ستون A وقتي در هر سل كليد ميكنيم يه فرمي باز ميشه بنام(بايگاني مذاكرات)با يه دكمه ذخيره
    ميخوام خلاصه اي بعد از هر صحبت هاي شده تو فرم بنويسم و وقتي دكمه ذخيره زدم به صورت بايگاني ذخيره بشه!
    يعني سري بعد اگه روي همون سل كليد كرديم همون فرم باز بشه با اطلاعاتي كه نوشته بوديم.دوباره اگه يه سري چيزهايي نوشتيم و دكمه ذخيره زديم دوباره ثبت و ذخيره بشه.
    با اين امكان كه بعد از هر Enter كه زديم يه خطي بياد پايين.
    ممنون ميشم راهنمايي و كمك كنيد.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    با سلام.

    در userform2 کد زیر رو بگذارید :
    کد PHP:

    Private Sub UserForm_Initialize()
    TextBox1.Text ActiveCell.Offset(016).Value
    End Sub 
    و در دکمه "ذخیره" از کد زیر :

    کد PHP:

    Private Sub CommandButton1_Click()
    Dim ans As String
    ans 
    MsgBox("are you sure?"vbYesNo)
        If 
    ans vbYes Then
                ActiveCell
    .Offset(016).Value TextBox1.Text
                     MsgBox 
    "changed" 
           
    End If
    End Sub 
    ویرایش توسط Javid Mokhtari : 2016/03/01 در ساعت 22:11
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/




  5. #3


    آخرین بازدید
    2020/03/10
    تاریخ عضویت
    April 2015
    محل سکونت
    مشهد
    نوشته ها
    72
    امتیاز
    19
    سپاس
    45
    سپاس شده
    6 در 6 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط jansiz hayat نمایش پست ها
    با سلام.

    در userform2 کد زیر رو بگذارید :
    کد PHP:

    Private Sub UserForm_Initialize()
    TextBox1.Text ActiveCell.Offset(016).Value
    End Sub 
    و در دکمه "ذخیره" از کد زیر :

    کد PHP:

    Private Sub CommandButton1_Click()
    Dim ans As String
    ans 
    MsgBox("are you sure?"vbYesNo)
        If 
    ans vbYes Then
                ActiveCell
    .Offset(016).Value TextBox1.Text
                     MsgBox 
    "changed" 
           
    End If
    End Sub 

    با سلام
    كد هاي ارائه شده از طرف شما استاد عزيز درست اعمال ميشه
    فقط اطلاعاتي كه در يوزرفرم ذخيره ميكنيم نميشه فقط در همان فرم ذخيره بشه ؟
    چون رديف ها بي نهايت و براي هر ديف ما در يوزرفرم ممكنه اطلاعات زيادي بنويسيم
    در اين صورت حجم فايل خيلي بالا نميره!؟
    ممنون راهنمايي كنيد

  6. #4


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام
    با درود فراوان
    برای این کار میتوانید از یک شیت برای ذخیره مذاکرات استفاده کنید و همچین زمان نوشتن مذاکره جدید مذاکرات قبلی هم نمایش داده میشه این نمونه که ضمیمه کردم ببینید
    البته میتوانید کلید برای ویرایش مذارکرات هم قرار بدین
    فايل هاي پيوست شده فايل هاي پيوست شده
    ---------------------------------------------------------------------------------------------------
    بمانیم تا کاری کنیم ،نه کاری کنیم تا بمانیم [size=x-small](دکتر شریعتی)[/size]
    shamsololama@yahoo.com
    09177733411


  7. #5


    آخرین بازدید
    2020/03/10
    تاریخ عضویت
    April 2015
    محل سکونت
    مشهد
    نوشته ها
    72
    امتیاز
    19
    سپاس
    45
    سپاس شده
    6 در 6 پست
    تعیین سطح نشده است

    با سلام
    اساتيد محترم ميشه يه راهنمايي كنين در مورد:
    فرم ثبت مشتري،يوزرفرم1 وقتي كليك ميكنيم:
    در قسمت تكس باكس نام شركت و نام مشتري اسمي وارد كرديم برنامه بياد اگه مشابه اون اسم بود در قسمت ليست باكس همون فرم بياره

    مثلا اگه ما در اطلاعاتمون اسامي به مشخصات نام آقاي علي و نام شركت سپيده بود
    حالا ما در يوزرفرم در قسمت نام نوشتيم علي .اطلاعات همون آقاي علي در ليست باكس بياد يعني اگه هم چند اسم يا كلمه بود حتي اگه يه هم كلمه داشت در ليست باكس بياره.
    در تكس باكس نام شركت هم همينطور.
    اين كار براي جلوگيري از وارد كردن اطلاعات تكراري ميباشد.
    ممنون در مورد اين برنامه راهنمايي و كمك كنين.
    فايل هاي پيوست شده فايل هاي پيوست شده

  8. #6


    آخرین بازدید
    2017/12/02
    تاریخ عضویت
    January 2016
    نوشته ها
    9
    امتیاز
    14
    سپاس
    12
    سپاس شده
    4 در 3 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط مائده نمایش پست ها
    با سلام
    اساتيد محترم ميشه يه راهنمايي كنين در مورد:
    فرم ثبت مشتري،يوزرفرم1 وقتي كليك ميكنيم:
    در قسمت تكس باكس نام شركت و نام مشتري اسمي وارد كرديم برنامه بياد اگه مشابه اون اسم بود در قسمت ليست باكس همون فرم بياره

    مثلا اگه ما در اطلاعاتمون اسامي به مشخصات نام آقاي علي و نام شركت سپيده بود
    حالا ما در يوزرفرم در قسمت نام نوشتيم علي .اطلاعات همون آقاي علي در ليست باكس بياد يعني اگه هم چند اسم يا كلمه بود حتي اگه يه هم كلمه داشت در ليست باكس بياره.
    در تكس باكس نام شركت هم همينطور.
    اين كار براي جلوگيري از وارد كردن اطلاعات تكراري ميباشد.
    ممنون در مورد اين برنامه راهنمايي و كمك كنين.
    سلام به عزيزان
    منم دقيقا يه همچين مشكلي تو يكي از برنامه هام دارم .
    يه كدي كه وقتي تو يوزرفرم گذاشتيم از ثبت اطلاعات تكراري جلوگيري كنه.
    مثلا اگه اطلاعات نامي چند كلمه اي بود ولي ما يه كلمه رو در تكس باكس اورديم همون اطلاعات در ليست باكس بياره.حالا اگه سري اطلاعاتي كه ميخواستيم وارد كنيم اون اطلاعات نبود بقيه تكس باكس ها رو وارد و ذخيره ميكنيم.
    اساتيدي كه در اين مورد كد ميدونن لطفا راهنمايي كنن.
    ممنون ميشم كارم خييلي گير اين مورد هست

  9. #7


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    در فایل پیوست در فرم موجود در صورت ورود هر حرف کلیه کلماتی که با آن حرف شروع میگردد سطر آن کلمه در لیست باکس لیست میگردد.

    که میتوانید برای فرم خود از آن الگو بگیرید

    کد PHP:
    Private Sub textbox1_Change()

    Dim CELLRNG As Range

    ListBox1
    .Clear

    ListBox1
    .ColumnWidths "50;50;80;80;80;80;80;80;80;80"

    If textbox1 <> "" Then

    Set RNG 
    Sheet1.Range("Table1[#All]")


    For 
    Each CELL In RNG

    If Left(CELLLen(textbox1)) = textbox1 Then


    ListBox1
    .AddItem CELL

    For 1 To 10
                          
        ListBox1
    .List(ListBox1.ListCount 11) = Cells(CELL.RowI)
        
        
    Next I
        
        End 
    If
        
        
    Next
        
        End 
    If

    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط iranweld : 2016/04/11 در ساعت 13:30


  10. #8


    آخرین بازدید
    2020/03/10
    تاریخ عضویت
    April 2015
    محل سکونت
    مشهد
    نوشته ها
    72
    امتیاز
    19
    سپاس
    45
    سپاس شده
    6 در 6 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    با سلام

    در فایل پیوست در فرم موجود در صورت ورود هر حرف کلیه کلماتی که با آن حرف شروع میگردد سطر آن کلمه در لیست باکس لیست میگردد.

    که میتوانید برای فرم خود از آن الگو بگیرید

    کد PHP:
    Private Sub textbox1_Change()

    Dim CELLRNG As Range

    ListBox1
    .Clear

    ListBox1
    .ColumnWidths "50;50;80;80;80;80;80;80;80;80"

    If textbox1 <> "" Then

    Set RNG 
    Sheet1.Range("Table1[#All]")


    For 
    Each CELL In RNG

    If Left(CELLLen(textbox1)) = textbox1 Then


    ListBox1
    .AddItem CELL

    For 1 To 10
                          
        ListBox1
    .List(ListBox1.ListCount 11) = Cells(CELL.RowI)
        
        
    Next I
        
        End 
    If
        
        
    Next
        
        End 
    If

    End Sub 

    سلام
    مشكل اين برنامه رفع شد
    با تشكر از شما استاد گرامي

  11. سپاس ها (1)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. [حل شده] كليك كردن در هر سل و باز شدن يوزرفرم
    توسط مائده در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2016/01/05, 15:10
  2. ايجاد Lb در يوزرفرم
    توسط 4017 در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 4
    آخرين نوشته: 2014/07/16, 09:37
  3. يوزر فرم
    توسط rezahagh در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/10/03, 19:26
  4. تغيير سايز فونت ليبل در يوزرفرم و00
    توسط alisabet در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2012/07/19, 12:25
  5. ماكرو در يوزر فرم
    توسط sonbol در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/03/09, 05:38

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد