作者 主題: 分享: Excel VBA 把特定欄位由文字轉為數字,用sum去知道裡面有無資料  (閱讀 8567 次)

0 會員 與 1 訪客 正在閱讀本文。

小徒兒

  • 鑽研的研究生
  • *****
  • 文章數: 622
    • 檢視個人資料
代碼: [選擇]

Sub VerifyIssueOnly()

'<Public Constants>
DATA_SHEET = 1          'No. data sheet
COL_ISSUENO = "A"        'Column containing status
COL_ACTIONNO = "B"
COL_REF = "C"              'Reference column to stop when empty
first_datarow = 3       'No. of first Row containing data
COLOR_INDEX = 15   'Cell.ColorIndex status 'In Progress'
'</Public Constants>

Range("BZ1").FormulaR1C1 = "1"
Range("BZ1").Copy

Range(Cells(first_datarow, COL_ACTIONNO), Cells(65536, COL_ACTIONNO)).Select
Selection.PasteSpecial Paste:=xlPasteAll, operation:=xlMultiply, skipblanks:=False, Transpose:=False
Selection.NumberFormatLocal = "0;;;"

With Application.WorksheetFunction

    MsgBox .Sum(Range(Cells(first_datarow, COL_ACTIONNO), Cells(65536, COL_ACTIONNO)))


End With


End Sub


小徒兒

  • 鑽研的研究生
  • *****
  • 文章數: 622
    • 檢視個人資料
=IF(A5=0,"",A5)