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

[µo°Ý] vb ©R¦W¦W称

[µo°Ý] vb ©R¦W¦W称

[a1]=myname
[b1]¦³¤½¦¡ =c1+d1
­n¨Dvb写 ©R¦W¤@个¦W称=[a1],¤½¦¡¬O =c1+d1

³Ì终¥Øªº¬O¦³2栏资®Æ,a栏¬Oname ,b栏¬O¤½¦¡,vb执¦æ语¥y¦Z,¥Í¦¨©Ò¥H¦³¦W称(«ö¦W称¥k边ªº¤½¦¡°µ¦W称)
¦Û¤v·d¤£©w,³Â烦«e辈,谢谢¦b¥ý.
lmh

¦^´_ 1# mhl9mhl9
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, e As Range
  4.     Set Rng = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas) '¦³¤½¦¡ªºÀx¦s®æ
  5.     If Not Rng Is Nothing Then
  6.         For Each e In Rng
  7.             Names.Add e.Offset(, -1), e
  8.         Next
  9.     End If
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

thank you GBKEE
¦Û¤v¸Õ¤F¦h¦¸³£¤£¦æ,¥Î§A´£¨Ñªº§Y¨èok
¦ý¦]¬°§Ú­n©R¦W¤½¦¡,©Ò¥H²Ä¤G°Ñ¼Æ"e"§ï¬°"e.formula",³o¼Ë°µ¦³¿ù¶Ü?
lmh

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD