【Excel】利用滑鼠拖曳產生複製及累加的效果 ( Lesson 1/1 )

當電腦時代從Dos走向Windows後…最大的使用習慣改變就是『小老鼠』

我想我話題扯遠了~~~

但滑鼠的應用對於電腦的普及化，實在是有非常著越的貢獻

今天就來介紹非常簡單的拖曳效果吧!

在Excel裡，任何一個儲存格，只要將滑鼠移到選取儲存格的右下方，指標變成實心黑＋時

您就可以進行拖曳，非常簡單的將儲存格的文字複製下去～～〔請看A欄〕

倘若您儲存格裡的內容是數字呢…結果是一樣的 ～～〔請看B欄〕

但是若您在拖曳時，同時按著〔Ctrl鍵〕呢…神奇的是…變成累加囉～～〔請看C欄〕

今天的課簡單上…抱著簡單的心情上課~~

【Excel】如何自動取得Sheet名稱 ( Lesson 1/1 )

各位學員久違了…我自從去洗櫻花到現在，因為太過忙碌，一直沒上課~對不住大家啊~
(PS：今天課程進入了VBA的世界了…老師還沒做基礎介紹，大家就先看看吧)


今早我在整理朋友的音樂檔~想說要把歌曲的詞彙整成一份歌單
所以就開了一份Excel，將網路上的歌詞給copy下來…

但因為歌曲還蠻多的…所以我打算弄一份總表，抄錄歌名，並把內部連結放上去
這樣就可以很方便的從總表上，點選快速的開啟歌詞檔~

此刻我就要重復講那句名言了…
『懶惰是進步的原動力』…

我打算在總表上放個按鈕，按一下讓Excel自動幫我將各Sheet名全抄過來，並放上連結

然後在〔重新整理歌單〕的按鈕上，加入Click事件的程式語法

=========================

Private Sub cmdRefresh_Click()
    For i = 2 To Sheets.Count
        ActiveSheet.Hyperlinks.Add ActiveSheet.Cells(i + 1, 2), "", "'" & Sheets(i).Name & "'!A1", , Sheets(i).Name
    Next
End Sub

=========================

說明：

 ActiveSheet.Hyperlinks.Add：增加連結

Sheets(i).Name：取得工作表名稱

如此，按一個鈕，Excel就會自動把所有的工作表名稱(歌曲名稱)列在總表，並且放上連結喔!

在這裡因為多數學員沒有程式基礎…因此本課主要目的只是讓大家知道Excel其實可以更活用，不只是在工作上；在生活上也可以簡單快速的幫助資料整理～

所以今天課程沒有做太深入的介紹，如果有學員想瞭解怎麼做，日後老師再開課喔～

讓你的Excel…動起來吧～