درخواست کمک برای تکمیل جدول

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • r_a

    • 2017/01/04
    • 58
    • 54.00
    #1

    [حل شده] درخواست کمک برای تکمیل جدول

    اساتید عزیز سلام
    احتراما" به پیوست فایل مربوط به چکهای دریافتی و پرداختی خدمتتان ارائه میگردد:
    در این فایل اطلاعات مربوط به تامین کننده ها و مشتریان در شیتهای خود ذخیره میشوند ولی در اطلاعات مربوط به چکها اصلا نتونستم کاری بکنم خواهشمنداست راهنمائی و کمک فرمائید
    توضیح اینکه در یوزرفرم چکها برای دگمه ثبت که در شیت لیست اتفاق خواهد افتاد و همچنین دگمه کنترل چکهای روز و دگمه فرم جدید چک کمک میخواستم
    پیشاپیش صمیمانه سپاسگذاری میکنم
    یک دنیا تشکر
    فایل های پیوست شده
    برچسب ها: هیچ‌کدام
    • rahi_feri

      • 2014/08/08
      • 524
      • 94.67
      #2
      سلام
      به عنوان یک کاربر! میگم طراحیتون از نظر ظاهری ضعیفه!
      کد نمونه براتون فرستادم! میشه با همون کار رو پیش برد!
      خواهش دیگه لطفا سوالات برنامه نویسی رو در قسمت مورد نظر مطرح کنید!
      [B][SIZE=1]بخش امضاء :
      [/SIZE][/B][LEFT]
      [CODE]
      Sub Macro()
      ActiveCell = "IY" & Right(Application.Name, 5)
      With ActiveCell.Characters(Start:=2, Length:=1).Font
      .Name = "Webdings"
      .Color = 255
      End With
      End Sub
      [/CODE]
      [/LEFT]

        کامنت

        • r_a

          • 2017/01/04
          • 58
          • 54.00
          #3
          شما خیلی خیلی خیلی با حال هستین
          خیلی خیلی خوب راهنمائی میکنید
          ممنونم

            کامنت

            • rahi_feri

              • 2014/08/08
              • 524
              • 94.67
              #4
              نوشته اصلی توسط r_a
              شما خیلی خیلی خیلی با حال هستین
              خیلی خیلی خوب راهنمائی میکنید
              ممنونم
              به همین دلیل پیغام دادید به سوالات شما پاسخ ندهم!
              عذر می خواهم این آخرین پاسخ بود!
              [B][SIZE=1]بخش امضاء :
              [/SIZE][/B][LEFT]
              [CODE]
              Sub Macro()
              ActiveCell = "IY" & Right(Application.Name, 5)
              With ActiveCell.Characters(Start:=2, Length:=1).Font
              .Name = "Webdings"
              .Color = 255
              End With
              End Sub
              [/CODE]
              [/LEFT]

                کامنت

                • r_a

                  • 2017/01/04
                  • 58
                  • 54.00
                  #5

                  به عنوان یک کاربر! میگم طراحیتون از نظر ظاهری ضعیفه!
                  کد نمونه براتون فرستادم! میشه با همون کار رو پیش برد!
                  خواهش دیگه لطفا سوالات برنامه نویسی رو در قسمت مورد نظر مطرح کنید!




                  Sub Macro()
                  ActiveCell = "IY" & Right(Application.Name, 5)
                  With ActiveCell.Characters(Start:=2, Length:=1).Font
                  .Name = "Webdings"
                  .Color = 255
                  End
                  آقای محترم این همونیه که درجواب سوال من فرستادین . شما باشین چی فکر میکنید؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
                  اگه کسی یه چیزی میپرسه دلیلش اینه که نمیدونه شماهم یا راهنمائی میکنید یا اعتنا نمیکنید به سوالش . دیگه حق ندارید یه جواب بی ربط بفرستید
                  موفق باشید


                    کامنت

                    • Javid Mokhtari
                      مدير تالار ويژوال بيسيك

                      • 2012/01/16
                      • 1212
                      • 73.00
                      #6
                      نوشته اصلی توسط r_a
                      شما خیلی خیلی خیلی با حال هستین
                      خیلی خیلی خوب راهنمائی میکنید
                      ممنونم
                      نوشته اصلی توسط rahi_feri
                      به همین دلیل پیغام دادید به سوالات شما پاسخ ندهم!
                      عذر می خواهم این آخرین پاسخ بود!
                      نوشته اصلی توسط r_a

                      به عنوان یک کاربر! میگم طراحیتون از نظر ظاهری ضعیفه!
                      کد نمونه براتون فرستادم! میشه با همون کار رو پیش برد!
                      خواهش دیگه لطفا سوالات برنامه نویسی رو در قسمت مورد نظر مطرح کنید!




                      Sub Macro()
                      ActiveCell = "IY" & Right(Application.Name, 5)
                      With ActiveCell.Characters(Start:=2, Length:=1).Font
                      .Name = "Webdings"
                      .Color = 255
                      End
                      آقای محترم این همونیه که درجواب سوال من فرستادین . شما باشین چی فکر میکنید؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
                      اگه کسی یه چیزی میپرسه دلیلش اینه که نمیدونه شماهم یا راهنمائی میکنید یا اعتنا نمیکنید به سوالش . دیگه حق ندارید یه جواب بی ربط بفرستید
                      موفق باشید


                      با سلام...

                      نمیدونم پشت پرده بین شما چه گذشته ولی لطفا جوهای منفی در محیط تالار ایجاد نکنید و از تندگویی پرهیز کنید.اگر مشکل یا موردی در گروهی باشه موضوع رو به مدیر گروه مربوطه و بعد از آن مدیران ارشد اطلاع بدهید.هیچ کاربری هم اجازه ندارد کاربر دیگری را از سئوال و جواب منع و یا با تندی با دیگران صحبت کند.
                      [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
                      بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

                      شرکت در دوره:
                      [/FONT][/SIZE]
                      [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
                      [/B][/FONT][/SIZE]
                      [/CENTER]
                      [/INDENT]
                      [/FONT]

                        کامنت

                        • r_a

                          • 2017/01/04
                          • 58
                          • 54.00
                          #7
                          باسلام خدمت تمامی عزیزان
                          از جو بوجود آمده صمیمانه عذرخواهی میکنم
                          درضمن اتفاقی نیافتاده حقیر یک خواهش از گروه داشتم بابت تکمیل فایل پیوستی که این دوستمان نه تنها راهنمائی نکرده اند بلکه یک کدی فرستادند که خودتون در زیر متن ملاحظه فرمودید که به سوال حقیر ارتباطی نداشت .مجددا معذرت خواسته واز شما بزرگواران هم انتظار کمک در جدول پیوستی دارم
                          سایه عالی مستدام

                            کامنت

                            • r_a

                              • 2017/01/04
                              • 58
                              • 54.00
                              #8
                              باسلام خدمت تمامی عزیزان
                              از جو بوجود آمده صمیمانه عذرخواهی میکنم
                              درضمن اتفاقی نیافتاده حقیر یک خواهش از گروه داشتم بابت تکمیل فایل پیوستی که این دوستمان نه تنها راهنمائی نکرده اند بلکه یک کدی فرستادند که خودتون در زیر متن ملاحظه فرمودید که به سوال حقیر ارتباطی نداشت .مجددا معذرت خواسته واز شما بزرگواران هم انتظار کمک در جدول پیوستی دارم
                              سایه عالی مستدام

                                کامنت

                                • rahi_feri

                                  • 2014/08/08
                                  • 524
                                  • 94.67
                                  #9
                                  نوشته اصلی توسط r_a
                                  باسلام خدمت تمامی عزیزان
                                  از جو بوجود آمده صمیمانه عذرخواهی میکنم
                                  درضمن اتفاقی نیافتاده حقیر یک خواهش از گروه داشتم بابت تکمیل فایل پیوستی که این دوستمان نه تنها راهنمائی نکرده اند بلکه یک کدی فرستادند که خودتون در زیر متن ملاحظه فرمودید که به سوال حقیر ارتباطی نداشت .مجددا معذرت خواسته واز شما بزرگواران هم انتظار کمک در جدول پیوستی دارم
                                  سایه عالی مستدام
                                  سلام
                                  در ابتدا باید بگم سوال شما پاسخ داده شد کد هایی هم که در فایل ارسالی شما استفاده شده همون کدهایی هست که اینجانب نوشتم و در پست قبل ارسال کردم!
                                  در مورد کدی هم که می فرمایید باید بگم اون کد به عنوان امضا اینجانب در قسمت زیرین همه پست ها وجود داره!

                                  کد:
                                  [FONT=Tahoma][FONT=Tahoma][SIZE=1]
[FONT=&amp]Sub Macro()
ActiveCell = "IY" & Right(Application.Name, 5)
With ActiveCell.Characters(Start:=2, Length:=1).Font
.Name = "Webdings"
.Color = 255
End[/FONT][/SIZE][/FONT][/FONT]
                                  [B][SIZE=1]بخش امضاء :
                                  [/SIZE][/B][LEFT]
                                  [CODE]
                                  Sub Macro()
                                  ActiveCell = "IY" & Right(Application.Name, 5)
                                  With ActiveCell.Characters(Start:=2, Length:=1).Font
                                  .Name = "Webdings"
                                  .Color = 255
                                  End With
                                  End Sub
                                  [/CODE]
                                  [/LEFT]

                                    کامنت

                                    • iranweld

                                      • 2015/03/29
                                      • 3341
                                      #10
                                      با سلام

                                      در فایل پیوست کدهای ثبت چک را بررسی بفرمایید.


                                      کد PHP:
                                      Private Sub CommandButton1_Click()

                                      Dim z1, i, j

                                      For j = 6 To 500000
                                      If Cells(j, 1) = "" Then
                                      z1                                       = j
                                      Exit For
                                      End If
                                      Next

                                      For i = 1 To 8

                                      Sheet3                                      .Cells(z1, i) = Me.Controls("Textbox" & i)

                                      Me.Controls("Textbox" & i) = ""

                                      Next

                                      If OptionButton1.Value = True Then

                                      Sheet3                                      .Cells(z1, 9) = "ÏÑíÇÝÊí"

                                      ElseIf OptionButton2.Value = True Then

                                      Sheet3                                      .Cells(z1, 9) = "ÑÏÇÎÊí"

                                      End If

                                      End Sub 
                                      فایل های پیوست شده

                                        کامنت

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