廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 6126 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
ajdfajdfl 手機
數位造型
個人文章 個人相簿 個人日記 個人地圖
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x9 鮮花 x141
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x0
[文書編輯][分享] Excel VBA:59分自動進位成60
各位大大,可以試試用VBA寫寫看喔!

Excel VBA試題四:59分自動進位成60

檔案名稱 : proj5-4.xls
  請利用Excel VBA 陳述式,判斷 ..

訪客只能看到部份內容,免費 加入會員 或由臉書 Google 可以看到全部內容




獻花 x0 回到頂端 [樓 主] From:未知地址 | Posted:2007-07-06 13:49 |
guangmin0622 手機
個人文章 個人相簿 個人日記 個人地圖
特殊貢獻獎 社區建設獎
知名人士
級別: 知名人士 該用戶目前不上站
推文 x2 鮮花 x3250
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

因該不難吧~~

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


獻花 x0 回到頂端 [1 樓] From:臺灣臺北市 | Posted:2007-07-07 23:00 |
ajdfajdfl 手機
數位造型
個人文章 個人相簿 個人日記 個人地圖
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x9 鮮花 x141
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

是很簡單沒有錯,不過大大忘了做另外一個按鈕了
我是這樣寫的
==============
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



獻花 x0 回到頂端 [2 樓] From:臺灣中華電信HINET | Posted:2007-07-08 07:54 |
guangmin0622 手機
個人文章 個人相簿 個人日記 個人地圖
特殊貢獻獎 社區建設獎
知名人士
級別: 知名人士 該用戶目前不上站
推文 x2 鮮花 x3250
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

恩~~ 的確也能達目的~
但有幾個可進步的空間
1.Select用的太多 (沒猜錯 因該是用錄的)
此缺點會影響數度(寫得越大 越明顯)
2.用FOR迴圈 不能動態判斷
例如 新增三個成績 就要改程式才可用
對於維護程式者 是個負擔
3.按鍵 可直接指定 對於單一程序
可不用都宣告個案件給他 (直接指定即可)

優點: 你的撰寫比小弟寫的完整 小弟早已習慣不寫父層嚕~


獻花 x0 回到頂端 [3 樓] From:臺灣臺北市 | Posted:2007-07-08 08:18 |
April
個人文章 個人相簿 個人日記 個人地圖
小有名氣
級別: 小有名氣 該用戶目前不上站
推文 x345 鮮花 x629
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

要將小於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 ............
獻花 x0 回到頂端 [4 樓] From:臺灣中華HiNet | Posted:2007-07-08 08:54 |
ajdfajdfl 手機
數位造型
個人文章 個人相簿 個人日記 個人地圖
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x9 鮮花 x141
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

因為這些東西只是練習的其中的一個最簡單部分,我只是把它拆開了
各位大大言之由理,Excel有些題目方法不只有一種方法可以解
所以只是解題的快慢或是習慣問題



獻花 x0 回到頂端 [5 樓] From:局域網對方和您在同一內部網 | Posted:2007-07-08 15:00 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.054824 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言