摘要：‘从活动单元格向上12行到向上1行的总和
ActiveCell.FormulaR1C1=”SUM(R[-12])C:R[-1]C”
‘引用第C-D列和第F-G列
Range(“B2:D6”)
‘引用B2-D6的单元格 同Range(“B2”,”D6”) ,Rangge(Cells(2,2),Cells(6,4))
‘引用第2行3列
Cells(2,3) 或Cells(2,”C”)
阅读全文
07 2011 档案
摘要：‘活动工作表打印
Sub Print()
ActiveSheet.PrintOut
End Sub
阅读全文
摘要：cat FormatSql.rb
while line=gets
line1=line.gsub(/(select|from|where|sum|having|group|end|case|by)/) {|match| match.upcase}
puts line1
end
阅读全文
摘要：1.首先要获得汉字的支持，必须在文件开头加入以下两句
require "jcode"
$KCODE="utf8"
阅读全文
摘要：引用 经典Excel VBA代码2010-06-15 15:03:18|分类： 默认分类 |标签： |字号大中小订阅本文引用自晗露《经典Excel VBA代码》引用晗露 的 经典Excel VBA代码经典Excel VBA代码 收藏 VBA基础在大家的关注声中即将告一段落了，有许多经典的VBA操作我们只是作了简要的介绍，想要熟练地使用VBA还需要大家慢慢地去消化和吸收，然后在实践中总结和提高。最后我们收集了常见的VBA代码以飨广大的读者，希望对大家有所启示。Application（Excel程序）篇view plaincopy to clipboardprint?Application.Ena
阅读全文
摘要：1.Excel中激活WordApplication.ActivateMicrosoftApp xlMicrosoftWord2.Excel中打开文件查找框 Application.FindFile3.Excel中运行宏 Application.Run MacroName:="人口预测" 4.Excel的保存ActiveWorkbook.Save5.为当前工作簿设置密码Sub Protect_Book()ActiveWorkbook.Protect Password:="Protect",Structure:=True,Windows:=TrueEnd S
阅读全文
摘要：Sub 程序自动加行号() Dim nLineNum Dim sLindNum As String Dim selRge As Range '以下变量用于"将注释改为蓝色" Dim lineProgramRange As Range Dim commentRange As Range '注释范围 Dim TextLine As String '每一行程序代码(内容) Dim ProgComment As String '每一行程序代码内的注释文字 Dim RgnStart As Long Dim RgnEnd As Long Set selR
阅读全文
摘要：‘将文件夹下的所有txt文件加载到本文档中Function InsertIntoDoc(strPath as String)Set fso=CreateObject("Scripting.FileSystemObject”) Set objFolder=fso.GetFolder(strPath)Set objFiles =objFolder.FilesStr1=””For Each objFile In objFilesDebug.Print objFile.NameSet fout=fso.OpenTextFile(strPath & “\” & objFile.
阅读全文
摘要：语法高亮可使用VBA中的查找替换功能，如对于Delphi可先查找到关键字，然后将其设为蓝色即可，具体代码为： 1 Sub Replace1() 2 3 Dim i As Integer 4 5 Dim arr(15) as String 6 7 arr(0)="type" :arr(1)="class" : arr(2) ="unit" : arr(3)="begin" : arr(4)="end" : arr(5)="if" : arr(6)="else"
阅读全文
摘要：最近在学VBA，因为在看《WORD排班艺术》一书中，上面所写到我们只用到OFFICE的10%的功能，还有90%没有使用，或者我们不知道如何使用，故决定深入研究一番VBA，通过这几天对VBA的初步了解，感觉这里面确实有很多学问，如果能活用VBA宏代码，的确能省事不少，而且就可以说精通OFFICE了吧，下面为一些简单的VBA代码
阅读全文
摘要：1.重命名：os.rename(old, new)
2.删除：os.remove(file)
3.列出目录下的文件 ：os.listdir(path)
阅读全文
摘要：在python脚本中可以用pdb进行调试，具体方法如下：
1.使用run语句调试，格式为：
run(statement[,globals[,locals]])
阅读全文
摘要：一款名为 Beautiful Soup 的常用配套工具帮助 Python 程序理解 Web 站点中包含的脏乱“基本是 HTML” 内容。
阅读全文
摘要：#define MAX 100typedef struct node { char info; struct node *llink,*rlink;}TNODE;char pred[MAX],inod[MAX];TNODE *restore(char *,char *,int);int main(int argc,char **argv){ TNODE *root; if (argc<3) exit(0); strcpy(pred,argv[1]); strcpy(inod,argv[2]); root=restore(pred,inod,strlen(pred)); postorder
阅读全文
摘要：import cmathimport mathimport sysdef get_float(msg,allow_zero):x = Nonewhile x is None:try:x = float(input(msg))if not allow_zero and abs(x) < sys.float_info.epsilon:#float_info.epsilon为接近0值的浮点数，因计算机浮点数只能无限接近0print("zero is not allowed")x = Noneexcept ValueError as err:print(err)return
阅读全文
摘要：subprocess被用来替换一些老的模块和函数，如：os.system、os.spawn*、os.popen*、popen2.*、commands.*。可见，subprocess是被推荐使用的模块。
阅读全文
摘要：#!/usr/bin/pythonimport urllibgoogle=urllib.urlopen('http://www.google.com')print 'http header:/n',google.info()print 'http status:',google.getcode()print 'url:',google.geturl()for line in google: print linegoogle.close()
阅读全文
摘要：保存新浪网首页到本地(使用urllib)
阅读全文
摘要：sgmllib.py 包含一个重要的类: SGMLParser。SGMLParser 将 HTML 分解成有用的片段， 比如开始标记和结束标记。一旦它成功地分解出某个数据为一个有用的片段，它会根据 所发现的数据，调用一个自身内部的方法。为了使用这个分析器，您需要子类化 SGML- Parser类，并且覆盖这些方法。
阅读全文
摘要：Delphi调用JavaScript解析Json
1.首先加入ComObj单元
2.加入函数
阅读全文
摘要：提取图标到ImageList
const
SFile='D:\windows\system32\shell32.dll';
阅读全文
摘要：流程图的功能是对预处理后的正文进行排版输出。
假定：预处理后的正文存放在字符串 S 中，S 由连续的单词组成，单词由连续的英文字母组成。在预处理过程中已产生以下信息：
变量 NW 存放正文中单词的个数，数组元素 SL(1)存放正文中第 1 个单词在S中的字符位置，SN(1) 存放正文中第 1 个单词的长度。规定 S 中的字符位置从 1 开始计数，每个字符占一个位置。字符串S中的某个单词可用如下的子串形式来存取：
S( 单词起始位置：单词终止位置 )
并规定在对字符串( 或子串 )赋值时，赋值号两端的字符串( 或子串 )长度必须相等。
排版输出的要求如下：
阅读全文
摘要：[说明]
将自然数依次排列成如下所示的数码排列：
1 2 3 4 5 6· 7 8 9 l0 l1 l2 l3 14 l5 l6 ...
阅读全文
摘要：阅读下列程序说明和 C 程序，把应填入其中__n__ 处的字句，写在答卷的对应栏内。
[程序说明]
(1)本程序利用辗转相除法求两个均不超过100次的多项式A，B的最大公因式。
阅读全文
摘要：阅读下列说明和流程图。回答问题 1 和 2，把解答填入答卷的对应栏内。
[说明]
本流程图用来将自然数按右图所示的次序依次存放到 N×N 的二维数组 A 中，图中描述了 N=5 时 A 中各元素的值及其赋值次序。
流程图中省略了数据的输入和输出。
阅读全文
摘要：流程图用来按递增顺序产生由数字1，2，3组成的非空序列。规定其产生的每个序列均不存在两个相同的相邻子序列。例如，该流程图产生的前五个序列为：
阅读全文
摘要：在字符数组 S 中存放着一行长度为 L 的正文，每个数组元素存放一个字符。现假定正文仅由单词、空格和句号组成，单词由连续的英文字母组成。单词与单词之间可以有1个或多个空格、单词至句号之间或句号至单词之间可以有。个或。个以上的空格，两上句号之间除空格符外至少有一个单词。S 的第一个非空格字符不能是句号，最后一个非空格字符不一定是句号，S 的两端可以有。个或。个以上的空格。现准备对 S 中的字符串进行编辑，使得空格尽可能均匀地分布在单词之间。
阅读全文
摘要：默认DBGRID选中行的颜色为深蓝色，可以在程序中改变
在DBGRID的OnDrawColumnCell中写入
阅读全文
摘要：可将Options->pcoUserPageColorForTab设为True,这样标签按钮的颜色和标签页内容颜色一致
阅读全文
摘要：求出下一个发票号，如FP001的下一个为FP002,FP 001 X的下一个为FP 002 X,FP 001 XN 002的下一个号码为FP 002 XN 002
总是取出第一个数字并加一，但是不足的位数要补零
阅读全文
摘要：其中 n，x，y 均为非负整数。
递归函数的计算使用了三个栈，它们分别用数组 N(1：5000)，X(1：5000)，Y(1：5000) 来存放，top 为栈顶指针，中间计算结果和最终计算销果均存放在变量 F 中。
阅读全文
摘要：将一个 m×n 的矩阵 X 转置后存放到矩阵 Y 中，其计算复杂度为 O(m*n)。对稀疏矩阵来说，可以用紧凑的存贮方式来减少所需的存贮量，并降低计算复杂度。
已知有 t(t>0) 个非零元素的 m×n 稀疏矩阵 W（每行每列至少有一个非零元素）以紧凑方式存放在数组 X[l：t，1：3]中。X 中某行的三个值为（i，j，v）时表示在 W 的第 i 行第 j 列有一个非零元素 v。假定 X 中的元素已按行号列号递增排序。现要求将 X 转置后以紧凑表示形式存放在数组 Y[l：t，1：3] 中，并且 Y 也按行号列号递增排序。
阅读全文
摘要：有一种游戏，是用滚球击十个柱-比赛分为十局，每局可滚球一次或多次，其规则和记分方法如下；
(1)若一局的第一个球击倒全部十个柱( 称为 strike )，则这局不再滚球( 例外，对第十局来说，还可补滚两次球 )，其得分为 10 加下两次滚球所击倒的柱数。
(2)若一局的第一个球未击倒十个柱，则可对剩下的柱再滚一次球。如果这局的两次滚球击倒全部十个柱( 称为 spare )，则这局不再滚球( 例外，对第十局来说，还可补滚一次球 )，其得分为 10 加上下一次滚球所击倒的柱数，否则，这局也不再滚球，其得分为本局两次滚球所击倒的柱数之和。
阅读全文
摘要：有一个集合，集合中有 n 个元素，每个集合元素都是正整数，它们存放在一维数组A中，每个数组元素存放一个集合元素。对给定的整数 total（假定集合中每个元素的值均小于 total），流程图求出所有满足下列条件的子集：子集中各元素之和等于 total。
本题在使用试探法找出全部解答的过程中，依次选取当前的候选元素，尝试组成一个小于 total 的部分和，如果合适，则选取下一元素试探；若不合适，则回溯取另一个候选元素尝试，题中利用 s 栈存放候单元素的下标，用它实现回溯。如果候选元素加上部分和等于 total ，则表示找到一个解答，然后通过回溯，再试探寻找其它的解答。
阅读全文
摘要：设对于一个 n×n 的上三角矩阵 a，为节约存贮，只将它的上三角元素按行主序连续存放在数组 b 中。下面的函数 trans 在不引入工作数组的情况下，实现将 a 改为按列主序连续存放在数组 b 中。
阅读全文
摘要：某公司供应各种标准的营养套餐。假设菜单上共有n项食物m1，m2，…，mn，每项食物mi的营养价值为vi，价格为pi，其中i=1,2,…,n，套餐中每项食物至多出现一次。客人常需要一个算法来求解总价格不超过M的营养价值最大的套餐。
阅读全文
浙公网安备 33010602011771号