-
4先在a1输入10. a2输入30. a3输入50. 然后设置个按钮. 点一下. a1的10移动到b1. a2移动到b2. a3移动到b3. 大神听懂没?
-
9Dim n As Integer n=5/2 n=? 谁告诉我n等于多少啊? 谢谢各位!
-
2举个例子么,比如文件叫“上市公司”,他的一个工作表叫“上市”,那把他里面的A2拷贝到文件1里,中文的文件名字,工作表SHEET也是中文的 谢啦
-
3如题,我把要求打出来。
-
0如题~
-
5求一个VBA KEY破解版或注册版。。。或者能破vba project 密码的宏。。万分感谢。。 13676795374@139.com
-
1小弟在此感激不尽
-
4
-
11
-
0VBA有问必答群 331633417
-
0我想复制一段从EXCEL里面到TXT文档,要求就是格式不可以变。 例如: 在EXCEL的单元格A1里面是 123 456 789 复制到TXT里面格式也是 123 456 789 我现在
-
0工作中使用此下载的工程量模版,可以自动汇总相同规格型号的工程量。缺点只有一个计算表及汇总。我想能不能变成若干个工作表。计算书1,汇总1;计算书
-
1Private Sub TextBox1_afterupdate() Dim mys As Long Dim f As Integer Dim n mys = Sheets(3).Range("a65536").End(xlUp).Row s = mys + 1 If Not I
-
5本人刚参加工作不久每天都要录入一些信息(数字),能不能帮我编个代码样本给我看看啊,比如,铅笔 钢笔 。我每天录一次出售量,然后在两个工作表里自
-
0
-
4
-
0
-
0Sub 查询() Dim x For x = 1 To 99999 If Worksheets(2).Cells(x, 1) = Worksheets(3).Range("D8")ThenMsgBox "姓名" & Worksheets(2). Cells(x,
-
0软件就是要输入机器码 、注册后才能使用、 各位大神帮帮忙
-
1如果sheet2中a列的值包含sheet1中c列的值,然后复制sheet2中所在行到sheet1中c列所在行
-
4用find或者replace函数找到字符串时,能够返回找到单元格的行号和列号吗?我想对找到的单元格其后一列的数据进行操作,
-
2遇到未知错误和未知冲突,VBA只有死路一条——直接关闭,管你在干什么,一关了之,这样就没冲突了。
-
2因为输入要shift ctrl 和 enter 输入 很多不懂的人不会输入的 请问可以写一段vba代码 保护公式不被轻易修改 若改动则出现 此函数不能修改,然后自动
-
5datediff函数中用“s”时只能计算出秒数,用“n”时只能表示出分钟数, 但如果想将“80秒”换成“1分20秒”时,如何表示 就时说计算出的时间差不全用
-
0详情请见http://tieba.baidu.com/p/2749946083
-
1vba怎么逐行读取txt文件并且替换里面的一些内容!急急急急急急!!!!!
-
0代码如下: aa = Worksheets("sheet1").Range("M7") bb = Sheets("sheet2").[1:1].Find(aa).Column ActiveWorkbook.Names.Add Name:=aa, RefersToR1C1
-
1最近在学VBA的编程,实在不会啊,求一大神帮忙啊 1.使用循环和选择语句,使用inputbox输入10个成绩分数, 使用msgbox输出每个分数对应等级(优、良、中
-
3如题,,,,,谢谢!
-
0请问我的Arduino uno模拟数据的取得 可以用serial monitor看到 (顺便推荐 CoolTerm) 从应该是hypertermial 可以存到Ttx 但是我想问下大神们 怎样能直
-
1问题是这样的,我的Excel文件中的单元格有一串文字,其中有符号© 但是,我用print方法,将内容写入一个txt时,只能得到“?” 请教大神们,怎么
-
0你好,我想用vba设计一个关灯游戏,想在开始游戏的时候就计算玩家用了多少步骤来完成游戏,也就是计算游戏开始后,在游戏里面鼠标左键的点击数,求相
-
3Sub TotalBytesIni() Dim iniFile As String Dim allBytes As Long iniFile = Dir("C:\WINDOWS\*.ini") allBytes = 0 Do While iniFile <> "" allBytes = allBytes + FileLen("C:\WINDOWS\" & iniFile) iniFile = Dir (这句话不明白,但是我把这句删除了 程序就卡死了。。为什么会这样) Loop Debug.Print "Total bytes: " & allBytes End Sub
-
1请教各位大神,EXCEL表格中如何能实现单元格引用中的部分字体加下划线,例如:A1:我爱你;B1:中国:C1=A1&B1,在C1中显示为 ,只在中国下面加下
-
1怎样设置chart中系列的线型,宽度、颜色,求代码
-
3本人用Excle2003 VBA编写了一个宏,级别中等,要有提示才能启动 但拿到办公室用EXCLE2007 打开,就没提示。 信任级别改为:禁制所有宏并通知我 保存打
-
1帮忙编个下楼梯问题的VBA语言 问题:楼上走到楼下共有h个台阶,每一步有3种走法:走1个台阶;走2个台阶;走3个台阶。问可有多少种方案?<?xml:name
-
2初学者求助,求1000以内的阿姆斯特朗数
-
2有没有大神愿意帮忙一下的…… 话说附件上传不了怎么破?
-
8Sub deletewords() Dim i As Long For i = 2 To 501 If InStr(Range("B" & i).Value, "第一个删除词") > 0 Then Rows(i & ":" & i).De