這是解決學生要自動加總的VBA程式
Sub 自動加總()
Dim r1, r2, c1, c2, s
s = 0
Dim r1, r2, c1, c2, s
s = 0
r1 = ActiveCell.Row
c1 = ActiveCell.Column
While (ActiveCell(r1, c1).Value <> Empty)
c1 = ActiveCell.Column
While (ActiveCell(r1, c1).Value <> Empty)
While (ActiveCell(r1, c1).Value <> Empty)
s = s + ActiveCell(r1, c1).Value
r1 = r1 + 1
Wend
ActiveCell(r1, c1).Value = s
r1 = ActiveCell.Row
c1 = c1 + 1
s = 0
Wend
r1 = ActiveCell.Row
c1 = ActiveCell.Column
While (ActiveCell(r1, c1).Value <> Empty)
While (ActiveCell(r1, c1).Value <> Empty)
s = s + ActiveCell(r1, c1).Value
c1 = c1 + 1
Wend
ActiveCell(r1, c1).Value = s
c1 = ActiveCell.Row
r1 = r1 + 1
s = 0
Wend
End Sub
2 评论:
熊貓情色,美女遊戲區,成人dvd,qq聊天室,aaa片免費看,手槍美女賞圖,家庭教師影片,洪爺情色,麗的色情遊戲,爽翻天成人情趣,qq聊天室,影音日誌,情色典獄長,520聊天室,080 中部人聊天室,成人文章,a片短片,成人貼圖區,免費av,杜蕾斯免費a片,柔情聊天網,豆豆聊天室,性感影片,台灣kiss情色,台灣自拍,都都成人站,小魔女自拍天堂,
aaaa片,男男貼圖區,交友私樂園,麗的線上小遊戲,卡通a片,免費情色小說,性感影片,情色聊天室,成人貼圖區,免費av,xxx383美女寫真,正妹強力版,無碼女優,女同聊天室,性愛聊天室,飯島愛,美眉,臺灣情色網,100one百萬成人貼電影,正妹強力牆,bobo寫真女郎影片,av女優,383成人,情人視訊,
3d美女圖,小莉影音像館,情色武俠小說,色美眉部落格,台灣無限貼圖區,完美女人影音網,辣美眉173show影片,自拍a片,kiss情色,熊貓貼圖區列表,自拍貼圖,s383情色大網咖,85cc免費影城,a片圖片,寫真女郎攝影網,豆豆聊天,嘟嘟貼圖,美女自拍,自拍a片,hcg 貼圖區,卡通成人網,聊天室avooo,自拍偷拍,情色文學小說,
情色交友,ut男同志聊天室,成人電影,正妹星球,無碼光碟,做愛自拍,爽翻天成人用品,歐美模特兒寫真,999成人性站,免費遊戲,成人動畫,aaaaa片俱樂部,免費線上成人影片,丁字褲美女寫真,老婆自拍,漂亮寶貝,聊天室,情色小遊戲,080 中部人聊天室,裸體寫真,線上看a片,18禁地少女遊戲,後宮情色網,日本女優,月宮貼圖區,
歐美a免費線上看,熊貓貼圖區,ec成人,聊天室080,aaa片免費看短片,dodo豆豆聊天室,一對一電話視訊聊天,自拍圖片集,走光露點,123456免費電影,本土自拍,美女裸體寫真,影片轉檔程式,成人視訊聊天,貼圖俱樂部,辣妹自拍影片,自拍電影免費下載,電話辣妹視訊,情色自拍貼圖,
卡通做愛影片下載,日本辣妹自拍全裸,美女裸體模特兒,showlive影音聊天網,日本美女寫真,色情網,台灣自拍貼圖,情色貼圖貼片,百分百成人圖片 ,情色網站,a片網站,ukiss聊天室,卡通成人網,3級女星寫真,080 苗栗人聊天室,成人情色小說,免費成人片觀賞,
傑克論壇,維納斯成人用品,免費漫畫,內衣廣告美女,免費成人影城,a漫,國中女孩寫真自拍照片,ut男同志聊天室,女優,網友自拍,aa片免費看影片,玩美女人短片試看片,草莓論壇,kiss911貼圖片區,免費電影,免費成人,歐美 性感 美女 桌布,視訊交友高雄網,工藤靜香寫真集,金瓶梅免費影片,成人圖片 ,女明星裸體寫真,台灣處女貼圖貼片區,
成人小遊戲,布蘭妮貼圖片區,美女視訊聊天,免費情色卡通短片,免費av18禁影片,小高聊天室,小老鼠論壇,免費a長片線上看,真愛love777聊天室,聊天ukiss,情色自拍貼圖,寵物女孩自拍網,免費a片下載,日本情色寫真,美女內衣秀,色情網,
发表评论