غیر فعال شده سلول ها با انتخاب کموباکس

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • dehghanipm

    • 2017/12/27
    • 5
    #1

    پرسش غیر فعال شده سلول ها با انتخاب کموباکس

    با سلام
    لطفا اگه کسی میتونه راهنمایی کنه
    در فایل پیوست شده وقتی رو کمو باکس کلیک میکنم دیگه نمیتونم داخل سلول ها شماره پرسنلی وارد کنم اما اگه شیت دیگه ای غیر از شیت فعال رو انتخاب کنم و دوباره به شیت قبل برگردم ورود داده فعال می شه.
    با تشکر
    فایل های پیوست شده
    برچسب ها: هیچ‌کدام
    • Amir Ghasemiyan

      • 2013/09/20
      • 4598
      • 100.00
      #2
      نوشته اصلی توسط dehghanipm
      با سلام
      لطفا اگه کسی میتونه راهنمایی کنه
      در فایل پیوست شده وقتی رو کمو باکس کلیک میکنم دیگه نمیتونم داخل سلول ها شماره پرسنلی وارد کنم اما اگه شیت دیگه ای غیر از شیت فعال رو انتخاب کنم و دوباره به شیت قبل برگردم ورود داده فعال می شه.
      با تشکر

      جوابتون رو اينجا دادم ك

      مشکل در ورود داده هنگام انتخاب کمو باکس

        کامنت

        • dehghanipm

          • 2017/12/27
          • 5
          #3
          نوشته اصلی توسط Amir Ghasemiyan

          جوابتون رو اينجا دادم ك

          مشکل در ورود داده هنگام انتخاب کمو باکس
          این فایل برا سرپرستای شرکته و اینکه با هر بار انتخاب کموباکس یکبار شیت رو جابجا کنن به نظرم خیلی جالب نیست
          اگه راه حلی به نظرتون رسید راهنمایی کنید ممنون میشم

            کامنت

            • majid_mx4

              • 2012/06/25
              • 699
              #4
              با سلام

              ضمن تشکر از دوستان دیگر که پاسخ دادن

              شما نباید فرمول بار را مخفی کنید این امر باعث میشودکه این اتفاق بیافتد پس باید دستورشما بشکل زیر باشد.

              کد:
              Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
On Error Resume Next
With Application
.DisplayFullScreen = True
.CommandBars("Full Screen").Visible = False
.CommandBars("MyToolbar").Enabled = True
.CommandBars("MyToolbar").Visible = True
.CommandBars("Worksheet Menu Bar").Enabled = False
.DisplayFormulaBar = True
End With
On Error GoTo 0
Else
'If ToggleButton1.Value = False Then
On Error Resume Next
With Application
.DisplayFullScreen = False
.CommandBars("Full Screen").Visible = True
.CommandBars("MyToolbar").Enabled = False
.CommandBars("MyToolbar").Visible = False
.CommandBars("Worksheet Menu Bar").Enabled = True
End With
On Error GoTo 0
End If
End Sub

              پایدار باشید میر

                کامنت

                قبلی template بعدی
                چند لحظه..