VBA 中 是一列单元格 不可编辑 而其他的可以编辑 1C

VBA 中 是一列单元格 不可编辑 而其他的可以编辑
就是查询出来的数据主键那一列 我想让那一列不能编辑 只能看
应该怎么写代码

2个回答

代码如下:

     Cells.Locked = False //单元格初始默认是写保护状态,所以需要先解锁
     Columns(1).Locked = True 
     ActiveSheet.Protect 

qq_32543377
Toxiclover 这段代码放到 Worksheet_SelectionChange 这里面么? 会报错啊
3 年多之前 回复

这个代码是错的,不管放到哪个函数里都要报错

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
VBA 怎么设置表格中部分单元格可编辑,其他单元格不可编辑?

我需要做一个表格,只有第九列可以编辑,其他地方点都点不了,不能编辑,也不能进行其他操作。另外希望顶部菜单都不能使用 ![图片说明](https://img-ask.csdn.net/upload/201908/29/1567047250_416088.png) # VBA 设置表格只有部分单元格可以编辑,其他单元格不能编辑

Vba获取表格某一列的值

Vba获取表格某一列的值,判断单元格是否为空,是则开始计数并返回

VBA读取Excel单元格数据,处理后再写入该表中的其他位置,怎么实现?

## # 用Excel的VBA能够从Excel中读取数据,也能够实现数据写入到单元格中,但是怎么实现在一个Function中实现先读取数据,再写到表的其他单元格呢?**__ Public Function test1() As String Dim strArray() As Variant Dim wk_data As Variant Set wk_data = Sheets("Sheet1") strArray = wk_data.Range("A47:B48").Value 出现错误!! wk_data.Range("G43").Resize(UBound(strArray, 1), UBound(strArray, 2)).Value = strArray test1 = "true" End Function

VBA 自动填充excel的列

客户有个这样的需求不知道能不能用vba实现,希望各位指导一下。 首先excel根据两个单元格的开始日期和结束日期,自动计算出中间经过几个月份,并从起始月份 开始,每一列将月份顺次往下延一个月,到每年的8月份为一个财年,也就是到了8月后的下一列 显示为fisical year. 例如:开始日期为:2015-3-20,结束日期为2016-12-20 则excel显示的样式为 march 2015 April 2015......August2015 Fisical2015 Sep 2015 针对fisical year的列,它是前几个月的总和。然后再根据左边几项的内容对每个月份再做一次求和。 具体的可以看一下附件的图片。 先谢谢各位了!!!!!![图片说明](https://img-ask.csdn.net/upload/201507/06/1436164980_358790.png)

vba判断某单元格是否有边框时,返回错误的结果。

我不是专业程序员,可能问题比较愚蠢,但百度搜不到,只能求大大帮忙了。 1,描述问题 我有一张从某财务软件中导出的表格,为了操作这张表格,我写了一个sub遍历一系列单元格,返回最后一个拥有边框的单元格的行数。但是最终得到了错误的结果。 然而,我用同样的sub,自建一个测试表格,是可以获得正确的结果的。 会不会是财务软件里导出的表格有什么特殊的地方? 2,代码 '获取没有格式那一行的行数的函数 Function count(ByRef aimSheet As Worksheet) As Integer Dim i As Integer i = 7 '从第7行开始遍历,只要i行B列还有边框,行数统计+1,直到遇到没有边框的那一行为止 While aimSheet.Range("b" & i).Borders.LineStyle <> xlNone ' i = i + 1 Wend count = i '返回最后有边框的行数 End Function 另外还有一个调用这个function的sub Sub addSign() '增加表尾的功能 '打开文件选择框选择文件,并获取工作簿对象 Dim aimBook As Workbook With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False '单选择 .Filters.Clear '清除文件过滤器 .Filters.Add "Excel Files", "*.xls;*.xlsx" '设置文件过滤器 If .Show = -1 Then 'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。 Set aimBook = Workbooks.Open(.SelectedItems(1)) End If End With '定义工作表名字变量 Dim aimSheetName As String '定义行数统计变量 Dim rowCount As Integer '遍历所有工作表 For i = 1 To aimBook.Worksheets.count '从sheet1遍历到最后一张工作表 rowCount = count(aimBook.Sheets(i)) '召唤统计行数的Function aimSheetName = aimBook.Sheets(i).Name MsgBox aimSheetName & "表最后有边框的一行是第" & rowCount & "行" If aimSheetName = "报表索引" Then GoTo Line1 '报表索引不需要操作 If aimSheetName = BKJ01 Or BKJ02 Or BKJ03 Then '当sheet名为这3个的时候 aimBook.Sheets(i).Cells(rowCount, 1) = "公司负责人: 主管会计工作负责人: 会计机构负责人: 会计主管: 复核人: 制表人:" ElseIf aimSheetName = "BKJ1031" Then '这张表比较特殊 aimBook.Sheets(i).Cells(rowCount, 1) = "主管会计工作负责人: 会计机构负责人: 会计主管: 复核人: 制表人:" ElseIf aimSheetName = "BKJ3001" Then '这张表比较特殊 aimBook.Sheets(i).Cells(rowCount, 1) = "主管会计工作负责人: 会计机构负责人: 会计主管: 复核人: 制表人:" aimBook.Sheets(i).Range("a" & rowCount + 11, "d" & rowCount + 13) = "" Else '其余的都这样 aimBook.Sheets(i).Cells(rowCount, 1) = "主管会计工作负责人: 会计机构负责人: 会计主管: 复核人: 制表人:" aimBook.Sheets(i).Range("a" & rowCount + 1, "z" & rowCount + 10) = "" End If Line1: Next i End Sub 3,报错 某sheet页作为参数传入,从第7行开始,一直到50行都有边框,但是,以上sub的返回值是7。而且所有的sheet页的返回值都是错的。 有的sheet只到几十行就没有边框了,但返回值却是300多。 但只有财务软件里导出的表格会有这样的错误,我自建一个新的表格做测试完全正常。 4,在百度上搜索了,找不到结果。自建新表格测试是正常返回的。 5,截图 这张sheet最后一行有边框的应该是51行,但返回值是错的。 ![图片说明](https://img-ask.csdn.net/upload/201904/14/1555251282_731458.png) 但是在另外一张测试表格里,返回值是正确的。 ![图片说明](https://img-ask.csdn.net/upload/201904/14/1555251368_249778.png)

VBA从当前位置向上查找a,返回a所在的单元格位置

VBA有没有哪个函数可以从当前位置向上查找(例如字母a),返回a所在单元格的位置

用bva让一个单元格显示另一个单元格的修改日期,且能决定日期显示的格式

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target.Column = 4 Then Cells(Target.Row, 6) = Now End If End If End Sub 这是我在网上收的,日期的格式太详细,我想只显示月、日就可以了。右键单元格,设置单元格格式不行,能否在vba中就把日期的格式定义好。

如何用VBA匹配相同的列

如题目所示,我想不用vlookup的方式,而用vba的方式匹配两张表格中相同的列,代码应该怎么写呢![图片说明](https://img-ask.csdn.net/upload/201609/18/1474187294_866117.png) ![图片说明](https://img-ask.csdn.net/upload/201609/18/1474187312_428300.png)

Dev的 spreadsheetControl 控件怎么设置单元格只读

C# winfrom Dev的 spreadsheetControl 控件怎么设置单元格只读 整个控件有readonly属性,单元格 行 列 都没找到readonly属性

ABAP中用OLE操作EXCEL怎么锁定单元格不能编辑,也就是EXCEL中保护工作表

![图片说明](https://img-ask.csdn.net/upload/201712/13/1513175447_765094.jpg)![图片说明](https://img-ask.csdn.net/upload/201712/13/1513175402_623134.jpg) ![图片说明](https://img-ask.csdn.net/upload/201712/13/1513175558_231271.jpg) 对这一块还不是很熟悉,有大神告知该怎么设置吗?

Excel VBA中把多个Excel数据的某一列导入到另一个新的Excel的sheet中(导入的列在一个sheet里)。VBA小白 谢谢大家

有3个.xls还有两个.xlsx (每个Excel都有多个sheet) 要导入五个Excel表的所有sheet的某一列到新的Excel表的sheet中 标签应该是 Excel VBA 但是没找到就随便找了一个

vba判断A列非空则在B列非空行附上一个值

如:A列只有1,3,4,5行非空,所以在B列给1,3,4,5行赋值“hello” A列 B列 1 hello 3 hello 4 hello 5 hello

Vba设置一个按钮打开文件夹遍历其中所有表的信息,并判断某一个单元格是否为空。显示出来。

Vba设置一个按钮打开文件夹遍历其中所有表的信息,并判断某一个单元格是否为空。显示出来。 不会做啊。求大神帮帮我。

VBA中使用FOR循环调用单元格数据出现错误438

想将工作簿2中与工作簿1中相同的ID的进行数据合并,但运行到第3行的时候报错 ```Dim a As Range, b As Range, c As Range, d As Range ```Dim x%, y%, ```For Each a In Workbooks(2).Sheet1.Range("E2:E132") ```x = a.Rows.Count ``` For Each b In Workbooks(1).Sheet1.Range("E137:E180") ``` y = b.Rows.Count ``` If a = b Then ```Workbooks(1).Sheet1.Range("GK" & y) = Workbooks(2).Sheet1.Range("E" & x) ``` Workbooks(1).Sheet1.Range("GL" & y).Resize(, 11) = Workbooks(2).Sheet1.Range("FS" & x & ":GC" & x) ```End If ``` Next ```Next ![图片说明](https://img-ask.csdn.net/upload/202002/12/1581520816_554305.jpg) ![图片说明](https://img-ask.csdn.net/upload/202002/12/1581520891_674056.jpg) 请各位大佬救救萌新

VBA编程 Excel中如何实现每列数据不为空

Excel中如何有4列,要求用户填写数据的时候每一列都不能为空,否则excel不能保存

大神求助,如何自动填充数据到表格里面,表格随数据动态变化 VBA

![图片说明](https://img-ask.csdn.net/upload/201704/25/1493109879_765133.png) 各位大神,小弟实在不熟悉工作簿工作表的对象方法,故有一事相求,能否把源数据里面的数据按照日期建立不同的工作表(例如1月1日,1月2日等等这样,因为几乎每天都有物品出库),并将箱号放置在表格的左侧栏目,物品编码放置在中间栏目,右侧的领用数量会自动计算物品个数....其实最大的难点是如何让表格根据数据的变化自动调整单元格的个数,,而且还有个规定就是:一个箱号最多对应15个物品编码.恳请大神相助!!!

access VBA 怎么读取 excel 指定单元格里的值

有个excel订单表 想在想读取 其中几个单元格里的数据 然后新增为一张表的几率 请教用access VBA 应该怎么做

请教:python的xlwings如何在同一个单元格中混用不同的字体格式?

比如想在单元格中输入![图片说明](https://img-ask.csdn.net/upload/201910/15/1571122778_992979.png),应该如何实现?请各位大侠指教,感激不尽!

VBA 读取CSV文件并将相关数据填入工作表的指定单元格内。

**需求**: 在excel中通过点击按钮来读取选择的CSV文件,并从CSV中取出相关数据,然后填入excel中的指定单元格内。 **详细说明** : 1.csv文件有固定的命名,可以放在任意路径下,而不是固定的路径。因此需要通过选择路径来选择csv文件。 2. 按钮需要定义在当前工作表指定位置。<式样.xlsx> 3.通过在工作表<式样.xlsx>中点击按钮来选择CSV文件并读取其中的数据,并把相应的数据填入到当前工作表的指定位置。 **举例说明**: 如果选择读取的是110.csv文件,则需要将数据填入<式样.xlsx>中的B~F列中,填写规则如下: B列固定填写110A C~F列根据csv文件中的数据来进行填写,如果csv中是分类为IT的,则将编号填入<式样.xlsx>中的E列,填写规则为“#+编号”,若编号为11,则填写为#11。 若分类为ST的,则填入F列;若为变更,则填入D列,填写规则与IT一样。 **PS**: 若读取的是130A.csv,则填入<式样.xlsx>中的H~L列,规则与上面记述一致。 若读取的是120B.csv,则填入<式样.xlsx>中的N~R列,规则与上面记述一致。 ![图片说明](https://img-ask.csdn.net/upload/201905/08/1557320393_395609.png) ![图片说明](https://img-ask.csdn.net/upload/201905/08/1557320410_682141.png) ![图片说明](https://img-ask.csdn.net/upload/201905/08/1557320426_867869.png) ![图片说明](https://img-ask.csdn.net/upload/201905/08/1557320435_696676.png)

在中国程序员是青春饭吗?

今年,我也32了 ,为了不给大家误导,咨询了猎头、圈内好友,以及年过35岁的几位老程序员……舍了老脸去揭人家伤疤……希望能给大家以帮助,记得帮我点赞哦。 目录: 你以为的人生 一次又一次的伤害 猎头界的真相 如何应对互联网行业的「中年危机」 一、你以为的人生 刚入行时,拿着傲人的工资,想着好好干,以为我们的人生是这样的: 等真到了那一天,你会发现,你的人生很可能是这样的: ...

程序员请照顾好自己,周末病魔差点一套带走我。

程序员在一个周末的时间,得了重病,差点当场去世,还好及时挽救回来了。

Java基础知识面试题(2020最新版)

文章目录Java概述何为编程什么是Javajdk1.5之后的三大版本JVM、JRE和JDK的关系什么是跨平台性?原理是什么Java语言有哪些特点什么是字节码?采用字节码的最大好处是什么什么是Java程序的主类?应用程序和小程序的主类有何不同?Java应用程序与小程序之间有那些差别?Java和C++的区别Oracle JDK 和 OpenJDK 的对比基础语法数据类型Java有哪些数据类型switc...

和黑客斗争的 6 天!

互联网公司工作,很难避免不和黑客们打交道,我呆过的两家互联网公司,几乎每月每天每分钟都有黑客在公司网站上扫描。有的是寻找 Sql 注入的缺口,有的是寻找线上服务器可能存在的漏洞,大部分都...

Intellij IDEA 实用插件安利

1. 前言从2020 年 JVM 生态报告解读 可以看出Intellij IDEA 目前已经稳坐 Java IDE 头把交椅。而且统计得出付费用户已经超过了八成(国外统计)。IDEA 的...

搜狗输入法也在挑战国人的智商!

故事总是一个接着一个到来...上周写完《鲁大师已经彻底沦为一款垃圾流氓软件!》这篇文章之后,鲁大师的市场工作人员就找到了我,希望把这篇文章删除掉。经过一番沟通我先把这篇文章从公号中删除了...

总结了 150 余个神奇网站,你不来瞅瞅吗?

原博客再更新,可能就没了,之后将持续更新本篇博客。

副业收入是我做程序媛的3倍,工作外的B面人生是怎样的?

提到“程序员”,多数人脑海里首先想到的大约是:为人木讷、薪水超高、工作枯燥…… 然而,当离开工作岗位,撕去层层标签,脱下“程序员”这身外套,有的人生动又有趣,马上展现出了完全不同的A/B面人生! 不论是简单的爱好,还是正经的副业,他们都干得同样出色。偶尔,还能和程序员的特质结合,产生奇妙的“化学反应”。 @Charlotte:平日素颜示人,周末美妆博主 大家都以为程序媛也个个不修边幅,但我们也许...

MySQL数据库面试题(2020最新版)

文章目录数据库基础知识为什么要使用数据库什么是SQL?什么是MySQL?数据库三大范式是什么mysql有关权限的表都有哪几个MySQL的binlog有有几种录入格式?分别有什么区别?数据类型mysql有哪些数据类型引擎MySQL存储引擎MyISAM与InnoDB区别MyISAM索引与InnoDB索引的区别?InnoDB引擎的4大特性存储引擎选择索引什么是索引?索引有哪些优缺点?索引使用场景(重点)...

如果你是老板,你会不会踢了这样的员工?

有个好朋友ZS,是技术总监,昨天问我:“有一个老下属,跟了我很多年,做事勤勤恳恳,主动性也很好。但随着公司的发展,他的进步速度,跟不上团队的步伐了,有点...

我入职阿里后,才知道原来简历这么写

私下里,有不少读者问我:“二哥,如何才能写出一份专业的技术简历呢?我总感觉自己写的简历太烂了,所以投了无数份,都石沉大海了。”说实话,我自己好多年没有写过简历了,但我认识的一个同行,他在阿里,给我说了一些他当年写简历的方法论,我感觉太牛逼了,实在是忍不住,就分享了出来,希望能够帮助到你。 01、简历的本质 作为简历的撰写者,你必须要搞清楚一点,简历的本质是什么,它就是为了来销售你的价值主张的。往深...

魂迁光刻,梦绕芯片,中芯国际终获ASML大型光刻机

据羊城晚报报道,近日中芯国际从荷兰进口的一台大型光刻机,顺利通过深圳出口加工区场站两道闸口进入厂区,中芯国际发表公告称该光刻机并非此前盛传的EUV光刻机,主要用于企业复工复产后的生产线扩容。 我们知道EUV主要用于7nm及以下制程的芯片制造,光刻机作为集成电路制造中最关键的设备,对芯片制作工艺有着决定性的影响,被誉为“超精密制造技术皇冠上的明珠”,根据之前中芯国际的公报,目...

优雅的替换if-else语句

场景 日常开发,if-else语句写的不少吧??当逻辑分支非常多的时候,if-else套了一层又一层,虽然业务功能倒是实现了,但是看起来是真的很不优雅,尤其是对于我这种有强迫症的程序"猿",看到这么多if-else,脑袋瓜子就嗡嗡的,总想着解锁新姿势:干掉过多的if-else!!!本文将介绍三板斧手段: 优先判断条件,条件不满足的,逻辑及时中断返回; 采用策略模式+工厂模式; 结合注解,锦...

离职半年了,老东家又发 offer,回不回?

有小伙伴问松哥这个问题,他在上海某公司,在离职了几个月后,前公司的领导联系到他,希望他能够返聘回去,他很纠结要不要回去? 俗话说好马不吃回头草,但是这个小伙伴既然感到纠结了,我觉得至少说明了两个问题:1.曾经的公司还不错;2.现在的日子也不是很如意。否则应该就不会纠结了。 老实说,松哥之前也有过类似的经历,今天就来和小伙伴们聊聊回头草到底吃不吃。 首先一个基本观点,就是离职了也没必要和老东家弄的苦...

2020阿里全球数学大赛:3万名高手、4道题、2天2夜未交卷

阿里巴巴全球数学竞赛( Alibaba Global Mathematics Competition)由马云发起,由中国科学技术协会、阿里巴巴基金会、阿里巴巴达摩院共同举办。大赛不设报名门槛,全世界爱好数学的人都可参与,不论是否出身数学专业、是否投身数学研究。 2020年阿里巴巴达摩院邀请北京大学、剑桥大学、浙江大学等高校的顶尖数学教师组建了出题组。中科院院士、美国艺术与科学院院士、北京国际数学...

为什么你不想学习?只想玩?人是如何一步一步废掉的

不知道是不是只有我这样子,还是你们也有过类似的经历。 上学的时候总有很多光辉历史,学年名列前茅,或者单科目大佬,但是虽然慢慢地长大了,你开始懈怠了,开始废掉了。。。 什么?你说不知道具体的情况是怎么样的? 我来告诉你: 你常常潜意识里或者心理觉得,自己真正的生活或者奋斗还没有开始。总是幻想着自己还拥有大把时间,还有无限的可能,自己还能逆风翻盘,只不是自己还没开始罢了,自己以后肯定会变得特别厉害...

百度工程师,获利10万,判刑3年!

所有一夜暴富的方法都写在刑法中,但总有人心存侥幸。这些年互联网犯罪高发,一些工程师高技术犯罪更是引发关注。这两天,一个百度运维工程师的案例传遍朋友圈。1...

程序员为什么千万不要瞎努力?

本文作者用对比非常鲜明的两个开发团队的故事,讲解了敏捷开发之道 —— 如果你的团队缺乏统一标准的环境,那么即使勤劳努力,不仅会极其耗时而且成果甚微,使用...

为什么程序员做外包会被瞧不起?

二哥,有个事想询问下您的意见,您觉得应届生值得去外包吗?公司虽然挺大的,中xx,但待遇感觉挺低,马上要报到,挺纠结的。

当HR压你价,说你只值7K,你该怎么回答?

当HR压你价,说你只值7K时,你可以流畅地回答,记住,是流畅,不能犹豫。 礼貌地说:“7K是吗?了解了。嗯~其实我对贵司的面试官印象很好。只不过,现在我的手头上已经有一份11K的offer。来面试,主要也是自己对贵司挺有兴趣的,所以过来看看……”(未完) 这段话主要是陪HR互诈的同时,从公司兴趣,公司职员印象上,都给予对方正面的肯定,既能提升HR的好感度,又能让谈判气氛融洽,为后面的发挥留足空间。...

面试:第十六章:Java中级开发

HashMap底层实现原理,红黑树,B+树,B树的结构原理 Spring的AOP和IOC是什么?它们常见的使用场景有哪些?Spring事务,事务的属性,传播行为,数据库隔离级别 Spring和SpringMVC,MyBatis以及SpringBoot的注解分别有哪些?SpringMVC的工作原理,SpringBoot框架的优点,MyBatis框架的优点 SpringCould组件有哪些,他们...

面试阿里p7,被按在地上摩擦,鬼知道我经历了什么?

面试阿里p7被问到的问题(当时我只知道第一个):@Conditional是做什么的?@Conditional多个条件是什么逻辑关系?条件判断在什么时候执...

无代码时代来临,程序员如何保住饭碗?

编程语言层出不穷,从最初的机器语言到如今2500种以上的高级语言,程序员们大呼“学到头秃”。程序员一边面临编程语言不断推陈出新,一边面临由于许多代码已存在,程序员编写新应用程序时存在重复“搬砖”的现象。 无代码/低代码编程应运而生。无代码/低代码是一种创建应用的方法,它可以让开发者使用最少的编码知识来快速开发应用程序。开发者通过图形界面中,可视化建模来组装和配置应用程序。这样一来,开发者直...

面试了一个 31 岁程序员,让我有所触动,30岁以上的程序员该何去何从?

最近面试了一个31岁8年经验的程序猿,让我有点感慨,大龄程序猿该何去何从。

大三实习生,字节跳动面经分享,已拿Offer

说实话,自己的算法,我一个不会,太难了吧

程序员垃圾简历长什么样?

已经连续五年参加大厂校招、社招的技术面试工作,简历看的不下于万份 这篇文章会用实例告诉你,什么是差的程序员简历! 疫情快要结束了,各个公司也都开始春招了,作为即将红遍大江南北的新晋UP主,那当然要为小伙伴们做点事(手动狗头)。 就在公众号里公开征简历,义务帮大家看,并一一点评。《启舰:春招在即,义务帮大家看看简历吧》 一石激起千层浪,三天收到两百多封简历。 花光了两个星期的所有空闲时...

《Oracle Java SE编程自学与面试指南》最佳学习路线图2020年最新版(进大厂必备)

正确选择比瞎努力更重要!

字节跳动面试官竟然问了我JDBC?

轻松等回家通知

面试官:你连SSO都不懂,就别来面试了

大厂竟然要考我SSO,卧槽。

实时更新:计算机编程语言排行榜—TIOBE世界编程语言排行榜(2020年6月份最新版)

内容导航: 1、TIOBE排行榜 2、总榜(2020年6月份) 3、本月前三名 3.1、C 3.2、Java 3.3、Python 4、学习路线图 5、参考地址 1、TIOBE排行榜 TIOBE排行榜是根据全世界互联网上有经验的程序员、课程和第三方厂商的数量,并使用搜索引擎(如Google、Bing、Yahoo!)以及Wikipedia、Amazon、YouTube统计出排名数据。

立即提问
相关内容推荐