![](https://img-blog.csdnimg.cn/20201014180756918.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
子龙奶爸
这个作者很懒,什么都没留下…
展开
-
读取文件判断
******************************************************************************* プロシージャ名:CheckFileStandard* 記述:ファイルタイプのチェック処理* @version $Date$ $Revision$ 説明* 更新履歴 001 2010/02/25 新規作成(趙建明)********原创 2010-03-23 17:12:00 · 194 阅读 · 0 评论 -
文件读入
******************************************************************************* プロシージャ名:CmdFilePath_Click* 記述:「参照…」ボタン[クリック]処理* @version $Date$ $Revision$ 説明* 更新履歴 001 2010/02/25 新規作成(趙建明)原创 2010-03-23 17:14:00 · 218 阅读 · 0 评论 -
字典
******************************************************************************* プロシージャ名:UpdateGArrPersonSetBySetting* 記述:担当者の取得* @version $Date$ $Revision$ 説明* 更新履歴 001 2010/02/25 新規作成(趙建明原创 2010-03-23 17:16:00 · 245 阅读 · 0 评论 -
动态生成sheet,增加函数
Option ExplicitAnalyseSub CreateSheets() Dim ArrPersons() As String Dim IPerCount As Integer Dim i As Integer, WsThis As Worksheet Dim StrSheetName As String Dim IsChgSet As Boolean原创 2010-03-23 17:18:00 · 774 阅读 · 0 评论 -
判断数字
数字のチェック If Not IsNumeric(StrHeadLineNum) Then MsgBox (GetMsg("MSG055")) Exit Function 半角正整数のチェック ElseIf StrHeadLineNum MsgBox (GetMsg("MSG055")) Exit Function原创 2010-03-23 17:13:00 · 287 阅读 · 0 评论 -
VBA_动态新建sheet及控件
<br />Option Explicit<br />'Analyse<br />Sub CreateSheets()<br /> Dim ArrPersons() As String<br /> Dim IPerCount As Integer<br /> Dim i As Integer, WsThis As Worksheet<br /> Dim StrSheetName As String<br /> Dim IsChgSet As Boolean<br /> D原创 2010-07-11 12:58:00 · 1399 阅读 · 0 评论