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

[µo°Ý] VBA §ó§ï¿ï¤¤Àx¦s®æ¤§¼Æ­È

[µo°Ý] VBA §ó§ï¿ï¤¤Àx¦s®æ¤§¼Æ­È

VBA §ó§ï¿ï¤¤Àx¦s®æ¤§¼Æ­È

ª©¥»¡Gexcel 2003
»Ý¨D¡G±N¿ï¤¤ªºÀx¦s®æ¥[²Ê¤W¦â¡A¨Ã§ó§ï¤º¤å

¥Ø«e¥Îªº¬O³o­Ó¿ý»sªº¡A¦ý¥u¯à¤@¦¸§ï¤@®æ
­ì¥»¥u­n¥[²Ê¤W¦âªº®É­Ô¦h®æ¦P®É³B²z¬O¨S°ÝÃD¡A¦ý¥[¤W­n§ï¤º¤å´N¤£¦æ¤F¡C
(¿ï¤¤ªºÀx¦s®æ¥i¯à¤£³s³e)
2019-11-15 01_47_20-Window.png
  1. Sub ¥[²Ê¤W¦â()
  2. '
  3. ' Macro1 Macro
  4. ' wei9133 ¦b 2019/11/7 ¿ý»sªº¥¨¶°
  5. '
  6. ' §Ö³tÁä: Ctrl+e
  7. '¥[²Ê¤W¦â
  8.     Selection.Font.Bold = True
  9.     Selection.Font.ColorIndex = 3
  10. 'Àò¨ú·í«eÀx¦s®æ¦ì¸m
  11. i = ActiveCell.Row
  12. j = ActiveCell.Column
  13. 'MsgBox i & "/" & j
  14. '±N¿ï¤¤ªºÀx¦s®æ¸ê®Æ§ï¬°W
  15. ActiveSheet.Cells(i, j) = "W"

  16. End Sub
½Æ»s¥N½X
¦³¬d¨ìSelection.Address¥i¥HÅã¥Ü¥Ø«e©Ò¦³¿ï¤¤®æ¤l¦ì¸m
¨Ò¦p¡G
MsgBox "¥Ø«e³Q¿ï¨úÀx¦s®æ" & Selection.Address

¦ý§Ú¤£·|§â¤W­±ªºµ{¦¡¡A§ï¦¨§â¥Ø«e¿ï¤¤Àx¦s®æ¥þ³¡¥[²Ê¤W¦â&§ó§ï¤º¤å
ÁÙ¬O¯à°÷§âSelection.Address±o¨ìªº¦ì¸m¥þ³¡©î¥X¨Ó
¦A¤@­Ó¤@­Ó¥h§ï¹L¨Ó?

With Selection
     .Font.Bold = True
     .Font.ColorIndex = 3
     .Value = "W"
End With
­ã´£³¡ªL µoªí©ó 2019-11-15 09:26



    ½T¹ê¥i¥Î¤F¡A¸U¤À·PÁÂ

TOP

With Selection
     .Font.Bold = True
     .Font.ColorIndex = 3
     .Value = "W"
End With

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD