在线观看亚洲精品专区-在线观看亚洲免费-在线观看亚洲免费视频-在线观看亚洲欧美-欧美freexxx-欧美free嫩交video

VIP標識 上網做生意,首選VIP會員| 設為首頁| 加入桌面| | 手機版| RSS訂閱
食品伙伴網服務號
 

Excel:妙用自定義函數讓班級名稱自動化

放大字體  縮小字體 發布日期:2006-06-17

大家知道,我們在編輯Excel工作表時,除了可以用其內置的函數處理表中的數據外,還可以根據自己的實際需要,自定義函數來處理表中的數據。

  如圖1所示是一個學生基本情況登記表,學號的編制原則是:前4位是年份,第5位是初、高中代碼(1是初中,2是高中),第6位是年級代碼(1分別代表初、高一等),第7、8位是班級代碼,后面是序號。下面,我們以一個具體的實例,自定義一個函數,根據學號來自動填寫班級名稱(即圖中的D列內容)。

  1.啟動Excel 2003(其它版本請仿照操作),打開相應的工作表。

  2.執行“工具→宏→Visual Basic編輯器”命令(或者直接按“Alt+F11”組合鍵),進入Visual Basic編輯狀態(如圖1)。


圖1編輯器

  3.執行“插入→模塊”命令,插入一個新模塊。再雙擊插入的模塊,進入模塊代碼編輯狀態。

  4.將下列代碼輸入其中:

  Function bj(xh)

  Select Case Mid(xh, 5, 1)

  Case 1

  bj = '初' && Mid(xh, 6, 3) && '班'

  Case 2

  bj = '高' && Mid(xh, 6, 3) && '班'

  End Select

  End Function

  [友情提醒]

  ①上述代碼中,“bj”是函數命令,“xh”是變量名稱,二者均可以隨意修改。

  ②自定義函數結構是(如果有多個變量,請用英文狀態下的逗號分隔):

  Function函數名稱(變量名稱)

  代碼

  End Function

  ③使用下面的代碼,可以達到同樣的效果:

  Function bj(xh)

  If Mid(xh, 5, 1) = 1 Then

  bj = '初' && Mid(xh, 6, 3) && '班'

  Else

  bj = '高' && Mid(xh, 6, 3) && '班'

  End If

  End Function

  5.代碼輸入完成后,關閉Visual Basic編輯窗口,返回Excel編輯狀態。

  6.選中D2單元格,輸入公式:=BJ(A2),再用“填充柄”將上述公式復制到D列下面的單元格區域中,班級名稱即可自動填入相應的單元格中(參見圖2)。


圖2學生登記表


 
[ 網刊訂閱 ]  [ 食品專題搜索 ]  [ ]  [ 告訴好友 ]  [ 打印本文 ]  [ 關閉窗口 ] [ 返回頂部 ]

 

 
推薦圖文
推薦食品專題
點擊排行
 
 
Processed in 0.018 second(s), 18 queries, Memory 0.88 M
主站蜘蛛池模板: 亚洲午夜视频 | 日韩一级在线观看 | 最好看免费中文字幕2018视频 | 久久精品亚洲一区二区三区浴池 | 精品国产自在现线看久久 | 毛片黄色| 国产精品理论片在线观看 | 成 人 黄 色视频免费播放 | 一级在线免费视频 | 免费一级在线观看 | 狠狠色伊人亚洲综合第8页 狠狠色依依成人婷婷九月 狠狠色影院 | 1024国产基地永久免费 | 国产福利乳摇在线播放 | 亚洲综合色在线 | 四虎精品永久在线 | 成人黄网大全在线观看 | 久久精品国产大片免费观看 | 欧美爽爽 | 日本人69xxxxxxxx69 | 欧美日韩免费大片 | 性欧美f| 亚洲qingse中文字幕久久 | 午夜欧美福利 | 拍拍拍无挡视频免费全程1000 | 午夜神马影院 | 国产精品免费看久久久久 | 91久久澡人人爽人人添 | 韩国三级久久精品 | 黄色成人免费观看 | 狠狠色噜噜狠狠狠狠97不卡 | 国产精品综合色区在线观看 | 亚洲字幕久久 | 国产一区二区三区 韩国女主播 | 在线永久免费观看黄网站 | 国产精品伦子一区二区三区 | 久久手机视频 | 高清一区二区在线观看 | 成人伊人青草久久综合网 | 国产亚洲精品在天天在线麻豆 | 精品成人网 | 在线免费公开视频 |