00问答网
所有问题
当前搜索:
帮我写一个vba代码
excel里
VBA
编写
代码
,急急急!
答:
第
一个
单元格位置 Set rg = Application.Intersect(rg0, .UsedRange) If rg Is Nothing Then MsgBox "无数据!", vbCritical: Exit Sub If rg.Rows.Count < 2 Or rg.Columns.Count <> 4 Then MsgBox "数据设置错误!", vbCritical: Exit Sub End If End With ...
求
vba
大神
帮帮我
,怎么写这样
代码
?
答:
VBA
可以实现 可以参考下面处理 网页链接
1
、列举文件 2、对应文件夹 3、复制
我想在Excel里用
VBA代码
在几个工作表里都增加
一个
返回Excel主页界面的...
答:
简单的做法是画个按钮,粘贴到每
一个
工作表里去,并增加超链接到你说的Excel主页界面里去就好了呀。
请懂
VBA
的朋友
帮我
用VBA在excel里面编写个计算器,只要加法的就可以了...
答:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)If [f6] <> "=" Then Exit Sub Static temp Static w, j r1 = Target.Row c1 = Target.Column If r1 > 2 And r1 < 7 And c1 > 3 And c1 < 7 Then a = ""Select Case r1 & c1 Case 34 a = 1 Case 35 a = ...
求老师帮忙
写一
段
VBA代码
在线等!
答:
程序
代码
以及运行示例如下图:
请老师帮忙写
个VBA
的
代码
,在线等
答:
规则就是有“*”项下移动一格,左边是数字,到右边找,找到了去左边,左边有*就像下移动,发现了数字就继续到右边匹配。是这样吧。刚刚看了下,还要向下移动一格。
代码
如下:Sub 匹配值()Dim irow As Integer Dim sht As Worksheet Dim arr()Dim arr
1
()Dim i As Integer Dim j As Integer Dim ...
Excel VBA
怎么把
一个
单元格里面的值存到一个变量里面
代码
怎么写...
答:
dim a a=cells(
1
,1)a=[a1]a=range("a1")以上三种方法就可以将[a1]单元格里的值赋值给变量a
翻译一小段
VBA
程序
代码
(估计和VB差不多吧)
答:
'上句等价于 stDocName ="会员详细信息",ChrW(20250)等分别代表
一个
汉字 'chrw与chr功能差不多,参见这里http://baike.baidu.com/view/1022382.htm DoCmd.OpenReport stDocName, acPreview '打开报表stDocName(会员详细信息),Exit_cmdreport_Click: '调用Exit_cmdreport_Click Exit Sub '(无...
求
VBA代码
,谢谢~
答:
Sub WriteData()Dim lgRow As Long, iCol As Integer lgRow = 3 iCol = 7 Do If Cells(lgRow, 1) <> "" And Cells(lgRow, 2) <> "" And Cells(lgRow, 3) <> "" And Cells(lgRow, 4) <> "" And Cells(lgRow, 5) <> "" And Cells(lgRow, 6) <> "" Then Exit ...
受累
帮我
解释一下这段excel的
vba代码
吧,谢谢您了,越详细越好,用//在...
答:
Cells(ks +
1
, 1).Resize(js - ks, 3).Delete shift:=xlUp '判断条件成立则删除对应的区域,(此
代码
可能有问题哦),目的应该是清除小计之前的明细区域 Cells(ks, 4).Resize(js - ks, 8).Delete shift:=xlUp '此行也是删除区域的代码,(可能有问题分析下来)End If Next Applicatio...
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜