求助VBA代码 [问题点数:20分]

Bbs1
本版专家分:0
结帖率 0%
Bbs1
本版专家分:0
Bbs1
本版专家分:0
Bbs1
本版专家分:0
Bbs1
本版专家分:0
Bbs1
本版专家分:0
Bbs1
本版专家分:0
Bbs5
本版专家分:3801
Blank
红花 2019年7月 VB大版内专家分月排行榜第一
2019年5月 VB大版内专家分月排行榜第一
2019年3月 VB大版内专家分月排行榜第一
Bbs1
本版专家分:0
Bbs5
本版专家分:3801
Blank
红花 2019年7月 VB大版内专家分月排行榜第一
2019年5月 VB大版内专家分月排行榜第一
2019年3月 VB大版内专家分月排行榜第一
Bbs1
本版专家分:0
Bbs7
本版专家分:29220
Blank
红花 2019年2月 VB大版内专家分月排行榜第一
Blank
黄花 2019年5月 VB大版内专家分月排行榜第二
2018年5月 VB大版内专家分月排行榜第二
Blank
蓝花 2017年7月 VB大版内专家分月排行榜第三
Bbs1
本版专家分:0
Bbs1
本版专家分:0
Bbs1
本版专家分:0
Bbs1
本版专家分:0
VBA求助 谢谢
[img=https://img-bbs.csdn.net/upload/201608/02/1470128288_156916.png][/img]rnrnrn每组6个数字的组合 没有大小 顺序 只要求要这些数字6个一组的组合 0-0 谢谢了
求助VBA抓取网页信息
本人新手,想取得网页http://app1.sfda.gov.cn/datasearch/face3/content.jsp?tableId=26&tableName=TABLE26&tableView=国产器械&Id=1上面的信息,自己在网上找了些<em>代码</em>,弄到一半不会了,请教各位大侠,指点一下rnrnSub delay(T As Single)rn Dim T1 As Singlern T1 = Timerrn Dorn DoEventsrn Loop While Timer - T1 < TrnEnd SubrnSub test()rnrnDim eRow As LongrnDim ele As ObjectrnDim rowCount As Integerrnrn'Set up the excel sheet.rnSet sht = Sheets("Sheet1")rnrnrowCount = 1rnrnsht.Range("A" & rowCount) = "注册号"rnsht.Range("B" & rowCount) = "产品名称"rnsht.Range("C" & rowCount) = "生产单位"rnsht.Range("D" & rowCount) = "地址"rnsht.Range("E" & rowCount) = "产品标准"rnsht.Range("F" & rowCount) = "产品性能结构及组成"rnsht.Range("G" & rowCount) = "产品适用范围"rnsht.Range("H" & rowCount) = "规格型号"rnsht.Range("I" & rowCount) = "批准日期"rnsht.Range("J" & rowCount) = "有效期"rnsht.Range("K" & rowCount) = "变更日期"rnsht.Range("L" & rowCount) = "生产场所"rnsht.Range("M" & rowCount) = "邮编"rnsht.Range("N" & rowCount) = "附件"rnsht.Range("O" & rowCount) = "备注"rneRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Rowrnrn'Open the webpage.rnSet objIE = CreateObject("InternetExplorer.Application")rn'nationality = InputBox("Please enter the nationality (Ex:Spanish):")rnrnrnWith objIErn .Visible = Truern .navigate "http://app1.sfda.gov.cn/datasearch/face3/content.jsp?tableId=26&tableName=TABLE26&tableView=国产器械&Id=1"rn rnDo While .Busy Or _rn.readyState <> 4rnDoEventsrnLooprnrn rn [color=#FF0000]'get datarn For Each ele In .document.allrn Select Case ele.classnamern rn Case "artist"rn rowCount = rowCount + 1rn sht.Range("A" & rowCount) = rowCount + 1rn sht.Range("B" & rowCount) = ele.innertextrn rn Case "artist-nationality"rn sht.Range("C" & rowCount) = ele.innertextrn Case "title"rn sht.Range("D" & rowCount) = ele.innertextrn Case "lotnumber"rn sht.Range("E" & rowCount) = ele.innertextrn Case "auctiondata"rn sht.Range("F" & rowCount) = ele.innertextrn Case "price"rn sht.Range("G" & rowCount) = ele.innertextrn rn Case "lot-details1"rn rn If (InStr(ele.innertext, "Original Currency of Sale") > 0) Thenrn sht.Range("H" & rowCount) = ele.innertextrn End Ifrn If (InStr(ele.innertext, "Estimate") > 0) Thenrn sht.Range("I" & rowCount) = ele.innertextrn End Ifrn rn Case "artworkdetails"rn If (InStr(ele.innertext, "Materials") > 0) Thenrn sht.Range("J" & rowCount) = ele.innertextrn End Ifrn If (InStr(ele.innertext, "Measurements") > 0) Thenrn sht.Range("K" & rowCount) = ele.innertextrn End Ifrn If (InStr(ele.innertext, "Markings") > 0) Thenrn sht.Range("L" & rowCount) = ele.innertextrn End Ifrn If (InStr(ele.innertext, "Description") > 0) Thenrn sht.Range("M" & rowCount) = ele.innertextrn End Ifrn If (InStr(ele.innertext, "Condition") > 0) Thenrn sht.Range("N" & rowCount) = ele.innertextrn End Ifrn rn rn End Selectrn Next elern[/color] rnEnd WithrnrnSet objIE = NothingrnrnEnd Subrnrn
vba编程求助
具体表如下:rnrnrn序号 个人编码 姓名 组编码 总金额 定期待遇 调整待遇rn1 05918768 周雪珍 160101 120 120 0rn2 05967957 陈桂英 160101 120 120 0rn3 05670034 陈维德 160101 120 120 0rn4 05949692 李阿根 160101 120 120 0rn5 06352401 薛四宝 160101 120 120 0rn6 05988572 李银宝 160101 120 120 0rn7 06000897 李蒋氏 160101 120 120 0rn8 05929785 蒋玉英 160101 120 120 0rn9 06352403 陆月宝 160101 120 120 0rn10 05901466 李士良 160101 120 120 0rn11 05993759 任阿心 160102 116.6 116.6 0rn12 05898938 顾士明 160102 116.6 116.6 0rn13 05995165 周菊宝 160102 116.6 116.6 0rn14 05872059 石秀珍 160102 116.6 116.6 0rn15 05904378 王一忠 160102 116.6 116.6 0rn16 05941121 魏月秀 160102 116.6 116.6 0rn17 05993685 沈月珍 160102 116.6 116.6 0rn18 05908602 顾阿根 160102 116.6 116.6 0rn19 05924583 戴阿宝 160102 116.6 116.6 0rn20 05894215 陈阿娥 160102 116.6 116.6 0rn21 05660120 陈惠忠 160102 116.6 116.6 0rn22 06352470 王美娟 160102 121 121 0rn23 06352469 胡梅英 160102 116.6 116.6 0rn24 05879614 陈阿大 160102 116.6 116.6 0rn25 06000348 王彩英 160102 116.6 116.6 0rn26 05680764 任小妹 160102 116.6 116.6 0rn27 05653982 王和尚 160102 116.6 116.6 0rn28 05980556 宋阿兴 160103 119 119 0rn29 05903408 施纪忠 160103 119 119 0rn30 05898033 吴富生 160103 119 119 0rn31 05915544 马永生 160103 119 119 0rn32 06352525 张家芬 160103 119 119 0rn33 05873091 邢阿巧 160103 119 119 0rn34 05894710 吴雪妹 160103 119 119 0rn35 05927435 边秋宝 160103 119 119 0rn36 06352529 时进仁 160103 119 119 0rn37 05993606 施桂英 160103 119 119 0rn38 05878878 施阿英 160103 119 119 0rn39 05930908 柴雪英 160103 119 119 0rn40 05640840 吴连生 160103 119 119 0rn41 05980557 吴阿宝 160103 119 119 0rn42 05913139 俞阿大 160103 119 119 0rn43 05857621 吴小妹 160103 119 119 0rn44 05990903 管小四 160104 114.5 114.5 0rn45 05856841 陈小妹 160104 114.5 114.5 0rn46 05919073 袁士明 160104 114.5 114.5 0rn47 05932028 孙娟珍 160104 114.5 114.5 0rn48 05969286 袁二宝 160104 114.5 114.5 0rn49 05845944 沈阿妹 160104 114.5 114.5 0rn50 05949996 袁小妹 160104 114.5 114.5 0rn51 05977209 徐小妹 160104 114.5 114.5 0rn52 05699041 邹梅珍 160104 114.5 114.5 0rn53 05992253 沈秋娣 160104 114.5 114.5 0rn54 05893754 袁阿大 160104 114.5 114.5 0rn55 00009160 柴妹琴 160105 11.4 11.4 0rn56 05672741 柴建华 160105 84 84 0rn57 05956226 柴泉根 160105 84 84 0rn58 05966305 柴罗元 160105 84 84 0rn59 05805996 柴正华 160105 84 84 0rn60 05943060 徐月琴 160105 84 84 0rn61 05653826 王雪妹 160105 84 84 0rn62 05945501 柴建和 160105 84 84 0rn63 05945487 管雪珍 160105 84 84 0rn64 05972914 钱凤英 160105 84 84 0rn65 05891225 柴建明 160105 84 84 0rn66 05951874 柴凤珍 160106 74.1 74.1 0rn67 05916880 柴文初 160106 74.1 74.1 0rn68 05910697 周允华 160106 74.1 74.1 0rn69 05649864 张荣林 160106 74.1 74.1 0rn70 05847924 徐阿芬 160106 74.1 74.1 0rn71 05945178 周伯元 160106 74.1 74.1 0rn72 05804744 周娟忠 160106 74.1 74.1 0rn73 04042784 方雪祥 160106 74.1 74.1 0rn74 05963595 姜凤珍 160106 74.1 74.1 0rn75 05933522 周光祖 160106 74.1 74.1 0rn76 05926466 范阿小 160106 74.1 74.1 0rn77 05941459 陆阿妹 160106 74.1 74.1 0rn78 05896795 王克东 160106 74.1 74.1 0rn79 05990522 徐老虎 160106 74.1 74.1 0rn80 05994667 季月琴 160106 74.1 74.1 0rn81 05943617 周永和 160106 74.1 74.1 0rn82 05874113 周立明 160106 74.1 74.1 0rn83 05968451 王爱妹 160106 74.1 74.1 0rn84 05973916 毛招娣 160106 74.1 74.1 0rn85 05992558 黄祥宝 160106 74.1 74.1 0rn86 05887079 王尤利 160106 74.1 74.1 0rn87 02080159 翁孝良 160106 27.5 27.5 0rn88 05843012 钱秀珍 160106 74.1 74.1 0rn89 05891111 陆金荣 160106 27.4 27.4 0rn90 05939630 陈秀英 160107 91.5 91.5 0rn91 05831682 陈云山 160107 91.5 91.5 0rn92 05978641 刘美琴 160107 91.5 91.5 0rn93 05646075 吴彩英 160107 91.5 91.5 0rn94 05930148 陶阿小 160107 91.5 91.5 0rn95 05998760 陶小妹 160107 91.5 91.5 0rn96 05913932 陈菊英 160107 91.5 91.5 0rn97 05979625 刘娟芬 160107 91.5 91.5 0rn98 04256798 张金根 160107 91.5 91.5 0rn99 05640513 任仲仁 160107 91.5 91.5 0rn100 05805984 张阿招 160107 91.5 91.5 0rn101 02074040 沈美珍 160108 35.9 35.9 0rn102 05831511 沈秋珍 160108 48.3 48.3 0rn103 05968249 沈菊英 160108 48.3 48.3 0rn104 05709923 魏月珍 160108 48.3 48.3 0rn105 05997547 魏寿元 160108 48.3 48.3 0rn106 05943180 周秀娥 160108 48.3 48.3 0rn107 05988443 王小妹 160108 48.3 48.3 0rn108 05904912 周敖生 160108 48.3 48.3 0rn109 05912214 陈阿妹 160108 48.3 48.3 0rn110 05948490 沈文彩 160108 48.3 48.3 0rn111 05831512 沈文华 160108 48.3 48.3 0rn112 04256760 王边氏 160108 48.3 48.3 0rn113 05857997 王春元 160108 48.3 48.3 0rn114 05924133 沈文祥 160108 48.3 48.3 0rn115 05955629 沈惠珍 160108 48.3 48.3 0rn116 05917506 顾心宝 160109 100.9 100.9 0rn117 05952177 顾桂芬 160109 100.9 100.9 0rn118 05969497 王惠林 160109 100.9 100.9 0rn119 05983600 宋阿三 160109 100.9 100.9 0rn120 05861776 唐中良 160110 88.9 88.9 0rn121 05923528 胡福宝 160110 88.9 88.9 0rn122 05996380 陆秀英 160110 88.9 88.9 0rn合计 11275.50 11275.50 0.00rnrnrn当然这是表1 表2、表3与之结构相同,就是金额不同,需要达到的结果是生成一张新表,但是要求总金额和定期待遇是表1、2、3这三个项的和
CorelDraw VBA 问题求助
请问如何对选定的图形改变其[宽度]和[高度]和[角度]。rnrn如何以选定的图形的轮廓属性值,在另一位置重新绘制一个同样图形出来!rn希望有朋友能给个思路,如果能有示例<em>代码</em>就更好了!多谢各位?
求助 EXECL/VBA 高手
100分<em>求助</em>rnrn本人做大机的rn结果那天老板突然心血来潮让我帮他做个小东西来减少工作量rnrn要求是这样的.rn我们的资产管理有个系统,每个月会发出报告,execl格式rn然后有后勤的专门人工统计的资产报告,也是execl格式rn需要每次比对2张sheet,找出不匹配的值rnrn2张sheet有个唯一准确比对值,serial norn用第一个sheet的sn no去比对第2张sheet里面的sn no.rn2张sheet里面的sn no顺序是乱的,也就是说第一张sheet里面的sn no要去第2张里面搜索找到相同的值,然后再比较这2条记录的其他字段值.rn找到相同sn no记录里面的其他字段不匹配的值,就输出到另外一张sheet或者标识出来.相同的不处理,继续往下走rnrn我根本没搞过<em>VBA</em>,郁闷啊rn100分求高手解救!!!rn谢谢拉!!!rn能给个大概<em>代码</em>骨架都行啊
求助VBA中的问题
<em>VBA</em>中"."的作用是什么,我有些不大明白,在哪里可以查到,谢谢!!!
[vba/tcl]紧急求助!!
如何在tcl里面实现"Range("A65536").End(xlUp).Row"啊。。。rnrn就是获取第一列的最后一个单元格行数rnrn我试了如下:rn% set cell [$WorkSheet Range a65536 a65536]rn::tcom::handle0x00988930rn% $cell End xlUprn0x80020005 类型不匹配。rn不知道哪里出问题。。。又没有帮助,烦死了。。。rnrn急啊。。。大侠rnrn
求助VBA电子教程
小弟想学习<em>VBA</em>,可是没有书籍可看,所以想请各位大哥帮忙提供<em>VBA</em>电子教程~rn可以提供下载地址,也可以发到我的邮箱jilinhanduo@sina.com
ACCESS VBA求助
问题: 物料号 物料描述1 物料描述2 加工路线 rn 这些字段都在数据库中,现想在ACCESS里输入物料号直接弹出物料描述1 ,2 加工路线(加工路线可能有多条) rn怎么实现?rn
VBA SQL语句求助
我在<em>VBA</em>查询ACCESS中myopc表,where条件中字段mydatediff_d直接用数字就行rn "select * from myopc where mydatediff_d>=1"rn如果采取下面语句rna = 1rn"select * from myopc where mydatediff_d>=a"rn运行时提示 运行时错误'2147217904(80040e10)'rn 自动化(Automation)错误rnrn我现在需要用mydatediff_d>=a进行sql查询时,有何好办法呀,请高手帮忙!rnrnrn
[求助]VBA性能问题
三个sheet表:rn产品产量 1273条数据 1分钟rn物料库存 5246条数据 20分钟rn进料消耗 7325条数据 很长时间rnrn请用Excel2007打开,用2003会内存溢出rnrn数据:每个sheet里面的数据都是八大类,每类可以当作是一棵树,树下面有很多层次,把最底层的数据返回给上层直到最顶层rnrn功能:用来求和把相同子层的值加起来给父层直到根,以公式的形式显示.rnrn问题:时间太长,性能太差了rnrn用的是递归算法.
Excel VBA编程求助
小弟需求写个<em>VBA</em>脚本,具体要求如下: 根据文件a.xls的sheet1的A列,匹配文件b.xls文件所有sheet里的内容,如果匹配成功,则将b文件匹配到的cell之后的3个cell内容复制到a.xls的对应行的B,C,D列上;望高手指点如何实现该需求,非常感谢;
求助vba达人!!
问题是这样的:从一个ppt里读取里面的图片 然后按图片所在的ppt的标题取名字保存到和ppt名字相同的文件夹里rn某个powerpoint里面有很多张幻灯片,里面图片要另存为到一个和ppt名字相同的文件夹里面去(这个文件夹需要动态创建)。rn要保存的图片的名字根据所在的ppt标题到另外一个excel表格中查找,vba程序要怎么做?rn还有一点,也许其中一张幻灯片里面有很多张图片,并且如果连续两张幻灯片的标题是一样的,那么这些图片的名字保存为: 101_1.jpg 101_2.jpg .....
求助关于vba ppt
[code=c] Dim oChart As Chartrn Dim oChartData As ChartDatarn Dim gWorkBook As Excel.Workbookrn Dim gWorkSheet As Excel.Worksheetrnrn ''Chart对象rn Set oChart = ActivePresentation.Slides(1).Shapes(1).Chartrn Set oChartData = oChart.ChartDatarn oChartData.Activatern Set gWorkBook = oChartData.Workbookrn Set gWorkSheet = gWorkBook.Worksheets("Sheet1")rnrn gWorkSheet.Cells(2, 1).Value = "Product A"rn gWorkSheet.Cells(3, 1).Value = "Product B"rn gWorkSheet.Cells(4, 1).Value = "Product C"rn gWorkSheet.Cells(5, 1).Value = "Product D"rn gWorkSheet.Cells(6, 1).Value = "Product E"rn gWorkSheet.ListObjects("Table1").Resize gWorkSheet.Range("A1:D6") '设置图标数据源区域rnrn gWorkBook.Application.Quitrn oChart.Refreshrnrn Set gWorkSheet = Nothingrn Set gWorkBook = Nothingrn Set oChartData = Nothingrn Set oChart = Nothing[/code]rnrn求教啊,为啥我的vba连chart类型都没有,而且我的不论是excel里面还是ppt里面的vba,设断点的时候查询rnActivePresentation.Slides(1).Shapes(1).的shape里面都没有Chart属性。这是怎么回事啊?
VBA编程求助
<em>VBA</em>动态添加控件应如何取值?怎么读取动态添加的文本框的内容?
求助随机函数VBA
[img=http://img.my.csdn.net/uploads/201212/05/1354676063_8665.jpg][/img]rnrn1.当复选框默认状态为K,当选择I时(即E5=2),H1为随机输入G2时间后5~10分钟(即10:22~10:27),H2为随机输入H1时间后3~5分钟(如H1输入10:22,H2随机输入10:25~10:27,而且一旦H1、H2自动随机输入时间后,在任何情况下都不可变,除非复选框或G2发生改变时才重新随机变化;rn当复选框在默认状态为K时(E5=1),H1不可以有任何内容输入(包括0),而H2自动输入G2时间后5~10分钟!!求H1,H2函数。
求助有关excel vba
Private Sub CommandButton1_Click()rnDim iFind As RangernDim a As Integer '工作表的数目rnDim b As Double '暂存元件数量差值= 库存量 - 需求量rnFor a = 2 To Worksheets.Count Step 1rn i = 5rn Set BranchName = Worksheets(1).Range("A:A") '查询rn Do While Worksheets(a).Cells(i, 2).Text <> ""rn Set iFind = BranchName.Find(Worksheets(a).Cells(i, 2).Text)rn If a = 2 Thenrn rn If Not iFind Is Nothing Thenrn TargetRow = iFind.Rowrn 'MsgBox (Worksheets(1).Cells(TargetRow, 10).Value)rn Worksheets(a).Cells(i, 8).Value = Worksheets(1).Cells(TargetRow, 10).Valuern Elsern Worksheets(a).Cells(i, 8).Value = ""rn End Ifrn b = Worksheets(1).Cells(TargetRow, 10).Value - Worksheets(a).Cells(i, 9).Value '求差rn If b > 0 Thenrn Worksheets(1).Cells(i, 12).Value = brn Elsern Worksheets(1).Cells(i, 12).Value = ""rn End Ifrn Elsern If Not iFind Is Nothing Thenrn TargetRow = iFind.Rowrn 'MsgBox (Worksheets(1).Cells(TargetRow, 10).Value)rn Worksheets(a).Cells(i, 8).Value = Worksheets(1).Cells(TargetRow, 12).Valuern Elsern Worksheets(a).Cells(i, 8).Value = ""rn End Ifrn b = Worksheets(1).Cells(TargetRow, 12).Value - Worksheets(a).Cells(i, 9).Value '求差rn If b > 0 Thenrn Worksheets(1).Cells(i, 12).Value = b '不能执行????rn Elsern Worksheets(1).Cells(i, 12).Value = ""rn End Ifrnrn End Ifrn i = i + 1rn LooprnNext arnEnd Subrnrnrnrn其中b = Worksheets(1).Cells(TargetRow, 12).Value - Worksheets(a).Cells(i, 9).Value '求差rn If b > 0 Thenrn Worksheets(1).Cells(i, 12).Value = b '不能执行????rn Elsern Worksheets(1).Cells(i, 12).Value = ""rn End Ifrnrn他总是跳过Worksheets(1).Cells(i, 12).Value = b ,是不是他不能判断正负值啊?顺便在帮我看看整个程序还有啥问题?rn还望多多批评指正
求助】excel vba 插入图片
单击一个单元格 然后弹出选择图片的对话框 选好图片后可以展现在该单元格上rn类似 插入->对象->又文件创建->浏览->选择文件(图片)rnrn请问如何用vba编程实现这个过程~~~~ rnrn十分感谢!!!
求助VBA数据类型问题
用myarr=range(cells(1,1),cells(5,5))得到excel表格里的值,原来表格设的是数值格式,那么现在myarr的值是什么类型?如何把它也转成数值格式?rn现在我要把表格里的值除以100,再填回表格,老是提示我数据类型不符!!
Access 中的VBA求助
目的:获取关键字“、”之前的所有字符rnList控件的数据: 1、ABCDEFrn 2、SDASDASDArn 3、FDFGDFGDrn 4、AAAAAAArn .....rn<em>代码</em>如下:rn-----------------------------------rnrnz = 1rnT = Trim(List1.Column(0))rni = Len(T)rnrnDo While i > zrn If Trim(Left(T, z)) = "、" Thenrn Exit Dorn End Ifrnz = z + 1rnLooprnrnT = Mid(T, 1, z - 1)rn------------------------------------rn运行的结果是,相当部分获取不正确。rn例如,第4行时获取:“4、A” 而不是“4”,请问错在什么地方?rn谢谢!
VBA替换问题求助
http://bbs.csdn.net/topics/391993653rn office那边发过了,这边简要描述一下rnSub 按表替换()rn'首先引用ms excelrn'运行前关闭所有excel程序rnDim ex As Excel.Application, boo As Excel.Workbook, shee As Worksheet, i As IntegerrnSet ex = New Excel.ApplicationrnSet boo = ex.Workbooks.Open("E:\替换表.xls")rn ex.Visible = False '设置EXCEL对象可见(或不可见)rn Set shee = boo.Worksheets(1) '设置活动工作表rnWith sheernFor i = 1 To .Range("b65536").End(xlUp).RowrnActiveDocument.Content.Find.Execute findtext:=.Range("a" & i), replacewith:=.Range("b" & i), Replace:=wdReplaceAll, Forward:=True '将excelA列替换为B列内容rnNextrnEnd Withrnboo.Closernex.QuitrnSet boo = NothingrnSet ex = NothingrnEnd Subrn 替换的时候可能有误判断,比如把banana当中的an单独提取出来翻译成“一个”,虽然我可以直接把an踢出去手动翻译,但是感觉还是不好,求解这块有什么解决办法么
excel表格VBA问题求助
各位大虾,我想在一个EXCEL表格中制作一个小功能:即某一单元格的值随着另一单元格值得变化而变化,而另一单元格需要用到下拉框形式,如a1(要使用下拉框形式)的取值范围为1,2,3,4,5,则b1与之相对应的是a,b,c,d,e。如果a1选中1,则b1相应的变为a.....依次类推。我用if语句进行判断,问题是当a1选取完后,b1的值并不随之变化,而非得再选中别的单元格,b1才会变化。(我的<em>代码</em>放在Worksheet_SelectionChange过程中),不知道该怎么办,谢谢!!
excel表格VBA求助
各位大虾,我想在一个EXCEL表格中制作一个小功能:即某一单元格的值随着另一单元格值得变化而变化,而另一单元格需要用到下拉框形式,如a1(要使用下拉框形式)的取值范围为1,2,3,4,5,则b1与之相对应的是a,b,c,d,e。如果a1选中1,则b1相应的变为a.....依次类推。我用if语句进行判断,问题是当a1选取完后,b1的值并不随之变化,而非得再选中别的单元格,b1才会变化。(我的<em>代码</em>放在Worksheet_SelectionChange过程中),不知道该怎么办,谢谢!!rn
vba代码如何创建代码
如题vba<em>代码</em>如何创建<em>代码</em>在vba中创建新的vba函数rn
VBA】--利用VBA代码导出Visio设计图
通过Visio可以绘制各种架构图、业务流程图,但是Visio并没有直接将一个visio文件中所有绘图导出成图片的功能。通过观察宏录制,结合一些实践,小Z习得了如何使用vba<em>代码</em>导出图片。步骤为:1.开启“开发工具”,点击“宏”,创建新宏。2.编写<em>代码</em>。<em>代码</em>如下:Sub ExportToImage() 'Enable diagram services Dim DiagramServ...
VBA】 将VBA代码插入Excel中
将<em>VBA</em><em>代码</em>插入到非宏Excel的Sheet表<em>代码</em>中,常用于达到单元格SelectionChange的效果,其他意义不大。 使用目的: (1)用户能够对SelectionChange事件的有效无效进行控制。 (2)可用于根据输入内容,进行数据库查询,将结果通过下拉框选择,方便用户填写。 (3)<em>代码</em>可以生效,也可以全身而退。不影响原Excel的格式,及用户的源文件,仍是xlsx格式,没问题。插入的代...
vba代码旋转效果
实现旋转效果的vba<em>代码</em>,个人觉得可以实现一些特殊视觉效果
VBA自动执行代码
<em>VBA</em>自动定时执行<em>代码</em>执行,可以定期执行
求段VBA代码
当点击一个单元格时rn触发事件rn取单元格内数字按逗号分隔并打开网页rnrn比如单元给内容 332,333,334rn点击单元格 在浏览器中打开rnhttp://www.huatian.com/vi.PHP?ID=332rnhttp://www.huatian.com/vi.PHP?ID=333rnhttp://www.huatian.com/vi.PHP?ID=334rn三个网页
ArcObject常用VBA代码
学习GIS专业的同学可以参考下,基于ESRI的AO的VB<em>代码</em>
取汉字拼音的VBA代码
想在excel中自动显示汉字的拼音吗? 写一段<em>VBA</em><em>代码</em>则轻松搞定: Function PinYin(Hz As String) Dim PinMa As String Dim MyPinMa As Variant Dim Temp As Integer, i As Integer, j As Integer PinMa = "a,20319,ai,20317,an,20304,ang,20295,ao,20292," PinMa = PinMa & "ba,20283,bai,20265,ban,20257,bang,20242,bao,20230,bei,20051,ben,20036,beng,20032,bi,20026,bian,20002,biao,19990,bie,19986,bin,19982,bing,19976,bo,19805,bu,19784," PinMa = PinMa & "ca,19775,cai,19774,can,19763,cang,19756,cao,19751,ce,19746,ceng,19741,cha,19739,chai,19728,chan,19725,chang,19715,chao,19540,che,19531,chen,19525,cheng,19515,chi,19500,chong,19484,chou,19479,chu,19467,chuai,19289,chuan,19288,chuang,19281,chui,19275,chun,19270,chuo,19263,ci,19261,cong,19249,cou,19243,cu,19242,cuan,19238,cui,19235,cun,19227,cuo,19224," PinMa = PinMa & "da,19218,dai,19212,dan,19038,dang,19023,dao,19018,de,19006,deng,19003,di,18996,dian,18977,diao,18961,die,18952,ding,18783,diu,18774,dong,18773,dou,18763,du,18756,duan,18741,dui,18735,dun,18731,duo,18722," PinMa = PinMa & "e,18710,en,18697,er,18696," PinMa = PinMa & "fa,18526,fan,18518,fang,18501,fei,18490,fen,18478,feng,18463,fo,18448,fou,18447,fu,18446," PinMa = PinMa & "ga,18239,gai,18237,gan,18231,gang,18220,gao,18211,ge,18201,gei,18184,gen,18183,geng,18181,gong,18012,gou,17997,gu,17988,gua,17970,guai,17964,guan,17961,guang,17950,gui,17947,gun,17931,guo,17928," PinMa = PinMa & "ha,17922,hai,17759,han,17752,hang,17733,hao,17730,he,17721,hei,17703,hen,17701,heng,17697,hong,17692,hou,17683,hu,17676,hua,17496,huai,17487,huan,17482,huang,17468,hui,17454,hun,17433,huo,17427," PinMa = PinMa & "ji,17417,jia,17202,jian,17185,jiang,16983,jiao,16970,jie,16942,jin,16915,jing,16733,jiong,16708,jiu,16706,ju,16689,juan,16664,jue,16657,jun,16647," PinMa = PinMa & "ka,16474,kai,16470,kan,16465,kang,16459,kao,16452,ke,16448,ken,16433,keng,16429,kong,16427,kou,16423,ku,16419,kua,16412,kuai,16407,kuan,16403,kuang,16401,kui,16393,kun,16220,kuo,16216," PinMa = PinMa & "la,16212,lai,16205,lan,16202,lang,16187,lao,16180,le,16171,lei,16169,leng,16158,li,16155,lia,15959,lian,15958,liang,15944,liao,15933,lie,15920,lin,15915,ling,15903,liu,15889,long,15878,lou,15707,lu,15701,lv,15681,luan,15667,lue,15661,lun,15659,luo,15652," PinMa = PinMa & "ma,15640,mai,15631,man,15625,mang,15454,mao,15448,me,15436,mei,15435,men,15419,meng,15416,mi,15408,mian,15394,miao,15385,mie,15377,min,15375,ming,15369,miu,15363,mo,15362,mou,15183,mu,15180," PinMa = PinMa & "na,15165,nai,15158,nan,15153,nang,15150,nao,15149,ne,15144,nei,15143,nen,15141,neng,15140,ni,15139,nian,15128,niang,15121,niao,15119,nie,15117,nin,15110,ning,15109,niu,14941,nong,14937,nu,14933,nv,14930,nuan,14929,nue,14928,nuo,14926," PinMa = PinMa & "o,14922,ou,14921," PinMa = PinMa & "pa,14914,pai,14908,pan,14902,pang,14894,pao,14889,pei,14882,pen,14873,peng,14871,pi,14857,pian,14678,piao,14674,pie,14670,pin,14668,ping,14663,po,14654,pu,14645," PinMa = PinMa & "qi,14630,qia,14594,qian,14429,qiang,14407,qiao,14399,qie,14384,qin,14379,qing,14368,qiong,14355,qiu,14353,qu,14345,quan,14170,que,14159,qun,14151," PinMa = PinMa & "ran,14149,rang,14145,rao,14140,re,14137,ren,14135,reng,14125,ri,14123,rong,14122,rou,14112,ru,14109,ruan,14099,rui,14097,run,14094,ruo,14092," PinMa = PinMa & "sa,14090,sai,14087,san,14083,sang,13917,sao,13914,se,13910,sen,13907,seng,13906,sha,13905,shai,13896,shan,13894,shang,13878,shao,13870,she,13859,shen,13847,sheng,13831,shi,13658,shou,13611,shu,13601,shua,13406,shuai,13404,shuan,13400,shuang,13398,shui,13395,shun,13391,shuo,13387,si,13383,song,13367,sou,13359,su,13356,suan,13343,sui,13340,sun,13329,suo,13326," PinMa = PinMa & "ta,13318,tai,13147,tan,13138,tang,13120,tao,13107,te,13096,teng,13095,ti,13091,tian,13076,tiao,13068,tie,13063,ting,13060,tong,12888,tou,12875,tu,12871,tuan,12860,tui,12858,tun,12852,tuo,12849," PinMa = PinMa & "wa,12838,wai,12831,wan,12829,wang,12812,wei,12802,wen,12607,weng,12597,wo,12594,wu,12585," PinMa = PinMa & "xi,12556,xia,12359,xian,12346,xiang,12320,xiao,12300,xie,12120,xin,12099,xing,12089,xiong,12074,xiu,12067,xu,12058,xuan,12039,xue,11867,xun,11861," PinMa = PinMa & "ya,11847,yan,11831,yang,11798,yao,11781,ye,11604,yi,11589,yin,11536,ying,11358,yo,11340,yong,11339,you,11324,yu,11303,yuan,11097,yue,11077,yun,11067," PinMa = PinMa & "za,11055,zai,11052,zan,11045,zang,11041,zao,11038,ze,11024,zei,11020,zen,11019,zeng,11018,zha,11014,zhai,10838,zhan,10832,zhang,10815,zhao,10800,zhe,10790,zhen,10780,zheng,10764,zhi,10587,zhong,10544,zhou,10533,zhu,10519,zhua,10331,zhuai,10329,zhuan,10328,zhuang,10322,zhui,10315,zhun,10309,zhuo,10307,zi,10296,zong,10281,zou,10274,zu,10270,zuan,10262,zui,10260,zun,10256,zuo,10254" MyPinMa = Split(PinMa, ",") For i = 1 To Len(Hz) Temp = Asc(Mid(Hz, i, 1)) If Temp < 0 Then Temp = Abs(Temp) For j = 791 To 1 Step -2 If Temp Exit For End If Next End If Next PinYin = Trim(PinYin) End Function
ArcObject常用VBA代码
ArcObject常用<em>VBA</em><em>代码</em>,关于AO开发,对于初学者有很好的帮助!
加密Access VBA代码
      Access是集前台开发和后台数据库功能的开发软件,其可以使用vba<em>代码</em>来做很多事情。但有时,我们为了保护程序,不希望其他用户看见<em>代码</em>。所以我们需要对<em>代码</em>进行加密。         如何对Access的<em>VBA</em><em>代码</em>进行加密呢,方法如下:       在VBE界面中(即<em>代码</em>编写界面Microsoft  Visual  Basic  for Applications),选择菜单栏 “工...
经典VBA代码
经典<em>VBA</em><em>代码</em>经典<em>VBA</em><em>代码</em>经典<em>VBA</em><em>代码</em>经典<em>VBA</em><em>代码</em>
VBA代码对齐工具
<em>VBA</em>编辑器的辅助工具,<em>代码</em>短小,快速对齐<em>代码</em>,使书写的<em>代码</em>便于识别
EXCEL VBA代码
<em>VBA</em>方方面面的基础语法。 1、application语法 2、workbook语法 3、worksheet语法 4、单元格语法 5、图表语法 6、艺术字语法 7、窗体控件 8、窗口 9、工具栏
vba代码荟萃免费版
编写<em>VBA</em><em>代码</em>的好老师.
这段VBA代码什么意思?
dim readString as stringrndim word1 as Word.ApplicationrnrnreadString = word1.WordBasic.Selection()rnrn请问这样的话readString中应该是什么内容?
CDR 九宫格VBA代码
cdr vba<em>代码</em> CORELDRAW<em>代码</em> CDR宏 CORELDRAW宏 学习CDR宏命令
pi datalink 的vba代码
osisoft datalink 是在excel中取pi测点值的插件,这是完整的vba<em>代码</em>,来自osisoft,需要piapi的支持,欢迎大家交流pi的各种相关技术,大家共同提高
仓库管理VBA代码
<em>VBA</em>程序源<em>代码</em>,适用于EXCL2007
VBA代码荟萃免费版
<em>VBA</em><em>代码</em>荟萃免费版
excel vba 全代码
excel vba 全<em>代码</em> 适用于所有excel版本的,是把公式列出来的方式,并没有实例。
Excel VBA代码范例
Excel <em>VBA</em><em>代码</em>范例,内含Excel <em>VBA</em>各个方面的编程示例
vba 删除代码文档
vba 删除<em>代码</em>文档vba 删除<em>代码</em>文档vba 删除<em>代码</em>文档
VBA精华代码50例
<em>VBA</em>精华<em>代码</em>50例<em>VBA</em>精华<em>代码</em>50例<em>VBA</em>精华<em>代码</em>50例
VBA代码宝ExcelHome-VBAHelper-1.0.210.1.zip
excelhome论坛最新作品:<em>代码</em>宝,安装之后在VBE界面插入一个工具栏,集成《别怕,<em>VBA</em>其实很简单》、《Excel <em>VBA</em>经典<em>代码</em>应用大全》所有<em>代码</em>,堪称牛逼吊吊
VBA代码美化机
<em>VBA</em><em>代码</em>美化机
求一段VBA代码~~~~
大家好!我用<em>VBA</em>实现了在EXCEL中自动登录网页。我在excel表格第一行第一列输入香水。我需要把香水这个搜索条件用vba自动填到网页中的搜索框中。请高手提供这么一段<em>代码</em>。万分感谢。
一段VBA代码不懂
SumIfs(Sheet3.Range("h2:h65536"), Sheet3.Range("c2:c65536"), TextBox6.Value, Sheet3.Range("P2:P65536"), "=" & "NG") - Application.WorksheetFunction.SumIfs(Sheet4.Range("h2:h65536"), Sheet4.Range("c2:c65536"), TextBox6.Value, Sheet4.Range("T2:T65536"), "=" & "NG")rn这段<em>代码</em>什么意思?sumifs函数干吗用的?越详细越好rn
我的第一个VBA代码
消息框编写 打开Excel,点击开发工具-Visual basic,出现VBE窗口,在菜单栏找到插入,点击插入模块。 在工程窗口右键点击模块-插入窗体控件 控件选择按钮,并修改按钮文字内容 双击按钮,出现<em>代码</em>框输入如下<em>代码</em>: Private Sub CommandButton1_Click() If vbOK = (MsgBox(&quot;请再次确定&quot;, vbOKCancel, &quot;...
VBA常用代码和常用的代码
<em>VBA</em>常用<em>代码</em>和常用的<em>代码</em>,方便我们快速的掌握<em>VBA</em>编程,应用到我们的工作中
VBA代码缩进工具
做<em>VBA</em>开发必不可少的工具,如excel access word ppt等
Excel 好用VBA代码
excel数据处理常用<em>代码</em> 1,图框自动添加。 2,数据格式快速整理。
excel vba 经典案例代码
excel vba 经典案例<em>代码</em>
excel之常用vba代码
合并当前sheet表之前的所有sheet表,并保存到当前sheet表(并在结尾添加一行“abc”,并指定字体和大小) Sub 合并sheet() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name &lt;&gt; ActiveSheet.Name Then x = ...
网上VBA代码总结
Excel <em>VBA</em>常用<em>代码</em>总结(转载) Excel 基本<em>代码</em> http://www.cnblogs.com/dazuo/p/4920921.html 改变背景色 改变文字颜色 获取单元格 获取范围 选中某sheet 获得文档的路径和文件名 隐藏文档 禁止屏幕更新 禁止显示提示和警告消息 文件夹做成 状态栏文字表示 双击单元格内容变换 文件夹选择框方法1 选中或激活...
VBA代码收集
<em>VBA</em><em>代码</em>收集
Excel VBA 代码笔记
欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来,用它写博客,将会带来全新的体验哦: Markdown和扩展Markdown简洁的语法 <em>代码</em>块高亮 图片链接和图片上传 LaTex数学公式 UML序列图和流程图 离线写博客 导入导出Markdown文件 丰富的快捷键 快捷键 加粗 Ctrl + B 斜体 Ctrl + I 引用 Ctrl
VBA代码学习
RansorA.Copy '将RansorA中的内容复制到剪贴板 RansorB.PasteSpecial Paste := xlPasteValues '将剪贴板中的内容复制到RansorB
他山之石——VBA代码封装
继续学习<em>VBA</em>! 话说CSDN又改版了啊,这世界天天在变化啊! '1 什么是DLL文件 'DLL是Dynamic Link Library 的缩写形式,DLL是一个包含可由多个程序同时使用的<em>代码</em>和数据的库,' 'DLL不是可执行文件。动态链接提供了一种方法,使进程可以调用不属于其可执行<em>代码</em>的函数。函数的 '可执行<em>代码</em>位于一个 DLL 中,该 DLL 包含一个或多...
VBA FTP下载代码
如何实现<em>VBA</em> FTP下载,需通过用户名跟密码才能登入。rn Internet Transfer 控件或者 Winsock 控件,具体哪里下,怎么调用,请高手给个能执行的<em>代码</em>!谢谢。rn 帮忙发个到我邮箱heiwangk@163.com!
VBA 下拉列表代码
Excel <em>VBA</em> 下拉列表<em>代码</em>!!
期权组合与VBA代码
主要内容为:期权组合套利图以及基本的<em>VBA</em>编写程序
封装我们的VBA代码
<em>VBA</em>在<em>代码</em>的保护上存在着缺陷。如果不对<em>VBA</em>工程设置密码保护,<em>代码</em>很容易被人浏览乃至窃取。而且即使设置了密码保护,也很容易被人破解。笔者就曾用破解工具officekey轻松地破解了他人设置的密码保护,不费吹灰之力便浏览了其中的<em>代码</em>,而且从中发现了文档保护密码。可见,要想保护自己的<em>VBA</em><em>代码</em>,仅仅设置密码保护是不够的。
VBA,Excel 密码破解代码
<em>VBA</em>,excel密码破解,将此程序copy进<em>VBA</em> Editor中,运行即可
Excel VBA代码荟萃
这里,为Excel爱好者以及经常用Excel处理事务的网友,提供了用Excel编程的有力支持。大家在编程的过程中,最苦恼的事莫过于找不到现成的<em>代码</em>,全靠自己一条一条去编写,费时又费力。作者在编制软件《具才教务与成绩管理系统》的过程中,积累了大量的<em>VBA</em>实例<em>代码</em>,同时也在网上搜集了很多<em>代码</em>,现将其分类汇集起来和大家分享,相信会给您带来有益的帮助!<em>VBA</em>(Visual Basic for Application)是微软公司为了加强Office软件的二次开发能力而附加于其中的编程语言。<em>VBA</em>的确非常强大,其与VB完全一致的语法结构,高效控制Office对象模型的能力,令无数人为之折腰。利用<em>VBA</em>,几乎可以在Office里面做任何其他程序能做的事情。如果立志成为专业的Office Developer,那么疯狂的使用<em>VBA</em>代替Excel现有功能去完成任务是学习编程之路上的一个有效过程,但也不能走火入魔。
Excel源代码_VBA代码
源<em>代码</em>说明 (1) 本书的源<em>代码</em>分章节置于不同的目录,例如:第3章的源<em>代码</em>在03目录下。 (2) 源<em>代码</em>中完整的例子以Excel文件的形式保存,<em>代码</em>片断以文本文件的形式保存。部分<em>代码</em>提供了2种格式,可以根据阅读需要选择使用。 (3) 以Excel文件保存的<em>代码</em>打开时需要启用宏。 (4) 源<em>代码</em>的函数名、模块名请对照本书正文。 (5) 源<em>代码</em>运行需要相应的数据和上下文条件,具体内容请参照本书正文。 (6) 在文本文件中保存的源<em>代码</em>需要拷贝到Excel文件的<em>VBA</em> IDE环境下,然后在工作表中使用,或者运行。
自动缩进VBA代码
可以自动将VB或者<em>VBA</em>的<em>代码</em>进行美化,增加程序的可读性。
实用VBA代码
打开Excel表格 Function openExcel(name As String) Dim wb As Workbook Dim sheetFrom As Worksheet '判断文件是否存在 If Dir(name) &amp;amp;amp;lt;&amp;amp;amp;gt; &amp;amp;quot;&amp;amp;quot; Then Debug.Print name + &amp;amp;quot;文件存在&amp;amp;q
VBA代码移植问题
我在一个Excel表中写的<em>VBA</em><em>代码</em>或者说是程序,怎样在别的Excel表中使用,是否非要用组件?
跪求VBA代码
将EXCEL A列中的数据,假设有64个分割成8个数组,每个数组有8个数据 要使第一个数组到第八个数组中的数据依次排列到BCDEFGHI列,将数据以数组的形式看成整体加以排列比一个一个单元格的循环处理起来要快点,希望高手能给出<em>代码</em>,谢谢
VBA 三次样条 代码
三次样条算法在vba中的实现
VBA,帮我解释代码
With Selection.Font rn.NameFarEast = "宋体" rn.NameAscii = "Times New Roman" rn.NameOther = "Times New Roman" rn.Name = "Times New Roman" rn.Size = 12 rn.Bold = False rn.Italic = False rn.Underline = wdUnderlineNone rn.UnderlineColor = wdColorAutomatic rn.StrikeThrough = False rn.DoubleStrikeThrough = False rn.Outline = False rn.Emboss = False rn.Shadow = False rn.Hidden = False rn.SmallCaps = False rn.AllCaps = False rn.Color = wdColorAutomatic rn.Engrave = False rn.Superscript = False rn.Subscript = False rn.Spacing = 0 rn.Scaling = 100 rn.Position = 0 rn.Kerning = 1 rn.Animation = wdAnimationNone rn.DisableCharacterSpaceGrid = False rn.EmphasisMark = wdEmphasisMarkNone rnEnd Withrnrnrn补充:rnwdStyleNormal=-1,试试With ActiveDocument.Styles(-1).Fontrnrn烦高手帮我每句后面加上解释,我没有学过<em>VBA</em>,不尽感谢!
VBA代码保存
我将<em>VBA</em><em>代码</em>放在新建的模块中,第一次可以用,保存退出,重新打开excel后,模板<em>代码</em>消失了rnrnrn问下,<em>VBA</em><em>代码</em>应该保存在哪里?
VBA代码与数据分离???
我用<em>VBA</em>编写了一个在execl中运行的程序,如何实现<em>VBA</em><em>代码</em>跟我输入的数据分离呢?rn比如说:我用<em>VBA</em>的输入框输入了一份名单到execl中,但每次打开这个名单时候总有提示说要启动宏,rn 怎样才能实现只保存我的那份名单,而没有那段宏<em>代码</em>。。。但要要求:我所编写的<em>代码</em>以后还可以用,说下实现方法??????
Office编程百宝箱 v29.0 【vba开发 vba百宝箱 vba代码
Office编程百宝箱29.0,简称<em>VBA</em>百宝箱。为Office编程国产首款超大型插件,原创30多个功能宝贝。所有功能通用于Excel、Word、PowerPoint、Outlook、Access、Publisher、Project、Office全家福。适用于微软Office2003、2007、2010、2013、2016、2019版本以及WPS2016、2019专业增强版本。 office编程百宝箱 v29.0 功能简介: 1.为Office编程国产首款超大型插件,原创30多个功能宝贝。 2.所有功能通用于Excel、Word、PowerPoint、Outlook、Access、Publisher、Project、Office全家福。 3.适用于微软Office2003、2007、2010、2013、2016、2019版本以及WPS2016、2019专业增强版本。 4.集<em>代码</em>美化排版、繁简内码转换、工程免密查看、精简程序<em>代码</em>、错误语句处理、<em>代码</em>注释处理、集多个功能宝贝于一身。 5.提取工程<em>代码</em>、工程项目<em>代码</em>输出、添加去除行号、删除空行、工程信息统计等。 6.提供许多免费功能,且无限期使用,致地提升了<em>代码</em>加工、错误处理、程序开发的效率。 7.开发应用环境为微软32位操作系统加32位Office,或者微软64位操作系统加32位Office。 8.完善<em>代码</em>智能美化、添加程序行号、插入防错<em>代码</em>、注释选中<em>代码</em>、恢复注释<em>代码</em>、删除程序行号。 9.完善精减程序<em>代码</em>、<em>代码</em>免密查看、恢复<em>代码</em>密码、标注排序行号、提取模块<em>代码</em>、提取工程<em>代码</em>。 10.完善统计模块行数、统计模工程行数、工程智能美化、删除注释内容、删除空白空行、删除模块<em>代码</em>。 11.完善删除工程<em>代码</em>、删除模块注释、删除工程注释、删除项目注释、处理错误语句、工程<em>代码</em>输出文档。 12.完善输出全部项目<em>代码</em>、简体转繁体、繁体转简体、GB2转BIG5、BIG5转GB2、定义字典、正则、FSO、ADO、DAO对象、强制变量声明等。
c# 加减乘除运算下载
+ - * / float A = float.Parse(textBox1.Text); float B = float.Parse(textBox2.Text); 相关下载链接:[url=//download.csdn.net/download/dusanyue/4284442?utm_source=bbsseo]//download.csdn.net/download/dusanyue/4284442?utm_source=bbsseo[/url]
同学通讯录系统(Java可清屏版)下载
同学通讯录系统 public class TXL { private static final int INSERT = 1; private static final int QUERY = 2; private static final int UPDATE = 3; private static final int DELETE = 4; private static final int LIST = 5; private static final int QUIT = 0; private static final int SIZE = 3; 相关下载链接:[url=//download.csdn.net/download/ojustsoso12/4379939?utm_source=bbsseo]//download.csdn.net/download/ojustsoso12/4379939?utm_source=bbsseo[/url]
us100使用说明下载
us100使用说明,开发硬件,arm单片机必备。 相关下载链接:[url=//download.csdn.net/download/yw15029754323/5868105?utm_source=bbsseo]//download.csdn.net/download/yw15029754323/5868105?utm_source=bbsseo[/url]
相关热词 c# 线程结束时执行 c# kb mb 图片 c# 替换第几位字符 c#项目决定成败 c# 与matlab c# xml缩进 c#传感器基础 c#操作wps c# md5使用方法 c# 引用父窗口的组件
我们是很有底线的