合併更精簡

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

楊玉文

2020/03/17

remove_red_eye6

善用註解

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

楊玉文

2020/03/17

remove_red_eye8

試算表固定範圍變簡報

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

楊玉文

2019/11/09

remove_red_eye17

輕鬆標明儲存格

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

楊玉文

2019/09/19

remove_red_eye11

英文自動大寫變小寫

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

楊玉文

2019/08/17

remove_red_eye18

不連續的函數設計

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

楊玉文

2019/08/11

remove_red_eye27

EXCEL 也可以繪製樹狀圖

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

楊玉文

2019/03/02

remove_red_eye139

多張工作表欄位相同, 卻位置不同時的處理

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

楊玉文

2019/01/27

remove_red_eye271