00问答网
所有问题
当前搜索:
帮我写一个vba代码
请高手做一段
VBA 代码
的详细解释
答:
Private Sub TextBox1_Change()'文本框的change事件,也就是textbox1发生任何改变就会触发这个事件 Dim rng As Range'定义
一个
range对象(代表一个单元格或是单元格区域)removedata‘你这个我不懂放在这里是一个变量名还是做什么用的 Set x = Sheets("sheet1").Range("a1:a1000")‘实例化了X且...
请高手
帮我写一个excel vba
程序,实现自动记录A列最近3日内数据_百度...
答:
把下面
代码
复制到thisworkbook.workbookopen中去吧.实际上如果每天都打开表格,就只要把内容往前移一格就可以了,因为担心你有时中间隔几天没打开表格,这样会造成数据复制错误,所以下面先对日期做了一些判断,再复制到对应的位置.希望是你所有需要的:Private Sub Workbook_Open()With ThisWorkbook.Worksheets("...
求会
VBA
的大神
帮我
编写2个十分简单的函数的
代码
谢谢谢谢谢谢-0*~_百 ...
答:
=4133^0.5*(A5)+33*A5 第
一个
但是第二个斐波那契数列复杂,还是用
VBA
的函数吧 斐波那契数列的获取程序中用递归的方法更好,不知道你学没学过编程。Function fc(x As Long) As Long If x = 0 Or x = 1 Then fc = x Else fc = fc(x - 1) + fc(x - 2)End If End Function 也...
请帮帮忙,写
个VBA
的程序,谢谢
答:
呵呵,已经发你邮箱,请查收。你所说的矩形改为文本框。 考虑到拆分过会重名错误,建立了
一个
删除原拆分的分表
代码
。代码如下:Sub 拆分工作表()Dim G1&, i&, iR&, R1&, x&, N& Dim T1$, T2 Dim arr, arr1()With Sheets("sheet1")iR = .Range("A65536").End(xlUp).Row arr = ...
谁能给我
一个EXCEL VBA
往SQL数据库读取和写入记录的例子?
答:
读取和写入操作方式一样,唯一不同的是sql语句,读取用select,读取用insert,以读取为例子,录入如下
代码
:'sql完整例子Sub testSql()'定义连接对象 Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset '定义连接字符串 Dim conStr As String Dim sqlstr As String ...
帮朋友求一
VBA代码
答:
楼主这个需求不难,使用
VBA
即可处理 随机数有范围的吧,2007以后版本使用randbetween函数,后面的判断有无可以instr函数。楼主先看看,有问题再追问吧。Sub 按钮2_Click()Application.ScreenUpdating = False For j =
1
To 4 l1:str1 = ""For i = 1 To 4 Cells(j, i) = WorksheetFunction....
vba
行互换,我想实现排序但是不懂怎么行互换,请给
我一个
例子,帮忙解释一...
答:
推荐解决方案 xxx =sheet
1
.cells(2,1)sheet1.cells(2,1) = sheet1.cells(1,2)sheet1.cells(1,2) = xxx 其他解决方案 '第一行与第二行交换 Rows("1:1").Select Selection.Cut Rows("3:3").Select Selection.Insert Shift:=xlDown Range("A1").Select '第五行与第六行交换 Rows("5...
使用
Excel VBA
,如何将某
一个
工作表保存到新建的Excel中?
答:
以下是我自己的程序:Set sht = newbk.Worksheets(1) '删除新建的newbk里的两个sheet,必须留
一个
,否则会出错 sht.Delete Set sht = newbk.Worksheets(1)sht.Delete oldbk.Worksheets(sSheetName).Copy After:=newbk.Worksheets(1) '拷贝 Set sht = newbk.Worksheets(1) ’删除一个...
EXCEL中选择当前列的第
一个
非空单元格,用
VBA
语句怎么写?
答:
看你题意,你是要选择第
一个
空单元格吧 Range("a1").End(xlDown).Offset(1, 0).Select Range("a6513").End(xlUp).Offset(1, 0).Select 如果是非空单元格去掉.offset(1,0)就可以了,列也是类似的 Range("a1").End(xlToRight).Offset(0, 1).Select Range("aa1").End(xlToLeft).Offset...
vba代码
求高手帮帮忙编写!
答:
产量单这么简单的用公式更好。比如 C10公式:=sumif($B:$B,"日产量",C:C)C11公式:=sumif($B:$B,"月产量",C:C)右拉复制其他列的公式。“汇总表”用
VBA
才行。问一下,产量单每班的月产量是输入的还是要自动生成。A列汇总
代码
是怎么写的 什么意思?
棣栭〉
<涓婁竴椤
3
4
5
6
8
7
9
10
11
12
涓嬩竴椤
灏鹃〉
其他人还搜