楊玉文 | YOTTA 合作講師

合併更精簡

Sub 合併()Sheets.Add After:=Sheets(Sheets.Count) ' 新增工作表在最後一張j = 1 '用於設定列數增加定位用For i = 1 To Sh

2020/03/17

Sub 取出註解()While ActiveCell.Value Empty ' 判定有註解的欄所有儲存格是否有資料On Error Resume Next ' 如果沒有註解，則往下執

2020/03/17

這是學生問題, 我修正一些資訊與大家分享Sub 試算表變簡報()Dim rng1, rng2 As RangeDim ppt, myppt, myslide, myobj As Object

2019/11/09

這個學生的提問, 於是我就很好奇的寫了這個VBA , 請大家參考請於工作表的選取進行下列程式指令 ,1 清除全部儲存格的填色2 重新設定欄列的填色與儲存格的填色Private Sub Workshee

2019/09/19

以下是程式設計的內容 , 請進入程式的畫面後, 按二下工作表左側視窗, 選取Worksheet物件並輸入下列程式Public x, y ' 宣告公用變數'---------

2019/08/17

函數平均值, 如何排除資料範圍中有 #DIV , #ERROR , #NUM , 空白資料 , 0 等資料, 再計算平均 , 過去要使用陣列或是一堆IF進行逐一判斷才可以完成的計算 , 其實不需要如此

2019/08/11

Sub 樹狀圖()Dim x, yx = 300y = 150d = 0d1 = xFor j = 2 To 5 For i = 2 To 5 w

2019/03/02

大家好, 這個程式與大家分享 , 用於多張工作表欄位相同, 郤位置不同時的處理大家好謝謝大家 , 這個程式可指定工作表進行工作表的整理Sub 調整欄()Dim a(1024)'--------

2019/01/27