随笔分类 -  EXCEL_VBA

摘要:最近一个朋友,遇到一个问题,给定坐标,以及面积,需连点成面,然后需要求得左边点顺序 做法,在坐标表A列插入空列,命名为XH 列,B 列为X坐标系,C为Y坐标系,在表里A列填充假定顺序号,跑一次程序,看面积是否满足要求。 思路:通过改变A列的序号,并排序,然后计算面积; 代码为EXCEL VBA. S 阅读全文
posted @ 2022-06-22 14:24 橙香夜雨 阅读(626) 评论(0) 推荐(0)
摘要:Sub tt() Dim i As Integer For i = 2 To ActiveSheet.UsedRange.Rows.Count If Sheets(1).Cells(i, 6) <> "" Then Dim j As Integer For j = 2 To 153 If Sheet 阅读全文
posted @ 2021-01-02 15:14 橙香夜雨 阅读(66) 评论(0) 推荐(0)