00问答网
所有问题
当前搜索:
excelVBA代码
Excel VBA
函数输出
答:
1、示例
代码
:Sub test1() Dim x As Long x = WorksheetFunction.SumIf(Range("A2:A9"), Range("C2").Value, Range("B2:B9")) Range("D2").Value = xEnd Sub2、如下图:3、以上代码的作用是:调用工作表函数SUMIF,求A2:A9范围内符合C2单元格条件,对应的B2:B9范围内数值之...
excel
中怎么使用
vba
答:
Excel
中的
VBA代码
需要在VBE窗口是使用(具体请看下面详细分析)Excel版本参考:2010 1、ALT+F11,进入VBE对话框 2、右击-插入-模块 3、输入代码(使用已有代码,直接复制粘贴进入即可)4、按F5运行或者点击三角按钮运行代码 5、查看效果
EXCEL
中
VBA代码
解释
答:
z = [a1].End(4).Row'A列最后一个有效单元格的行数(不是很好,中间不能有空单元格)sarr = Range("i2", "i" & z)‘两个单元的数组,darr = Range("n2", "p" & z)‘两个单元的数组,For x = 1 To z - 1’一层循环 For y = 1 To 3‘二层循环 Select Case darr(x, ...
excel VBA
编程
代码
修改
答:
'***许旭滨注释与
代码
修改 2011年06月22日 06:50:42 hPages = Execute
Excel
4Macro("Get.Document(50)") '许旭滨注释:该句功能是获取打印页数,即你所说的分页符的数量,调用宏表函数得到的,其它的不用改,由于你无法提供原表,所以没法帮你调试!' hPages = Sheets(Max).HPageBreaks.C...
求一段
EXCEL
的
VBA
引用
代码
答:
首先,使用了
VBA
后必然会有安全性的提示,无法避免。除非你取消宏的安全性。Sub S2S1()For i = 1 To 10 Sheet2.Range("A" & i + 3) = "=Sheet1!A" & i * 4 - 2 Sheet2.Range("C" & i + 3) = "=Sheet1!H" & i * 4 - 2 Sheet2.Range("E" & i + 3) = "=...
EXCEL
中利用
VBA代码
答:
Private Sub WORKSHEET_SELECTIONCHANGE(ByVal TARGET As Range)On Error Resume Next With TARGET If .Column <> 2 Then Exit Sub '第2列才生效 If .Value <> "" Then DATAN = .Value MsgBox ("不能修改").Value = DATAN Cells(1, 1).Select End If End With End Sub ...
写一段
excel vba 代码
答:
你的附图好像不对。假设是否锁定这列在“K”列,那么请按ALT+F11打开
VBA
窗口,粘贴以下
代码
:Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Range("K" & Target.Row).Value = "是" Then ActiveSheet.Unprotect With Cells .Locked = False .FormulaHidden = False End With With...
Excel VBA
编程小白求帮忙,求个
代码
答:
假设 表一 为"A表" 表二为 "B表",自动添加2个辅助列,不同金额分别在两个表相应的位置成对标为1,2,3,。。。 直到所有的A表数据与B表核对完成。
代码
放在 ThisWorkbook 或”模块“中 Sub 对比数据()ThisWorkbook.Activate Dim shtA As Object, shtB As Object Dim rngCLA As Range, rng...
求一段
excel vba
循环
代码
答:
楼主,您看看这段
代码
, 代码中变化的位置有两个地方 1. Start:=X 2. .Size =X+8 所以先定义一个变量来代替上述X位置, 然后再用一个循环使变量从1变化到8并变成相关设定动作即可.如下:Dim i As Integer For i=8 to 16 then With ActiveCell.Characters(Start:=i, Length:=1).Font .Name...
求大神解决
excel vba
的基础
代码
问题
答:
Sub 求N的阶乘() Dim i As Integer Dim n As Integer Dim nf As Long n = Range("A1") nf = 1 For i = n To 1 Step -1 nf = nf * i Next i Range("A2") = nfEnd Sub
棣栭〉
<涓婁竴椤
6
7
8
9
11
12
13
14
10
15
涓嬩竴椤
灏鹃〉
其他人还搜