|
|
|
|
| ****************************************
| | 2023/8/9 | 《中国人寿APP登录》 |
|
中国人寿 账号：15319792331 密码：A4269259hjt
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2023/8/2 | 《vba中，复合框直接显示第一个选项》 |
|
vba中，复合框（复选框）直接显示第一个选项 在VBA中，可以通过设置ComboBox控件的ListIndex属性来显示第一个选项
Private Sub UserForm_Initialize()
With xsName .AddItem "张靖萱" .AddItem "关楚新" .AddItem "李佳一" .ListIndex = 0 ' 设置显示第一个选项 .Font.Size = 14 ' 设置字体大小为14号 End With End Sub
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2023/7/19 | 《Excel2007中调出开发工具，可以使用vba》 |
Excel2007中调出开发工具，可以使用vba
1.首先打开Excel ，点击左上角office 按钮 4.在右边的第三个选项：在功能区显示“开发工具”，打勾选中。 5.然后我们就可以看到excel2007的宏设置选项了 |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2023/7/13 | 《Edge浏览器网页现乱码》 |
|
Edge浏览器打开页面出现乱码怎么解决：
1、"win+R"快捷键打开运行，输入"gpedit.msc"回车打开。
Edge浏览器打开页面出现乱码怎么解决
2、进入新界面后，依次点击左侧中的"计算机配置——整理模板——Windows 组件——Internet Explorer"。
Edge浏览器打开页面出现乱码怎么解决
3、然后找到右侧中的"自定义用户代理字串符"双击打开。
Edge浏览器打开页面出现乱码怎么解决
4、最后在打开的窗口中将左上角的"已启用"勾选上，并在下方"输入IE版本字符串"中输入"MSIE 9.0"，点击确定保存就可以了。 |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2023/6/5 | 《IIS 服务器 支持.apk文件（App）的下载》 |
|
asp下载网站不能下载apk格式文件（App）怎么办： 默认情况下，使用IIS作为Web服务器的无法下载此文件。 IIS服务器不能下载.apk文件的原因：iis的默认MIME类型中没有.apk文件，所以无法下载。既然.apk无法下载是因为没有MIME，那么添加一个MIME类型就可以了。
解决步骤：打开IIS服务管理器--→在服务器主页（右边）中IIS栏--→单击MIME类型（第5个）--→打开MIME类型设置窗口（添加）--→单击“新建”，建立新的MIME类型；扩展名中填写《.apk》,MIME类型中填写《application/vnd.android.package-archive》 --→确定保存设置--→重启IIS，使设置生效。现在使用IIS服务器的网站就可以下载.apk文件了
http://www.hu-laoshi.com:8058/123/IIS 服务器 支持.apk文件（App）的下载.html
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2023/5/27 | 《vba程序-写入星期》 |
|
vba程序-写入星期： 根据日期写出对应的星期，并改为周*，最后输出在D列
Sub AddWeekdays() ' 设置要处理的工作表 Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Sheet2") ' 获取日期数据所在列和最后一行 Dim dateCol As Range Dim lastRow As Long With ws lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row Set dateCol = .Range("B2:B" & lastRow) End With
' 遍历日期数据并计算星期几，写入第3列 For Each cell In dateCol Dim myDate As Date myDate = cell.Value Dim weekdayNum As Integer weekdayNum = Weekday(myDate, vbMonday) ' 第二个参数指定一周的第一天（周一） cell.Offset(0, 1).Value = Choose(weekdayNum, "周一", "周二", "周三", "周四", "周五", "周六", "周日") ' 根据星期几的数字值写入中文名称 Next cell End Sub
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2023/5/19 | 《EXCEL序号排序为什么不是1,2,3而是1,10,100》 |
|
EXCEL序号排序不是1、2、3，是1、10、100的原因是：序号排序序号不是数值格式，而是文本格式。 将序号变为数值，按照数值升序排列即可。 EXCEL序号排序方法如下：选中该列，右键→设置单元格格式→数字→数值（小数点可为0）。 排序，搞定ok。
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2023/5/16 | 《403 - 禁止访问: 访问被拒绝》 |
asp主页，打开目录和GPT时出现403错误：403 - 禁止访问: 访问被拒绝。您无权使用所提供的凭据查看此目录或页面。
/txt/EESaiBook/?read 这是因为，在IIS服务器，asp的默认文档中，只保留了index.asp.而删除了其他，所造成的。 解决方法：默认文档中，添加default.asp
/txt/EESaiBook/?read，这种网址，必须在默认文档中添加文件名称。
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2023/5/14 | 《转转大师》 |
|
转转大师
在线各种格式互转
OFD转PDF，PDF转WORD，PDF转图片，PDF转PPT， PDF转EXCEL，PDF转HTML，PDF转TXT
微软office中国区合作伙伴，好用无广告
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2023/5/13 | 《微软邮箱》 |
|
微软邮箱：lk2lklk@outlook.com
账号：lk2lklk@outlook.com 密码：426*****jt
注册信息 姓：L 名：KLK 2000/8/8 英国
|
|
|
|
|
|
|