01 2024 档案

摘要:Sub setBlankRowColor() Dim lngLastRow As Long Dim i As Long '获取工作表中已使用区域最后一行的行号 lngLastRow = Cells(Rows.Count,1).End(xlUp).Row '遍历行 For i = 1 To lngLa 阅读全文
posted @ 2024-01-17 15:57 paoPaoLong_liu 阅读(372) 评论(0) 推荐(0) 编辑
摘要:SET DEFAULT TO e:\vfp123 CLOSE TABLES bjs=12 kms=2 DIMENSION km(10),mf(10) km(1)="yw" km(2)="sx" mf(1)=70 mf(2)=100 SELECT b USE wan3tj GO top SELECT 阅读全文
posted @ 2024-01-05 12:45 paoPaoLong_liu 阅读(42) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示