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

[µo°Ý] ±ø¥ó¦¡§R°£cell¤º®e¡A¦A³Â·Ð¤j®a¦h«ü±Ð

[µo°Ý] ±ø¥ó¦¡§R°£cell¤º®e¡A¦A³Â·Ð¤j®a¦h«ü±Ð

Dear ¦U¦ì¥ý¶i:

     ·Q½Ð¯q ¤@­Ó°ÝÃD¡A¦pªþÀÉ

    ±¡ªp¡Gcell¸Ì¦³½Æ¿ï§@µª (number,number, number,.....)¡A·Q§â³oºØcell²MªÅ¡AÅܦ¨ªÅ­È
  ¥Ø«e·Q¨ìªº¬O¥Îselect ¡A§ä¥X«D¼Æ¦rªºcell(¦]¬°½Æ¿ï´N¤£¬O¼Æ¦r®æ¦¡¤F)¡A¦A¥Îclean ²M°£
©ÎªÌ¬O¥Î¤½¦¡find§ä¥X cell¸Ì¬O (number,number, number,.........)¡A

Á`¤§¡A·Q¤£¨ì¦p¦ó°µ¡A«ç»ò°µ¡A©Ò¥H¨Ó½Ð¯q¤F¡A¤@¨ÓºCºC¤â°Ê§R·|ªá«Ü¦h®É¶¡¡A¤G¨Ó«D±`·Qª¾¹D¦p¦ó§Rªº§Þ¥©

·Qª¾¹D ¦pªG¥Î¤½¦¡¡A¦p¦ó¼g?
              ¦pªG¥Îvba»yªk¡A¡A¦p¦ó¼g?

¦A³Â·Ð¦U¦ì¤j¤j¤©¥H¨ó§U»P«ü±Ð

·PÁÂ

§R°£½Æ¿ï§@µª.rar (7.69 KB)

¦^´_ 1# jj369963
¤@¯ë°Ïµo°Ý¡A¥Î°ò¥»¾Þ§@ªk¸Ñ¨M

play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    Dearª©¤j¡G

    ÁÂÁ±z¡A¤S¾Ç¨ì«Ü¯«©_ªº¤@©Û¤F

   µo©«®É¨Ï¬O¦³·Q¨ì¥Î¨ú¥N¡A¦ý¬O¤£ª¾¹D­ì¨Ó¬O¥Î*¸U¥Î¦r¤¸(±z¤§«e¦³±Ð¹L§Úªº»¡)

   ¦A¦¸ÁÂÁ±zªº¦^ÂÐ

²³æªº¤èªk¤]¬O©_§®ªº¤jµo²{©O

TOP

¦^´_ 2# Hsieh

ª©¥D¤j±z¦n

¬Ý¤F±zªº¥Ü½d¨ü¯q¨}¦h

¨Ï¥Î *,* ¤è¦¡¡A¨ú¥N¶ñº¡¶À¦â¤º¦³,ªº®æ¤l

·Q½Ð±Ð¤@­Ó°ÝÃD

¨ú¥NªºÀ³¥Î

¥i§_±N¶ñº¡¶À¦â®æ¤l¤ºªº¤å¦rÂন¼Æ­È

ÁÙ¬O¤@©w­n¥ÎVBµ{¦¡¸Ñ¨M

ÁÂÁ±z

TOP

¦^´_ 4# HCG10G8bear

§Aªº°ÝÃD©Î³\¬O­n¥H®æ¦¡·j´M¡A»P¼Ó¥D°ÝÃDÀ³¸Ó¤£¦P¡A«Øij±NÀÉ®×À£ÁY¤W¶Ç
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# HCG10G8bear

¦pªG®æ¬O¶À¦â,®æªº¼Æ­È¬O1
  1. Sub Macro1()
  2. With ActiveSheet
  3. If Selection.Interior.ColorIndex = 6 Then
  4. Selection.Value = 1
  5. End If
  6. End With
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# genes
  1. Sub Ex()
  2.     With ActiveSheet
  3.         Application.FindFormat.Interior.ColorIndex = 6
  4.       '  Application.ReplaceFormat.Interior.ColorIndex = 3
  5.         .Cells.Replace What:="*", Replacement:="1", LookAt:=xlWhole, SearchFormat:=True', ReplaceFormat:=True
  6.     End With
  7. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

³æ¿ï¬°¼Æ¦r¡A½Æ¿ï¬°¤å¦r®É¡A²M°£¤å¦rVBA
  1. Sub ex()
  2.     '²M°£¤å¦r
  3.     Range("B2:I26").SpecialCells(xlCellTypeConstants, 2).ClearContents
  4. End Sub
½Æ»s¥N½X
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦pªG¬O°ò¥»¾Þ§@¤è¦¡

¿ï¾Ü B2:I26
CTRL+G - ¿ï ¯S®í - ¿ï ±`¼Æ - ¤Ä¿ï ¤å¦r(¨ä¥L¤Ä¿ï¨ú®ø) - ½T©w (´N¥i±N¤å¦rÀx¦s®æ¿ï¨ú)
«ö¥kÁä - ²M°£¤º®e
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD