查看: 2170|回复: 2
[待分类提问]
用vb把vba代码封装dll时，这个vba代码怎么改写？请高手帮忙****
初级一, 积分 11, 距离下一级还需 39 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
用vb把vba代码封装dll时，这个vba代码怎么改写？请高手帮忙！！！！
Public Sub auto_open()& &
& & On Error Resume Next
mandBars(1).Reset
mandBars(1).Controls(&Qopani&).Delete
Dim myControlButton As Object
& & Dim sani%
& & sani = mandBars(1).Controls.Count
& & Set myControlButton = mandBars(1).Controls.Add( _
& && &&&Type:=msoControlButton, Before:=sani + 1)
& & With myControlButton
& && &&&.Caption = &Qopani&
& && &&&.OnAction = &Qopani1&
& && &&&.Style = msoButtonCaption
& & End With
Public Sub fffff()
& &&&Dim i%, Ps%
& & Ps = ExecuteExcel4Macro(&GET.DOCUMENT(50)&)
& &Select Case Ps
& &Case Is & 0
& && &&&If MsgBox(vbCrLf & &nnnn& ,vbQuestion + vbOKCancel, &&&ttt&) = vbOK Then
& && &&&ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
& && & Else
& && && &For i = 1 To Ps Step 1
& && && && &&&ActiveSheet.PrintOut From:=i, To:=i
& && && &Next i
& && &&&End If
& &Case Is = 0
& && &&&MsgBox vbCrLf & vbCrLf & && &rrrr & , vbQuestion + vbOKOnly, &&&ttt&
& &End Select
Public Function Page(x As Range, z As Byte)
Dim yh As Variant
& & If z = 0 Then
& && &&&ih = 0
& && &&&For Each yh In ActiveSheet.HPageBreaks
& && && && &ih = ih + 1
& && && && &If x.Row &= yh.Location.Row Then
& && && && && & Page = ih
& && && && && & Exit Function
& && && && &End If
& && &&&Next yh
& && &&&Page = ih + 1& &
& && &&&Page = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)& &
& & End If
& & Application.Volatile&&
End Function
Public Sub yyyy()
& & Dim x As Variant
& & Dim c As Variant
& & Dim m As Variant
& & Dim p As Variant
& & x = ActiveCell.Address
& & Application.ScreenUpdating = False
& & c = ActiveSheet.VPageBreaks.Count
& & If c &= 1 Then m = ActiveSheet.VPageBreaks(1).Location.Column
& & ActiveWindow.View = 2
& & p = Page(ActiveCell, 0)
& & If ActiveCell.Column &= m Then p = p + ActiveSheet.HPageBreaks.Count + 1
& & ActiveWindow.View = 1
& & msgbox p
高级二, 积分 2088, 距离下一级还需 362 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
太长了，应该把最难的几点附上来，就好了。估计没有人会看呀……
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
看罗老师的疑难千寻千解VBA的书
站长推荐 /1
40集公式入门动画教程，一天带你打好公式的基础。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
VBA常见问题50例详细解答.doc 52页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
需要金币：150 &&
你可能关注的文档：
··········
··········
Excel VBA 常用代码50例
001。用命令按扭打印一个sheet1中B2:M30区域中的内容? 2
002。能否对一列中的文字统一去掉最后一个字? 3
003.能否根据单元格数值自动标记序号？ 3
004.求教自定义函数 4
005.判断字符串的包含性 6
006.利用背景实现套打的解决方案 6
007.宏放在worksheet和sheet及模块中各有什么区别？ 7
008.关于excel问题 7
在excel中如何用公式实现单元格内容递增？ 7
009.给数组公式、VBA爱好者泼点冷水。 9
010.从式子抽取一小式子的问题？ 10
011.or可以用数组应用？ 10
012.countif表达式的格式 11
013.删除字符串中某个字符的函数是什么？删除字符串中某个字符的函数是什么？ 11
014.两表合一实例 12
015.有没有办法把加载宏内置到Excel文件里？ 13
016.如何在userform上显示最大化与最小化按钮 14
017.这个判断代码怎么写 15
018.这个汇总表拆分程序怎么写，高手帮忙！ 16
020.这个公式应该怎么写？ 18
021.样修改此宏？ 18
022.怎样控制textbox的只读，要使textbox中的数据不能改变（删除或修改），在属性里我没有找到 21
023.请教个小问题！ 21
024.小知识：当垂直滚动条滚动到无法显示1-3行时，冻结窗口，1-3行就好像被隐藏了，但是取消隐藏也不行。 22
025.选A1后，自动显示B1内容，有无方法实现。有A1列 22
026. 向上填充的快捷键是什么？我只会向下填充的快捷键，向上-向左-向右的都是什么呢？ 23
027.下方单元格上移，包含该单元格的公式不要变化 23
028.一列中删除重复数据的方法 24
029.哪为大侠来帮忙关于VBA的问题 24
030.比较大小 25
030.讨论：用RANGE和CELLS选择单元格 25
031.关于FileSystemObject的引用 27
032.excel时间函数2(菜鸟教程) 29
033.年月日的问题 30
034.请帮忙解释一个公式 31
035.关于宏和程序 31
036.请教多条件求和的问题 32
037.请教关于星期的计算？ 33
038.请教日期的转换问题 36
039.如何用vba实现删除最右边的字符 37
040.请问如何定义相对定位的名称 38
041.请问如何替换？ 38
042.求教合并单元格区域的连续读取方法 40
044.讨论一下取最后一个单词的方法 42
045.如何获取工作表中某一列有多少条记录？ 43
045.如何禁止输入空格 46
046.如何判断单元格中单词的数量？ 46
047.如何取数 46
048.如何通过VBA编程将符合条件的数据库记录输入到 47
049.如何统计一个单元格中的数字有几位数？ 50
050.如何選取列內不重複資料 50
001。用命令按扭打印一个sheet1中B2:M30区域中的内容?
我想在Sheet2中制件一个命令按扭, 打印表Sheet1中的[B2:M30] 区域中的内容?
解答：可以将打印区域设为b2：m30，然后打印，如：
sheets(&sheet1&).printarea=&b2:m30&
sheets(&sheet1&).printout
随手写的，你可以试试看。最简单的方法是：你先 录制宏，在录制宏过程中， 跑到页面设置里面， 把打印范围设置到你想要的范围。
然后退出，停止录制宏， 你就可以得到一些代码！
002。能否对一列中的文字统一去掉最后一个字?这些文字不统一,有些字数多,有些字数少。如何处理?我用{&&-}不行
解答：=REPLACE(A1,LEN(A1),1,& &)(在过渡列进行)
003.能否根据单元格数值自动标记序号？
各位大佬，一工作表有两列，“序号”及“金额”，能否将金额不等于0的行自动标上序号呢？如无现成的函数，应怎样设置？
解答：Dim xuhao As Integer
Range(&b2&).Select
Do While Selection && &&
If Selection && 0 Then
ActiveCell.Previous.Value = xuhao
xuhao = xuhao + 1
ActiveCell.Offset(1, 0).Range(&a1&).Select
004.求教自定义函数
正在加载中，请稍后...
79页33页30页34页18页32页49页42页19页32页VBA入门指南―如何看懂代码_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VBA入门指南―如何看懂代码
&&既然题目是初识VBA,那么我想先给大家一个直观的感受――什么是VBA？,往往在一些EXCEL的教材中,都会讲：VBA是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案。。。。。。。。。。
阅读已结束，下载文档到电脑
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩57页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢查看: 1333|回复: 10
请求各位老师高手帮看一下
本帖最后由 stcys110 于
20:23 编辑
如果实在不明白我表达的什么意思，请老师您劳心给我解释一下。
20:23 上传
点击文件名下载附件
49.88 KB, 下载次数: 19
请求各位老师帮帮忙呀
都休息了？怎么没人肯帮我一下呀
选择后复制，然后选“选择性粘贴”-数值就不会粘贴格式了
tgydslr 发表于
选择后复制，然后选“选择性粘贴”-数值就不会粘贴格式了
你说这个是人工操作法，我需要的是VBA实现法，这个不是一两张这么少，有几百个分店那么多，粘贴到手酸，还有时会错。
没看懂你要做什么。。如果想别人帮你 请说明你的需求、、、、
tzjx200521 发表于
没看懂你要做什么。。如果想别人帮你 请说明你的需求、、、、
我重新整理了一下需求，请您看一下，能解决不
还请大家帮忙一下
Sub TEST()
店 = Sheets(&主页&).Range(&C3&)
人员名字 = Sheets(&主页&).Range(&C4&)
月份 = Sheets(&主页&).Range(&C5&)
Sheets(&工资表&).Select
Rows(&3:65536&).ClearContents
With Workbooks(&工资总表.xls&)
& &For Each S In .Sheets
& &&&If S.Name Like &*& & 月份 And S.Name && &表& Then
& && && &ER = S.[D65536].End(xlUp).Row
& && && &For R = 3 To ER
& && && && &If S.Cells(R, 2).MergeArea.Cells(1, 1) = 店 And S.Cells(R, 4) = 人员名字 Then
& && && && && &TR = ThisWorkbook.Sheets(&工资表&).[D65536].End(xlUp).Row + 1
& && && && && &S.Range(&D& & R & &:AA& & R).Copy ThisWorkbook.Sheets(&工资表&).Range(&D& & TR)
& && && && && &ThisWorkbook.Sheets(&工资表&).Range(&A& & TR) = S.Name
& && && && &
& && && && &
& && && && &End If
& && && &Next R
& &&&End If
ActiveSheet.PrintOut
这一位高手帮写的分店打印的，运行后，有些问题，就是不是按月份去排序下来打印的，而是总是在一行上，而且也有表格线，请各位大侠帮忙修改一下。
怎么没有高手帮忙一下呐
Powered by