ایجاد شماره نامه

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

    • 2020/02/09
    • 5
    #1

    [حل شده] ایجاد شماره نامه

    عرض سلام وادب

    میخوام با کد vba ی شماره نامه خودکار ایجاد کنم

    چون هرکاری کردم نتونستم برای این فرمت کدی تهیه کنم

    ممنون میشم طبق فایل پیوست راهنمایی کنید
    تشکر
    فایل های پیوست شده
    برچسب ها: هیچ‌کدام
    • saed.rasa

      • 2014/11/02
      • 1054
      #2
      سلام

      بدون vb پیشنهاد می شود
      با vb دوستان کمک خواهند کرد

      کد:
      00"/"0000"/ح م م"
      فایل های پیوست شده
      [FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
      اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
      [/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
      [/FONT][/CENTER]
      [/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
      فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
      [/FONT][/CENTER]

        کامنت

        • generalsamad
          مدير تالار توابع

          • 2014/06/22
          • 1496
          #3
          با سلام
          این هم کد vba برای فرمت سل C2:C100
          کد PHP:
          Range("C2:C100").NumberFormat = "00""/""0000""/ح م م"""
          Range("C2:C100").ReadingOrder = xlRTL 
          [CENTER]
          [SIGPIC][/SIGPIC]
          [/CENTER]

            کامنت

            • ali.b

              • 2014/01/12
              • 798
              #4
              سلا از این کد هم میتونید استفاده کنید
              کد:
              TextBox1.Font.Name = "B Nazanin"
If Sheet1.Range("A2") = "" Then
TextBox1 = Mid(J_TODAY(), 1, 2) & "/" & Format(1, "0000") & "/" & "ح م م"
Else


TextBox1.Text = Mid(J_TODAY(), 1, 2) & "/" & _
Format(Mid(Sheet1.Range("A65536").End(xlUp).Value, 4, 4) + 1, "0000") & "/" & "ح م م"


End If
              [CENTER]
              [/CENTER]

                کامنت

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