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