新手求助ioctl调用出错 u盘关卡出错

来源：蜘蛛抓取(WebSpider) 时间：2017-09-25 10:33 标签： 右键菜单按钮调用出错
| 　
| 　
| 　
| 　
| 　
只需一步，快速开始
查看: 2611|回复: 3
新手求助，离线任务第一个门怎么进啊？？
主题帖子积分
高级玩家, 积分 522, 距离下一级还需 78 积分
高级玩家, 积分 522, 距离下一级还需 78 积分
我飞过去后没有提示啊，看攻略是xbox手柄的操作，我用的是键盘，应该按哪几个键啊？？
主题帖子积分
中级玩家, 积分 146, 距离下一级还需 104 积分
中级玩家, 积分 146, 距离下一级还需 104 积分
先鎖定 滑鼠中鍵 靠近一定距離內按Q 可以進去 話說我一開始野卡過...
主题帖子积分
高级玩家, 积分 522, 距离下一级还需 78 积分
高级玩家, 积分 522, 距离下一级还需 78 积分
殺手童話 发表于
先鎖定 滑鼠中鍵 靠近一定距離內按Q 可以進去 話說我一開始野卡過...
谢谢啊！这游戏人性化做的简直反人类！
主题帖子积分
高级玩家, 积分 302, 距离下一级还需 298 积分
高级玩家, 积分 302, 距离下一级还需 298 积分
<font color="#4808127 发表于
谢谢啊！这游戏人性化做的简直反人类！
鼠标滑轮 不好用的话可以换个 腱& &
Powered by查看: 435|回复: 6
【新手求助】关于Offset函数使用后无法计算，及调用Word时，If循环不能正常运行
阅读权限20
在线时间 小时
各位前辈，有2个问题想要请教：
For m = 5 To 2 * j + 3 Step 2
Set rnFind1 = Sheet1.Range(Cells(76, m), Cells(99, m + 1)).Find(&C*&, LookAt:=xlPart)
If Not rnFind1 Is Nothing Then
Set R3 = rnFind1
Set R4 = rnFind1.Offset(4, 0)
stAddress = rnFind1.Address
Cells(110, 19) = R3.Offset(1, 0).Value&&①
Cells(111, 19) = Application.Round(R3.Offset(2, 0).Value * 1.003 + 7.4, 1) 'Cable length ②
Cells(112, 19) = (Val(R3.Offset(3, 0)) + Val(R4.Value)) * 3 / Val(R3.Offset(2, 0)) * Cells(111, 19).Value&&③
& && &书写上述程式时，①、②对应的单元格都能正常显示数值，但对于③，必需增加Val函数，才能正常计算出结果，这是为什么呢？在循环之前，我已将数据来源表格设为：Range(&E5:P7,E16:P26,E28:P41,E43:P56,E58:P71,E73:P75,E77:P80,E83:P86,E89:P92,E95:P98&).NumberFormat = General
&&2.With WordApp
& && &.Documents.Open outputfile
& && &.Visible = True
& &&&For line = 110 To 127
& &&&i = line - 109
& &&&Str1 = &数& & Format(i, &0&)
& &&&Str2 = Sheet1.Cells(line, 19)
& && &.Selection.HomeKey Unit = wdStory
& &&&If .Selection.Find.Execute(Str1) Then
& && &.Selection.Text = Str2
& &&&End If
& &&&Next line
& &&&End With
在书写上述程式时，我是参考了热浪前辈的Excel数据提取到Word的帖子的，原帖中，最后一个If循环是能正常运行的，但在修改后的此程序中，寻找替换了数1后，之后的Str1 Str2都能找寻到对应的值，但就是无法进行替换，请问是为什么呢？
阅读权限95
在线时间 小时
& & & & & & & &
str12 str11 要从大到小。。。。
阅读权限20
在线时间 小时
str12 str11 要从大到小。。。。
str12,str11，从大到小的意思是？
For i = 2 To 最后行号
& && &&&For j = 1 To 5 '填写文字数据
& && && &&&Str1 = &数据& & Format(j, &000&)
& && && &&&Str2 = Sheets(&数据&).Cells(i, j + 1)
& && && &&&.Selection.HomeKey Unit:=wdStory '光标置于文件首
& && && &&&If .Selection.Find.Execute(Str1) Then '查找到指定字符串
& && && && &&&.Selection.Font.Color = wdColorAutomatic '字符为自动颜色
& && && && &&&.Selection.Text = Str2 '替换字符串
& && && &&&End If
& && &&&Next j
& && &&&For j = 1 To 3 '填写表格数据
& && && &&&.ActiveDocument.Tables(i - 1).Cell(2, j).Range = Sheets(&数据&).Cells(i, j + 6)
& && && &&&.ActiveDocument.Tables(i - 1).Cell(4, j).Range = Sheets(&数据&).Cells(i, j + 9)
& && &&&Next j
& && &Next i
以上是参考的循环，语句相仿，却可以跑起来
阅读权限20
在线时间 小时
str12 str11 要从大到小。。。。
str12,str11，从大到小的意思是？
For i = 2 To 最后行号
& && &&&For j = 1 To 5 '填写文字数据
& && && &&&Str1 = &数据& & Format(j, &000&)
& && && &&&Str2 = Sheets(&数据&).Cells(i, j + 1)
& && && &&&.Selection.HomeKey Unit:=wdStory '光标置于文件首
& && && &&&If .Selection.Find.Execute(Str1) Then '查找到指定字符串
& && && && &&&.Selection.Font.Color = wdColorAutomatic '字符为自动颜色
& && && && &&&.Selection.Text = Str2 '替换字符串
& && && &&&End If
& && &&&Next j
& && &&&For j = 1 To 3 '填写表格数据
& && && &&&.ActiveDocument.Tables(i - 1).Cell(2, j).Range = Sheets(&数据&).Cells(i, j + 6)
& && && &&&.ActiveDocument.Tables(i - 1).Cell(4, j).Range = Sheets(&数据&).Cells(i, j + 9)
& && &&&Next j
& && &Next i
以上是参考的循环，语句相仿，却可以跑起来
阅读权限20
在线时间 小时
str12 str11 要从大到小。。。。
Str1，Str2都是定义为string
阅读权限95
在线时间 小时
Str1，Str2都是定义为string
上个附件吧。。。。。
阅读权限20
在线时间 小时
上个附件吧。。。。。
明白了~是我homekey那个位置符号漏了冒号：
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师新手求助各路大神！O(∩_∩)O谢谢_Mr-孙的6楼回帖_珠宝大家坛
新手求助各路大神！O(∩_∩)O谢谢
查看6楼回帖
您的浏览器版本过低！请升级浏览器，以保证正常使用！谢谢您的支持！
亲逛这么久了，怎么还不进去瞧瞧呢？
手机客户端
与您一起分享生活的快乐

我要回帖

更多关于 右键菜单按钮调用出错 的文章

 

随机推荐