东风汽车12343的个人资料

完成这个任务，选哪个配置最近在potplayer时间场景浏览器时，加载的有点不快，3幅/秒吧，想换个电脑，达到20幅/秒就行，请大家帮忙选一下（尽量在2500以内）：目前电脑配置： CPU (英特尔)Intel(R) Core(TM) i5-4460 CPU @ 3.20GHz(3201 MHz) 主板联想 SHARKBAY 内存 8.00 GB ( 1600 MHz) 主硬盘 120 GB ( 920D07920F2C017640 已使用时间: 10550小时) 显卡 NVIDIA GeForce GT 720 (2048MB) 目标电脑配置：

什么情况，多多上买的，一股香精味

复制文件总是十来M,这是正常速度吗 66

为什么一个自限疾病感冒，中医要用一部伤寒论、三种辨证方法来这在西医看来，是自己就能好的

荣耀这个** 。

带叉号、可以按返回键关闭的怎么弄指南说但没用

进了MAX Dos 工具箱，有什么后果？电脑小白，也学的装了一下，做盘时选了包含dos工具箱，结果启动里菜单里也有，手贱选中进去了，会有什么后果吗？那个Max Dos工具箱是干什么的？（没人教我，都是网上学，知道的都是零零碎碎的，老是提心吊胆的，怕做错）

谁能写这么个程序就是模拟这样一动作：按ctrl+alt+del,然后在弹出的界面按Esc

不能运行 Sub cf() '拆分工作簿4 Dim i As Integer, wb As Worksheet Excel.Application.ScreenUpdating = False '禁止屏幕刷新 For i = 1 To Sheets.Count Set wb = Workbooks("工作簿4").Sheets(i) wb.Copy '复制工作表 ActiveWorkbook.SaveAs Filename:="d:data\" & wb.Name '将当前工作簿以“ "的名字保存到d盘data目录下 ActiveWorkbook.Close '关闭打开的表 Next Excel.Application.ScreenUpdating = True '解禁刷新 End Sub 说是下标越界，为什么？

这个启用内容是啥意思

这个又是怎么了？ Sub cf() '拆分工作簿4 Dim i As Integer, wb As Worksheet Set wb = Workbooks("工作簿4").Sheets(i) For i = 1 To Sheets.Count wb.Copy '复制工作表 ActiveWorkbook.SaveAs Filename:="d:data\" & wb.Name '将当前工作簿以“ "的名字保存到d盘data目录下 ActiveWorkbook.Close Next End Sub

看下这个有什么问题 Sub hh() '将“d:\”下的文件夹按表1A1-Ai单元格内容命名 Dim ss$, i As Integer ss = Dir("d:\data\", vbDirectory) For i = 1 To 20 If ss <> "." And ss <> ".." Then Name "d:\data\ss" As "d:\data\" & Sheets(1).Range("A" & i ) End If ss = Dir Next End Sub

我这句话哪里不对 name "d:\data\ss" as "d:\data\sheets(1).range("A"&i)"

在d盘存了个有代码的文件，重装系统后，代码没了怎么办

api无法拉起怎么办无法

系统不知道cell是单元格吗，为什么还要定义cell as range 下面过程中， Sub ForEachTest() Dim cell As Range For Each cell In Range("C4:D9") MsgBox cell.Value Next cell 还有，不能定义为cell,为什么

这个一用变量代替thisworkbook就不能运行了 Sub 文件合并A() '合并工作簿：一个工作簿取一个工作表 Dim str As String Dim wb As Workbook Dim twb As ThisWorkbook str = Dir("d:\data\*.xls*") '取第一个工作簿的表名 For i = 1 To 100 Set wb = Workbooks.Open("d:\data\" & str) '赋值变量给wb wb.Sheets(1).Copy after:=twb.Sheets(twb.Sheets.Count) '将打开的工作簿的sheet(1)复制到代码所在工作簿最后表之后 twb.Sheets(twb.Sheets.Count).Name = Split(wb.Name, ".")(0) '将这个工作表名设为工作簿名（split用来剔除后坠） spilt（对象，“分隔物”）（0） ---0表示取分隔符前的字符 wb.Close '关闭本工作簿 str = Dir '取下一值 If str = "" Then Exit For End If Next End Sub

sht的问题 Sheets(1).Copy after:=sht 后，sht不应该是复制出来那张表吗，为什么是前一张呢 Sub jj() '复制工作表并在其中的b2中填入表sheet(5) bi:j(i+5)的数据 Dim sht As Sheets, i As Integer For i = 0 To ThisWorkbook.Sheets(5).Rows.Count i = 2 + i * 5 Set sht = Sheets(Sheets.Count) Sheets(1).Copy after:=sht '复制到最后 sht.Select ThisWorkbook.Sheets(5).Range("b" & i & ":j" & i + 5).Copy sht.Range("b2") sht.Name = Sheets(5).Range("b" & i) '命名 Next End Sub Sheets(1).Copy after:=sht 后，sht不应该是复制出来那张表吗，为什么是前一张呢

哪位给看一下，无法运行 Sub jj() '复制工作表并在其中的b2中填入表sheet(5) bi:j(i+5)的数据 Dim sht As Sheets, i As Integer For i = 0 To ThisWorkbook.Sheets(5).Rows.Count i = 2 + i * 5 Set sht = Sheets(Sheets.Count) Sheets(1).Copy after:=sht '复制到最后 sht.Select ThisWorkbook.Sheets(5).Range("b" & i & ":j" & i + 5).Copy sht.Range("b2") sht.Name = Sheets(5).Range("b" & i) '命名 Next End Sub

代码如何写同时满足两个以上条如，变量不能是甲、乙、丙、丁 if s <> "甲" and"乙" 然后呢?

代码如何写同时满足两个以上条件如，变量不能是甲、乙、丙、丁 if s <> "甲" and"乙" 然后呢?

这是什么原因改了一下名字后，有时能运行，有时不能运行，提示变量未定义任务合并工作簿原代码 Sub wjhb() Dim str As String Dim wb As Workbook str = Dir("d:\data\*.xls*") For i = 1 To 100 Set wb = Workbooks.Open("d:\data\" & str) wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0) wb.Close str = Dir If str = "" Then Exit For End If Next End Sub 改过的 Sub 文件合并A() '一个工作簿只有一个工作表 Dim str As String Dim wb As Workbook str = Dir("d:\data\*.xls*") For i = 1 To 100 Set wb = Workbooks.Open("d:\data\" & str) wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0) wb.Close str = Dir If str = "" Then Exit For End If Next End Sub

看下这个有什么问题 Sub naee() Dim i%, n$ n = Dir("G:\王佩丰VBA\3\") For i = 1 To 3 Name "G:\王佩丰VBA\3\" & n As "G:\王佩丰VBA\3\" & ActiveWorkbook.Sheets(1).Cells(i, "a") Next End Sub

这个是什么情况

这个表是不是能优化，就七个表，还转了一秒圈将当前目录下工作簿表一的b3单元格填入当前工作簿第一个表的A列 Sub t() Dim ss$, i% ss = Dir(ThisWorkbook.Path & "\") Excel.Application.ScreenUpdating = False Do If ss <> ThisWorkbook.Name Then Workbooks.Open (ThisWorkbook.Path & "\" & ss) i = i + 1 ThisWorkbook.Sheets(1).Range("a" & i) = Workbooks(ss).Sheets(1).Range("b3") Workbooks(ss).Close End If ss = Dir Loop Until ss = "" Excel.Application.ScreenUpdating = True End Sub

遍历工作簿，并弹窗显示每个工作表的名称，怎么写

这个代码错在哪以工作簿2sheet1a列中单元格的值命名工作表，如果工作表数量小于单元格数量，则添加至相等这个代码错误在哪 Sub mm() '以sheet1a列中单元格的值命名工作表 Dim s As Worksheet, n% If Workbooks("工作簿1").Sheets.Count < Workbooks("工作簿2").Sheets("sheet1").UsedRange.Rows.Count Then Sheets.Add after:=Sheets(Sheets.Count) For Each s In Worksheets n = n + 1 s.Name = Workbooks("工作簿2").Sheets("sheet1").Range("a" & n) Next End If End Sub

vba能提取视频文件的文件名吗。

为什么无法运行

选择的是工作簿5的模块，为什么老在工作簿7中执行如图

把音频中声音小的部分和大的部分都弄成一样的，有没有这个功能有没有

既然当日买入不能卖出，那成交量不就是换手量？那为什么相同成交量换手率却不同比如，若总盘1000股甲卖给乙100股，完成一次换手，成交100股；乙卖给甲100股，完成一次换手，成交100股；那么今天成交了200股，换手2次。0.2%换手率，不对吗？怎么会出现成交了200股，换手率是0.4%的呢

关于vba，什么时候要加空格前几天出现个问题Range("a"&1)=10执行报错，师兄指出是连字符前后没加空格，可是看了教程，也没提这个事啊，什么时候要加空格呢？

这段代码有点看不懂当n=4时，这个赋值是怎么运行的

超出单元格的部分怎么显示不出来了？

刚学vba,有个问题求教 Sub rrr() range("a"&1).Value=3 Range("b3").Value = 3 End Sub 第一行报错好几次了，问题在哪？

这是啥

手机版无法屏蔽外放怎么办手机版无法屏蔽外放怎么办

初学数组问题，哪位老师能解答一下，先行拜谢如图1、A7和C7有什么不同 2、F1和E5公式一样，为什么显示的结果不一样 3、Sum不是不是数组公式吗？E1怎么不报错。 4、sum(a1:b3)中，a1:b3是数组吗？ 5、{=SUM(b1:b3+d1)}拆开看是{6;7;8}，是6+7+8，而sum函数中参数之间是用逗号连接，表示联合的，这里是用分号连的行，这是数组规则吗？哪位老师能解答一下，先行拜谢

听了一节数组课，觉得还不如不听高中文化，学excel有段时间了，也学了一些函数，比如Sum、count、Vlookup、Index、match等，自己觉得还可以，也会用。但是今天听了一节数组课，虽然也勉强听懂了，但却觉得还不如不听，因为现在要用一个函数，还得知道它支不支持数组，瞬间懵了，现在一想到要引用一列或一个区域的内容，就担心--我这是不是在用数组，烦死了。

处于筛选状态的数据可以被引用吗如题

怎么禁止每次下载都打开这个页面

谁有叶问4国语版的资源

新车该怎么充电，不懂，前四次都是用到开了ACS骑到没电，才充的新车该怎么充电，不懂，前四次都是用到开了ACS骑到没电，才充的

word的保留源格式粘贴好象不对，请大家说说看法我截了一个比较长的图片，粘贴到了文档中，发现word的逻辑好象不对， word 保留源格式粘贴的效果，和wps的匹配当前格式一样wps 带格式粘贴的结果

小刀电动车太次了才用了半年就有问题了，商家一个耐求货，不管，说我是人为原因

新买了个车，起步油门太灵敏，稍动一点点就上30迈，怎么办

问个技术问题，100m的口，300m的无线速率，做无线中继的话，能不能接上300m的网

pe里的引导修复和DG里的重建主引导记录有什么不同呢

建议增加识别图片为表格的功能建议

哪位帮我看一下这个个税计算公式问题在哪 vloookup写的

能不能在工具栏也弄个麦克风？像讯飞这样的

iPad版什么时候上？ iPad版什么时候上？

IPAD版怎么还不上，什么时候上

手机上传的视频网盘中看不到怎么回事？？？

这会儿发出租的内容人们都在哪儿发了如题