自定义博客皮肤VIP专享

*博客头图：

点击选择上传的图片

格式为PNG、JPG，宽度*高度大于1920*100像素，不超过2MB，主视觉建议放在右侧，请参照线上博客头图

请上传大于1920*100像素的图片！

博客底图：

点击选择上传的图片

图片格式为PNG、JPG，不超过1MB，可上下左右平铺至整个背景

栏目图：

点击选择上传的图片

图片格式为PNG、JPG，图片宽度*高度为300*38像素，不超过0.5MB

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览取消提交

自定义博客皮肤

-+

上一步保存

Paladin.Lao的VSTO/VBA专栏

欢迎光临我的个人网站 laoyebin.com

laoyebin CSDN认证博客专家 CSDN认证企业博客

码龄17年

60: 原创

13万+: 周排名

70万+: 总排名

18万+: 访问

: 等级

2553: 积分

208: 粉丝

10: 获赞

26: 评论

74: 收藏

私信

关注

热门文章

分类专栏

C# 1篇
EXCEL VBA 30篇
EXCEL VSTO 19篇
EXCEL 函数 1篇
EXCEL 技巧 4篇
OFFICE其他 8篇
个人心情 3篇
社会杂谈
CPA 1篇
网赚 1篇

最新评论

取当前用户登录域和登录名
qq_40848923: 请问后面这个问题解决了吗?
VBA用字典来替代函数的Vlookup
m0_46374308: 字典赋值为什么加空格？
VBA用字典来替代函数的Vlookup
weixin_42269712: 我找到的都为空? 明明由值? '以下是字典函数用来Vlookup Dim Dic As Object Dim cell As Range Set Dic = CreateObject("scripting.dictionary") 'key & value 装入字典 For Each cell In Workbooks("YTD OR.XLSX").Sheets(1).Range("A4:A" & Range("a4").End(xlDown).Row) Dic.Add cell.Value, cell.Offset(0, 1).Value ' MsgBox cell.Value 'MsgBox cell.Offset(0, 1).Value Next '开始查找 i = Range("E3").End(xlDown).Row '目的表最大列 'MsgBox i x = 2 'x 实际是变量，此处先输入一个值 MsgBox x For Each cell In Range(Cells(3, 23 + x), Cells(i, 23 + x)) MsgBox cell.Offset(0, -(18 + x)).Value '弹框显示工号 If Dic.exists(cell.Offset(0, -(18 + x)).Value) Then MsgBox Dic.Item(cell.Offset(0, 1).Value) '此处的offset（0，1）对象仍然是dic阿，为什么是为空? 难道是在目的表中偏移一个位置？弹框显示字典中对应工号的value，但是用msgbox 提示为空，说明字典中的对应值为空，可是装入字典的时候是有值？？？？？？？ cell = Dic.Item(cell.Offset(0, 1).Value) MsgBox cell
VBA用字典来替代函数的Vlookup
weixin_42269712: d(data(i, 1) & "") = data(i, 2) 是将data 表中值装入字典吗？为何用& "" 啥意思？
删除整篇Word文档中的图文框
qq_22100025: 能详细点吗？在哪儿输入

最新文章

C#

关注

关注数：文章数：1 文章阅读量：844 文章收藏量：1

作者: laoyebin

我自横刀向天笑无人知是荔枝来

展开

C#与TXT文件的读写操作

static void Main(string[] args){ string path = @"d:/1.txt"; File.WriteAllText(path, "test1", Encoding.Default); //覆盖写入，无文件则创建 File.AppendAllText(path, "/n" + "test2", Encoding.Default); //追加写入 Console.WriteL

原创 2010-06-07 10:42:00 · 844 阅读 · 0 评论