Սխալ 6 ստանալը - Excel VBA-ով լցվել: Սովորաբար, դա պայմանավորված է մի ամբողջ թվով, որը պետք է երկար լիներ: Բայց սա... Ես պարզապես փորձում եմ երեք թվեր միասին բազմապատկել և արդյունքը դնել վանդակում: Չկա փոփոխական ներգրավված:
Սա այն տողն է, որի վրա սխալվում է. wsResults.Cells(4, 3): Արժեք = (60 * 60 * 24)
Ես փորձել եմ փակել Excel-ը և նորից բացել աշխատանքային գրքույկը, և փորձել եմ բանաձևը դնել անմիջապես բանաձևի տողում (այն ճիշտ է ցուցադրվել), բայց VBA կոդը դեռ չի աշխատի:
Որևէ մեկը որևէ գաղափար ունի: Շնորհակալություն
Option Explicit
'Worsheets:
Dim wbThis As ThisWorkbook
Dim wsResults As Worksheet
'Set Timekeeping Values:
Public Const GameTick As Single = (60 / 12) / 4
Public Const GameRound As Single = GameTick * 12
Public Const GameHour As Single = GameRound * 60
Public Const GameDay As Single = GameHour * 24
Public Const GameWeek As Single = GameDay * 7
Public Const GameMonth As Single = GameDay * 30
Public Const GameYear As Single = GameDay * 365
Public Sub TimeControl()
'Initialize Timer:
Randomize Timer
'Set Worksheets:
Set wbThis = ThisWorkbook
Set wsResults = wbThis.Sheets("Results")
'Clear wsResults:
wsResults.Range("A1:M1000").ClearContents
'Display Unit Names:
wsResults.Cells(1, 1).Value = "Tick"
wsResults.Cells(2, 1).Value = "Round"
wsResults.Cells(3, 1).Value = "Hour"
wsResults.Cells(4, 1).Value = "Day"
wsResults.Cells(5, 1).Value = "Week"
wsResults.Cells(6, 1).Value = "Month"
wsResults.Cells(7, 1).Value = "Year"
'Display Game Units:
wsResults.Cells(1, 2).Value = GameTick
wsResults.Cells(2, 2).Value = GameRound
wsResults.Cells(3, 2).Value = GameHour
wsResults.Cells(4, 2).Value = GameDay
wsResults.Cells(5, 2).Value = GameWeek
wsResults.Cells(6, 2).Value = GameMonth
wsResults.Cells(7, 2).Value = GameYear
'Display Real-World Units:
wsResults.Cells(1, 3).Value = ""
wsResults.Cells(2, 3).Value = 60
wsResults.Cells(3, 3).Value = (60 * 60)
wsResults.Cells(4, 3).Value = (60 * 60 * 24)
wsResults.Cells(5, 3).Value = (60 * 60 * 24 * 7)
wsResults.Cells(6, 3).Value = (60 * 60 * 24 * 30)
wsResults.Cells(7, 3).Value = (60 * 60 * 24 * 365)
End Sub