murmur

看板Diary作者 (。)時間4年前 (2019/09/22 22:35), 4年前編輯推噓0(000)
留言0則, 0人參與, 最新討論串287/326 (看更多)
【絕叫】 女子遺體被屋裡的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,冏", 就加減學吧, 或許哪天就能派上用場。 -- ※ 文章網址: https://www.ptt.cc/bbs/Diary/M.1569162955.A.CC3.html 是說python前面要留幾格,有沒有對齊會有差別, VBA是不是隨便青菜啊,我都亂留,好像也沒差。 ※ 編輯: headlee (111.250.78.164 臺灣), 09/22/2019 22:38:43
文章代碼(AID): #1TXuRBp3 (Diary)
討論串 (同標題文章)
文章代碼(AID): #1TXuRBp3 (Diary)