- ©«¤l
- 58
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 117
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2017-12-2
- ³Ì«áµn¿ý
- 2021-12-16
|
[µo°Ý] VBA §ó§ï¿ï¤¤Àx¦s®æ¤§¼ÆÈ
VBA §ó§ï¿ï¤¤Àx¦s®æ¤§¼ÆÈ
ª©¥»¡Gexcel 2003
»Ý¨D¡G±N¿ï¤¤ªºÀx¦s®æ¥[²Ê¤W¦â¡A¨Ã§ó§ï¤º¤å
¥Ø«e¥Îªº¬O³oÓ¿ý»sªº¡A¦ý¥u¯à¤@¦¸§ï¤@®æ
쥻¥un¥[²Ê¤W¦âªº®ÉÔ¦h®æ¦P®É³B²z¬O¨S°ÝÃD¡A¦ý¥[¤Wn§ï¤º¤å´N¤£¦æ¤F¡C
(¿ï¤¤ªºÀx¦s®æ¥i¯à¤£³s³e)
- Sub ¥[²Ê¤W¦â()
- '
- ' Macro1 Macro
- ' wei9133 ¦b 2019/11/7 ¿ý»sªº¥¨¶°
- '
- ' §Ö³tÁä: Ctrl+e
- '¥[²Ê¤W¦â
- Selection.Font.Bold = True
- Selection.Font.ColorIndex = 3
- 'Àò¨ú·í«eÀx¦s®æ¦ì¸m
- i = ActiveCell.Row
- j = ActiveCell.Column
- 'MsgBox i & "/" & j
- '±N¿ï¤¤ªºÀx¦s®æ¸ê®Æ§ï¬°W
- ActiveSheet.Cells(i, j) = "W"
- 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¨Ó? |
|