¦X¨ÖÀx¦s®æ VBA, µo°Ý

fish0226

·s¤â¸Õ¼g¦X¨ÖÀx¦s®æ

¤@¶}©l¥ý¥Î¿ý»s¦p¤U

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

½Æ»s¥N½X

«á¨Ó¤Wºôª¦¤åµo²{¥i²¤Æ¬°

1. Sub ¦X¨ÖÀx¦s®æ()
   
2.     Range("A1:L1").Select
   
3.     With Selection.MergeCells = True
   
4.     End With
   
5.   End Sub

½Æ»s¥N½X

¤@¼Ëªº®ÄªG¡A¬°¤°»ò¿ý»s¦h¤F³o»ò¦h¡A¦h¥Xªº²Ó¶µ·N«ä¬O¤°»ò©O?

ikboy

¿ý»s¬O¹q¸£°ò©ó¤H¤â¾Þ§@°O¿ý¤U, ¦p Select, ¦ý¼g¬O«ö¤Hªº«äºû°µªº, «e¨â¬q§A³£¤w¸g¬Ý¨ì¬O¦³¤À§O, ¨º¥H«Ü©úÅã¥Ø«e¤H¼g¥N½X¥i¥H¶¹L«Ü¦hµL¿×ªº»y¥y, ¬Ý¤U­±ÁÙ¥i¥H§óµu¡C

1. Sub ¤£¦P¦X¨Ö¤èªk()
   
2.     Range("A1:L1").MergeCells = True
   
3. End Sub

½Æ»s¥N½X