murmur

楼主: headlee (。)   2019-09-22 22:35:53
【绝叫】
女子遗体被屋里的11只猫啃食殆尽,
是孤独死、自杀,还是?
看别板推荐的,
还行,但看完好像也没太多感觉,
只觉得淡淡的悲歌之感,
不是正能量,也不爽,
今年有拍成日剧,四集而已,
豆瓣分数算高的,8.3分。
【VBA-工作表合并】
有40个案例,他一直叫我开启范例档案,
靠杯喔,我就没光盘啊,冏",
我自己KEY,
所以这本书有光盘可借吗?
查了一下,看不出来光盘要怎么借,嗯....
觉得今天就大概这个案例就结束啊,累啊,XD
弄了三个宏,我个别存三个xlsm啦,这样比较不会混淆。
1.合并到原有的最后一张sheet
2.合并到新增的一张表
3.指定要合并几个表到新增的一张表
其中,他里面写
Dim i,j,sht_name
sht_name="整合"
Sheets.Add After:=Sheets(Sheets.Count)
^^^^^^^^^^^^^^^^^^^^
j=Sheets.Count
Sheets(Sheets.Count).Name = sht_name
第三句一直被说有错,不知道我那时是KEY错还是怎样,
反正就一直不行,
我索性上网看有没别的写法,
还有觉得干嘛要多定义一个j,
就用Sheets.Count不好吗?
直接改成,
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "整合"
Dim i
For i = 1 To Sheets.Count - 1
成功又干净,
好啦,虽然我上次看python只到第四章,半路放弃啊,
但感觉有点帮助,
没有对这些VBA语法这么排斥了,
而且我不是第一次用VBA,
我以前就有录制宏,只是都录多段复制贴上而已,
没去再改编,
原来宏就是VBA,
再来是这些应该也不用重写,
就跟以前写SQL一样,存起来,
有可以用的时机,你就检视宏,
复制贴上,顶多稍稍修改就好。
所以语法没背起来,好像也没差。
只是看目录那些范例,
觉得现在能拿来用的,很有可能是0,冏",
就加减学吧,
或许哪天就能派上用场。

Links booklink

Contact Us: admin [ a t ] ucptt.com