紫猫大神，请指点

jy1625 · 发表于 2018-7-26 00:42:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 jy1625 于 2018-7-26 00:42 编辑

新人一枚，请大神帮帮忙，写个代码(*/ω＼*)(*/ω＼*)

1、一个6*6的图表，然后随机在上面显示6个红点（显示的固定36个坐标已找出）。

2、从右下方（214，1028）开始往上查找，判断如果这个点是空的“FFFFFFF”，则继续往上一格（y轴-34）查找，如果6个点都是空的，则往左移（X轴-34），依然还是从下往上查找

3、按顺序找到第1个红点，则停止脚本。

紫猫 · 发表于 2018-7-26 11:05:59

具体代码你要自己写的, 我只能给你例子

[按键精灵] 纯文本查看 复制代码

//使用嵌套For循环实现坐标遍历
For i = 100 to 0 step -20
    For j = 100 to 0 step -20
          //使用对比颜色CmpColor判断是否需要Exit For
    Next
//要退出两个For循环的话, 这里也加个判断退出Exit For
Next

djy3180 · 发表于 2018-7-29 17:40:56

本帖最后由 djy3180 于 2018-7-29 17:45 编辑

直接放代码,不知道该怎么说. 最后的末位数0没处理好.
Path = "D:\Documents and Scttings\Administrator\我的文档\测试.xls"
'打开Excel文件
索引 = Plugin.lxj_Office.lxj_ExcelOpen (Path,1)
'按要求填充值
数字整数部分 = Int(44.858)
数字小数部分=       CSng(44.858 - 44)
For i = 0 To 5
'纵向小数部分在变
For j = 0 To 5
'横向只有整数部分在变
      单元格整数 = 数字整数部分 + j * 34
      单元格小数 =  Round(数字小数部分+ i * 0.034,4)
   '计算单元格里面的值
      If i = 5 Then
            单元格值 = CSng(单元格整数) + 单元格小数 + 0.0748
      Else
      单元格值 = CSng(单元格整数) + 单元格小数
      End If
      '都算好了往Excel格子里面填
      Plugin.lxj_Office.lxj_ExcelWrite 1, i+1, j+1,单元格值 , 索引
Next
Next

代码运行后效果

52584678 · 发表于 2018-8-5 15:39:42

学习。。。。。。。。。。。。

xiewei131 · 发表于 2018-8-21 18:29:23

学习。。。。。。。。。。。。

zl0068 · 发表于 2023-3-2 10:57:19

学习。。。。。。。。。。。。。

		自动登录	找回密码
密码			立即注册

[已回复] 紫猫大神，请指点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。