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

¤@­ÓÅܦâ°ÝÃD

¤@­ÓÅܦâ°ÝÃD

¤j¤j­Ì, ¦w¦n
¦³¤@­ÓÀx¦s®æÅܦâ°ÝÃD½Ð±Ð, ¹Ï¤ù¦³©ú²Ó»¡©ú, ¥ý¦æÁ¹L¦U¤j¤j­Ì,
hong912

¦^´_ 1# hong912

¤u§@ªí¥kÁä¨Æ¥ó¡A¿ï¨ú½d³ò«á«ö¤U·Æ¹«¥kÁä
  1. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  2. With Selection
  3.   .Interior.ColorIndex = 6
  4.   .Merge
  5. End With
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
´L·qªºª©¤j, ¦­±á
·PÁ¨ó§U, ÁÂÁÂ!!
hong912

TOP

¦^´_ 2# Hsieh

Hsieh ª©¤j¦n,
¤p§Ì¦A¦³°ÝÃD½Ð±Ð, µ{¦¡¤¤«ö·Æ¹«¥ª°·Åܦâ, ²{·QÅܦh¤@¦â, °²³]·í¥Î®a¿ï©wÀx¦s®æ«ö¥ª°·ÅÜÂŦâ, ¦A«ö¥ª°·, Àx¦s¦AÅܦ¨¬õ¦â, ³o¬O§_¥i°µ¨ì, ·Ð³Òª©¤j±Ð¾É..
ÁÂÁÂ!!
hong912

TOP

¤p§Ì¤]·Qª¾¹D³o¦ü²³æ¹ê¬O½ÆÂøªºÂù­«Åܦâ°ÝÃD, ¦bvba¤¤¬O§_¥i°µ¨ì,

TOP

¥[­Óif §PÂ_¡H
  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.         .Merge
  8.         
  9.     End If
  10. End With
  11. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ hong912 ©ó 2016-9-21 22:44 ½s¿è

¦^´_ 6# zyzzyva
·PÁ¤j¤j¡A
§Ú¤]´¿¥Î¿ý¨î¥¨¶°¤è¦¡¬ã¨s¡A¦ý¥\¤O¤Ó²L¡A¨S¦¨¥\¡A°J¤ß·PÁ¡I
hong912

TOP

¦^´_ 6# zyzzyva                                                                                                                                                                                                 
«e½ú¦n¡A¤p§Ì·Q½Ð°Ý­Y¦bµ{¦¡¤¤¥[¤J±j¨î©Ê¦Û°Ê´«¦C¡A¦Û§_¥i¥H¡A·P®¦¡AÁÂÁ¡I

TOP

¦^´_ 8# ©P¤j°¶
¦Û°Ê´«¦C¬O¤°»ò·N«ä¡HÅܦâ«á´«¨ì¤U¤@¦C¶Ü¡H

TOP

¦^´_ 9# zyzzyva
ÁÂÁ¦^À³,
¦Û°Ê´«¦C¬O«ü¤@¯ë¿é¤J¤å¦r©óÀx¦s®æ¹Lªø®É¨Sªk¥þ³¡Åã¥Ü, ¥Î®a«K·|³]©wÀx¦s®æ®æ¦¡,¦b¹ï»ô¤è¦¡¤¤¤Ä¿ï¦Û°Ê´«¦C, ³o±¡ªp¤U¿é¤J¤å¦r´Xªø³£·|¦Û°Ê½Õ¾ã¦C°ª,
¦bµ{¦¡¤¤¥i§_¥[¤J¦Û°Ê´«¦C, ¬O«ü¥Î®a¿é¤J¹Lªø¤å¦r, Àx¦s®æ¦Û¦æ½Õ¾ã¦C°ª,
¦hÁ¦^À³..

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD