返回列表 上一主題 發帖

合併儲存格

fish0226

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
W7 
軟體版本
EXCEL 2010 
閱讀權限
10 
註冊時間
2020-10-18 
最後登錄
2020-10-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-10-18 23:01 | 只看該作者

合併儲存格

VBA, 發問
新手試寫合併儲存格

一開始先用錄製如下
  1. Sub combine()
  2.     Range("A1:L1").Select
  3.     With Selection
  4.         .HorizontalAlignment = xlCenter
  5.         .VerticalAlignment = xlCenter
  6.         .WrapText = False
  7.         .Orientation = 0
  8.         .AddIndent = False
  9.         .IndentLevel = 0
  10.         .ShrinkToFit = False
  11.         .ReadingOrder = xlContext
  12.         .MergeCells = False
  13.     End With
  14.     Selection.Merge
  15. End Sub
複製代碼
後來上網爬文發現可簡化為
  1. Sub 合併儲存格()
  2.     Range("A1:L1").Select
  3.     With Selection.MergeCells = True
  4.     End With
  5.   End Sub
複製代碼
一樣的效果，為什麼錄製多了這麼多，多出的細項意思是什麼呢?
收藏 分享

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
17  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-11-19 

2016猴年全勤獎章
2#
發表於 2020-10-19 09:40 | 只看該作者
錄製是電腦基於人手操作記錄下, 如 Select, 但寫是按人的思維做的, 前兩段你都已經看到是有分別, 那以很明顯目前人寫代碼可以繞過很多無謂的語句, 看下面還可以更短。
  1. Sub 不同合併方法()
  2.     Range("A1:L1").MergeCells = True
  3. End Sub
複製代碼

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題