解决方案：创建矩形，将相应图片作为矩形的填充就行了。 原数据环境如下 相应代码： Sub test() Dim rg As Range, shp As Shape For i = 2 To Cells(Rows.Count, "A").End(3).Row Set rg = Cells(i, "B") ActiveSheet.Shapes.AddShape(msoShapeRectangle, rg.Left, rg.Top, rg.Width, rg.Height).Select Selection.ShapeRange.Fill.UserPicture "E:\图片\" & rg.Offset(0, -1) & ".jpg" Next End Sub 如果反复执行上述代码，会重复在同一位置插入图片，导致文件增大，所以，最好在执行代码前，清除所

颜色，充满了整个世界！ ------ Red，红色，VB编码：vbRed ------ Blue，蓝色，VB编码：vbBlue ------ Green，绿色，VB编码：vbGreen 上面的颜色，我们熟悉得不能再熟悉，RGB色彩规则烂熟于胸。 ------ Dim i as long ------ i = RGB(255,255,0) 红色255 + 绿色255 = 黄色 于是，我们将RGB(255,255,0)，赋值到任何背景色中，变有了天真烂漫的黄色。 五彩斑斓的世界，总有一种颜色，让我们如痴如醉。在EXCEL的世界里，我们能表达多少种颜色呢？ 答案是256*256*256 =16777216 种，取值为—— 0

[url]http://每次打开百度，都会出现这个：https://www.baidu.com/?tn=98012088_5_dg&ch=12[/url] 痛恨欲绝！ 然后今天花了点时间研究，得到如下解决办法： 1、在开始-运行里面输入 Regedit，运行注册表 2、Ctrl + F 调出查找，然后输入被劫持的“https://www.baidu.com/?tn=98012088_5_dg&ch=12”地址，中间的“98012088”进行搜索，或者直接搜索“SearchScopes”。这个注册表项应该在"KEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchScopes"这个注册表路径下。 3、你们会在 SearchSc

经核实吧主dychj8827197 未通过普通吧主考核。违反《百度贴吧吧主制度》第八章规定http://tieba.baidu.com/tb/system.html#cnt08 ，无法在建设 巴蜀兄弟连吧 内容上、言论导向上发挥应有的模范带头作用。故撤销其吧主管理权限。百度贴吧管理组

批量命名的软件很多,ACDSee photo等都能实现,但是大多都是简单的文字+数字命名,局限就出来了 本人则喜欢用vba来实现 Sub 批量命名0() Application.ScreenUpdating = False Dim i&, j&, m, n, l$, k, s, path, oname, nname, fs, t$ Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True '允许多选 .Show '打开文件对话框 ' 获取文件名称,名称会都显示在工作表的A列 For i = 1 To .SelectedItems.Count l = .SelectedItems(i) m = Len(l) - Len(WorksheetFunction.Substitute(l, "\", "")) k = W

如何设置exl单元格只能输入1位特殊符号+4位字母+5位数字，谢谢！

Excel表里总表和600个分表建立超链接，如果一个一个手工设置工作量大，想用公式解决，总表目录名称和分表的名称是一致的，但不是序列号，是产品名称。你之前的答案是这样的： =HYPERLINK("#"&ROW(A1)&"!A1",ROW(A1)) 这是你做的序列号1、2、3、4、5、6、7，我的是产品名称，麻烦你帮我看一下怎么修改一下公式。

赏贴!整么核实一张表上的名字和身份证号码，与另一张表上的名字和身份证号码核对正确！

A列单元格内，有0-9任意数字,长度不等。现需对A列单元格内数字进行整理，使其自动排为B列效果(如图) 则可以在B1输入以下数组公式（公式A），下拖填充： =TEXT(SUM(SMALL(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT(0,LEN(A1))) 公式解析： 首先，我们假定A1为802（三位数），来理解公式 当A1为三位数时，公式（公式B）应为 =TEXT(SUM(SMALL(--MID(A1,ROW(1:3),1),ROW(1:3))*10^(3-ROW(1:3))),"000") {--MID(A1,ROW(1:3),1)}-----从左起分

1、当表A 中 每行“号码1”，“号码2”，“时间A” 在表B 中匹配到相同值【“号码1”，“号码2”，“时间B”】 2、然后将表B中的“时间B”填入表A“时间B”字段； 3、注意：表B的“时间B”字段，和表A“时间A”字段会有秒级的偏差；（需要按分钟单位匹配）

http://tieba.baidu.com/p/4570936136

群内趣事漫画，看不懂？看不懂就对了！ 一、关于流云喜欢晨星，晨星喜欢萝卜，萝卜不理八哥的………………

http://tieba.baidu.com/p/4323833404?pid=83044884696#83044884696

http://tieba.baidu.com/p/4253824684

请直接下载附件进行测试： 请大家不要用这段程序做任何违反国家法律或者破坏他人文件的不良事情！ 传了N遍，传不上来，见下载链接：http://pan.baidu.com/s/1mgtAkzu

Public Function xhf(ByVal Rng As Range) '有限小数化最简分数函数 If Not IsNumeric(Rng.Value) Then Exit Function If InStr(Rng.Value, ".") = 0 Then xhf = Rng.Value: Exit Function Dim arr, m As Long, n As Long, i As Long arr = Split(Rng.Value, ".") n = 10 ^ Len(arr(1)) m = Rng.Value * n For i = 2 To n \ 2 Do While (m Mod i = 0) And (n Mod i = 0) m = m / i n = n / i Loop Next xhf = m & "/" & n End Function 小数转换成分数，所有的算法原则是完全遵循数学法则，不断用公约数去约分，直到无法再约分为止。详细用法参见附件！！ 函数使

在Excel的控件工具箱中，有列表框ListBox和组合框Combobox两种控件，大家在熟悉不过。通常情况下，单列的列表框和组合框，我们通过Listbox1.Text，Combobox1.Text或者Listbox1.Value，Combobox1.Value即可取得当前选定行的值。 如果是多列的列表框和组合框，那么通过.Text命令依然可以获取第1列的值，而且只能获得第一列的值。 但是，如果配合BoundColumn属性，通过.Value可以取得其他列的值。 例如： Listbox1.BoundColumn = 2 Combobox1.BoundColumn = 3 那么我们通过Listbox1.Value就可以

【Function 函数】 利用Function编写自定义函数 1、我们需要建立一个“标准模块”； 2、在标准模块中编写Function函数，即可在Excel工作表的单元格中进行调用。 【如何建立标准模块】 我们打开VBE窗口之后，可以通过两种方式建立“标准模块”： 第一种方法：点击“插入” - “模块”，在“工程资源管理器”里面，出现的类似"模块1"、“模块2”这样的模块，就是标准模块，我们可以通过点击“模块1”，然后在属性窗口中更改模块名字； 第二种方法：在

今日无事，暂写一篇利用数组实现多班级数据实现班内成绩排名的方法。 对于下面图一的数据，要实现班内排名，一般做法是：全选数据区，排序：主要关键字：班级；次要关键字：成绩（然后产生自然数列，或者使用rank函数，取得班内排名。 但有时，出于某种原因（或者不想改变数据顺序，或者是班太多），我们怎么用函数来实现班内排名（下面图三效果）呢？ 第一步： 班级鉴别，将非本班人员的成绩置0 {IF($A$2:$A$32=A2,$C$2:$C$32,0)} 得到一个无序

百度搜索“文字识别工具”，选择一个评价高的用，但是转换后要仔细核对，特别关注字母、符号、数字等内容

　　Excel去重，可以用以下方法达到： 方案A：高级筛选去重（所有版本均可） 　　选中数据区，执行高级筛选，勾选“选择不重复数据”。即可 方案B：删除重复项去重（Excel2007及以上） 方案C：函数公式去重 　　假设数据在A列，从A2:A21，则可以在B2输入以下数组公式 =INDEX(A:A,SMALL(IF(MATCH(A$2:A$100&"",A$2:A$100&"",)=ROW($1:$99),ROW($2:$100),4^8),ROW(A1)))&""

为防止度娘删帖，一楼占位上04附件！

前面讲过一些基本的变量类型，那么对象变量是一些特殊的变量 这些变量通常由我们VBE里面的“ 工具 ” - “ 引用 ”里面打勾了的类库预设好的。 我们通常把在引用里将需要的类库打钩引用的方法叫做“前期绑定” 前面我们老大问过一个“键码支持”，呵呵，VB里面，只有通过前期绑定的变量，才有键码支持。 而我理解的这种支持，实际就是对象的属性、方法或者事件是否为Public类型 好了，不扯太远。 这里来讲一个概念? 什么是VBA！？ 什么是VBA呢

为什么度娘天天删我的帖，第一次就给度娘吧，本楼仅提供 02 - Function 基础知识的示例附件：

Private Sub CommandButton1_Click() '下面这行代码在E1：E30区域批量生成公式：=IF(Mod(A1,2)=0,Sum(B1:D1),""dy"") [e1:e30] = "=IF(Mod(RC[-4],2)=0,Sum(RC[-3]:Rc[-1]),""dy"")" End Sub '======================================================================= '用法说明： '在赋值语句的右边，使用了R1C1引用单元格的方式 'R表示行，“[]”方括号里面的表示行偏移量，省略方括号表示相对于行不偏移 'C表示列，“[]”方括号里面的表示列偏移量，省略方括号表示相对于行不偏移 '示例： '[c3] = "=R[1]C[2]" 最终得

一、一条分支的逻辑判断 如下：要求根据分数来判断等级，60分以下为差，60—80（不含80分）为中，80-90（不含90）为良，90及以上为优。这里介绍两种方法来进行判断： 方法一、用if进行判断，公式如下 =IF(B2<60,"差",IF(B2<80,"中",IF(B2<90,"良","优"))) 方法二、用VLOOKUP函数实现，首先要将条件和返回值一一对应的放在单元格中，然后在进行查找寻值。公式如下： =VLOOKUP(B2,$F$3:$G$6,2,1) 二、两条分支的逻辑判断。 如下：根据客户类型和消费额的不同决定