二次元同好交流新大陆
扫码下载App
温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
新浪微博,零售创新
研究经理,数据分析师
希望和市场研究和零售业的同事共同进步!
本博客发表的都是免费或试用的资料,如果有版权问题请发邮件联系删除。
spss excel vba
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(2188)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
在LOFTER的更多文章
loftPermalink:'',
id:'fks_084070',
blogTitle:'各种Excel VBA的命令',
blogAbstract:'
各种Excel VBA的命令
&想知道下OFFICE　的版本号是多少代码如下：Sub Office版本()MsgBox Application.VersionEnd SubOFFICE　2007的版本号是12OFFICE　2003的版本号是11
\'本示例为设置密码窗口 (1)If Application.InputBox(\"请输入密码：\") = 1234 Then&&&&&&& [A1] = 1 \'密码正确时执行Else&&&&& MsgBox \"密码错误，即将退出！\" \'此行与第2行共同设置密码End If',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:0,
publishTime:3,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:true,
hostIntro:'新浪微博,零售创新\n\n研究经理,数据分析师\n希望和市场研究和零售业的同事共同进步!\n\n\n本博客发表的都是免费或试用的资料,如果有版权问题请发邮件联系删除。\nspss excel vba
hmcon:'1',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}教你解密Excel2013下VBA代码
VBA是中比较难的部分，有些学习爱好者下载了别人的VBA模块来学习，但是却因为加了密码而看不到里面详细的程序，不过在强大的程序员面前，这都不是难事，下面，教大家怎么解密VBA代码。
①打开Excel2013，按下键盘上的ALT+F11键，打开VBA代码编辑器。插入新的模块。
②将下列代码复制进去，然后F5键运行。
Private Sub VBAPassword() '你要解保护的Excel文件路径
Filename = Application.GetOpenFilename(&Excel文件（*.xls & *.xla & *.xlt）,*.*.*.xlt&, , &VBA破解&)
If Dir(Filename) = && Then
MsgBox &没找到相关文件,清重新设置。&
FileCopy Filename, Filename & &.bak& '备份文件。
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = &CMG=&&& Then CMGs = i
If GetData = &[Host& Then DPBo = i - 2: Exit For
If CMGs = 0 Then
MsgBox &请先对VBA编码设置一个保护密码...&, 32, &提示&
Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
'加入不配对符号
If (DPBo - CMGs) Mod 2 && 0 Then
Put #1, DPBo + 1, s20
MsgBox &文件解密成功......&, 32, &提示&
③这时会自动弹出一个窗口，我们打开需要进行解密的VBA文件。
④等待程序自动完成解密过程，最终解密成功，大家不要用到歪门邪道上面，我负不起这个责。
运行时错误“75”
路劲或文件错误
破解不了2013EXCEL
最新视频教程
点击：7117&&&评论：2
点击：2464&&&评论：0
点击：4265&&&评论：0
点击：700242&&&评论：54
点击：1050914&&&评论：266
点击：179379&&&评论：33
点击：190142&&&评论：30
点击：133260&&&评论：89查看: 4455|回复: 4
中文数字转为阿拉伯数字，下面表格函数如何变成vba？
高级二, 积分 2064, 距离下一级还需 386 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
已知：=MATCH(&二十一&,TEXT(ROW(1:100),&[dbnum1]&),0)& &（三键输入：ctrl+ shift+ enter）
& &&&我想得出一个自定义函数，用VBA计算出来，如：阿拉伯数字(&二十一&)=21
请问如何写呢？
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 227, 距离下一级还需 23 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
Function looy(a As Range)
& & Dim i As Long, b As String
& & For i = 1 To 100
& && &&&b = Application.WorksheetFunction.Text(i, &[dbnum1]&)
& && &&&If a.Value = b Then
& && && && &looy = i
& && && && &Exit For
& && &&&End If
& & Next i
End Function复制代码试试:
让我有所启发，感觉感谢！
学office，哪能不关注全网最大的Office类微博（新浪）
高级二, 积分 2064, 距离下一级还需 386 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
hopeson2010 发表于
感谢思路，但是不对：
学office，哪能不关注全网最大的Office类微博（新浪）
高级二, 积分 2064, 距离下一级还需 386 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
本帖最后由 chenlifeng 于
08:45 编辑
抱歉，一大早来看花了头，把代码写到了thisworkbook中去了……
答案正确！
& & 不足之处是：如果数字较大，如五十亿，我们改成的for循环，也得这么大，一个是速度严重不行，二个是，无法在VBA编辑器中输入一个这么大的数字了，倍数一多，后面就变成了#号; 三是，在word中，如何修改哈？
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
谢谢补充:)
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered byExcel VBA函数(翻译英语为中文) 直接调用Google Translate API
所属专题：
软件大小：24KB
捆绑插件：无插件
软件语言：简体中文
软件等级：
软件授权：免费软件
制作发行：
更新日期：
论坛转帖：
应用平台：Win7 / Vista / Win2003 / WinXP
好评度：10
因工作需要，网上搜索，没有现成的东西，只好自己用网上现有的资料写了一个很简单，但很实用，希望大家多多传播&&&
使用方法：
1.先安装翻译.xla这个宏
2.插入用户自定义函数，找到Translate
3.添加参数
速度很快，基本上1秒内就可以得出翻译结果
自己只写了英文翻译中文的，你可以根据自己的需要，改成自己的目标语言
只要Google Translate 支持，这个函数就支持
里面有一个自带的API key，如果以后哪天不能用了，可能这个key就被封了，大家可以自己申请个key，替换掉即可。
函数内，把key和更改目标语言的地址标出来了，大家可以根据需要，自行更改。
Excel VBA函数(翻译英语为中文) 直接调用Google Translate API
相关软件&相关文章
本类人气榜&文章阅读榜
本周下载榜&总下载榜
Copyright &
AllRights Reserved冀ICP备