Àx¦s®æ¦Û°Ê¦X¨Ö°ÝÃD

bear0925900003

·Q½Ð°Ý¡G·íB1~B50Àx¦s®æ¤º¿é¤J"µ²¦s"®ÉF1~N1Àx¦s®æ¦Û°Ê¦X¨Öªº»yªk«ç»ò¼g
EX¡GB1¿é¤J"µ²¦s"      F1~N1¦Û°Ê¦X¨Ö
         B2¿é¤J"50000"      F2~N2ºû«ù­ì®æ¦¡¤£ÅÜ
         B3¿é¤J"µ²¦s"      F3~N3¦Û°Ê¦X¨Ö

GBKEE

¦^´_ 1# bear0925900003
¸Õ¸Õ¬Ý  (¨S¦³ªþÀɬO§_¦p¦¹)

1. Option Explicit
   
2. 'Intersect ¤èªk ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí¨â­Ó©Î¦h­Ó½d³ò­«Å|ªº¯x§Î½d³ò¡C
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4.     If Not Intersect(Range("b1:b50"), Target.Cells(1)) Is Nothing Then
   
5.         With Range("F" & Target.Cells(1).Row & ":N" & Target.Cells(1).Row)
   
6.           If Target.Cells(1) = "µ²¦s" Then .Merge Else .UnMerge
   
7.         End With
   
8.     End If
   
9. End Sub

½Æ»s¥N½X

bear0925900003

·PÁ¦Ѯv½ç±Ð!!

bear0925900003

¦A½Ð±Ð¤@¤U¤j¤j!!¦p¦óÅýB1~B50Àx¦s®æ¤ºªº"µ²¦s"³Q§ï¦¨¨ä¥L¤º®e®É¡AF~N´N·|¦Û°Ê¦^´_¦X¨Ö«eªº®æ¦¡?

GBKEE

¦^´_ 4# bear0925900003
2# µ{¦¡½X

1. If Target.Cells(1) = "µ²¦s" Then .Merge Else .UnMerge

½Æ»s¥N½X

Else ->   <> "µ²¦s"

bear0925900003

½Ð°Ý¤j¤j¤£¦æ§ï­C!½Ð½ç±Ð¡A¥i¥Hµ¹§¹¾ãªºµ{¦¡½X¶Ü?·P®¦

GBKEE

¦^´_ 7# bear0925900003
À³¸Ó¬O§A­nªþ¤W§¹¾ãªºÀÉ®×,¤£µM§Ú«çª¾§Aªººc·Q!

bear0925900003

¦^´_ 8# GBKEE


   ¹ï¤£°_!!¤j¤j­ì¨Óªºµ{¦¡½X´N¥i¥H°µ¨ì¤£»Ý­n§ï¡A§Ú¤S¸£´Ý¤F.....