[發問] 溢位處理

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

2^#

發表於 2012-4-19 13:15 | 顯示全部帖子

本帖最後由 caichen3 於 2012-4-19 13:25 編輯

請教問題
3)a,b宣告為單精準數，若儲存格數值超出單精準數範圍(它的範圍在負數的時候是從 -3.402823E38 到 -1.401298E-45，而在正數的時候是從 1.401298E-45 到 3.402823E38。)

為什麼已經宣告Dim a As Single, b As Single
後面還要加上
a = CSng(Range(ccc & xxx).Value)
b = CSng(Range(ddd & xxx).Value)

感謝大大們的幫助，我知道為什麼了:)

寶寶

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

3^#

發表於 2012-4-19 14:41 | 顯示全部帖子

在創新商機指數G欄中有若干的數值，我想從中選出2個最大的數值並有紅色網底。
選出來的數值放置於range(M1:M2), range("I1")=2是我將選出的個數。
如果 G欄中的數值等於range(M1:M2)就給予紅色網底
以下是相關程式碼：
sub ex()
Dim myrange As Range
Dim U As Range
Dim zzz as string，sss as string
Dim w As Single
Dim q As Single
mmm = Chr(77)

Set myrange = Range("G3:G11" )          '設定範圍
w = Application.WorksheetFunction.Max(myrange) '取最大數值
Range("M1").Value = w

For Z = 2 To 2                                                                         '取第二大數值
zzz = Z
q = Application.WorksheetFunction.Large(myrange, Z)
Range(mmm & zzz).Value = Format(q, "00.00")
Next

With ActiveSheet
For Each U In .Range("G3:G200")
         For s = 1 To 2
            sss = s
            If U = Range(mmm & sss).Value Then
               U.Interior.ColorIndex = 3
            Else
               U.Interior.ColorIndex = xlNone
            End If
         Next
Next
End With
End sub
執行結果卻只有g欄中1.42的數值底色為紅色，1.5卻沒有，一直找不出原因！！

表6-3.rar (56.51 KB)

寶寶

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

4^#

發表於 2012-4-19 17:29 | 顯示全部帖子

請教h大大
k = (A + (A - A.Offset(, 1))) / A
  A.Offset(, 4) = k
  ReDim Preserve Ar(s)
  Ar(s) = k
  s = s + 1
Next
這段程式碼是在做什麼呢？？
k = (A + (A - A.Offset(, 1))) / A k值的作用是什麼

寶寶

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

5^#

發表於 2012-4-20 11:58 | 顯示全部帖子

感謝H大大的教學，好像我搞得太複雜了點

重新思考

寶寶