最近遇到了一个甲方需要提供系统登录的用户名单和对应的角色权限内容。无奈直接从数据库导出的数据对应的都是编码，没有转成中文，想着偷个懒能不能直接用Excel直接转，网上看了一下有修改单元格格式的，但需要编码是2到3个。多的就用vba,于是这里记录一下我的操作，也供其他人有需求的直接copy,哈哈，不多说上代码。一.vba处理编码转文本示例下面代码就是将D列的数据从2到200行的编码数据，转成对应的文
转载
2024-06-23 23:11:42
171阅读
说起类型转换大家很容易的就会联想到将int类型转换成float类型或者是将double类型转转成int类型之类的转换。当然这可能是大多数人最先接触到的转换方式，也是最简单的转换方式。所谓转换就是从现有类型的值创建一个新的值，对于大多数面向对象的语言而言，因为多出了"类"这个概念，所以类型转换并不仅仅是基础类型（int、float、string等）之间的转换。.NET作为一个承载平台而言自然是需要提
转载
2023-12-08 20:08:13
45阅读
VBA大写函数
转载
2023-06-15 11:33:51
146阅读
本文的对象是：有一定Excel VBA基础，对Word VBA还没有什么认识，想在Excel中通过VBA操作Word还有困难的人。 一、新建Word引用需要首先创建一个对 Word Application 对象的引用。在VBA中，工具-引用，选取“MicroSoft Word 11.0 Object Library”。方法一、New Word.ApplicationDim Wordapp
转载
2024-03-08 22:04:45
217阅读
使用C#在VBE插件中创建toolwindow窗口最近有人问起使用C#在VBE插件中创建toolwindow的事情，由于VBE窗口控件的容器是ActiveX UserDocument，而C#不支持这个东西，所以只会拉控件的弟兄们可以放弃了。当然，C#也有替代办法，毕竟这个编程语言是微软亲儿子，没什么东西是它实现不了的，哈哈。先介绍一下toolwindow：toolwindows是可停靠的，无模式的
转载
2021-03-25 22:31:14
431阅读
最近在做一些VB6、VBA的项目，被如何获取类模块中的函数指针这个问题所困扰，收集整理后，有2分资料值得收藏，特将关键部分留存，以备后续查找。
转载
2023-05-31 08:55:30
366阅读
场景： 填写年月格式的时候，默认是日期类型的，例如：填写2023-01，默认是2023/1/1，但是想要保持2023-01为文本格式的日期。 实现方式： 手动设置：选择需要设置格式的单元格，右键点击选择“设置单元格格式”，在弹出的对话框中选择“文本”格式即可。使用VBA代
转载
2023-09-04 14:13:14
204阅读
c#中Convert中没有ToFloat()方法。将string转化成float可以采用下面的方法 float.Parse()方法，相应的int.Parse()方法。float ratio = score / point * 100;ratio.ToSt
转载
2021-09-16 09:37:06
101阅读
JSON：JavaScript 对象表示法（JavaScript Object Notation）和xml相似，都是文本形式（保存在文本文件中或字符串等形式），比如：jsstr = {"系别":"历史系","班级":"一班",
"学员":[
{"姓名":"张三","年龄":25,"性别":"男"},
转载
2023-06-01 15:51:14
218阅读
1.需求描述 在data目下有以下两个数据文件： 其数据内容如下： 现在需要将数据转化为txt文本类型，最终效果如下： 2.实现代码 Sub magic() Dim mypath$, okpath$, f$, num%, fn$, arr, i%, j%, wb As Workbook, myare
转载
2020-06-03 10:54:00
2315阅读
2评论
在 vba 中需要使用 sleep() 函数. 想当然, 一开始是这样实现的:STDMETHODIMP CShell::Sleep(int nMillSeconds)
{
::Sleep(nMillSeconds);
return S_OK;
} 但很快就发现这样不行. Sleep 的时候, 程序主界面死了. 应该用 GetMessage() 来实现. 但 GetMess
转载
2023-05-22 14:13:32
926阅读
转化多段线，代码如下。 Private Function AddLWPlineSeg(ByVal ptSt As Variant, ByVal ptEn As Variant, ByVal width As Double) As AcadLWPolyline Dim objPline As AcadLWPolyline Dim ptArr(0 To 3) As Dou...
转载
2011-03-18 18:12:00
494阅读
标准的json用“分隔，不用' public static string DataSetToJson(DataTable dt) { string json = string.Empty; try { if (dt==null||dt.Rows.Count == 0) { return ""; } json = "{"; json += "'table" + 1 + "':["; for (int i = 0; i < dt.Rows.Count; i++) { ... Read More
转载
2013-08-01 20:00:00
202阅读
## .NET对象转化为字符串
在.NET开发中，经常需要将对象转化为字符串以便进行处理和传输。本文将介绍如何在.NET中进行对象到字符串的转化，并给出代码示例来说明相关概念和实现方法。
### ToString方法
在.NET中，每个对象都继承自`System.Object`类，而`System.Object`类中定义了一个名为`ToString`的方法。该方法的作用是返回一个表示当前对象
原创
2023-09-06 07:35:29
151阅读
gold_star方法一：'列数转字母Function CNtoW(ByVal num As Long) As String CNtoW = Replace(Cells(1, num).Address(Fa...
转载
2019-12-17 20:54:00
2255阅读
2评论
可以指定过程参数是可选的，并且在调用过程时不必为其提供变量。“可选参数”在过程定义中由关键字 Optional过程定义中的每个可选参数都必须指定默认值。可选参数的默认值必须是一个常数表达式。过程定义中跟在可选参数后的每个参数也都必须是可选的。下面的语法显示带可选参数的过程声明： 复制代码Sub sub name(ByVal parameter 1 As data type 1, Optional
转载
2023-07-05 23:21:52
474阅读
您需要根据 Visual Basic .NET 中的语言变化来调整自己的代码，重新将 VBA 用户窗体创建为 Windows 窗体，并确保最终用户的计算
测试类函数：
IsNumeric(x) - 是否为数字, 返回Boolean结果。
IsDate(x) - 是否是日期, 返回Boolean结果。
IsEmpty（x） - 是否为Empty, 返回Boolean结果。
IsArray(x) - 指出变量是否为一个数组。
IsError(expression) - 指出表达式是否为一个错误值。
IsNull(expression) -
转载
2023-05-23 12:14:00
792阅读
一. 这种方式比较复杂,因为office版本的原因,所以要加其它函数1 Private Function parseScript(strJson As String)
2
3 Dim objJson As Object
4 'With CreateObject("msscriptcontrol.scriptcontrol") '在64位office里可能无法创建此对象,所以使用x
转载
2023-06-27 15:25:52
185阅读
Sub Macro1()
Debug.Print "999"
Dim FilePath, strData
FilePath = "C:\Git\Test\JenProjects.json"
Open FilePath For Input As #1
Do While Not EOF(1)
Line Input #1, strData
Loop
Close #1
Debug
转载
2023-06-11 10:46:05
467阅读
