![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
vba实例学习
baidu_41593578
这个作者很懒,什么都没留下…
展开
-
day2 按条件标记单元格
Sub test()Dim rng As RangeFor Each rng In Range("b2", Cells(Rows.Count, 2).End(xlUp))'rows.count是将最大行数,再把行数往上推到有数据的最后一个行数' If rng.Value >= 100000 Then ' rng.EntireRow.Range("a1:c1").Interior.Color = RGB(160, 255, 255) '字体填充 rng.Entire...原创 2022-01-07 20:43:14 · 113 阅读 · 0 评论 -
day1 format时间的用法之一
Sub 开单()[a4:d11].ClearContents[b2] = Format(Now, "yyyymmdd-hhmmss")End Subformat可以导出的数字为对应的时间y表示年m表示月d表示天h表示小时m表示分钟s表示秒原创 2021-12-22 21:42:59 · 127 阅读 · 0 评论 -
vba自动适应行和列
Sub AutoFitColums()'自动适应列宽Cells.SelectCells.EntireColumn.AutoFit'row是行 column是列'activecell指定选中的单元格'EntireColumn 是全部列'延伸出可以单独改变单元格的行和列End Sub原创 2021-07-10 09:52:46 · 1308 阅读 · 0 评论