关于Excel列表框控件的问题 Excel 有多选的列表框控件吗
excel\u91cc\u9762ActiveX\u63a7\u4ef6\u4e2d\u7684\u5217\u8868\u6846\uff0c\u521b\u5efa\u4e4b\u540e\u600e\u4e48\u5728\u91cc\u9762\u52a0\u4e1c\u897f\u554a\uff1f\u65b9\u6cd51\uff1a\u5728\u8bbe\u8ba1\u6a21\u5f0f\u8bbe\u7f6eListbox\u63a7\u4ef6\u7684ListFillRang\u5c5e\u6027\uff0c\u5982\uff1aA1:A6
\u65b9\u6cd52\uff1a\u4f7f\u7528\u4ee3\u7801\u5bf9\u540d\u79f0\u4e3aListbox1\u7684\u5217\u8868\u6846\u8fdb\u884c\u64cd\u4f5c\uff1a
ListBox1.Clear '\u6e05\u9664\u5217\u8868
ListBox1.AddItem "ROSE" '\u6dfb\u52a0\u4e00\u884c
ListBox1.RemoveItem 0 \u2018\u79fb\u9664\u7b2c\u4e00\u884c
ListBox1.ListIndex=0 '\u9009\u4e2d\u7b2c\u4e00\u884c\uff0c\u8fd8\u53ef\u7528\u4e8e\u8bfb\u53d6\u5f53\u524d\u9009\u4e2d\u884c
\u6ce8\u610f\uff0c\u5217\u8868\u6846\u5e8f\u53f7\u4ece0\u5f00\u59cb\u3002
\u8981\u505a\u5230\u591a\u9009\u4e5f\u4e0d\u662f\u4e0d\u53ef\u80fd\uff0c\u9996\u5148\u786e\u5b9a\u4f60\u7684\u63a7\u4ef6\u662factive\u63a7\u4ef6\uff0c\u4e0d\u662f\u8868\u5355\u63a7\u4ef6\uff0c\u7136\u540e\u70b9\u51fb\u63a7\u4ef6\uff0c\u201c\u5c5e\u6027\u201d\uff0c\u628a\u6bcf\u4e2a\u63a7\u4ef6\u7684groupname\u8bbe\u7f6e\u4e3a\u4e0d\u4e00\u6837
\u6bd4\u5982\u4e00\u4e2a\u8bbe\u7f6e\u4e3asheet1\uff0c\u4e00\u4e2a\u8bbe\u7f6e\u4e3asheet2\uff0c\u4e00\u4e2a\u8bbe\u7f6e\u4e3asheet3......
你用的是VBA控件工具中的组合框，这个只能显示所选条目的ID号，并且使用这个控件，需要每个单元格都要插入一个这个控件，即不效率，也使得EXCEL文件臃肿，减缓运算速度。
如果要解决，有两个方案可选择：
1、直接使用EXCEL自带的“数据有效性——选项”功能，设置下拉选择条目，这个不用每个单元格都设置，只要一次性选中具有相同选项的单元格区域统一设置即可。
2、使用VBA的ActiveX控件中的ComboBox控件，只需要插入一个控件，然后根据活动单元格（即光标所在单元格或被选中的单元格）状态，在Worksheet_Change事件中加入相应代码，使控件跟随光标移动，并自动判断活动单元格所在列，自动装入相应选项，这样选出来的也是选项内容而不是Id号。
上述两个方案，优选第二个方案，既简化了设置，又大大精简了EXCEL文件大小（只有一个控件+一段代码而已）。
第二个问题
在保存前，首先要做的是对填写的数据进行校验（即所填数据是否符合相应规则，如果不符合，提示修改并不保存），全部数据校验通过，才将数据保存到相应表中，并清空所填全部信息。
通过后，保存前，先计算数据库（即图二）必填项目的最后一行的位置，这个很简单。比如A列内容是必填的，则表明A列是不可少的，它所占的行数就是整个表的最大行数，所以用：
nRow=[A65536].End(xlUp).Row即可算出A列的最后一行有数据的行号，然后用：
Cells(nRow+1,1)=********格式依次将填写的数据保存到图二表最后一行的下一行。
由于看不到原始文件，仅凭图，无法给出具体代码，所以，只能用文字描述编写代码的思路，只要认真理会，代码应该没有问题，况且这两个问题所涉及的代码都不复杂，每段最多不会超过20行。
我地心耶，这个有点浪费时间。应该没有人愿意从头给你做的，呵。。
要不你把原文件发给我，我空的时候帮你做一下好了。
绛旓細鍦‥xcel涓紝鎮ㄥ彲浠ユ寜鐓т互涓嬫楠ゆ坊鍔犲垪琛ㄦ鎺т欢锛1. 鍗曞嚮鈥滃紑鍙戝伐鍏封>鈥滄彃鍏モ濄2. 鍦ㄢ滆〃鍗曟帶浠垛濅笅鏂癸紝鍗曞嚮鈥滃垪琛ㄦ锛堣〃鍗曟帶浠讹級鈥銆3. 鍗曞嚮瑕佸湪鍏朵腑鍒涘缓鍒楄〃妗嗙殑鍗曞厓鏍笺4. 鍗曞嚮鈥滃睘鎬р>鈥滄帶浠垛濓紝鐒跺悗璁剧疆鎵闇鐨勫睘鎬э細 - 鍦ㄢ滆緭鍏ュ尯鍩熲濇涓紝杈撳叆鍖呭惈鍊煎垪琛ㄧ殑鍗曞厓鏍煎尯鍩熴 - 鍦ㄢ滃崟...
绛旓細绗竴涓棶棰 浣犵敤鐨勬槸VBA鎺т欢宸ュ叿涓殑缁勫悎妗嗭紝杩欎釜鍙兘鏄剧ず鎵閫夋潯鐩殑ID鍙凤紝骞朵笖浣跨敤杩欎釜鎺т欢锛岄渶瑕佹瘡涓崟鍏冩牸閮借鎻掑叆涓涓繖涓帶浠讹紝鍗充笉鏁堢巼锛屼篃浣垮緱EXCEL鏂囦欢鑷冭偪锛屽噺缂撹繍绠楅熷害銆傚鏋滆瑙ｅ喅锛屾湁涓や釜鏂规鍙夋嫨锛1銆佺洿鎺ヤ娇鐢‥XCEL鑷甫鐨勨滄暟鎹湁鏁堟р斺旈夐」鈥濆姛鑳斤紝璁剧疆涓嬫媺閫夋嫨鏉＄洰锛岃繖涓笉鐢ㄦ瘡涓崟鍏...
绛旓細鍦Excel涓锛屼綘鍙互浣跨敤鎺т欢(濡備笅鎷鍒楄〃妗鎴栧閫夋)鏉ユ帶鍒舵樉绀轰竴鍒楁暟鎹傞鍏堬紝閫夋嫨浣犳兂瑕佹帶鍒剁殑鍗曞厓鏍艰寖鍥淬傜劧鍚庯紝鐐瑰嚮鈥滃紑鍙戝伐鍏封濋夐」鍗★紝閫夋嫨鈥滄彃鍏モ濅笅鐨勨滄帶浠垛濈粍锛岄夋嫨浣犳兂瑕佺殑鎺т欢绫诲瀷銆傛帴涓嬫潵锛屽彸閿偣鍑绘帶浠讹紝閫夋嫨鈥滆缃帶浠舵牸寮忊濇垨鈥滄暟鎹獙璇佲濋夐」銆傚湪寮瑰嚭鐨勫璇濇涓紝璁剧疆鏁版嵁婧愯寖鍥存垨鏉′欢锛...
绛旓細6銆佹鏃剁殑銆愭帶浠躲戣繕澶勪簬銆愯璁℃ā寮忋戯紝杩樹笉鑳戒娇鐢銆傛墍浠ワ紝鎴戜滑闇瑕佸崟鍑诲伐鍏锋爮涓殑銆愯璁℃ā寮忋戯紝鍙栨秷瀹冪殑閫変腑鐘舵;杩欐牱涓鏉ワ紝鏃ュ巻鎺т欢灏卞彲浠ヤ娇鐢ㄤ簡銆傚彲浠ヤ娇鐢‥xcel鎺т欢鏉ラ夋嫨鍜屾樉绀烘暟鎹紝渚嬪锛1. 澶嶉夋锛氱敤浜庨夋嫨鍜屽彇娑堥夋嫨澶氫釜閫夐」銆2. 閫夐」鎸夐挳锛氬湪涓缁勯夐」涓彧鑳介夋嫨涓涓夐」銆3. 鍒楄〃妗嗭細鐢ㄤ簬...
绛旓細瑕佸湪 Excel 2007 涓繍鐢ㄧ獥浣鎺т欢,蹇呴』鍚敤鈥滃紑鍙戝伐鍏封濋夐」鍗° 涓烘,璇锋寜鐓т笅鍒楄繃绋嬫搷浣:鍗曞嚮鈥淢icrosoft Office 鎸夐挳鈥,鐒跺悗鍗曞嚮鈥淓xcel 閫夐」鈥濄 鍗曞嚮鈥滃父鐢ㄢ,閫変腑鈥滃湪鍔熻兘鍖烘樉鐜扳樺紑鍙戝伐鍏封欓夐」鍗♀濆閫夋,鐒跺悗鍗曞嚮鈥滅‘璁も濄傝缃鍒楄〃銆佸崟鍏冩牸閾炬帴鍜岀储寮曞湪鏂颁綔涓氳〃涓殑 H1:H20 鍖哄煙涓敭鍏ヤ笅鍒楅」鐩:H1 : ...
绛旓細榧犳爣宸﹂敭閫夋嫨涓涓愭寜閽〃鍗曟帶浠躲戯紝鍦excel琛ㄦ牸涓粯鍒跺嚭璇ユ帶浠讹紝鍙嫋鍔ㄦ帶浠跺洓鍛ㄨ妭鐐规帶鍒跺ぇ灏忥紝涔熷彲绉诲姩浣嶇疆锛屽涓嬪浘鎵绀恒傞紶鏍囧乏閿夋嫨涓涓愪笅鎷夋琛ㄥ崟鎺т欢銆戯紝鍦╡xcel琛ㄦ牸涓粯鍒跺嚭璇ユ帶浠讹紝鍙嫋鍔ㄦ帶浠跺洓鍛ㄨ妭鐐规帶鍒跺ぇ灏忥紝涔熷彲绉诲姩浣嶇疆锛屽涓嬪浘鎵绀恒傞紶鏍囧乏閿夋嫨涓涓鍒楄〃妗嗘帶浠銆戯紝鍦╡xcel琛ㄦ牸涓粯鍒跺嚭...
绛旓細Selected 灞炴э細杩斿洖鎴栬缃鍒楄〃妗涓潯鐩殑閫夊畾鐘舵併傝娉 object.Selected(index) [= Boolean]Selected 灞炴х殑璇硶鍖呮嫭涓嬪垪鎴愬垎锛氭垚鍒嗚鏄 object 蹇呴渶銆備竴涓湁鏁堝璞°俰ndex 蹇呴渶銆傛暣鏁帮紝鍙栧艰寖鍥存槸 0 鍒板垪琛ㄤ腑鐨勬潯鐩暟鍑 1 涔嬮棿鐨勬暟鍊笺侭oolean 鍙夈傚垽鏂竴涓潯鐩槸鍚﹁閫変腑銆傝缃 Boolean 鐨...
绛旓細鍦ㄢ滄湁鏁堟ф潯浠垛濈殑鈥滃厑璁糕濅笅鎷夋涓夆滃簭鍒椻濈劧鍚庡湪涓嬮潰鐨勨滄潵婧愨濅腑杈撳叆:1,2,3鐒跺悗鐐圭‘瀹,灏卞嚭鏉ヤ笅鎷鍒楄〃妗浜,鍙兘閫1 2 3 褰撶劧涔熷彲浠ラ夊彇EXCEL琛涓凡缁忓瓨鍦ㄧ殑搴忓垪銆傛湁闂鍙互hi鎴,甯屾湜鑳藉府鍒颁綘銆 鏈洖绛旇鎻愰棶鑰呴噰绾 宸茶禐杩 宸茶俯杩< 浣犲杩欎釜鍥炵瓟鐨勮瘎浠锋槸? 璇勮 鏀惰捣 Burglarize 2010-06-24 ...
绛旓細浣犳彃鍏ョ殑鏄簲璇ユ槸ActiveX绫鎺т欢銆傝繖绫绘帶浠跺彲閰嶅悎鍏朵簨浠朵唬鐮佷娇鐢紝鍔熻兘鏇村己澶с備綘璇寸殑鍗曞厓鏍奸摼鎺ョ瓑锛屽彲鍦ㄥ叾灞炴т腑璁剧疆銆
绛旓細榧犳爣鍙抽敭鐐瑰嚮宸ュ叿鏍忥紝閫夋嫨寮瑰嚭鑿滃崟鐨勮嚜瀹氫箟鍔熻兘鍖猴紝鍦excel閫夐」瀵硅瘽妗嗗彸渚т富閫夐」鍗鍒楄〃涓殑鈥滃紑鍙戝伐鍏封濆嬀閫変笂锛岀劧鍚庡叧闂璭xcel閫夐」瀵硅瘽妗嗭紝鐐瑰嚮鑿滃崟鏍忕殑寮鍙戝伐鍏凤紝鐐瑰嚮鎻掑叆锛岄夋嫨浣犺鎻掑叆鐨勮〃鍗鎺т欢灏辫兘澶熶簡銆
