excel控件控制内容的显示与隐藏 excel2007中的复选框控件,如何控制一个区域的隐藏与显...
excel\u63a7\u4ef6\u63a7\u5236\u5185\u5bb9\u7684\u663e\u793a\u4e0e\u9690\u85cf\u5982\u679c\u8bf4\u4f60\u5bf9\u4ee3\u7801\u61c2\u70b9\u7684\u8bdd\uff0c\u90a3\u4e48\u5c31\u5f88\u7b80\u5355\u4e86
Sub Hidden()
'\u9690\u85cf\u884c\u548c\u5217
Rows("11:11").Hidden = True \u2019\u9690\u85cf\u7b2c11\u884c
Columns("A:A").Hidden = True '\u9690\u85cfC\u5217
End Sub
\u5982\u679c\u662f\u9690\u85cf\u5185\u5bb9\u7684\u8bdd\uff0c\u90a3\u4e48\u53ef\u4ee5\u628a\u5185\u5bb9\u7684\u989c\u8272\u586b\u5145\u4e3a\u767d\u8272\u4e86
Sub Color()
Range("A1:F18").Font.ColorIndex = 2
End Sub
\u5c06\u9690\u85cf\u7684\u884c\u7528vlookup\u6216\u8005match\u67e5\u627e\u5230\u7684\u884c\u6570\u52a8\u6001\u4ee3\u66ff
可以考虑用录制宏来实现。绛旓細浣跨敤excel婊氬姩鏉鎺т欢璁剧疆姝ラ暱绛夊弬鏁帮紝閫氳繃鎷栧姩婊氬姩鏉℃垨鐐瑰嚮婊氬姩鎸夐挳绔嬪嵆寮曞彂鍏抽敭鍙傛暟鍙樺寲锛屽甫鍔ㄧ洰鏍囧煎彉鍖栫洿鍒颁綘瑕佺殑缁撴灉銆傜幇浠ヨ绠楁褰㈤潰绉负渚嬭瑙xcel婊氬姩鏉℃帶浠惰缃鏄庢搷浣滄柟娉曞涓嬶細1銆佸紑鍙戝伐鍏-鎻掑叆-琛ㄥ崟鎺т欢涓殑婊氬姩鏉★紙绐椾綋鎺т欢锛夛紝灏嗚婊氬姩鏉$敾鍒板悎閫傜殑浣嶇疆锛堝鏋滆皟鏁存垨绉诲姩锛屽彸鍑诲畠锛岀劧鍚庡乏鍑婚夋嫨...
绛旓細鍙互鑰冭檻鐢ㄥ綍鍒跺畯鏉ュ疄鐜般
绛旓細濡傚浘锛屾暟鎹〃涓槸2010~2013鍥涗釜骞村害锛屾瘡涓勾搴﹂夊叾涓簲涓湀浠界殑鏁版嵁锛屾垜浠兂鍒╃敤婊氬姩鏉鎺у埗鏁版嵁绯诲垪鐨勯夋嫨鑼冨洿锛屽彲浠ラ夋嫨璧峰骞村害锛屼篃鍙互閫夋嫨鏄剧ず鍑犱釜骞村害銆1銆佸厛娣诲姞绐椾綋鎺т欢锛岀獥浣撴帶浠跺湪鍔熻兘鍖哄紑鍙戝伐鍏烽噷锛屼絾Excel2010涓紑鍙戝伐鍏烽粯璁ゆ槸闅愯棌鐘舵侊紝鎴戜滑闇瑕佹壘鍒板畠銆傛墦寮閫夐」锛屽湪鑷畾涔夊姛鑳藉尯鍕鹃夊紑鍙戝伐鍏枫2...
绛旓細灏嗛殣钘忕殑琛岀敤vlookup鎴栬卪atch鏌ユ壘鍒扮殑琛屾暟鍔ㄦ佷唬鏇
绛旓細4.鎺ョ潃,榧犳爣宸﹂敭鍗曞嚮銆愭煡鐪嬩唬鐮併戞寜閽 5鐒跺悗锛屽湪浠g爜绐楀彛涓緭鍏BA璇彞锛屾瘮濡傝緭鍏ュ畾涔夊彉閲忚鍙ワ紝骞堕夋嫨瀛楃涓茬被鍨 6鎺ョ潃锛屽湪浠g爜绐楀彛涓緭鍏ヨ鍙栧崟鍏冩牸鐨刅BA璇彞 7鏈鍚庯紝鍦ㄨ璁$獥鍙d笂锛岄紶鏍囧乏閿崟鍑绘寜閽紝鍙互鐪嬪埌琛ㄦ牸涓殑锛岄氳繃VBA绋嬪簭璇诲彇鏁版嵁锛屽苟杈撳嚭鍒板彸杈圭殑鍗曞厓鏍间腑锛鏄剧ず鍑烘暟鎹簡锛岄氳繃杩欐牱鐨勬搷浣滐紝...
绛旓細Private Sub Command1_Click()Dim xlsApp As Object, xlsWb As Object, xlsWorksheet As ObjectSet xlsApp = CreateObject(\"excel.application\") '鍒涘缓excel.application瀵硅薄xlsApp.Visible = True '鏄剧ずexcel 涓荤晫闈lsApp.Visible = False '闅愯棌excel 涓荤晫闈lsApp.workbooks.Open (\"D:\\1\\...
绛旓細5. 鍗曞嚮鈥滅‘瀹氣濇寜閽悗锛Excel 灏嗚嚜鍔ㄥ湪鎵閫夊崟鍏冩牸涓彃鍏ヤ竴涓暟鍊艰皟鑺傛帶浠讹紝骞跺皢寰皟鎺т欢涓鍗曞厓鏍煎叧鑱斻6. 鐒跺悗鍙互閫氳繃寰皟鎺т欢鏉ヨ皟鏁村崟鍏冩牸涓殑鏁板硷紝鑰屼笖姣忔璋冩暣鍚庯紝鎵鍏宠仈鐨勫崟鍏冩牸涓殑鏁板间篃浼氳嚜鍔ㄦ洿鏂帮紝淇濇寔鍚屾銆傞渶瑕佹敞鎰忕殑鏄紝濡傛灉鍗曞厓鏍间腑鏈夊叕寮忕殑璇濓紝鍦ㄥ井璋冩涓緭鍏ョ殑鍊煎彧鏄鏄剧ず鍊硷紝涓嶄細鏇存敼...
绛旓細3銆佹鏃朵細寮瑰嚭鈥滆缃帶浠舵牸寮忊濆璇濇銆4銆佸鏋滆淇敼鎺т欢鐨勯鑹蹭笌绾挎潯灞炴э紝鍙互閫夋嫨鈥滆缃帶浠舵牸寮忊濆璇濇涓殑鈥滈鑹蹭笌绾挎潯鈥濋夐」鍗★紝鍦ㄢ滃~鍏呪滃拰鈥濈嚎鏉♀滀腑淇敼鎺т欢鐨勯鑹叉牸寮忋5銆佸鏋滆淇敼鎺т欢鐨勫ぇ灏忥紝鍒欓夋嫨鈥濆ぇ灏忊滈夐」鍗°傝繖閲屽彲浠ヤ慨鏀规帶浠剁殑楂樺害鍜屽搴︺6銆佸鏋滆淇敼鎺т欢鐨勬樉绀鍚嶏紝鍒欏湪鎺т欢...
绛旓細涓涓笉鐢ㄥ畯鐨勫姙娉曟槸锛氬湪鐩綍涓仛濂借秴閾炬帴锛岄摼鎺ュ埌浣犻渶瑕佺殑宸ヤ綔琛紝鍐嶅湪鐩爣宸ヤ綔琛ㄤ腑鍋氫竴涓秴閾炬帴锛岄摼鎺ュ洖鐩綍銆傞摼鎺ラ兘鍋氬ソ鍚庯紝鐐硅彍鍗曪細宸ュ叿鈥斺旈夐」锛屽湪寮瑰嚭鐨勭獥鍙d腑鐨勩愯鍥俱戞爣绛鹃噷锛屾妸銆愬伐浣滆〃鏍囩銆戠殑鍕惧幓鎺夛紝鐐圭‘瀹氾紝灏辩湅涓嶅埌鏍囩浜嗐
绛旓細Sub 闅愯棌鎸囧畾鍒() Columns(Columns.Count).Hidden = False Columns("B").Hidden = True Columns("C").Hidden = True Columns("J").Hidden = True Columns("L").Hidden = TrueEnd SubSub 鏄剧ず闅愯棌() Columns(Columns.Count).Hidden = FalseEnd Sub ...