首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

Emlog gid自动补全断id方法

Emlog文章连接使用gid自增作为文章ID,但是由于后台有删除文章功能,一旦删除文章那么gid自增就会出现断。    ...其实断问题解决很方便,只要在添加文章时候判断gid之前有没有断问题,有的话直接插入,没有的话自增。    ...我这里解决方法是这样,我把gid自增段顺序读取作为值写入数组,自增段是从1开始,但是数组键值是0开始,那么先把数组(gidarr[0]='0')赋值掉,然后把gidarr[]=gid,然后只要发现..."blog ($field) VALUES ($values)"); $logid = $this->db->insert_id(); return $logid;...假如你有多篇文章删除,添加一篇的话,只有从开始,慢慢补全断。      提醒你,在更改文件时请先做好备份。

83010

Excel自动提取文本特征关键字

这是一个知乎网友提问,问题如下: 概括就是:在Excel中,如何判断某个文本是否包含某些关键字,并将这些关键字用标点符号隔开?...使用Excel Power Query两个函数,可以做个全自动模板,实现此功能,实现步骤如下: 1.将文本和特征量均导入Power Query Excel 2016及以上在数据选项卡下,Excel2013...2.文本表添加自定义列等于特征量表 展开自定义列后,每个文本都生成了对应所有特征量行,以便我们对每个文本所有特征量进行循环。...3.添加如下自定义列,判断文本是否包含特征量 Text.Contains([文本],[特征量]) 包含则返回TRUE,不包含则返回FALSE,然后筛选所有的TRUE 4.添加步骤,对文本表进行分组...,并将特征量用逗号隔开 Table.Group(删除列, {"文本"}, {{"计数", each Text.Combine([特征量],",")}})

2.2K30
您找到你想要的搜索结果了吗?
是的
没有找到

VBA代码:将Excel保存为文本文件几段代码

标签:VBA 下面的代码将输出一个名为“Test.txt”文本文件,其中包含常量delimiter中指定任何分隔符(在本示例中为管道符号)。...nFileNum, Mid(sOut, 2) sOut = Empty End With Next myRecord Close #nFileNum End Sub 下面的代码输出文本文件不会对引号中有逗号或文本中有双引号单元格进行修改...(注:使用Excel自身功能导出时,会对单元格中包含逗号内容或者含有双引号单元格内容自动添加双引号): Public Sub TextNoModification() Const DELIMITER...Mid(sOut, 2) sOut = Empty End With Next myRecord Close #nFileNum End Sub 有时应用程序需要具有固定宽度字段输入文件...无论字段中有多少个字符数据,字段宽度都是恒定。少于所需字符数字段必须用空格或其他字符填充。下面的代码将生成一个具有固定字段文本文件。字段宽度包含在vFieldArray中。

17610

Excel实战技巧76: 使用文本文件隐藏登录敏感信息

例如,下面使用VBA自动登录公司数据库代码: '作用:使用Excel VBA登录到公司数据库Sub DatabaseLogin() Dim ID_List As Variant Dim...'ID ID_List = Array("x302918","x294832", "x392490") '用户名 Username_List = Array("JohnSmith...thespreadsheetguru.com展示了一种简单方法,能够在运行时将用户名和密码带入VBA,而不会在VBA代码或Excel工作表中暴露这些敏感信息。...这样,VBA代码将从这个文本文件中提取信息并进行处理,下面是完整代码: '作用:通过Excel VBA文本文件来登录公司数据库Sub DatabaseLogin() Dim Username...最后,将这两个元素传递给登录语句参数,实现数据库自动登录。

1.7K20

VBA专题06-2:利用Excel数据自动化构建Word文档—熟悉Word VBA

VBA是一种通用编程语言,适用于任何内置有VBA应用程序,因此Word VBAExcel VBA语法一样,只是处理对象模型不同。下面,我们通过一些示例语句及其作用描述来熟悉Word VBA。...(注:这些语句来源于作者早期发表VBA语句集,长期关注作者朋友可能会有印象) Application对象 (1) Application.ActivePrinter ‘获取当前打印机 (2) Application.Height...‘返回当前文档代码名称 (30) ActiveDocument.Comments.Count‘返回当前文档中批注数 (31)ActiveDocument.Endnotes.Count'返回当前文档中尾注数..., TextLine '读取被打开用于输入且编号为1文件 (100)Close#1 '关闭编号为1文件 示例:给文档中代码添加行号 下面的代码会给文档中所选择代码添加行号: Sub AddRowNum...Set rng = Selection.Range '遍历所选区域每段 For lRowNum = 1 To rng.Paragraphs.Count '行号数值转换成文本

2.6K20

二 详解VBA编程是什么

详解VBA编程是什么 直到 90 年代早期,使应用程序自动化还是充满挑战性领域.对每个需要自动应用程序,人们不得不学习一种不同自动化语言.例如:可以用EXCEL宏语言来使EXCEL自动化,使用...VB是设计用于创建标准应用程序,而VBA是使已有的应用程序(EXCEL等)自动化 2. VB具有自己开发环境,而VBA必须寄生于已有的应用程序. 3....EXCEL环境中基于应用程序自动优点 也许你想知道VBA可以干什么?使用VBA可以实现功能包括: 1. 使重复任务自动化. 2. 自定义EXCEL工具栏,菜单和界面. 3....EXCEL本身功能强大,包括打印,文件处理,格式化和文本编辑. 2. EXCEL内置大量函数. 3. EXCEL界面熟悉. 4. 可连接到多种数据库....注意:有一小圆点,它作用在于简化语句,小圆点代替出现在With后词,它是With结构一部分。另外:红色被数字化为3.(红色警戒是否可称作:3警戒,嗯?)

5.6K20

常用功能加载宏——单元格数字与文本转换

2、“眼见为虚” Excel为了尽量方便操作,对于这些格式都是非常包容,很多公式在处理以文本形式存储数字时候,也会自动转换。...这也就导致很多Excel使用者对于数字存储非常不在意,因为不管是常规数字还是文本,都可以正常进行加减乘除,完全不用太过关心。...在Excel里,假如有一列常规数字,你想把它转换为文本形式存储数字,你可能会这样去操作: 选中它 右键设置格式为文本 发现数字左对齐了,这时候你可能以为已经搞定了!...可事实上,这个东西还是“眼见为虚”,它仅仅是看起来变化了,实际内部存储还是数字,必须进入编辑状态,再回车才行,这个时候就会出现那个小三角! 反之也是一样。...对Excel熟悉的人会使用分列功能来完成数字与文本转换,用VBA来实现转换功能自然也没有问题: ?

1.9K10

Word VBA技术:复制带有自动编号文本并在粘贴时保留编号数字

标签:Word VBA 在Word文档中,复制文本并在某处粘贴是经常要进行操作。...然而,如果文档中包含有自动编号文本内容,例如以自动编号数字开头文本,如果要复制内容不包括第一个编号项,那么这种复制粘贴操作可能会导致问题。在这种情况下,原始文档中数字和粘贴文本将不匹配。...下面的代码会解决这样问题。它将创建文本副本,其中自动编号数字已被转换为普通文本,以便在粘贴时保留数字。...." & vbCr & _ "本程序将自动编号数字修改为正常文本,以便在其他位置粘贴时保持正确数字编号." & vbCr & vbCr & _ "运行程序前,必须选择想要在其他位置插入文本...接着,在要粘贴文本位置进行粘贴操作。这样,原始文本内容(包括自动编号)保持不变。

2K10

读取Excel文本框,除了解析xml还可以用python调用VBA

作者:小小明 Python读取Excel文本框 基本需求 今天看到了一个很奇怪问题,要读取Excel文件文本框中文本,例如这种: ?...xml方法还是挺麻烦,在写完上面的方法后我灵机一动,VBA不就有现成读取文本方法吗?...使用xlwings解决需求 苹果电脑是不支持VBA,上面调用VBA代码对于苹果电脑来说无效,但所幸是xlwings在0.21.4版本中新增了访问文本文本属性text。...没有这个属性,请注意升级: pip install xlwings -U 总结 读取excel数据,基本没有VBA干不了事,python调用VBA也很简单,直接使用pywin32即可。...这样VBA与直接解析xml优劣势就非常明显了: VBAexcel应用直接支持API,代码编写起来相对很简单,但执行效率低下。苹果电脑无法使用VBA,可以使用xlwings已经封装好方法实现。

2.7K20

Excel催化剂更新】文本公式表达式求值操作,类似VBAEvaluate方法

应某个网友反馈,增加了一个小功能,将文本公式进行求值,两种实现方式。 第一种方式为是用使用命令按钮,原理是前面加上等号(=),然后将单元格数字格式转成常规。...这个方法是一次性,更新了数据要重新操作。 另一个方式是使用自定义函数,因为xll自定义函数开发原因,不能像VBA自定义函数,轻松将VBAEvaluate方法,引用到工作表函数中使用。...自定义函数方法仅支持简单四则运算,原理是用了数据库字段里Expression类型字段类型进行求值,其语法是类SQL语法,所以在Excel环境使用,估计就只有四则运算还可以使用下。...每个人使用Excel都有不同需求,欢迎大家多多提出,在精力有余时,Excel催化剂仍然会不断进化,功能仍在迭代。

85010

这些掌握了,你才敢说自己懂VBA

于是,我准备把Excel VBA写成一个系列免费教程,撸完这个系列你也是VBA黑山老妖了。...按钮控件:大家可以将其类比我们常见“保存”、 “预览” 、“确定”等按钮,当然了还有需要输入文本文本框”、“下拉列表”、“复选框”等 3. 那VBA如何操作呢?...(1)点选「开发工具」-「插入」-「按钮(窗体控件)」 (2)鼠标变为「黑色+」,按住鼠标「左键」,向右拖动 (3)松开,自动弹出一个窗口 指定宏:是指按下某个按钮,运行哪一段VBA小程序...出错内容自动变为红色 c. 以「蓝色」模糊定位到出错位置 出错主要原因是我们采用了“人类语言”,而不是计算机能够识别的语言,Excel只能识别VBA语法。 那么,VBA语法是什么呢?...「黑色+」,按住鼠标「左键」,向右拖动 ---> 松开,自动弹出一个窗口 ---> 修改宏名「加减法」,点击「新建」 ---> 编辑代码即可 要点注意: 在案例Excel文件中,附赠有日常工作中常用

34230

将包含数字形式文本文件导入Excel中时保留文本格式VBA自定义函数

标签:VBA Q:有一个文本文件,其内容包含很多以0开头数字,如下图1所示,当将该文件导入Excel中时,Excel会将这些值解析为数字,删除了开头“0”。...图1 我该如何将原值导入Excel工作表? A:我们使用一个VBA自定义函数来解决。...WorksheetFunction.Transpose(arrayList.ToArray())) arrayList.Clear Set arrayList = Nothing End Function 该函数中,参数strPath是要导入文本文件所在路径及文件名...,参数strDelim是文本文件中用于分隔值分隔符。....Value = var '插入数组值 End With End Sub 这将打开指定文本文件,并使用提供分隔符将其读入,返回一个二维数组。

20010

这些掌握了,你才敢说自己懂VBA

于是,我准备把Excel VBA写成一个系列免费教程,撸完这个系列你也是VBA黑山老妖了。...按钮控件:大家可以将其类比我们常见“保存”、 “预览” 、“确定”等按钮,当然了还有需要输入文本文本框”、“下拉列表”、“复选框”等 image.png 3. 那VBA如何操作呢?...(1)点选「开发工具」-「插入」-「按钮(窗体控件)」 image.png (2)鼠标变为「黑色+」,按住鼠标「左键」,向右拖动 image.png (3)松开,自动弹出一个窗口 image.png...出错内容自动变为红色 c. 以「蓝色」模糊定位到出错位置 image.png 出错主要原因是我们采用了“人类语言”,而不是计算机能够识别的语言,Excel只能识别VBA语法。...在案例Excel文件中,附赠有日常工作中常用「指定区域英文首字母自动转换为大写」小程序,大家可以直接拿去用,也可以分析一下那个代码。

3.7K01

VBA操作VBA——提取数字

会使用Excel的人都知道数字和文本是应该分开列来存储,可是总是会碰上一些人仅仅是把Excel当作制作表格一个简单工具,至于使用函数进行数据处理是根本不会!...把数字和文本写到一个单元格里个人工作上还是比较常见,所以把数字分离出来就需要经常来做了。...首先在customUI.xmlmenu id="rbmenuNumber"中增加代码: <button id="rbbtnGetNum" label="提取数字" onAction="...Set rngout = Application.InputBox("请选择输出起始单元格,范围程序会自动扩展并覆盖原单元格内容。"...Function 程序主要是使用了内置Val函数,只要找到首个出现数字位置,提取这个数字之后所有文本,用Val函数进行转换。

3.9K31

Excel自定义任意图表通用模式

现在,在Excel中也可以轻易实现这种自定义,不过需要VBA+SVG(一点VBA都不懂读者先不要吓跑,都是套路操作,仅仅需要少量代码)。...使用SVG方式在Power BI和Excel自定义图表底层原理一致,都是利用了SVG图片矢量性。图表是位置、大小、形状、颜色、亮度、方向和文本组合,SVG原理正好满足图表所有属性需求。...因此,需要采取一种迂回方式: 将Excel中需要制图数据嵌入SVG,将该SVG图片导出Excel,接着再导回Excel指定位置。数据更新后,自动删除当前SVG图片,再次生成新SVG导入。...自动刷新 ---- 刷新图表有两种方式,一种是指定一个按钮,点击刷新: 另外可以自动刷新,新建一个新宏,如下所示,借助Worksheet_Change事件,当工作表数据有变更自动促发VBA运行。...VBA+SVG在Excel制图优势比DAX+SVG在Power BI中非常明显:首先,VBAFor 语句可以很方便循环,DAX需要新建虚拟索引;其次,Excel单元格具有灵活性,在Power BI

2.7K10

VBA专题06-5:利用Excel数据自动化构建Word文档—Excel与Word整合示例2

示例2:自动复制Excel数据到Word文档指定位置 使用书签,可以方便地替换书签处文本。例如,在下图9中模板Bookmarks.dotx相应文本位置定义了书签。 ?...图9:在Word模板中定义书签 在Excel工作表中,包含有书签名数据及要在相应书签处放置文本,即命名为rngBookmarkList单元格区域A2:B4,如下图10所示。 ?...图11:使用Excel数据替换Word文本 此外,还可以借助于第二个启用宏Word模板来实现,假设这个宏模板文档名为FillDocument.dotm,并放置在和Bookmarks.dotx文档与...Excel工作簿相同文件夹中。...相关文档:Excel应用实践20:使用Excel数据自动填写Word表格

1.5K30

解密古老而又神秘宏病毒

这是 酒仙桥六部队 第 18 篇文章。全文共计3670个字,预计阅读时长10分钟。前言如果评选世界上最善良文件,Word文档应该榜上有名。...不过, 这是 酒仙桥六部队 第 18 篇文章。 全文共计3670个字,预计阅读时长10分钟。 前言 如果评选世界上最善良文件,Word文档应该榜上有名。...某段数据上标记了字母'M',表示这段数据中含有VBA宏(Macro): 宏病毒激发机制有三种:利用自动运行宏,修改Word命令和利用Document对象事件。...宏病毒中常用自动执行方法有两种:一种是用户执行某种操作时自动执行宏,如Subbotton(),当用户单击文档中按钮控件时,宏自动执行;另一种则是Auto自动执行,如SubAutoOpen()和Sub...示例说明 三个公式具体含义: 公式内容 功能 =EXEC("calc.exe") 内部调用WinExec函数打开计算器 =ALERT("Hello, World") 内部调用MessageBox函数打开对话框

5.5K30

VBA专题06-4:利用Excel数据自动化构建Word文档—Excel与Word整合示例1

使用VBA自动Excel中获取数据来创建Word报表文档,一般按照以下步骤: 1.创建Word文档模板,用来作为数据分析结果发布平台。在模板中,在每个要插入数据位置定义书签。...2.使用VBA,将Excel数据复制到Word文档,从而形成一份报表文档。 示例1:自动复制Excel数据区域到Word文档 本示例使用前期绑定,即首先要在VBE中设置对Word对象库引用。...图7:示例数据工作表 创建一个名为PasteTable.docx文档,并在想要粘贴数据位置插入一个名为DataTable书签。关闭该文档并将其与示例Excel文档放在相同目录中。...有时,需要将Excel工作表中多个数据区域复制到Word文档,并且这些数据区域大小还不相同。...其实,如果不需要将数据复制到Word文档指定位置的话,那么在本文前面已经给出了一个简单代码框架,就是直接将Excel数据依次复制到Word文档末尾。

5K10

个人永久性免费-Excel催化剂功能第47波-VBA开发者喜爱加密函数类

文章出处说明 原文在简书上发表,再同步到Excel催化剂微信公众或其他平台上,文章后续有修改和更新将在简书上操作, 其他平台不作同步修改更新,因此建议阅读其他出处文章时,尽可能跳转回简书平台上查看。...题外话 本人也是从ExcelVBA语言入门了编程世界,然后很偶然机会接触到VSTO,并且在一位热心网友一路帮助下,算是入门了C#语言,现在可以灵活地用C#实现自己想要一些小功能(大部分是抄百度和...短板 第23波-非同一般地批量拆分工作表 第24波-批量发送邮件并指点不同附件不同变量 第25波-小白适用文本处理功能 第26波-正确Excel密码管理之道 第27波-Excel工作表设置快捷操作...Excel催化剂 Excel催化剂先是一微信公众名称,后来顺其名称,正式推出了Excel插件,插件将持续性地更新,更新周期视本人时间而定争取一周能够上线一个大功能模块。...Excel催化剂插件使用最新布署技术,实现一次安装,日后所有更新自动更新完成,无需重复关注更新动态,手动下载安装包重新安装,只需一次安装即可随时保持最新版本!

3.1K10
领券