ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

·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¨Ö
§A²q!!

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁ¦Ѯv½ç±Ð!!
§A²q!!

TOP

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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-1-8 08:11 ½s¿è

¦^´_ 4# bear0925900003
2# µ{¦¡½X
  1. If Target.Cells(1) = "µ²¦s" Then .Merge Else .UnMerge
½Æ»s¥N½X
Else ->   <> "µ²¦s"
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

¦^´_ 7# bear0925900003
À³¸Ó¬O§A­nªþ¤W§¹¾ãªºÀÉ®×,¤£µM§Ú«çª¾§Aªººc·Q!
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# GBKEE


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

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD