چاپ در msgbox

[میثم66]

این برنامه ای هست که یک زمان را بر حسب ثانیه دریافت می کنه و ساعت و دقیقه و ثانیه آن را چاپ می کنه .خروجی در msg box ارور میگیره

Sub hh()
n = Cells(1, 1)
H = n \ 3600
Z = n - 3600 * H
D = Z \ 60
S = Z - D * 60
msgbox & H ":" & D ":" & S
End Sub 

[Amir Ghasemiyan]

این برنامه ای هست که یک زمان را بر حسب ثانیه دریافت می کنه و ساعت و دقیقه و ثانیه آن را چاپ می کنه .خروجی در msg box ارور میگیره

Sub hh()
n = Cells(1, 1)
H = n \ 3600
Z = n - 3600 * H
D = Z \ 60
S = Z - D * 60
msgbox & H ":" & D ":" & S
End Sub 

سلام دوست عزيز
ترتيب قرار دادن & ها رو اشتباه كردين. من كدتون رو اصلاح كردم:

Sub hh()
n = Cells(1, 1)
H = n \ 3600
Z = n - 3600 * H
D = Z \ 60
S = Z - D * 60
MsgBox H & ":" & D & ":" & S
End Sub