返回列表 上一主題 發帖

有沒有人有空可以幫我看一下我的錄製巨集有沒有比較簡化的寫法?

有沒有人有空可以幫我看一下我的錄製巨集有沒有比較簡化的寫法?

有沒有人有空可以幫我看一下我的錄製巨集有沒有比較簡化的寫法?
http://naturefruit.myweb.hinet.net/222.xls
其實我的表格要一直擴張到序號500,可是因為錄制的巨集太長,是否有簡短的做法呢?

還有一個比較困難的判斷式
當B25沒有資料,將不顯示或隱藏A25:G65536的儲存個
當B46沒有資料,將不顯示或隱藏A46:G65536的儲存個
.
.
.
以此類推

感謝各位專家大大的幫忙,非常謝謝.

回復 1# vpower
  1. Sub nn()
  2. Cells.EntireRow.Hidden = False
  3. i = 25
  4. Do Until Cells(i, 2) = ""
  5. i = i + 21
  6. Loop
  7. Rows(i & ":65536").Hidden = True
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

本帖最後由 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

TOP

我發現隱藏,預覽列印還是會印出隱藏的列.
這倒是相當稀奇。

TOP

我剛跑好像少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

我增加了紅色的部分就正常了,不知道是為什麼呢?

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題