- توردا
- 4336 سائەت
- ئاخىرقى قېتىم
- 2012-11-7
- تىزىملاتقان
- 2010-7-21
- شۆھرەت
- 30008
- تىللا
- 21527
- MSN
- intil.biz@hotmail.com
- تۆھپە
- 17234
- ھوقۇقى
- 200
- جۇغلانما
- 106598
- ئالبوم
- 2
- بلوگ
- 86
- خاتىرە
- 14
- يازما
- 7801
- تېما
- 1216
- نادىر
- 4
- ھەمبەھر
- 31
- UID
- 10
       
- تۆھپە
- 17234
- تىللا
- 21527
- شۆھرەت
- 30008
|
جەدۋەل قوشۇش ( كودتىكى ئارتۇق ئۇچۇرنى ئۆزىڭىز تازىلاڭ)- #001 Sub Addsh()
- #002 Dim Sh As Worksheet
- #003 With Worksheets
- #004 Set Sh = .Add(after:=Worksheets(.Count))
- #005 Sh.Name = "数据"
- #006 End With
- #007 End Sub
مەزمۇننى كۆچۈرۈۋېلىش ياكى- #001 Sub Addsh_2()
- #002 Dim i As Integer
- #003 Dim sh As Worksheet
- #004 For i = 1 To 10
- #005 Set sh = Sheets.Add(after:=Sheets(Sheets.Count))
- #006 sh.Name = i
- #007 Next
- #008 End Sub
مەزمۇننى كۆچۈرۈۋېلىش جەدۋەل ئۆچۈرۈش- #001 Sub Delsh()
- #002 Dim sh As Worksheet
- #003 For Each sh In ThisWorkbook.Sheets
- #004 If sh.Name <> "工作表的添加与删除" Then
- #005 Application.DisplayAlerts = False
- #006 sh.Delete
- #007 Application.DisplayAlerts = True
- #008 End If
- #009 Next
- #010 End Sub
مەزمۇننى كۆچۈرۈۋېلىش ياكى- #001 Sub Addsh_3()
- #002 Dim Sh As Worksheet
- #003 For Each Sh In Worksheets
- #004 If Sh.Name = "数据" Then
- #005 MsgBox "工作簿中已有""数据""工作表,不能重复添加!"
- #006 Exit Sub
- #007 End If
- #008 Next
- #009 With Worksheets
- #010 Set Sh = .Add(after:=Worksheets(.Count))
- #011 Sh.Name = "数据"
- #012 End With
- #013 End Sub
مەزمۇننى كۆچۈرۈۋېلىش- #001 Sub Addsh_4()
- #002 Dim sh As Worksheet
- #003 On Error GoTo line
- #004 With Worksheets
- #005 Set sh = .Add(after:=Worksheets(.Count))
- #006 sh.Name = "数据"
- #007 End With
- #008 Exit Sub
- #009 line:
- #010 MsgBox "工作簿中已有""数据""工作表,不能重复添加!"
- #011 Application.DisplayAlerts = False
- #012 Worksheets(Worksheets.Count).Delete
- #013 Application.DisplayAlerts = True
- #014 End Sub
مەزمۇننى كۆچۈرۈۋېلىش ياكى- #001 Sub Addsh_5()
- #002 Dim i As Integer, arr
- #003 Dim sh As Worksheet
- #004 On Error Resume Next
- #005 arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
- #006 For i = 0 To UBound(arr)
- #007 With Worksheets
- #008 Set sh = .Add(after:=Sheets(.Count))
- #009 sh.Name = arr(i)
- #010 End With
- #011 Next
- #012 Application.DisplayAlerts = False
- #013 For Each sh In Worksheets
- #014 If sh.Name Like "Sheet*" Then sh.Delete
- #015 Next
- #016 Application.DisplayAlerts = True
- #017 End Sub
مەزمۇننى كۆچۈرۈۋېلىش |
|