當前位置:成語大全網 - 書法字典 - Excel2010求大神VBA設置拼音首字母選擇

Excel2010求大神VBA設置拼音首字母選擇

私人?Sub?工作表_更改(ByVal?目標?作為?範圍)

下面是單元格回車事件響應代碼。

申請。啟用事件?=?假的?關閉事件響應。

如果?目標。專欄?=?1?然後呢?如果更改發生在指定的列中,它將被執行。這裏是1列,可以修改成妳想要的。

h?=?ActiveCell。整排。第幾排?回車後,當前單元格的行號

l?=?ActiveCell。整個列。列?當前單元格列號,這句話可以省略,所有的L都換成1。

如果?細胞(H?-?1,?l)?=?“zg”?然後

細胞(H?-?1,?l)?=?“中國”

埃爾瑟夫?細胞(H?-?1,?l)?=?《bj》?然後

細胞(H?-?1,?l)?=?“北京”

也可以在這裏重復添加上面兩句話,只改變雙引號裏的替換規則?

結束?如果

結束?如果

申請。啟用事件?=?真的嗎?打開事件響應

結束?子右鍵單擊要替換的工作表名稱,選擇查看代碼,在彈出的編輯框中輸入上述代碼。