Sub util实例()Dim rs%rs = 2Do Until Cells(rs, 2) = ""If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "good"rs = rs + 1LoopEnd Sub
分类：
其他好文 时间：
2015-09-15 16:13:46
阅读次数：
138
kbyy:/oracle/work/sub_imp> more exp_subs_a.sh#!/usr/bin/ksh. ~/.profileexport ORACLE_SID=tbcsa1cd /oracle/work/sub_imp/tbcsarm *.pcd /oracle/work/sub_...
分类：
数据库 时间：
2015-09-15 14:29:05
阅读次数：
298
Sub 插入行() Dim myRow As Long '定义myRow变量，用于存储原表中数据的行数； Dim i As Long'定义i变量，作为循环变量； myRow = Range("A" & Rows.Count).End(xlUp).Row ' 用rows.count得到ex...
分类：
其他好文 时间：
2015-09-14 22:30:15
阅读次数：
128
最近接手一个问题在每次出现404的情况时：需要在响应的内容中，添加request_uriremote_ip等一些内容。开始的时候发现一个模块--with-http_sub_module可以对响应内容进行一个替换修改但是这个模块需要从新对nginx进行编译，在编译的时候添加模块--prefix=/usr/local/nginx--with..
分类：
其他好文 时间：
2015-09-14 16:50:10
阅读次数：
1190
Imports Microsoft.Office.Interop.Outlook Private Sub sendMail() Dim outObj As New Application Dim item As MailItem item = outOb...
分类：
Web程序 时间：
2015-09-12 22:20:17
阅读次数：
164
Thinking about it: 我的思路跟sliding window有点类似。假设已经确定了一个区间[l, r]，序列中从 l 到 r 恰好包含了[1, K]的各个元素，则从 r 开始继续迭代序列的各个位置，如果发现了1到K的数，则做以下处理： 如果 这个数 刚好是 l 位置上的数，那么.....
分类：
其他好文 时间：
2015-09-11 19:21:51
阅读次数：
154
方法： 1,excel中，按Alt+F11，打开VBA编辑界面，双击需要改的工作表名称，将下面代码粘贴到右边框中，即可。 2，代码： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIn...
分类：
其他好文 时间：
2015-09-10 16:06:28
阅读次数：
238
该程序只满足匹配第一个相同的字符串，对于出现第二个相同字符的字符串无法解决。#include #include #include using namespace std;int IsMatch(string rule,string sub){ int k=0; int c=0; while(k>ru...
分类：
其他好文 时间：
2015-09-08 15:11:09
阅读次数：
220
CREATE OR REPLACE PROCEDURE MT.PROCSENDEMAIL(P_TXT VARCHAR2, P_SUB VARCHAR2, P_SENDOR VARCHAR2, P_RECEIVER VARCHAR2, P_SERVER VARCHAR2, P_PORT NUMBER ...
分类：
数据库 时间：
2015-09-08 13:52:03
阅读次数：
236
在你要实现此功能的工作表标签右击，在弹出的菜单中选择编辑代码，然后输入下面代码保存即可！如没有出现效果，则可能是禁用了宏的关系。所以要在安全选项中启用宏选项。Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As...
分类：
其他好文 时间：
2015-09-08 08:24:45
阅读次数：
233
