代码
weixin_43203897
这个作者很懒,什么都没留下…
展开
-
1+2....+100的和
public class demo { public static void main(String[] args) { int sum = 0; for (int i = 0; i < 100; i++) { sum=sum + i; } System.out.println(sum); } }原创 2018-11-21 20:59:40 · 208 阅读 · 0 评论 -
1...100之间质数
public class prime { public static void main(String[] args) { for(int i=2;i<100;i++) { boolean b = true; for(int j=2;j<i;j++) { if(i%j==0) { b = false; break; } } if(...原创 2018-11-22 11:23:39 · 123 阅读 · 0 评论 -
VBA-工作簿里面多个Shee拆分成独立的工作簿
1.打开视图—>代码窗口—>粘贴代码 2.运行代码 Private Sub chafenbiao() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets ...原创 2019-05-20 11:45:18 · 1175 阅读 · 0 评论 -
VBA-大表按列分成多个小表(带表头)
按班级分表: 开发工具–>VB编辑器–>视图–>代码窗口–>粘贴下面代码 Sub cfgzb() Dim arr, d As Object, k, t, i&, lc%, rng As Range, c% c = Application.InputBox("请输入拆分列号", , 1, , , , , 1) If c = 0 Then Ex...原创 2019-06-25 17:22:18 · 1198 阅读 · 0 评论 -
VBA--批量替换超链接路径
开发工具–>VB编辑器–>视图–>代码窗口–>输入如下代码–>点击运行 Sub ChangeHyperlink() For Each c In ActiveSheet.Hyperlinks c.Address = Replace(c.Address, "原路径", "替换的路径") Next End Sub ...原创 2019-06-28 14:34:17 · 1879 阅读 · 0 评论 -
VBA-指定列批注批量转移到表格里
把B列批注转移到D列: 打开开发工具–>VB编辑器–>粘贴下面代码–>点击运行 Sub 转移批注() On Error Resume Next '选中行区间范围533行到592行 For i = 533 To 592 '选择把第2列的批注,转移到第4列 Cells(i, 4) = Cells(i, 2).Comment.Text Next End Sub 在进行其他操...原创 2019-09-18 16:44:21 · 565 阅读 · 0 评论