llp0420 发表于 2021-1-7 10:28:59

lisp如何控制 excel控件CheckBox1打钩

data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAATsAAABYCAYAAACKy1CHAAANXklEQVR4Ae2dS2vVUBDHs9NufPQTuBCKG1ddyF1JP4FufFK0m0uxqCCKfgBLUVAvupRiceFGUSzSvYovKCiCoO1SW1eKVdRaWkfmeJN7kvvIJM3kJOn/QriPnJ6T/Cbz7yTnMR7hFUvA87xWmZk68Xez1Wdopt787HlUnyGiyH6ab1DNlK9RY75VTd6f7t+/T2NjYzQ+Pk4TExOx2+TkJC0sLNDq6mouh9qVca1BM41awJwZz1vfa435tu+5HHDCRu7evUunT5+O5c62uXTpEs3NzdGfP38StlL+4p73hvxtamqKstwsLy4/KK0zsB0x6mi22LHjRcUu2G+UUOsI4+tlsTt37hx9//69Z2Hez9vy8nIxxM6rUb1eDbFjIZO8/v79S4uLixA7iJ3kcsm2TGqxq9UKEdUxDanYnTlzhk6ePFkgsWtFzmyHTpFdttbWqY0jO4hdPFs/quP3LKM6rguRXTx/cwvlF0sU2fm3u7UGObyDNYcuEbtjx47Rtm3baHR0tERiN0ONWksQTXTtG6tA7xA7mTEgdjJOaqVSR3a+2PnP89SOML5iW+z4dvbBgwfBHy0tLdGBAweov7/fCHuRxK5Wrzej4/+C1h7ZQewCQ1bgA8TOsRFTi129TnVf8Ar0zG5oaIj27NlDt2/fpg8fPtDRo0epr6/PCN2RI0fo2bNnhYnsao2wmLWLXXk6KHAbG+/IELt4Rqol0oud3VvrvjfW76BgseNzGhwcpJGREfOZvw8PD9PLly8Ny6J0ULC4BZ08HZ7ZefWZ0vTGQuzi3RRiF89ItYQtdl17W/1b1a5DTzxy+TzJvo29fPky7dq1KxC5TZs20aFDh+jdu3cBxyKJnf2c1ATIwXCe1rM6thFvLhkH8Dp8wDO7DlA6/ASx6wAlz59CYkczrVtT/xbVvNeJh9lFxZBo3nqA3iyT58E327LFjn+6ceMGDQwMmA6Jffv20ZcvX0JHVQyxa0bDlrgFTwOs3zyvTo3m2DuIXciMpfsCsXNssrDY8cFEBc8SsWhkZ4q3BiIHzprzOUXFjpu/c+cOHT58uOOROBW7jkdU7h8R2cnsB7GTcVIr1S52ak2pVcy9rxcuXDADhnnQatwGscvWFPfu3TMzI+K48/61tTUMKsY4u2wvQGltVRC7J0+emJ7XT58+GUfiEfq9Np4q5my6mNQwJSrHPdw8BawXc3vfx48fMYMCMyjyv8KrIHY/fvwwzsPzLZNsHGnk8aoC416c0vDPi32v4857H25j8yYeaa/qjhg5XSdfwdgJ9sI1CrFzbBI4or4BwFifcRlaUBU7vsiwVZvB3r17KYtt8+bNuFZS+AvYJ/EvLPHk9J8Sog59/GCsz7gMLahGdmUA4PoY4Yj6FgBjfcZlaAFi59hKcER9A4CxPuMytACxc2wlOKK+AcBYn3EZWoDYObYSHFHfACHGwZQ76dxYfgBuTdnTP1y0oEQAYqcEVlptyBHNHyWcG2tNWnc1N1Z6rq7KhRgHYtdcxcT63nvVEwieK/tl1S7ELiuSKesJOWLbIgB+t3rT0SzH5LXW+BWsx+ZQ6XidOp6MLt2mp6dpdnaWVlZWUlJL9mchxlGG1neD0PrOjAO+/jJbyZrOpfSLFy/E7NlGz58/J551sdFeEDvHFu/liG2OFnFEpFKUGa8rY6RSlAGsSCmInWND2o5oLyTJa6fZYmfWUouIXbDfYVTH+Dot8dQJK1IpdqKy/t+wxJOMIcROxkmtVGqxQypFsU1sxqEFUCMzFvh/RvQfjrgRhwUhdjL4EDsZJ7VStiNGHS2I3Pwlwe3IzndUpFKMtY3NOJnYhRPyYKXiWNSFLgCxc2we2xFTiV0BHpzbt7FIpZj/BYXITsYcYifjpFYqtdghlaLYJjZjO7JDKkUxwkoUhNg5NqPtiIkiu9CwCKRS7GVGm7EtdvyMzn5UEH1mh1SKvaiWbx/EzrHNujlixzFe9jO7/54ZZLR3+TzJvo1FKsX8LyjcxsqYQ+xknNRKhcQu8aBipFKUGCbEOPiHIZ0uhlSKEsZlKAOxc2ylkCOaY0k4XSxwXo842HPxsiM7v32kUvRJ6L8jspMxhtjJOKmVahc7tabUKkYqRTW0ooqRSlGEiSB2Mk5qpaogdkilqHZ5iCpGKkURJoidDJNeqSqIXZpUfpxyMa90flVg3OsKTMM/L/a9jjvvfYjs8iYeaa/qjhg5XSdfwdgJ9sI1CrFzbBI4or4BwFifcRlaUBU7vsiwVZtBFqn8uA6kUkx3nWTBf+OwRypFp/+UEHXo4wdjfcZlaEE1sisDANfHCEfUtwAY6zMuQwsQO8dWgiPqGwCM9RmXoQWInWMrwRH1DQDG+ozL0ALEzrGV4Ij6BggxDqbXSefGcscBMovpW0m/BYidPuOeLYQc0ZRMODcWqRR78uWdIcaB2CGVYiy4ihWA2Dk2aMgRE696Yq3H5moVACJCKkW3FxFSKcr4Q+xknNRKhcTOijqSrWfnfvHOsbExGh8fp4mJidhtcnKSFhYWaHV1VY2rXXFXxkilaGOq/GeInWMT246YeqVih1Ed4+u0xFMnrEil2InK+n/DEk8yhhA7GSe1UqnFDqkUxTaxGdvLsvPv9vZ/8eda8JvL1Z/FJ0dEEDsZLYidjJNaKdsRE0V2vqMilWKsbWzGycQOqRRj4ZaoAMTOsbFsR0wldkilGGtBm7EtdrV6PcjhwWXaIzuIXSzcEhWA2Dk2lu2IicQOqRTFlrMZh8SuERazdrGbp6hNxI3mWBC3sTLYEDsZJ7VStiNGHctO82eeH3XtrXXfG8vJsbkDYmhoyDzzGhwcpJGRkeD51/DwsBmiwiCXl5cL0RvL4mYzjoodUimqXfZOKobYOcHeatQWOzvqSDb0pDlAtlVtrp/s3likUswVvWkMkZ2MOcROxkmtVEjsEg8qRipFiWFCjIPoWDpdDKkUJYzLUAZi59hKIUc0x5JwuljgvEil2M2U7Yy7lSzn74jsZHaD2Mk4qZWqgiMilaLa5SGqGKkURZiQXUyGSa9UFcQOqRT1rg9JzUilKKHEC0JgWXYZKaVSVRC7NKn8kEoxuwsqDX+kUpyiqansNi87c1a3piqIXdGtA8ZFt1A+x4fILh/OXVuBI3ZFk9kOMM4MZakrUhU7vsiwVZtBFqn8kEox/TWSBX+kUlz/7SxuYwX/BxF1CCCtswgYrxNgRf5cNbKrCCPV04AjquI1lYOxPuMytACxc2wlOKK+AcBYn3EZWoDYObZSFRyRc1Dw/Fjp9ujRI3r16hWtrKzkQr8KjHuBSsr/6dOnxMNVNtoLYufY4lVwRBa5EydO0NmzZ4lXP4nbrl27VoBVT6RzY7nzoNipFHm6GOcAiePO+8+fP0/v378nHue40V4QO8cWbxe7hHNjC5BKkcWOhW5xcdEs8+Tnmuj2/vXr1wKIXXVSKbLYXbx4UcR+aWnJsIfYrb8H1h6UjN5YgZCGxS4qdP6QhGZkYU365yWg+BWsx9b8Lmgy8yIsdhw1sLj1el2/fp2uXr1amPXsDEOLqUFofe+4zFavE3S0DwsByMAjspNxUisVErs4R4vspyCqK87ind1AsdDt3r2bRkdHiyN2FUqlyCksJS+eJsYROCI7RHaS6yXTMrbYpV6p2GFUxzDsyO7hw4f09u3bgNHv37/p1q1bNDAwYAaYF0rsvBrV661sYowxaoPo9+DECvQBkZ3MGIjsZJzUSqUWu4KmUuRl2U+dOkVzc3P07ds3mp6epv7+fiN0O3fupCtXrhQnsovM8OkkdmqGz7BiiJ0MJsROxkmtVGqx8x21YKkU/RwUx48fN0LH58fb1q1b6ebNm4ZjUXJQ+Mfmv7eLXTghT1HzyELsZO4JsZNxUivFjua/ordMQeeD195z6Dsovzu+iw3dxvpi19fXR9u3bw/mRvMCk79+/TKnWhSxQypF/8rbGO8QO8d2Ti12BU2l+Pr1a9q/f38gclu2bCEWOh5u4r8KI3ZIpeibZEO8Q+wcmzm92M20hp14xeqNffz4MR08eJD4GR3fuv78+TNEuShixxGxHT1Hb2N56Ek02g6dSEG+4DZWZgiInYyTWilb7KqQStEHxUu1c2dEp1eRxM4WM/M4IBjO449xbL3jmV0na5bnN4idY1uFxK6kqRR5rmuj0TC3qixkcRvPy1xYWKDV1dVc6IcYB2MVpdPFip9KkYf7TE5OxnJnu/BQIGaPcXYYZ5eL89mNhBzR7IjOorDmZQaO6pE/g8KOBl11VPCkfnagJNvnz5/diJ0NvyKfZ2dnE7GH2L3JNP8ETxtrdTNW5KLSOI12sdNoRbdOXr2Eo7Qk29ramu5BWbVXgbF1Om0f0/BHwh1Edm0XkvYPVXdEbX6S+sFYQqn6ZfDMzrGN4Yj6BgBjfcZlaAFi59hKcER9A4CxPuMytACxc2wldsQyb1nh27FjR6k5uLJhFvw3Dvs35AuevRZdFp89VxcA2s1PQLNI5YdUiuntlQV/pFJcf2cFemOz+LeLOkAABDIh4Ed1/J5FNGfXAbHLxESoBARAIAsCELssKKIOEACBwhPQFLt/Tw046a2Pr6EAAAAASUVORK5CYII=

kozmosovia 发表于 2021-1-7 10:29:00

继续遍历结合内每一个控件的属性,就应该可以找到对应的控件

llp0420 发表于 2021-1-7 10:30:35

J:\Desktop\棉\2.png

llp0420 发表于 2021-1-7 11:48:48

ActiveSheet.OLEObjects("CheckBox17").Object.Value = 0


VBA代码是这样的
我目前能够做到
(setq ddd (Vlax-Get (Vlax-Get (Vlax-Get excel 'ActiveWorkbook) 'ActiveSheet ) 'OLEObjects)) ;获取OLEObjects 集合
(Vlax-Invoke-Method ddd 'Delete) ;删除所有控件

但是不知道怎么获取指定的控件

llp0420 发表于 2021-1-12 09:54:35

kozmosovia 发表于 2021-1-9 11:17
继续遍历结合内每一个控件的属性,就应该可以找到对应的控件

找不到 它 所以才求助

llp0420 发表于 2021-1-19 17:08:02

自己解决了,谢谢大家
(Vlax-Put-Property (vlax-get-property (Vlax-Invoke-Method OLEObjectslsp'item(strcat CheckBox(itoa CheckBoxnb)) )'Object) 'Value1)
页: [1]
查看完整版本: lisp如何控制 excel控件CheckBox1打钩