合併更精簡
Sub 合併()Sheets.Add After:=Sheets(Sheets.Count) ' 新增工作表在最後一張j = 1 '用於設定列數增加定位用For i = 1 To Sh
楊玉文
訂閱人數:22
楊玉文,是位專業 VBA 講師,在各大專院校以及政府單位、企業都有講授過VBA課程。同時,也協助許多企業使用 VBA 解決客戶工作上的問題。他從Excel5.0就深入專研撰寫應用 EXCEL VBA 教學書籍,近期也有陸續出版 VBA 工具書。
Sub 合併()Sheets.Add After:=Sheets(Sheets.Count) ' 新增工作表在最後一張j = 1 '用於設定列數增加定位用For i = 1 To Sh
Sub 取出註解()While ActiveCell.Value Empty ' 判定有註解的欄所有儲存格是否有資料On Error Resume Next ' 如果沒有註解,則往下執
這是學生問題, 我修正一些資訊與大家分享Sub 試算表變簡報()Dim rng1, rng2 As RangeDim ppt, myppt, myslide, myobj As Object 
這個學生的提問, 於是我就很好奇的寫了這個VBA , 請大家參考請於工作表的選取進行下列程式指令 ,1 清除全部儲存格的填色2 重新設定欄列的填色與儲存格的填色Private Sub Workshee
以下是程式設計的內容 , 請進入程式的畫面後, 按二下工作表左側視窗, 選取Worksheet物件並輸入下列程式Public x, y ' 宣告公用變數'---------
函數平均值, 如何排除資料範圍中有 #DIV , #ERROR , #NUM , 空白資料 , 0 等資料, 再計算平均 , 過去要使用陣列或是一堆IF進行逐一判斷才可以完成的計算 , 其實不需要如此
Sub 樹狀圖()Dim x, yx = 300y = 150d = 0d1 = xFor j = 2 To 5 For i = 2 To 5 w
大家好, 這個程式與大家分享 , 用於多張工作表欄位相同, 郤位置不同時的處理大家好謝謝大家 , 這個程式可指定工作表進行工作表的整理Sub 調整欄()Dim a(1024)'--------