有沒有人有空可以幫我看一下我的錄製巨集有沒有比較簡化的寫法?
- 帖子
- 155
- 主題
- 56
- 精華
- 0
- 積分
- 242
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- 專業版2002
- 閱讀權限
- 0
- 註冊時間
- 2010-5-29
- 最後登錄
- 2011-7-18
|
有沒有人有空可以幫我看一下我的錄製巨集有沒有比較簡化的寫法?
有沒有人有空可以幫我看一下我的錄製巨集有沒有比較簡化的寫法?
http://naturefruit.myweb.hinet.net/222.xls
其實我的表格要一直擴張到序號500,可是因為錄制的巨集太長,是否有簡短的做法呢?
還有一個比較困難的判斷式
當B25沒有資料,將不顯示或隱藏A25:G65536的儲存個
當B46沒有資料,將不顯示或隱藏A46:G65536的儲存個
.
.
.
以此類推
感謝各位專家大大的幫忙,非常謝謝.
|
|
|
|
|
|
|
- 帖子
- 155
- 主題
- 56
- 精華
- 0
- 積分
- 242
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- 專業版2002
- 閱讀權限
- 0
- 註冊時間
- 2010-5-29
- 最後登錄
- 2011-7-18
|
3#
發表於 2010-11-16 00:17
| 只看該作者
本帖最後由 vpower 於 2010-11-16 00:37 編輯
我發現隱藏,預覽列印還是會印出隱藏的列.
改用刪除我依樣畫葫蘆如下,請大師幫我檢查一下,感恩
Sub nn()
i = 25
Do Until Cells(i, 2) = ""
i = i + 21
Loop
Sheets("目錄格式").Rows(i & ":65536").Select
Selection.Delete Shift:=xlUp
End Sub
|
|
|
|
|
|
|
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
4#
發表於 2010-11-16 07:58
| 只看該作者
我發現隱藏,預覽列印還是會印出隱藏的列.
這倒是相當稀奇。 |
|
|
|
|
|
|
|
- 帖子
- 155
- 主題
- 56
- 精華
- 0
- 積分
- 242
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- 專業版2002
- 閱讀權限
- 0
- 註冊時間
- 2010-5-29
- 最後登錄
- 2011-7-18
|
5#
發表於 2010-11-18 19:33
| 只看該作者
我剛跑好像少21列
所以我又更改了一下
Sub nn()
i = 25
Do Until Cells(i, 2) = ""
i = i + 21
Loop
i = i + 21
Sheets("目錄格式").Rows(i & ":65536").Select
Selection.Delete Shift:=xlUp
End Sub
我增加了紅色的部分就正常了,不知道是為什麼呢?
|
|
|
|
|
|
|
