VB如何判断EXCEL单元格是否在编辑状态或是如何读取底部状态栏信息

找到两个属性，可能有用

ApplicationReady

当 Microsoft Excel 应用程序就绪时，返回 True ，当 Microsoft Excel

未就绪时，返回 False。Boolean 类型，只读。

ApplicationStatusBar

返回或设置状态栏中的文字。String 类型，可读写。

说明

如果 Microsoft Excel 控制状态栏，则本属性返回 False。若要恢复默认的状态栏文字，可将本属性设为

False，这在状态栏处于隐藏状态时也起作用。

本示例在打开 Largexls 工作簿之前将状态栏文字设为“Please be patient”，然后将状态栏恢复为默认文字。

oldStatusBar = ApplicationDisplayStatusBarApplicationDisplayStatusBar = TrueApplicationStatusBar = "Please be patient"WorkbooksOpen filename:="LARGEXLS"ApplicationStatusBar = FalseApplicationDisplayStatusBar = oldStatusBar

回答一样的不让提交，我这是一样的吗？借:)HE的代码修改下。Private Sub Command1_Click()

Dim a as single, b as single, c as single, d As Single

Dim objExcel As ExcelApplication '定义Excel表格

Dim objWorkBook As ExcelWorkbook '定义工作簿

Dim objSheet As ExcelWorksheet

Dim objRange As ExcelRange

Dim SheetName As StringDim EndRow as long

Set objExcel = CreateObject("ExcelApplication")

Set objWorkBook = objExcelWorkbooksOpen("D:\" & "美术" & "成绩表1xls", False, True) '这里的“美术”二字可以用考生类别的选项来编写

objExcelVisible = Falseif OptionButton1=true then 'OptionButton1单选按钮不记得在VB里叫什么名字了。sheetname="美术"elsesheetname="音乐"end if

Set objSheet = objExcelWorksheets(sheetname) '设置活动工作表EndRow=objsheetrange("B65536")end(xlup)row

Set objRange = objSheetRange("B3:F" & EndRow)

Label6Caption = objExcelApplicationWorksheetFunctionVLookup(Text1Text, objRange, 2, 0) '请自己改Text1，姓名的文本框

Label7Caption = objExcelApplicationWorksheetFunctionVLookup(Text1Text, objRange, 3, 0)

Label8Caption = objExcelApplicationWorksheetFunctionVLookup(Text1Text, objRange, 4, 0)

Label9Caption = objExcelApplicationWorksheetFunctionVLookup(Text1Text, objRange, 5, 0)

a = Val(Label6Caption)

b = Val(Label7Caption)

c = Val(Label8Caption)

d = Val(Label9Caption)

Label3Caption = a + b + c + d

Set objRange = Nothing

Set objSheet = Nothing

objWorkBookClose (False)

Set objWorkBook = Nothing

objExcelQuit

Set objExcel = Nothing

End Sub

首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，

然后打开Excel文件读数据

Dim scxls As ExcelApplication

Dim scbook As ExcelWorkbook

Dim scsheet As ExcelWorksheet

‘Set scxls = CreateObject("excelapplication")

‘Set scbook = scxlsWorkbooksAdd

Set scbook = scxlsWorkbooksopen("c:\1xls")

Set scsheet = scbookWorksheets(1)

‘scsheetCells(1, 2) = "1111" ’写入数据

a=scsheetCells(1, 2) '读取数据

Set scbook = Nothing

Set scxls = Nothing

‘scxlsVisible = True ’显示Excle

数据较多，且有规律可循时，请使用循环语句

程序修改了：

Private Sub CommandButton1_Click()

    I = 1

    Do While Cells(I, 1) <> ""

        Cells(I, 1)Select

        With SelectionCharacters(Start:=Len(Selection), Length:=1)

            FontName = "gdt"

            FontColor = RGB(255, 0, 0)

        End With

        I = I + 1

    Loop

End Sub

由于我的机器没有GDT字体，看不出效果，我增加了红色的语句，测试没有问题，你测试完毕后可以删除红色语句。

以上就是关于VB如何判断EXCEL单元格是否在编辑状态或是如何读取底部状态栏信息全部的内容，包括:VB如何判断EXCEL单元格是否在编辑状态或是如何读取底部状态栏信息、如何使用VB提取EXCEL信息、怎样用vb提取Excel中想要的数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！