哪位大神可以用VB在Excel里做几个投票的按钮
发布网友
发布时间:2022-04-28 18:49
我来回答
共2个回答
热心网友
时间:2022-06-22 21:40
Dim XlsObj As Excel.Application 'Excel象
Dim XlsBook As Excel.Workbook '工作簿
Dim XlsSheet As Excel.Worksheet '工作表
Set XlsObj = CreateObject("Excel.Application") '创建EXCEL象
Set XlsBook = XlsObj.Workbooks.Open("文件名")
xx=XlsBook.Worksheets("工作表名").Cells(行序数,列序数)已经
接按键点击事件加入判断行
for i=1 to 100‘要看表少内容作改变
if XlsBook.Worksheets("工作表名").Cells(i,1)=text1.text then exit for
next
if i<101 then
text2.text=XlsBook.Worksheets("工作表名").Cells(i,3)
else
text2.text="没找"
endif
行
热心网友
时间:2022-06-22 21:41
可以的,你不用担心