ساختن شیت

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

    • 2015/11/28
    • 21
    #1

    ساختن شیت

    با سلام . لطفا فایل ضمیمه رو یبینید. پیشاپیش ممنون از پاسختان
    فایل های پیوست شده
    برچسب ها: هیچ‌کدام
    • amir_ts

      • 2015/03/17
      • 1247
      #2
      با سلام
      کد زیر را امتحان کنید.
      کد:
      [LEFT]
Private Sub Worksheet_Change(ByVal target As Range)
If Intersect(target, Range("F9:F19")) Is Nothing Then Exit Sub
If target.Count > 1 Then Exit Sub

    If target.Value <> "" Then

          Sheets("ÝÑã ÎÇã").Copy Before:=Sheets("ÝÑã ÎÇã")
          Sheets("ÝÑã ÎÇã (2)").Name = target.Value
       
    End If
    
Sheets(1).Activate

End Sub
[/LEFT]
      فایل های پیوست شده
      [SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]

        کامنت

        • rahi_feri

          • 2014/08/08
          • 524
          • 94.67
          #3
          سلام

          سلام!
          یکم تغییر ساختار دادمش!
          فایل های پیوست شده
          [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]

            کامنت

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