- ©«¤l
- 6
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2018-12-19
- ³Ì«áµn¿ý
- 2020-6-18
|
·Q°Ý°Ý¦U¦ì¤j¯« ¬ã¨s¤F«Ü¤[¼g¥X¨Ó³£©Ç©Çªº
§Ú¦bA1®æ¨ç¼Æ³]©w=today()¡A©Ò¥H¨C¦¸¶}excel³£·|¸õ¤µ¤Ñ¤é´Á
µM«á±qB1~AN1 ¬°¤@³s¦ê¤é´Á¡A(¨Ò¦p2020/05/01,2020/05/02,.......)
¤µ¤Ñ±ý³]p¤@Ó±±¨î«ö¶s
«ö¤@¤U¥¦·|¦Û°Ê¦bB1~AN1´M§ä¬O¤£¬OA1Äæªº¤é´Á
|³Ì«á·|°±¦b§ä¨ìªº¤é´Á¤W
§Úªº¼gªk¬O³o¼Ë..¤@ª½¥Î¤£¥X¨Ó¡A·PÁ¦U¦ì¤j¤j
Sub ¥¨¶°1()
Dim Rng As Range
Set Rng = Range("B1:AN1").Find("A1", lookat:=xlWhole)
Rng.Address
End Sub |
|