數(shù)據(jù)其實是個很重要的東西，數(shù)據(jù)丟失會給我們帶來很大的麻煩，我們今天不考慮數(shù)據(jù)丟失的問題，這里我們主要介紹VB.NET數(shù)據(jù)自增的問題，下面給大家演示一段代碼，希望可以給大家?guī)砑夹g(shù)上的幫助。

VB.NET數(shù)據(jù)自增的代碼如下：

Public Class Sheet1  
Private MyWeekMenu As Office.CommandBarButton  
Private MyMonthMenu As Office.CommandBarButton  
Private MySeriesMenu As Office.CommandBarButton  
Private missing = System.Reflection.Missing.Value  
Private Sub Sheet1_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup  
AddMenuBar()  
End Sub  
Private Sub Sheet1_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown  
End Sub  
Private Sub AddMenuBar()  
Try  
Dim MyCommandBarPopup As Office.CommandBarPopup = Nothing 
Dim MyCommandBarMenu As Office.CommandBar = _ 
CType(Application.CommandBars.ActiveMenuBar, Office.CommandBar)  
Dim MyControlsCount As Integer = MyCommandBarMenu.Controls.Count  
MyCommandBarPopup = CType(MyCommandBarMenu.Controls.Add( _  
Office.MsoControlType.msoControlPopup, missing, missing, _  
MyControlsCount, True), Office.CommandBarPopup)  
If (MyCommandBarPopup IsNot Nothing) Then  
MyCommandBarPopup.Caption = "演示數(shù)據(jù)自增" 
MyWeekMenu = CType(MyCommandBarPopup.Controls.Add( _  
Office.MsoControlType.msoControlButton, missing, missing, _  
missing, True), Office.CommandBarButton)  
MyWeekMenu.Caption = "自增星期數(shù)據(jù)" 
AddHandler MyWeekMenu.Click, AddressOf MyWeekMenuCommand_Click  
MyMonthMenu = CType(MyCommandBarPopup.Controls.Add( _  
Office.MsoControlType.msoControlButton, missing, missing, _  
missing, True), Office.CommandBarButton)  
MyMonthMenu.Caption = "自增月份數(shù)據(jù)" 
AddHandler MyMonthMenu.Click, AddressOf MyMonthMenuCommand_Click  
MySeriesMenu = CType(MyCommandBarPopup.Controls.Add( _  
Office.MsoControlType.msoControlButton, missing, missing, _  
missing, True), Office.CommandBarButton)  
MySeriesMenu.Caption = "自增序列數(shù)據(jù)" 
AddHandler MySeriesMenu.Click, AddressOf MySeriesMenuCommand_Click  
End If  
Catch ex As Exception  
MessageBox.Show(ex.Message, "51cto信息提示", _  
MessageBoxButtons.OK, MessageBoxIcon.Error)  
End Try  
End Sub  
'自增星期數(shù)據(jù)  
Private Sub MyWeekMenuCommand_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)  
Dim MyRange As Microsoft.Office.Tools.Excel.NamedRange = _ 
Me.Controls.AddNamedRange(Me.Range("A1", missing), "NamedRange1")  
'MyRange.Value2 = "星期一" 
'MyRange.AutoFill(Me.Range("A1", "A5"), Excel.XlAutoFillType.xlFillWeekdays)  
MyRange.Value2 = "Monday" 
MyRange.AutoFill(Me.Range("A1", "A5"), Excel.XlAutoFillType.xlFillWeekdays)  
End Sub  
'自增月份數(shù)據(jù)  '更多.net源碼和實例  
Private Sub MyMonthMenuCommand_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)  
Dim MyRange As Microsoft.Office.Tools.Excel.NamedRange = _ 
Me.Controls.AddNamedRange(Me.Range("B1", missing), "NamedRange2")  
'MyRange.Value2 = "Jan" 
MyRange.Value2 = "January" 
MyRange.AutoFill(Me.Range("B1", "B12"), Excel.XlAutoFillType.xlFillMonths)  
End Sub  
'自增序列數(shù)據(jù)  
Private Sub MySeriesMenuCommand_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)  
Dim MyRange As Microsoft.Office.Tools.Excel.NamedRange = _ 
Me.Controls.AddNamedRange(Me.Range("C1", missing), "NamedRange3")  
MyRange.Value2 = "1975年1月1日 生產(chǎn)日報" 
MyRange.AutoFill(Me.Range("C1", "C31"), Excel.XlAutoFillType.xlFillSeries)  
End Sub  
End Class 

以上是VB.NET數(shù)據(jù)自增的一個列子，大家試試吧。

【編輯推薦】

1. 剖析VB.NET平臺調(diào)用是如何執(zhí)行操作
2. 分享個人總結(jié)VB.NET多線程
3. 詳細(xì)說明VB.NET變量中四點
4. 三類十二種VB.NET數(shù)據(jù)類型全面介紹
5. VB.NET初步知識，初學(xué)者必看