zyzzyva

¦^´_ 10# ©P¤j°¶
¤£¦n·N«ä¡A¤£¬O«Ü¤F¸Ñ³o¸òÅܦâ°ÝÃDªºÃöÁp¡C¦pªG¥u¬O­n¦bvba¤¤³]©w¦Û°Ê´«¦C¡A¨Ï¥Î.WrapText = True´N¥i¥H¤F¡C

©P¤j°¶

¦^´_ 11# zyzzyva
©ú½T»¡, ¼Ó¤W¼Ó¥Dµo°Ý¤@­ÓÅܦâ°ÝÃD, §Ú§âµ{¦¡®M¤J¤p§Ì¤u§@ªí¤¤, ¦Ó§Ú¦b¤u§@ªíÀx¦s®æ®æ¦¡>¹ï»ô¤è¦¡¤¤>¤Ä¿ï¦Û°Ê´«¦C, ³o±¡ªp¤U, ¿é¤J¤å¦r¹Lªø¦C°ª«K¦Û¦æ½Õ¾ã, ¦ý²{®É¤å¦r¹Lªø,Àx¦s®æ¨S¦³½Õ¾ã¦C°ª, ¦]¦Ó¨Sªk§â¥þ³¡¿é¤Jªº¤å¦rÅã¥Ü, ¤ß·Q§Ú¤v¤Ä¿ï¤F¦Û°Ê´«¦C, ¬°¦ó¦³¦¹±¡ªp, ¬G·Q¦pªG¥[¤Jvbaµ{¦¡¬O§_¥i¥H°µ¨ì¤å¦r¹Lªø¦C°ª¦Û¦æ½Õ¾ã,  ¥H«K§â¿é¤J¤å¦r¥þ³¡Åã¥Ü, ÁÂ,

¤U¸ü (33.22 KB)

2016-9-29 19:06

zyzzyva

¦^´_ 12# ©P¤j°¶
¨º¬O¦X¨ÖÀx¦s®æªº°ÝÃD¡Aexcel¦X¨ÖÀx¦s®æ¦³«Ü¦h°ÝÃD¡A¥Îvba³]©wwraptext¤]¨S¥Î(¥i¥H¤â°Ê¦b¥Ø¼Ð¦Cªº¤U½t«ö¨â¤U¡A·|µo²{¤@¼ËµL®Ä)¡A¸Ô²Ó¥i¥H°Ñ¦Ò¡G
http://blog.contextures.com/archives/2015/12/03/autofit-merged-cells-row-height-update-20151203/
§Ú·Q±zÀ³¸Ó¬O¦X¨Ö¡BÅܦ⧹Àx¦s®æ­n¦b¸ÌÀY¿é¤J¤å¦r¡H§â¤U­±ªºcode¥[¨ì¦P¤@­Óworksheet¸Ì¸Õ¸Õ¬Ý¡C

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim Vhight As Single
   
3. If Target.WrapText = True Then
   
4. With Target
   
5. .Select
   
6. .RowHeight = 1
   
7. .WrapText = True
   
8. .UnMerge
   
9. .EntireRow.AutoFit
   
10. Selection.Merge
    
11. Vhight = .Width * .Height / Selection.Width
    
12. If Vhight < 16 Then Vhight = 16
    
13. .RowHeight = Vhight
    
14. .VerticalAlignment = xlCenter
    
15. End With
    
16. End If
    
17. End Sub

½Æ»s¥N½X

©P¤j°¶

¦^´_ 13# zyzzyva
·PÁ¤j¤j,
§Ú·|Æp¬ã, ­Y¦³¤£°Ý³B, ¦A½Ð±Ð, ÁÂÁÂ,

hong912

¦^´_ 13# zyzzyva
¤j¤j¦n,
ÏްݤF¤@­ÓÅܦâ°ÝÃD, ±a¥X¥t¤@­Ó´«¦C°ÝÃD, ­Y¯à§â¨â­Óµ{¦¡¿Ä¦X, ´N¬O§_¥i¥H, ÁÂÁÂ!!

zyzzyva

¦^´_ 15# hong912
Àx¦s®æ¦X¨Ö«á¤£¤Ó¦n¾Þ§@¡A½Ð°Ñ¦Ò13Fªº¦^ÂСC

hong912

¦^´_ 16# zyzzyva
«e½ú, §A¦n,
¥i§_©ú½T»¡©ú, ¦p¦ó©ñ©ó¦P¤@µ{¦¡°Ï¤º, ¨ü±Ð¤F, ·P®¦½ç!

zyzzyva

¦^´_ 17# hong912
¬O2­Ó¨Æ¥ó¡A­n©ñ¦b¦P¤@­Óworksheet¡C«ö¥kÁä«á·|Åܦâ¦P®É¦X¨ÖÀx¦s®æ¡A¦pªG¦b¸ÌÀY¿é¤J¡A·|¦³´«¦Cªº®ÄªG(¦ý¤£¬O«Üº}«G)¡C
­Ó¤Hı±o¡A¦pªG·|»Ý­n¾Þ§@¤½¦¡©Îµ{¦¡¡A«D¥²­nºÉ¶qÁקK¨Ï¥Î¦X¨ÖÀx¦s®æ¡AÀx¦s®æ¦X¨Ö¤§«á¡A®e©ö¦³«Ü¦h©_©_©Ç©Çªº°ÝÃD¡C

1. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   
2. 
   
3. With Selection
   
4.     If .Interior.ColorIndex = 5 Then
   
5.         .Interior.ColorIndex = 3
   
6. 
   
7.     Else
   
8.         .Interior.ColorIndex = 5
   
9.         .Merge
   
10.         .WrapText = True
    
11.         
    
12.     End If
    
13. End With
    
14. End Sub
    
15. 
    
16. 
    
17. Private Sub Worksheet_Change(ByVal Target As Range)
    
18. Dim Vhight As Single
    
19. If Target.WrapText = True Then
    
20. With Target
    
21. .Select
    
22. .RowHeight = 1
    
23. .WrapText = True
    
24. .UnMerge
    
25. .EntireRow.AutoFit
    
26. Selection.Merge
    
27. Vhight = .Width * .Height / Selection.Width
    
28. If Vhight < 16 Then Vhight = 16
    
29. .RowHeight = Vhight
    
30. .VerticalAlignment = xlCenter
    
31. End With
    
32. End If
    
33. End Sub

½Æ»s¥N½X

hong912

¦^´_ 18# zyzzyva
ÁÂÁ«e½ú, °J¤ß·PÁÂ!

zyzzyva

¦^´_ 20# hong912
¥i¥H¸ÕµÛ²z¸Ñ¤@¤Ucode¡A°õ¦æ¦X¨ÖÀx¦s®æªº¬Omerge¡A¥u­n§â¥¦§R°£´N¥i¥H¤F¡C
¨S¦³¦X¨Öªº¸Ü¡Awraptext¥i¥H¥¿±`§@¥Î¡A¥t¤@­Óchange¨Æ¥ó¤]¥i¥H§R±¼¡C

1. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   
2.     With Selection
   
3.         If .Interior.ColorIndex = 5 Then
   
4.             .Interior.ColorIndex = 3
   
5.         Else
   
6.             .Interior.ColorIndex = 5
   
7.             .WrapText = True
   
8.         End If
   
9.     End With
   
10. End Sub

½Æ»s¥N½X