您尚未
登入
註冊
忘記密碼
搜尋
贊助
贊助本站
數位公仔
紀念T恤
紀念馬克杯
廣告
刊登廣告
廣告價格
線上申請刊登
用雅幣刊登
免費刊登
目前客戶
簡訊
簡訊說明
購買金幣
發送簡訊
預約簡訊
發送記錄
好友通訊
罐頭簡訊
論命
數位論命舘
免費排盤工具
葫蘆墩 優生造命
葫蘆墩 八字命書
影音論命(葫蘆墩)
影音占卜(葫蘆墩)
購買金幣
星座分析
孔明神數
周公解夢
星僑線上論命
娛樂
影 像 行 腳
數 位 造 型
數 位 畫 廊
心 情 日 記
公 益 彩 券
送生日蛋糕
俄羅斯方塊
四 川 省
猜 數 字
比 大 小
泡 泡 龍
許 願 池
萬 年 曆
經 期 計 算
體 重 測 量
音 樂 點 播
衛 星 地 圖
時間戳字幕
男女聊天室
求助
論壇守則
會員等級
會員權限
語法教學
常見問題
最新活動
打工賺雅幣
首頁
新版首頁(全頁)
傳統首頁(全頁)
新版首頁(選單)
傳統首頁(選單)
MyChat 數位男女
命理風水
15
星僑五術軟體
4
葫蘆墩命理網
5
命理問答
9
四柱八字
1
紫微斗數
1
姓名學
手面相
易經占卜
1
風水研討
1
擇日&三式
1
西洋占星
無視論塔羅牌
10
修行&武術
1
中醫研討
五術哈啦
1
電腦資訊
13
硬體討論
5
超頻 & 開箱
3
數位生活
2
PDA 討論
手機討論區
軟體推薦
2
軟體討論
6
Apple 討論
1
Unix-like
網路&防毒
2
程式設計
網站架設
4
電腦教學資源
生活休閒
14
休閒哈啦
7
感情世界
2
上班一族
5
國考&法律
7
生活醫學
4
運動體育
1
單車討論
1
釣魚討論
6
旅遊討論
4
天文觀星
3
攝影分享
8
圖片分享
4
數位影視
2
笑話集錦
3
興趣嗜好
13
文學散文
7
繪圖藝術
1
布袋戲
3
動漫畫討論
3
美食天地
6
理財專區
心理測驗
1
汽、機車
3
寵物園地
模型&手工藝
4
花卉園藝
魔術方塊
獨輪車專區
電玩遊戲
13
遊戲歡樂包
4
CS討論
8
Steam
3
MineCraft
2
東方Project
英雄聯盟LOL
1
單機遊戲
2
WebGame
3
線上遊戲1
6
線上遊戲2
5
電視遊樂器
1
掌上型遊戲
2
模擬器遊戲
1
工商服務
6
虛擬城市
7
好康分享
新品販售
二手拍賣
1
租屋&找屋
工商建議區
1
站務專區
10
最新活動
活動成果
數位造型
心情日記
個人圖庫
新人報到練習
論壇問題建議
1
榮會及電子報討論
-最近版區-
-最近瀏覽-
»
電腦資訊
硬體討論
超頻 & 開箱
數位生活
PDA 討論
手機討論區
軟體推薦
軟體討論
Apple 討論
Unix-like
網路&防毒
程式設計
網站架設
電腦教學資源
»
軟體討論
綜合討論
無人值守安裝
Windows
Windows 7 討論專區
影音&燒錄
影像編修
»
綜合討論
»
Excel VBA:59分自動進位成60
手機版
訂閱
地圖
簡體
您是第
6126
個閱讀者
可列印版
加為IE收藏
收藏主題
上一主題
|
下一主題
ajdfajdfl
級別:
初露鋒芒
x9
x141
分享:
▼
x
0
[文書編輯][分享] Excel VBA:59分自動進位成60
各位大大,可以試試用VBA寫寫看喔!
Excel VBA試題四:59分自動進位成60
檔案名稱 : proj5-4.xls
請利用Excel VBA 陳述式,判斷 ..
訪客只能看到部份內容,免費
加入會員
或由臉書
Google
可以看到全部內容
x
0
[樓 主]
From:未知地址 |
Posted:
2007-07-06 13:49 |
guangmin0622
級別:
知名人士
x2
x3250
分享:
▲
▼
因該不難吧~~
Sub Test()
Dim I As Integer
I = 1
Do Until Cells(I, 2) = ""
Select Case Cells(I, 2)
Case Is = 59
Cells(I, 2) = Cells(I, 2) + 1
Case Is < 59
Cells(I, 2).Font.ColorIndex = 3
End Select
I = I + 1
Loop
End Sub
x
0
[1 樓]
From:臺灣臺北市 |
Posted:
2007-07-07 23:00 |
ajdfajdfl
級別:
初露鋒芒
x9
x141
分享:
▲
▼
是很簡單沒有錯,不過大大忘了做另外一個按鈕了
我是這樣寫的
==============
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 7/5/2007 by sivs_ja
'
'
Sheets("Sheet3").Select
Range("B2:B22").Select
Selection.Copy
Sheets("自動加分").Select
Range("B2").Select
ActiveSheet.Paste
End Sub
==============
Option Explicit
Private Sub Command1_Click()
Macro1
End Sub
Private Sub hand_auto_add_Click()
Dim a As Integer
Dim b As Integer
For a = 2 To 22
If Sheets("自動加分").Cells(a, 2).Value = "59" Then
Sheets("自動加分").Cells(a, 2).Value = "60"
ElseIf Sheets("自動加分").Cells(a, 2).Value < "60" Then
Sheets("自動加分").Cells(a, 2).Font.ColorIndex = 3
End If
Next a
End Sub
x
0
[2 樓]
From:臺灣中華電信HINET |
Posted:
2007-07-08 07:54 |
guangmin0622
級別:
知名人士
x2
x3250
分享:
▲
▼
恩~~ 的確也能達目的~
但有幾個可進步的空間
1.Select用的太多 (沒猜錯 因該是用錄的)
此缺點會影響數度(寫得越大 越明顯)
2.用FOR迴圈 不能動態判斷
例如 新增三個成績 就要改程式才可用
對於維護程式者 是個負擔
3.按鍵 可直接指定 對於單一程序
可不用都宣告個案件給他 (直接指定即可)
優點: 你的撰寫比小弟寫的完整 小弟早已習慣不寫父層嚕~
x
0
[3 樓]
From:臺灣臺北市 |
Posted:
2007-07-08 08:18 |
April
級別:
小有名氣
x345
x629
分享:
▲
▼
要將小於60的改變顏色不用這樣麻煩
Excel有一個功能為格式化條件
設定小於60為紅色即可
會比用 迴圈來的有效率.......
可以自己用2003錄錄看
底下是用 Excel 2007 錄的再稍微修改的.....參考一下
"2007還是不太會用,偏偏2003砍了.....XD"
Columns("B:B").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="=60"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).Font.Color = -16383844
Hello April.ryan ............
x
0
[4 樓]
From:臺灣中華HiNet |
Posted:
2007-07-08 08:54 |
ajdfajdfl
級別:
初露鋒芒
x9
x141
分享:
▲
因為這些東西只是練習的其中的一個最簡單部分,我只是把它拆開了
各位大大言之由理,Excel有些題目方法不只有一種方法可以解
所以只是解題的快慢或是習慣問題
x
0
[5 樓]
From:局域網對方和您在同一內部網 |
Posted:
2007-07-08 15:00 |
MyChat 數位男女
»
綜合討論
Powered by
PHPWind
v1.3.6
Copyright © 2003-04
PHPWind
Processed in 0.054824 second(s),query:16 Gzip disabled
本站由
瀛睿律師事務所
擔任常年法律顧問 |
免責聲明
|
本網站已依台灣網站內容分級規定處理
|
連絡我們
|
訪客留言