AutoCAD VBA 通过选择集 删除图层上所有对象和图层 '删除图层上所有对象            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2009-10-29 11:05:00
                            
                                708阅读
                            
                                                                                    
                                2评论
                            
                                                 
                 
                
                             
         
            
            
            
            ⽤VBA代码删除空⾏            
                
                    
                        
                                                            
                                                                        
                                                                                        原创
                                                                                    
                            2022-08-17 14:23:47
                            
                                1804阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            在EXCEL的VBA中提供了一个ExecuteExcel4Macro函数,可以用于运行Excel工作表中的指定宏。关于ExecuteExcel4Macro函数的用法具体详见MSDN上的描述。            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2011-10-16 21:25:00
                            
                                384阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            AutoCAD二次开发,按图层进行缩放操作,代码如下。 Private Function GetLeftBottomPt(ByRef ptArr() As Variant) As Variant Dim ptleftbottom(0 To 2) As Double Dim i As Long For i = 0 To UBound(ptArr) If ...            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2011-03-19 11:15:00
                            
                                354阅读
                            
                                                                                    
                                2评论
                            
                                                 
                 
                
                             
         
            
            
            
            工作表操作' 关闭警告,否则删除工作表时将出现提示信息
Application.DisplayAlerts = False
' 删除以字母“C”开头的临时模板
For Each a In Worksheets
  If Left(a.Name, 1) = "C" Then a.Delete
  ' If InStr(a.Name, ".") > 0 Then a.Delete
Next            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2024-05-29 00:57:02
                            
                                121阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            摘要: 因为现在项目在开发新的API,我需要根据API方法论去校验这个API的计算逻辑和计算结果是否正确,而且需要将计算逻辑用Excel记录下来,所以就用了Excel的VBA。1. 什么是VBA?具体含义大家可以看百度百科,我就直接上图了,每个单元格都是调用了VBA的宏计算语言函数,我就简称这个Excel含有macro计算逻辑吧。2.问题是什么?大家都知道要比较一个API的准确性,我们需要自己根据            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2024-02-10 10:10:16
                            
                                117阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            在Excel中删除空行和空列的方法有很多,下面的方法是用VBA代码来删除工作表指            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2022-12-13 11:40:54
                            
                                1403阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            大家好,今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验和记录,来源于我多年的经验。今日分享的是NO.225-NO.226,内容是:NO. 225:数组的赋值和回填工作表NO. 226:将数组的值批量回填给工作表的办法       VBA过程代码225:数组的赋值和回填工作表Sub Mynz ()'创建数组,并赋值Dim arr(1 To 60000), i As            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2024-05-10 16:49:30
                            
                                144阅读
                            
                                                                             
                 
                
                                
                     
                                    
                             
         
            
            
            
            第一种情况保留不重复的记录行,重复的只保留一行。 
  1、打开有重复数据的EXCEL 2、Alt+F11 打开宏的VB编辑器 3、左边双击:ThisWorkBook 4、贴入以下代码并运行即可: Sub 删除重复数据() '删除col列的重复数据 '本例是删除标题为sheet1的EXCEL表中A列(从A2单元格开始)的重复数据 Application.ScreenUpdating = False            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2024-04-05 12:39:35
                            
                                269阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            说明(2017.3.22):1. 根据兰色幻想VBA80集视频教学,总结2. 大部分可以用自带函数处理,不过复制文件夹需要用到FileSystemObject对象,打开文件夹用到shell1 Public Sub test1()
 2 '1. 判断文件夹是否存在,dir第二个参数为vbDirectory,不然只判断文件是否存在
 3     If Dir(ThisWorkbook.path &am            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2023-07-03 13:06:37
                            
                                560阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            Option Explicit '清空数据 Private Sub CommandButton1_Click() Dim qknum As Integer '选择是或者否 来确认删除数据 '中对话框类型 16+4 :16指图标类型是停止图标,4指出现的按钮是“是”“否”按钮 If (MsgBox("            
                
                    
                        
                                                            
                                                                        
                                                                                        原创
                                                                                    
                            2022-06-17 05:12:41
                            
                                1454阅读
                            
                                                                             
                 
                
                             
         
            
            
            
             机房收费系统已经做了很长一段时间了,虽然到目前为止,仍然没有结束,但已经结节尾声了。我感觉现在有必要回首总结一下整个机房收费系统。 除了结账做了一半,报表接触一点之外,其他的都基本上差不多了。从做过的这些和正要做的来分析机房收费,我把他分成了几个部分:查询数据库类(简单查询显示,组合查询)、向数据库写入数据类、导出表格类、报表类、各个表格之间相互连接类(结账)。 以登陆窗体为例子,简单总结一下V            
                
         
            
            
            
            我们在开发过程中,很多情况,大家都会去使用表,当然也有用到链接表的情况,那如果用VBA该怎么获取字段名的标题呢?我们今天就来看看怎么操作!            
                
                    
                        
                                                            
                                                                        
                                                                                        原创
                                                                                    
                            2024-09-18 15:27:30
                            
                                55阅读
                            
                                                                             
                 
                
                                
                     
                                    
                             
         
            
            
            
            VBA神键手智能输入提示神键手功能说明VBA神键手输入提示通过对预置关键词代码短语,以及VBA代码库的模糊搜索提示,实现VBA极速编程体验,且支持VBA代码库中文拼音首字母搜索,常用VBA代码块1秒输入,节省更多时间用来思考,而不是花费在敲字母以及记忆单词上,词库和代码库均可根据个人喜好习惯自由定制,达到最佳使用效果!关键字+空格触发输入提示输入 IF空格 就会弹出如下图所示神键手提示按下Tab            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2023-12-08 15:12:58
                            
                                337阅读
                            
                                                                             
                 
                
                                
                     
                                    
                             
         
            
            
            
            要使用arcpy删除栅格图层,可以使用Delete_management()函数。 import arcpy # 设置工作空间 arcpy.env.workspace = "D:/data" # 定义要删除的栅格图层名称 raster_layer = "example_raster.tif" # 删            
                
                    
                        
                                                            
                                                                        
                                                                                        原创
                                                                                    
                            2023-11-24 09:37:55
                            
                                117阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            一、更改标题名称 点击右上角的黑色方块 计时器触发:每次要执行的代码 计时器间隔:每次执行代码的间隔 '计时器触发代码 Private Sub Form_Timer() Caption = "当前时间:" & Time() 'caption表示标题 End Sub 二、模块 模块分为类模块和标准模块            
                
                    
                        
                                                            
                                                                        
                                                                                        原创
                                                                                    
                            2021-12-29 15:08:57
                            
                                3829阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            【代码】aijs 删除隐藏图层。            
                
                    
                        
                                                            
                                                                        
                                                                                        原创
                                                                                    
                            2023-02-01 11:50:04
                            
                                80阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            1,DXF来源于PADS导出,内含许多无用的图层,需要删去;默认的删除操作无法处理; 可尝试下面方法: 2,将视图缩放到最大,输入命令 zoom e 3,执行命令laywalk,在弹出的对话框里筛选无用的图层,通过观察避免删错层: laywalk 4,发现该对话框右下角清理命令无效,因此用layde ...            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2021-10-13 19:59:00
                            
                                675阅读
                            
                                                                                    
                                2评论
                            
                                                 
                 
                
                             
         
            
            
            
            正如在以前的帖子说,但是我在转到故事版(StoryBoard)教程之前,我有另外一个问题来回答。我如何从UITableView删除一行呢?当人们构建简单的表视图引用程序后,这是另一个常见的问题。同样的,它比你想象的更容易。但在进入编码部分,我打算给你介绍一个程序员使用最多的设计模式,用户界面编程的模型 - 视图 - 控制器模式(Model-View-Controller)。如果你是认真对待iOS编            
                
         
            
            
            
            Log.d("图层记录数:", "" + pFeatureLayer.getFeatureTable().getNumberOfFeatures()); Log.d("图层选择记录数:", "" + pFeatureLayer.getSelectedFeatures().size()); Log.d("图层字段...            
                
                    
                        
                                                            
                                                                        
                                                                                        原创
                                                                                    
                            2021-07-09 10:30:40
                            
                                315阅读