00问答网
所有问题
当前搜索:
excel写完VBA代码之后怎么用
Excel
这个
怎么
实现呢?用
vba
也行,怎么都行.
答:
选择C1:C16单元格,输入以下公式,按Ctrl+Enter组合键结束 =A1&IF(COUNTIF(B2:B$17,B1)>0,INDEX(C2:C$17,MATCH(B1,B2:B$17,0)),"")然后在D1:D16单元格输入以下公式,按Ctrl+Enter组合键结束 =VLOOKUP(B1,B:C,2,0)隐藏C列,即可。详见附图 ...
[求助]
vba怎么
使
excel
完全后台
答:
这个要看 你的程序了!如果你的程序编写的时候是独占主程序的话 你就只有修改程序
之后
才能处理别的工作簿了……要看你的程序编写的情况 如果它没有指定处理某个指定的工作簿的话 你就不能再打开另一个工作簿 专有的处理程序 在编写的时候 要在语句中指定 工作簿、工作表……这样 其他的将不受影响...
excel
2007用
vba
在加载项那里添加了一个自定义工具,
如何
写入
代码
让它按...
答:
一般【加载项】里添加的是xla加载宏,在加载宏里可以事先设计好很多功能(菜单、工具条、按钮)。不知道楼主说的【自定义工具】是什么意思,如果单单是工具条,还需要添加按钮,如果已经是按钮,只要为这个按钮添加运行
代码
就可以点击运行了
求助具体
vba代码
!在
excel中用
vba实现:在工作表sheet1中查询工作表sheet2...
答:
这个不用
VBA
就可以实现 将科目“语”,“数”,“外”这些科目复制到表一(随便哪一列,到时候隐藏就行了打比方在F列吧) 在表一A1
使用
数据有效性--有效性条件选择序列--来源就选F列你复制的那些类容区域。 这样 A1就有下拉框 可以选择这些科目 接着 在表一 B1单元格输入公式==VLOOKUP(...
excel中
的
VBA代码
解释
答:
所以这行
代码
就是清除区域Range("b2:f5")里的填充色。二,Cells(x, y).Interior.ColorIndex = 3 Cells是单元格对象,Cells(x, y)就是指第x行y列对应的单元格 所以该行作用是,设置Cells(x, y)单元格的填充颜色常数为3。(具体3对应什么颜色我也背不出来)三,DoEvents,这个都
使用
在反复...
VBA代码
中
怎么
写连加
答:
如果直接写的话,别忘了在单元格两边加上中括号:如:A=[A1]+[A3]+[A5]可以把A1,A3,A5的和赋值给变量A 补充回答:下面
代码
可以把A1到A100的和赋值给变量A dim i ,a as long a=0 for i=1 to 100 a=a+cells(i,1)next i 对于
VBA
,一般尽量避免用循环的方法:它的效率是比较低的!楼主什么...
如何用VBA代码
自动设置
EXCEL
工作表格式
答:
给你一个子程序 给出了三个条件,1、将光标处的行高设置为60 2、设置字体为楷体 3、经字体加粗 Sub Macro1()'Selection.RowHeight = 60 '设置行高 With Selection.Font .Name = "楷体_GB2312"'设置字体 .Size = 12 End With Selection.Font.Bold = True '将字体加粗 End Sub ...
VBA
中
使用代码
操作多个
excel
,
如何
让代码后台执行不显示执行过程?_百度...
答:
利用禁用屏幕刷新即可,即在程序开头加上一句
代码
:Application.ScreenUpdating = False 程序结尾前加上Application.ScreenUpdating = True 关于此例中用到的ScreenUpdating属性的相关知识:如果屏幕更新功能是打开的,则该值为True。Boolean类型,可读写。说明:关闭屏幕更新可加快宏的执行速度。这样将看不到宏的...
在
excel中如何用VBA
对指定单元格区域写
代码
答:
(6) 若C3为当前单元格,则可
使用
:ActiveCell (7) 若将C3单元格命名为“Range1”,则可使用:Range("Range1")或[Range1](8) Cells(4, 3).Offset(-1)(9) Range("A1").Range("C3")不明白,你的
代码
已经可以实现了呀. 如果是说某此位格的话你可以参考下我在这里的回答 http://zhidao....
看看
excel
这个功能
怎样用vba代码
实现?
答:
搞了老半天 Sub aa()Dim i, j As Integer Dim s As String For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 s = WorksheetFunction.Substitute(Cells(i, 3), "-", "")k = Len(Cells(i, 3)) - Len(s)For j = k + 1 To 1 Step -1 Rows(i + 1).Select S...
棣栭〉
<涓婁竴椤
6
7
8
9
11
12
13
14
10
15
涓嬩竴椤
灏鹃〉
其他人还搜