摘要：
Sub chineseToCode() Dim tmpStr, str, ss As String Dim numCell As String Dim tar As Range numCell = "" repalceText For j = 1 To 1000 tmpStr = "" Sheets("all").Select Range("d" & j).Value = LCase(Range("d" & j).Value) str = Range("a" 阅读全文
posted @ 2012-12-11 16:28
陳さん様
阅读(271)
评论(0)
推荐(0)
摘要：
Sub repalceText() Sheets("all").Select Columns("B:B").Select Selection.Copy Columns("D:D").Select ActiveSheet.Paste Application.CutCopyMode = False Columns("D:D").Select Selection.Replace What:=" ", Replacement:="_", LookAt:=xlPart, _ Searc 阅读全文
posted @ 2012-12-11 16:27
陳さん様
阅读(247)
评论(0)
推荐(0)
摘要：
Sub checkMenu() Sheets("all").Select Dim codeStr As String For j = 1 To 1000 codeStr = Range("d" & j).Value Columns("D:D").Select Set fin_cha = Selection.Cells.Find(What:=codeStr, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, 阅读全文
posted @ 2012-12-11 16:26
陳さん様
阅读(111)
评论(0)
推荐(0)
摘要：
Sub changeBmpFileName() Dim prName, newName As String Sheets("unicode").Select pathB = "D:\GY_150_FONT\" For j = 1 To Sheets("unicode").Range("k1").Value If (Range("c" & j).Value = "" And Range("f" & j).Value <> &quo 阅读全文
posted @ 2012-12-11 16:26
陳さん様
阅读(145)
评论(0)
推荐(0)
摘要：
Sub copyTotmpMenu() Sheets("all").Select Columns("A:A").Select Selection.Copy Sheets("menuCode").Select Columns("A:A").Select ActiveSheet.Paste Sheets("tmpmenu").Select Columns("A:A").Select ActiveSheet.Paste Range("B20").Select S 阅读全文
posted @ 2012-12-11 16:25
陳さん様
阅读(106)
评论(0)
推荐(0)
摘要：
Sub getCode() Sheets("unicode").Select For j = 1 To Range("k1") If (Range("c" & j).Value <> "" And Range("f" & j).Value <> "") Then 'Sheets("unicode").Range("k1").Value = j 'Exit Sub Else code 阅读全文
posted @ 2012-12-11 16:24
陳さん様
阅读(153)
评论(0)
推荐(0)
摘要：
Sub openFile() Dim codeStr, strT As String Sheets("tempcode").Select Open "C:\CG02B_CHINA\source\RB-v0101-China\application\src\app\UIManager\GUIData\NormalCodeTable.h" For Input As #1 i = 2 Do While Not EOF(1) Line Input #1, strT Sheets("tempcode").Range("A" 阅读全文
posted @ 2012-12-11 16:23
陳さん様
阅读(108)
评论(0)
推荐(0)
摘要：
Sub start()bmpFileType = ".bmp"pngFileType = ".png"pathA = "G:\GB18030-36x36HeiBMP(Unicode)\"pathB = "D:\GY_150_FONT\" seachText 'ﾕﾒｵｽﾋﾐｵﾄﾗﾖ getAllPic 'ｵﾃｵｽﾋﾐｵﾄﾍｼﾆｬ setUnicodeFormat Sheets("ﾋｵﾃ・).SelectEnd Sub 阅读全文
posted @ 2012-12-11 16:22
陳さん様
阅读(112)
评论(0)
推荐(0)
摘要：
Sub seachText()//查找菜单中所需要的文字 Dim allStr, strA, tmpStr, tmpStr1 As String Sheets("tmpmenu").Select For j = 1 To 500 strA = Range("A" & j).Value For i = 1 To Len(strA) tmpStr = Left(Mid(strA, i, Len(strA)), 1) Set fin_cha = Worksheets("tmpmenu").Cells.Find(What:=tmpSt 阅读全文
posted @ 2012-12-11 16:21
陳さん様
阅读(126)
评论(0)
推荐(0)
摘要：
Sub getAllPic()bmpFileType = ".bmp"pngFileType = ".png"pathA = "G:\GB18030-36x36HeiBMP(Unicode)\"pathB = "D:\GY_150_FONT\"'ﾈ｡ｵﾃﾖﾐﾎﾄﾗﾖｵﾄUnicodeﾕﾒｵｽﾏ犹ﾘﾍｼﾆｬ｡｣ Dim strPicName, strA, tmpStr, tmpStr1 As String Sheets("resutle").Select strA = Range(&quo 阅读全文
posted @ 2012-12-11 16:19
陳さん様
阅读(138)
评论(0)
推荐(0)
摘要：
Sub setUnicodeFormat()bmpFileType = ".bmp"pngFileType = ".png"pathA = "G:\GB18030-36x36HeiBMP(Unicode)\"pathB = "D:\GY_150_FONT\" Dim strA, tmpStr, strName As String Dim count, lan As Integer Sheets("resutle").Select strA = Range("C" & 阅读全文
posted @ 2012-12-11 16:14
陳さん様
阅读(276)
评论(0)
推荐(0)
摘要：
1.引言 C++语言的创建初衷是“a better C”，但是这并不意味着C++中类似C语言的全局变量和函数所采用的编译和连接方式与C语言完全相同。作为一种欲与C兼容的语言，C++保留了一部分过程式语言的特点（被世人称为“不彻底地面向对象”），因而它可以定义不属于任何类的全局变量和函数。但是，C++毕竟是一种面向对象的程序设计语言，为了支持函数的重载，C++对全局函数的处理方式与C有明显的不同。 2.从标准头文件说起 某企业曾经给出如下的一道面试题： 面试题 为什么标准头文件都有类似以下的结构？ #ifndef __INCvxWorksh#define __INCvxWorksh #... 阅读全文
posted @ 2012-12-11 11:34
陳さん様
阅读(156)
评论(0)
推荐(0)
浙公网安备 33010602011771号