首页
学习
活动
专区
圈层
工具
发布

VBA实战技巧20:选取不同工作表中不同单元格区域时禁止用户执行复制剪切粘贴操作

excelperfect 在《VBA实战技巧19:根据用户在工作表中的选择来隐藏/显示功能区中的剪贴板组》中,我们讲解了根据用户在工作表中的选择来决定隐藏或者显示功能区选项卡中的特定组的技术。...现在,我们需要用户在不同的工作表中选择不同的区域时,禁止用户执行复制、剪切、粘贴操作。...例如,当用户选择工作表Sheet1列A中的单元格时,不能执行复制、剪切、粘贴操作,同样在选择工作表Sheet2中B2:B15区域时和工作表Sheet3中的列B、列C中的单元格时,也不能执行复制、剪切、粘贴操作...图1:当用户选择的不同工作表中指定的单元格时,不能执行复制、剪切、粘贴操作 首先,我们新建一个工作簿并保存。...As Range Set rng =Range(Selection.Address) Select Case Sh.Name Case Is ="Sheet1" '可修改为你的工作表名

2.7K20
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    工作中必会的57个Excel小技巧

    7、恢复未保护的excel文件 文件 -最近所用文件 -点击“恢复未保存的excel文件” 9、设置新建excel文件的默认字体和字号 文件 -选项 -常规 -新建工作簿时:设置字号和字体 10、把A.xlsx...文件图标显示为图片形式 把A.xlsx修改为 A.Jpg 12、把工作表另存为excel文件 在工作表标签上右键 -移动或复制 -移动到”新工作簿” 二、窗口设置 1、同时打开对比两个或多个excel文件...视图 -全部重排 -选排列的方向 2、同时查找一个工作簿中的两个工作表 视图 -新建窗口 -全部重排 -选排列方向 3、隐藏或显示excel最上面的功能区 Ctrl+F1 4、隐藏excel工作表界面...,直接编辑当前工作表即可。...10、快速合并多行数据 插入批注 -选取多列数据复制 -粘贴到批注中,然后再从批注中复制粘至单元格区域中即可。

    5.3K30

    常见的复制粘贴,VBA是怎么做的(续)

    Paste方法的主要目的是将剪贴板包含的内容粘贴到相关工作表上。...示例7:设置目标区域的Value属性 下面的宏将工作表“Example 7 – Values”的单元格区域B5至M107的值设置为等于工作表“Sample Data”的单元格区域B5至M107的值。...示例8:设置目标区域的Formula属性 下面的宏将工作表“Example 8 – Formulas”的单元格区域B5至M107的公式设置为与工作表“Sample Data”的单元格区域B5至M107的公式相同...18.Worksheet.Copy方法,将工作表复制到其他位置。 19.Worksheet.PasteSpecial方法,使用指定格式将剪贴板中的内容粘贴到工作表上。...上述列表没有包括复制和粘贴对象的所有VBA方法,主要涵盖了应用于某些主要对象的方法,如图表和工作表。 小结 现在,你应该了解了在Excel中复制和粘贴单元格和单元格区域时可以使用的最重要的VBA方法。

    12.6K30

    个人永久性免费-Excel催化剂功能第76波-图表序列信息维护

    ,做了简单的快捷方式按钮,可快速调出这些图表所在的工作薄,甚至将其复制到现有工作薄中,在不破坏模板数据下供临摹使用,快速复用。...需要修改图表各系列的引用位置,若数据系列有多个,且为组合图表时,使用原生的功能逐个修改引用区域,工作量不小,也是较为容易出错(每修改完一个系列,再修改其他系列时,需关闭前一个系列内容,不能有全局性和清单式的检查...具体功能实现 使用方法为先选择一个需要分析的图表,将其图表内的各系列对象属性遍历到Excel智能表中供查阅和修改。然后智能表内容对其进行修改完成后,再生新回写至原图表中。...具体可供实现的方式有: 可直接使用菜单单元格填充色来更改填充颜色 可直接使用单元格样式来更改填充颜色 可直接复制单元格填充色粘贴到指定位置,无需输入颜色值 可复制Html颜色值到对应单元格,自动生成单元格填充色...若需要进行删除某系列,将状态调至删除。 若需新增,需要将所有的属性填写完整。 可能更佳的新增方式是复制新增系列的数据值区域,然后粘贴到图表上,有可能可以保留和前面的同类型系列的所有设定格式。

    1.6K30

    案例:用Excel对会员客户交易数据进行RFM分析

    选择数据区域,确认所有的数据都被选择 选择在“新工作表”中插入数据,然后点击“确定” 将“客户编号”拖入“行标签”栏 将“收银时间”、“记录ID”、“交易金额”拖入数值计算栏 点击“收银时间”数值计算栏按钮...Excel操作: 鼠标拉选列标签ABCD,选中透视表所在的四列 按ctrl^C(复制),点击“开始”菜单栏下,快捷按钮栏“粘帖”下的小下拉三角标,选择“粘帖值”【或者点“选择性粘帖”,然后选择粘帖值】,...在D1单元格中输入-1 然后ctrl^C复制D1单元格中的值(-1) 然后选中B5:B1204【快捷操作同上】 “开始”-“粘帖”下拉按钮-“选择性粘帖”-在计算部分选择“乘”,然后点击“确定” 最后得到...F1到H1代表R\F\M的最大值,利用公式“=max(B5:B1204)”计算,(计算F时B换成C,M时B换成D即可) F2到H2代表R\F\M的最小值,利用公式“=min(B5:B1204)”计算(计算...F时B换成C,M时B换成D即可) F3到H3代表R\F\M的极差三等分距,利用公式“=(F1-F2)/3”计算(计算F时F换成G,M时F换成H即可) 【以上快捷操作可用,先输入F1,F2,F3单元格里的公式

    2.7K50

    个人永久性免费-Excel催化剂功能第44波-可见区域复制粘贴不覆盖隐藏内容

    若需要操作只选择可见单元格再复制的步骤,操作麻烦,同时若粘贴的位置也有隐藏的行列时,粘贴不能按预期只粘贴在显示的可见单元格上,甚至覆盖了原有隐藏的行列区域的原用内容,当发现此操作带来了数据出错时,真是叫苦连天...自动筛选修复数据 以上是没法直接复制列3,然后粘贴到列2当中,因其中的自动筛选把数据隔断开。 另外可能有需要的是列2的正确数据补充,需要从其他区域中复制粘贴过来,其他区域甚至是跨工作表或跨工作薄的。...对粘贴公式内容的场景,请尽量保持只粘贴本工作表复制的单元格,因若粘贴的是其他工作表甚至其他工作薄时,复制原有单元格的公式的引用,将容易出现问题和报错结果不如预期。...例如复制单元格公式是=A2,粘贴过来的公式也是=A2,但复制单元格里的A2是复制的工作表的A2,而粘贴的公式的A2变成了粘贴的工作表的A2,结果可能就不是预期想要的。...此操作可突破单次选择的单元格区域为不连续的区域亦可操作。可使用的场景是在源工作表中加工好数据,并将可以对外输出的部分内容进行复制粘贴到其他工作表或其他工作薄中保存分发。

    4.9K40

    如何利用Excel2007做RFM细分客户群

    Ø 选择数据区域,确认所有的数据都被选择 Ø 选择在“新工作表”中插入数据,然后点击“确定” Ø 将“客户编号”拖入“行标签”栏 Ø 将“收银时间”、“记录ID”、“交易金额”拖入数值计算栏 Ø 点击“...Excel操作: Ø 鼠标拉选列标签ABCD,选中透视表所在的四列 Ø 按ctrl^C(复制),点击“开始”菜单栏下,快捷按钮栏“粘帖”下的小下拉三角标,选择“粘帖值”【或者点“选择性粘帖”,然后选择粘帖值...Ø 在D1单元格中输入-1 Ø 然后ctrl^C复制D1单元格中的值(-1) Ø 然后选中B5:B1204【快捷操作同上】 Ø “开始”-“粘帖”下拉按钮-“选择性粘帖”-在计算部分选择“乘”,然后点击...Ø F1到H1代表R\F\M的最大值,利用公式“=max(B5:B1204)” 计算,(计算F时B换成C,M时B换成D即可) Ø F2到H2代表R\F\M的最小值,利用公式“=min(B5:B1204)...”计算(计算F时B换成C,M时B换成D即可) Ø F3到H3代表R\F\M的极差三等分距,利用公式“=(F1-F2)/3”计算(计算F时F换成G,M时F换成H即可) Ø 【以上快捷操作可用,先输入F1,

    1.6K40

    如何插入或 Visio 中粘贴的 Excel 工作表

    可以使用此方法可嵌入或链接现有的 Excel 工作表的所有单元格也可嵌入或链接现有的 Excel 工作表的某些单元格。 要这样做,请按下列步骤操作: 启动 Excel,然后打开所需的工作表。...如果您想链接 Excel 工作表时,请单击 粘贴链接 。 如果要为绘图中图标显示在 Excel 工作表,单击以选中 显示为图标 复选框。...要显示较大的 Excel 工作表的所有单元格 Visio 绘图中,使用除了绘图中嵌入在工作表的下面的方法。 首先,将 Excel 工作表复制为图片。 然后,粘贴到您的 Visio 绘图图片。...适合 Visio 绘图页在 Excel 工作表 loadTOCNode(2, 'summary'); 插入或粘贴到您的 Visio 绘图的一个现有的大型 Excel 工作表时, 的工作表部分可能会显示超出...调整工作表中的列的大小之前您嵌入在工作表,Visio 绘图中或复制为图片在工作表之前。 然后,粘贴图片以 Visio 绘图。 在调整大小在工作表中的列时, 您会更改工作表的格式。

    11.8K71

    Excel应用实践15:合并多个工作表

    学习Excel技术,关注微信公众号: excelperfect 有时候,我们需要将工作簿中的所有工作表的数据合并到一个工作表中。...如果工作表数量很少,可以直接手工使用复制粘贴操作,然而,如果工作表很多并且工作表中的数据量很大,手工复制既繁琐又容易出错漏。...还好有VBA,对于这种情况,编写少量的代码,即可迅速且准确无误地完成合并工作。 下面的代码假设每个工作表中的标题行相同。代码将新建一个工作表,将工作簿所有工作表中的数据合并到这个新工作表中。...Worksheets(.Worksheets.Count)) End With '设置粘贴数据的位置 Set rngTarget =wksNew.Range("A1") '遍历工作表并将工作表中的数据粘贴到新工作表中...rngPaste.PasteSpecial xlPasteValues rngPaste.PasteSpecial xlPasteFormats '去除复制单元格周边的框线

    1.5K10

    几百个Excel表格的内容要复制粘贴,如何一键自动化搞定?| 州的先生

    一般情况下,都是将这些Excel表格文件一个一个地打开,将里面的内容复制,然后粘贴到一个新的Excel表格文件中。...不仅费时费力还容易出错,Excel文件比较少还好,要是有几十个几百个,那会把自己逼疯了去。.../员工内购信息登记表-汇总.xlsx') 然后,利用add_worksheet()方法添加一个工作簿: worksheet = workbook.add_worksheet() 我们看到表格模板中的第一行是标题...()方法合并了几个单元格。...我们通过os.listdir()方法遍历指定目录下的文件,然后通过xlrd模块的open_workbook()方法打开遍历到的Excel文件,随后读取相应单元格的内容,接着将内容写入到新创建的Excel

    3.4K40

    EXCEL VBA语句集300

    =xlMaximized ‘将当前工作簿最大化  工作表 (18) ActiveSheet.UsedRange.Rows.Count ‘当前工作表中已使用的行数 (19) Rows.Count...‘获取工作表的行数(注:考虑向前兼容性) (20) Sheets(Sheet1).Name= “Sum” ‘将Sheet1命名为Sum (21) ThisWorkbook.Sheets.Add...) ‘将当前工作表移至工作表的最后 (23) Worksheets(Array(“sheet1”,”sheet2”)).Select ‘同时选择工作表1和工作表2 (24) Sheets(“sheet1...A1,粘贴到单元格B1中 Range(“A1:D8”).Copy Range(“F1”) ‘将单元格区域复制到单元格F1开始的区域中 Range(“A1:D8”).Cut Range(“F1”)...).Picture=LoadPicture(“图像路径”) ‘在用户窗体中显示图形 (90) UserForm1.Show 0 或 UserForm1.Show vbModeless ‘将窗体设置为无模式状态

    3.2K41

    Excel 数据筛选难题解决

    如下图:用【入库表】中的【B3】与【出库表】中的【B12】进行比较。 结果两个单元格内容显示是 true,表示内容完全相同。 那原因又是什么呢?...真实的原因是: 将【入库表】中的内容复制到筛选框中之后,会出现多余的空格,最终导致筛选和查找不到数据。 仔细看,内容的前面和后面都有空格。 那这些空格又是怎么来的呢?...4、写在最后 今天我们介绍了筛选和查找中一些非常普遍的问题 —— 关于单元格格式。 ❶ 在实际工作中,大部分人喜欢用会计专用格式来设置数字格式。...如果把数据设置成会计专用格式,复制粘贴到百度搜索框中,也会在数据的前后出现多余的空格。 另外,复制到 Word,PPT 中也有同样的情况。...❷ 对于设置了单元格格式的数值,进行筛选和查找时,需要两者的数字格式完全一样。 本文来自微信公众号:秋叶 Excel (ID:excel100),作者:明镜在心

    28310

    excel常用操作大全

    将鼠标移动到工作表的名称上(如果您没有任何特殊设置,由Excel自动设置的名称是“工作表1,工作表2,工作表3 .”),然后单击右键,并在弹出菜单中选择菜单项“选择所有工作表”。...如果您想使用受保护的工作表并忘记密码,有什么办法吗?是的。选择一个工作表,选择编辑\复制,并将其粘贴到新工作簿中(注意:它必须是新工作簿),这可以覆盖工作表保护。...名字的公式比单元格地址引用的公式更容易记忆和阅读。例如,公式“=SUM”显然比使用单元格地址更简单、更直观,而且不容易出错。 27.如何在公式中快速输入不连续的单元格地址?...28、命名工作表时应注意的问题 有时,为了直观起见,经常需要重命名工作表(Excel中的默认表名是sheet1、sheet2.)。重命名时,最好不要使用现有的函数名作为表名,否则在以下情况下会有歧义。...因此,ZM(2)工作表应该重新命名。 29.如何拆分或取消拆分窗口?当我们在工作表中输入数据时,我们有时会在向下滚动时记住每个列标题的相对位置,尤其是当标题行消失时。

    23.7K10

    Vue.js与Excel数据交互:实现多行多列粘贴至Element UI表格

    前言在当今的数据驱动时代,Excel作为数据处理的重要工具,其数据交换功能在日常工作中的应用极为广泛。然而,随着Web应用的快速发展,用户对于将Excel中的数据直接粘贴到Web界面的需求日益增长。...本文将深入探讨如何在Vue.js组件中利用Element UI的el-table组件,实现从Excel复制多行多列数据后直接粘贴到前端界面的功能。...复制源数据我们打开Excel或者CSV工作表,定位到包含所需数据的工作表或数据源,选中要复制的一行或一列数据。2....选择目标表格我们打开项目需要批量粘贴的数据工作表格, 在工作表中确定一个起始单元格,用于粘贴数据。3....粘贴数据在起始单元格上右键点击,从弹出的菜单中选择“粘贴”选项,或者,使用快捷键Ctrl+V进行粘贴, 数据成功粘贴到目标工作表中。我们可以在不同的起始位置进行数据的粘贴。

    2.9K41

    Excel VBA宏的使用

    ThisWorlBook 代码所在的工作薄2)工作表Sheets(“工作表名称”)Sheet1 表示第一个插入的工作表,Sheet2 表示第二个插入的工作表Sheets(n) 表示按排列顺序,第n个工作表...Activesheet 表示活动工作表,光标所在工作表Worksheet 也表示工作表,但不包括图表工作表、宏工作表等。...For x = 1 To 10 Cells(x, 3) = Cells(x, 2) * Cells(x, 1) Next xEnd Sub 'on error goto '出错时跳到指定的行数...、小数、负数和科学计数法),并在输入非数字内容时给出提示并清空单元格。...1)使用说明 按 Alt+F11 打开VBA编辑器 在左侧项目窗口中双击对应的工作表(如 Sheet1) 将上述代码粘贴到代码窗口中2)完整代码Private Sub Worksheet_Change

    39110

    Excel小技巧71:让RAND函数生成的随机数固定不变

    可以以粘贴值的方式将它们粘贴到另一组单元格,但这样的话,它们就永远固定下来了;还可以使用VBA代码。其实,还可以使用Excel的模拟运算表功能。...Excel的计算选项如图1所示,通常情况下设置为自动计算,这样当工作表中的单元格发生变化或者保存工作表时,公式会自动重新计算,设置为手动计算后,必须手动刷新才会重新计算。...除此两项外,还专门为模拟运算表设置了计算模式,即“除模拟运算表外,自动重算”,这就为我们固定随机数提供了一种方法。特别是当要随机数固定,而其它单元格需要变化时。 ?...图1 我们使用模拟运算表建立一个生成随机数的表格,如下图2所示,其中列B是由RAND函数生成的随机数,而列C中是使用模拟运算表生成的随机数。 ?...图2 将工作表计算选项设置为“除模拟运算表外,自动重算”,此时,当我们在工作表中输入任何内容或者作出改变时,列C中的值固定不变,而列B中的值会发生变化,如下图3所示。 ?

    19.8K22

    VBA专题02:使用代码进行复制操作

    学习Excel技术,关注微信公众号: excelperfect 在Excel工作表中,复制粘贴是最常用的操作之一。在已经输入的数据中,找到并复制想要的数据,然后粘贴到指定的地方,是再自然不过的操作了。...或者从工作表的一个单元格区域复制到同一工作表中另外的单元格区域,或者从工作表的一个单元格区域复制到另一工作表中的单元格区域,甚至从工作表的一个单元格区域复制到不同工作簿中的工作表单元格区域。...图2 使用数组 如下图3所示,将工作表Sheet4的列A中内容为“完美Excel”的行复制到工作表Sheet5中。 ?...如下图4所示,工作表Sheet10中的单元格区域A1:B7为数据区域,单元格区域D1:D2为筛选条件,需要筛选出名称为“完美Excel”的数据至工作表Sheet11中。 ?...在使用VBA代码进行复制操作时,我们不需要先选择想要复制的数据,也不需要选择或激活数据所在的工作表。 2. 在不同的工作表之间复制,或者在不同的工作簿之间复制时,在前面加上相应的工作表或工作簿名称。

    7.6K20
    领券