- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
[¤À¨É] ¨Ï¥Î SpecialCells ¤èªkªº°g«ä
¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-11-21 12:01 ½s¿è
¦p«ü©wªº½d³ò¤¤ªºÀx¦s®æ¦³ÁôÂÃ®É ¦¹®É¨Ï¥Î¨ìSpecialCellsªº¤èªk
´N·|IJ°Ê¨ì¤u§@ªíªºWorksheet_SelectionChange
ThisWorkbook ªº Workbook_SheetSelectionChange ¨âµ{§Ç
¨Ï¥Î°Ñ¼Æ xlCellTypeLastCell
¥Ã»·¬O¶Ç¦^ UsedRange ªº½d³ò¤¤³Ì«á¤@Ó Cell, §AµLªk¶Ç¦^ ¦b¤@«ü©w ªº½d³ò¤¤³Ì«á¤@Ó Cell
- Sub Ex()
- With ActiveSheet
- .[A15] = "TEST"
- .[H1] = "TEST"
- MsgBox .[A:A].SpecialCells(xlCellTypeLastCell).Address
- MsgBox .UsedRange.SpecialCells(xlCellTypeLastCell).Address
- .[A15] = ""
- .[A10] = "TEST"
- MsgBox .[A:A].SpecialCells(xlCellTypeLastCell).Address
- MsgBox .UsedRange.SpecialCells(xlCellTypeLastCell).Address
- End With
- End Sub
½Æ»s¥N½X |
|