2023-02-01 06:20来源:m.sf1369.com作者:宇宇
Private Sub CommandButton2_Click()
Dim str5 As String
Dim x As Long
For x = 2 To 10
If Sheet3.Cells(x, 2).Value = Then Exit Sub
str5 = Sheet3.Cells(x, 10).Value
If str5 = AIRC Then Sheet1.Visible =1 '显示工作表
Next
End Sub
If str5 = AIRC Then Sheet1.Visible =1 '显示工作表 你是试一下这样改。
或者改成 善良的猪头3
If str5 = AIRC Then Sheet1.Visible =true '显示工作表
这样的代码,试试。
如果这个表格是在sheet1
那么你需要在sheet2中来排列整齐
先在sheet2的第一行书写1,2,3,4,5,6,7,8,9,0
然后在第二行的第一个单元格输入函数
=if(countif(sheet1!$A2:$J2,A$1)=1,A$1,)
然后向右向下填充即可
在线excel转换成pdf 把pdf转换成excel
PDF是出版和图形领域的软件厂商Adobe制定的电子文档格式标准。PDF转换器是一款将PDF文档中的文字,图片,表格,注释等等文档元素相对应的转换成word文档中相对应的文档元素 转换过程是先将PDF文档中的文档元素提取出来 然后再将这些文档元素一个一个的复制到新生成的word文档中 并将原PDF文档中的排版信息也引用到word文档中。PDF转换器是一款将PDF文档中的文字,图片,表格,注释等等文档元素相对应的转换成word文档中相对应的文档元素。转换过程是先将PDF文档中的文档元素提取出来,然后再将这些文档元素一个一个的复制到新生成的word文档中,并将原PDF文档中的排版信息也引用到word文档中。普通的文字处理和桌面排版软件如Word、WordPerfect和PageMaker等编排好文档,
在线excel转换成pdf 把pdf转换成excel