msgbox

AHKManager.ahk AHK管理器 2019年12月15日 快捷键 {Alt} + {F1} //////////////////////////////////////////////////////////////////////////////////////////////// ; AHKManager.ahk ; AHK管理器 ; 河许人：一个网友仿照我的承影做的AHK源码管理器 ;~ https://www.autoahk.com/archives/11509 ; 徐晓亮：好像这个脚本挺好用的样子，决定今后一直使用，一直改进，一直优化此脚本 ; ===== 此AutoHotkey脚本源代码的备份网址有3个，网址如下所示 ===== ;~ http://autoHotkey.bokee.com/507504381.html ;~ https://www.cnblogs.com/delphixx/p/12042093.html ;~ https://gitee.com/weiyunwps618/codes/gt5baqw0msfu61lihzy9v98 ;源码 ;by Sixtyone At 2016.4.10 ;更新说明 /* 2016.4.24: 1.运行#脚本后，gui自动隐藏； 2.启动脚本目录后，gui自动隐藏。 2016.4.17: 1. 增加过滤中使用

兰色幻想VBA数组入门教程10集 1. 前言：不要把VBA数组想的太神秘，它其实就是一组数字而已。 2. 数组的维数： Sub 数组示例() Dim x As Long, y As Long Dim arr(1 To 10, 1 To 3) '创建一个可以容下10行3列的数组空间 For x = 1 To 4 For y = 1 To 3 arr(x, y) = Cells(x, y) '通过循环把单元格区域a1:c4的数据装进数组中 Next y Next x MsgBox arr(4, 3) '根据提供的行数和列数显示数组 arr(1, 2) = "我改一下试试" '你可以随时修改数组内指定位置的数据 MsgBox arr(1, 2) End Sub 总结：二维是由行和列表示的数组，如ARR(3,2)表示数组中第3排第2列的元素。而一维数组只是由一个元素决定，如ARR（4）表示数组中第4个元素 3. 把单元格数据搬入内存： 一、声明： Dim arr as Variant '声明一个变量，不能声明其他数据类型 Dim arr(1 to 10, 1 to 2 ) , 这种声明也是错误的，固定大小的VBA数组是不能一次性装入单元格数据 或：dim arr() 这种声明方式是声明一个动态数组，也可以装入单元格区域，构成一个VBA数组。 二、装入 arr =range("a9:c100

Python 模块EasyGui详细介绍 EasyGui 官网: 　　-http://easygui.sourceforge.net 官方的教学文档： 　　-easygui-docs-0.96\tutorial\index.html 小甲鱼翻译改编的教学文档：　 　　-http://bbs.fishc.com/thread-46069-1-1.html 在Windows想用Python开发一些简单的界面，所以找到了很容易上手的EasyGui库。下面就分享一下简单的使用吧。 接下来，我将从简单，到复杂一点点的演示如何使用这个模块。希望能给刚接触easygui的你一点帮助: 根据需求，EasyGui在buttonbox()上建立了一系列的函数供调用。 1、msgBox msgbox(msg='(Your message goes here)', title=' ', ok_button='OK', image=None, root=None) msgbox() 显示一个消息和提供一个"OK"按钮，你可以指定任意的消息和标题，你甚至可以重写"OK"按钮的内容。 以下是 msgbox() 的实例函数: 1 # ！/usr/bin/env python 2 # -*- coding:utf-8 -*- 3 # __Author__ = "Ma Qing" 4 # __date__ =

EXCEL vba工程密码破解 方法一: 这种方法实际是避开VBA工程密码验证，即骗vba编辑器，该密码输入成功，请求放行。 不管他是破解还是欺骗 能达到我们的目的角开就行 ______________________________________________________ 1.新建一个工作簿，打开，按ALT+F11，进入vba代码编辑器窗口： 2.新建一个模块，“插入”--“模块”把以下代码复制进模块并保存 ption Explicit Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _ (Destination As Long, Source As Long, ByVal Length As Long) Private Declare Function VirtualProtect Lib "kernel32" (lpAddress As Long, _ ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As

将数据结构按上图整理，支持同时多张表导入 打开PowerDesigner，新建模型，点击Tools|Execute Commands|Edit/Run Script菜单或按下快捷键Ctrl + Shift + X打开脚本窗口，输入示例VBScript脚本，修改其中的Excel模板路径及工作薄页签，点Run按钮执行即可。 '导入Excel表结构 '开始 Option Explicit Dim mdl ' the current model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no Active Model" End If Dim HaveExcel Dim RQ RQ = vbYes 'MsgBox("Is Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation") If RQ = vbYes Then HaveExcel = True ' Open & Create Excel Document Dim x1 ' Set x1 = CreateObject("Excel.Application") x1.Workbooks.Open "C:\Users\Administrator\Desktop

一、打开菜单Tools>Execute Commands>Edit/Run Script.. 或者用快捷键 Ctrl+Shift+X Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim blankStr blankStr = Space(1) Dim mdl ' the current model ' get the current active model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no current Model " ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox "The current model is not an Physical Data model. " Else ProcessFolder mdl End If Private sub ProcessFolder(folder) On Error Resume Next Dim Tab 'running table for each Tab in folder.tables if not tab.isShortcut then tab.name = tab.comment

现在绝大多数网站都不用自带的alert和confirm了，因为界面太生硬了。因此这个插件就这样产生了自己定制一个的想法...... 啥也不说，先上图，有图有真相 :) 现在绝大多数网站都不用自带的alert和confirm了，因为界面太生硬了。因此这个插件就这样产生了... 来看插件的实现代码吧： ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 ( function () { $.MsgBox = { Alert: function (title, msg) { GenerateHtml( "alert" , title, msg); btnOk(); //alert只是弹出消息，因此没必要用到回调函数callback btnNo(); },

使用msgbox对话框 在使用 Excel 的过程中，如果需要向用户显示简单的提示信息，可以使用 MsgBox 函数显示一个消息框，其格式为： MsgBox(prompt[, buttons] [, title] [, helpfile, context]) prompt：必须项，代表在消息框中作为信息显示的字符或字符串 button：可选项，用于指定消息框中显示按钮的数目及类型、使用的图标样式、缺省按钮以及消息框的强制回应等，若省略则只显示“确定”按钮 title：可选项，在消息框标题栏中作为标题的字符或字符串 helpfile和context：可选项，用来为消息框提供上下文相关帮助的帮助文件和帮助主题。如果提供了其中一个参数，则必须提供另一个参数，两者缺一不可。 下面是一个最简单的msgbox对话框： Sub test ( ) MsgBox "欢迎一起学习Excel" End Sub 1、制定个性化消息框 通过上文可知，对函数中的选项进行赋值可以得到个性化的消息框，下面对 button 参数进行详细解释： 如： Sub test1 ( ) MsgBox "欢迎一起学习Excel" , vbOKCancel + vbInformation + vbDefaultButton2 , _ Title : = "交小通" End Sub 2、获得消息框的返回值

一、编写测试excel，如下： 二、打开PowerDesigner，创建物理模型(Physical Data Model) 三、在PowerDesigner菜单栏中，依次点击“Tools ->Excute Commands->Edit/Run Script.. 四、修改如下脚本，指定excel所在路径及文件名： Option Explicit Dim mdl ' the current model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no Active Model" End If Dim HaveExcel Dim RQ Dim x1sApp,xlsWorkBook,xlsSheet RQ = vbYes 'MsgBox("Is Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation") If RQ = vbYes Then HaveExcel = True ' Open & Create Excel Document Set x1sApp = CreateObject("Excel.Application") set xlsWorkBook = x1sApp.Workbooks.Open("J: