vb2010源代码实例（vb的实例源码）

本篇文章给大家谈谈vb2010源代码实例，以及vb的实例源码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB2010中帮忙修改代码，附源码
• 2、用vba清除格式，怎么写
• 3、VB2010中如何读取电子表格中的数据。

VB2010中帮忙修改代码，附源码

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim style As AppWinStyle

If RadioButton1.Checked = True Then

style = AppWinStyle.Hide

ElseIf RadioButton2.Checked = True Then

style = AppWinStyle.NormalFocus

ElseIf RadioButton3.Checked = True Then

style = AppWinStyle.MinimizedFocus

ElseIf RadioButton4.Checked = True Then

style = AppWinStyle.MaximizedFocus

ElseIf RadioButton5.Checked = True Then

style = AppWinStyle.NormalNoFocus

ElseIf RadioButton6.Checked = True Then

style = AppWinStyle.MinimizedNoFocus

End If

'张志晨：供参考。你是想打开可执行程序吧？

Shell(TextBox1.Text, style, False)

End Sub

用vba清除格式，怎么写

在写VBA代码的时候，经常会用到清零。所谓清零就是清空数据。为什么要清空数据呢？目的就是马上要有新的数据填充进来，以免新填入的数据错误。如果你是VBA的新手，务必要养成这个习惯，当有新的数据填充时，在此前要将旧的数据清空，切记切记。

在实际的代码书写中，会用到各式各样的方法进行数据的清空。下面就各个程序中的源代码拿来和大家分享。由于是源代码，只是截取了其中的部分，没有涉及到其他的操作，代码可能不能运行，如果要测试需要放在实际的代码环境中。

代码一：

20 Dim ws As Worksheet

21 Dim wb As Workbook

22 Set wb = ThisWorkbook '指定工作簿

23 Set ws = wb.Sheets("TT") '指定工作表名称

24 HANG = "a2:P3000"

25 ws.Range(HANG).Clear

代码讲解：首先设定行单元格的范围，然后CLEAR.

代码二

20 Dim ws As Worksheet

21 Dim wb As Workbook

22 Set wb = ThisWorkbook '指定工作簿

23 Set ws = wb.Sheets("TT") '指定工作表名称

24 HANG = "a2:P3000"

25 ws.Range(HANG). ClearContents

代码讲解: 首先设定行单元格的范围，然后ClearContents

代码三：

10 Sheets("TT").Selecct

11 Rows("3:200").Select

12 Selection.Delete

代码讲解：对固定的行数进行选择，然后统统删除，一了百了。

代码四：

10 Dim ws As Worksheet

11 Dim wb As Workbook

12 Set wb = ThisWorkbook '指定工作簿

13 Set ws = wb.Sheets("cz") '指定工作表名称

14 n = ws.Range("A65536").End(xlUp).Row

15 If n 3 Then

16 HANG = "2:" n

17 wb.Sheets("cz").Rows(HANG).ClearContents

18 End If

代码讲解：首先判断非空的行数，然后再ClearContents

代码五：

11 Sheets("TT").Selecct

12 Range("A2:j3000").Clear

代码讲解：直接对已知的区域进行CLEAR

上面分别讲了五种常见代码的写法，这五种方法其实也有相同之处。不再多说，这里再给大家讲解的是如下几点：

1 首先要判断是对已知固定区域的清空还是非固定区域的清空。如果是已知的固定区域，直接就写清区域范围即可；如果是非固定区域，那么就要判断这个区域的范围了，可以参考上面的代码四。

2 清空的方法，无外乎三种，delete——很直接、干净、彻底地删除一切数据，不拖泥带水；clear——清除所选择范围内的数据及格式；ClearContents——清除所选择范围内的数据。

3 如果是删除行，要判断确实删除的资料对于要录入的资料没有不良的影响。不要误删除。同时，如果采用的是循环语句，删除后的行数变化要考虑到。

4 判断要删除或者清除的区域时，可以先判断一下需要录入的数据量多大，如果是小于3000行，那么就直接录入3000，可以避免再次的判断，节约时间。

5 在清零处理的时候也要考虑到程序的可视性，增加select语句。

上述的几点在写程序时要特别的注意。

今日内容回向：

1．VBA清空的代码中核心步骤有两个，哪两个？

2．delete clear 有什么不同？clear 和clear Contents有什么不同？

3．delete 可以用clear代替吗？反过来呢？

分享成果，随喜正能量

629阅读

搜索

初学编程100个代码

excel十大必背函数

黑客编程全套教程

装逼代码大全100个

100套excel vba模板

vb2010excel编程实例

VB2010中如何读取电子表格中的数据。

有两种方式：

一是把excel在外部打开

二是把excel按数据库方式打开

你要哪种？哪种方法我都可以写出来。

你最好给我一个电子的样子，那才能有针对性地写出代码。

张志晨

补充：

1、引用Microsoft Excel类型库

“工程”-“引用”-选择“Microsoft Excel 8.0 Object Library”-“确定”

2、声明显式数据类型，创建新实例并获取Excel的控制句柄

Dim ExcelObject As Excel.Application

Set ExcelObject = CreateObject( "Excel.Application ")

3、调用并显示Excel

Excelobject.Visible = True

4、打开文件，

ExcelObject .Open pathName

然后用循环进行判断，那就简单了。因为不知道你到底要判断什么，所以无法写出具体的代码来。

Public xlApp As Excel.Application

Public xlbook As Excel.Workbook

Public xlSheet As Excel.Worksheet

Public Function OpenExcel(xlPath As String)

Set xlApp = CreateObject("excel.application")

Set xlbook = xlApp.Workbooks.Open(xlPath)

Set xlSheet1 = xlbook.Worksheets(1)

Set xlSheet2 = xlbook.Worksheets(2)

xlApp.Visible = fasle

Dim i As Integer

i = 1

'下面的判断是假设的，你要改成你实际需要的

Do While xlSheet1.Cells(i, 1).Value =xlSheet2.Cells(i, 1).Value

Form1.List1.AddItem xlSheet.Cells(i, 1).Value

i = i + 1

Loop

quitExcel

End Function

Public Function quitExcel()

xlApp.Quit

Set xlApp = Nothing

Set xlbook = Nothing

End Function

关于vb2010源代码实例和vb的实例源码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。