clean up
This commit is contained in:
parent
830894ed5d
commit
c38e262733
1
fpvt.frm
1
fpvt.frm
@ -335,6 +335,7 @@ Private Sub UserForm_Activate()
|
|||||||
fVal = 0
|
fVal = 0
|
||||||
fVol = 0
|
fVol = 0
|
||||||
fPrc = 0
|
fPrc = 0
|
||||||
|
Me.tbAPI.value = ""
|
||||||
|
|
||||||
If IsNull(sp("package")("totals")) Then
|
If IsNull(sp("package")("totals")) Then
|
||||||
fpvt.Hide
|
fpvt.Hide
|
||||||
|
14
handler.bas
14
handler.bas
@ -170,22 +170,12 @@ Sub pg_main_workset(rep As String)
|
|||||||
res(0, 31) = "cost_usd"
|
res(0, 31) = "cost_usd"
|
||||||
res(0, 32) = "units"
|
res(0, 32) = "units"
|
||||||
|
|
||||||
|
|
||||||
Set json = Nothing
|
Set json = Nothing
|
||||||
|
|
||||||
ReDim str(UBound(res, 1), UBound(res, 2))
|
ReDim str(UBound(res, 1), UBound(res, 2))
|
||||||
|
|
||||||
For i = 0 To UBound(res, 1)
|
Worksheets("data").Cells.ClearContents
|
||||||
For j = 0 To UBound(res, 2)
|
Call x.SHTp_DumpVar(res, "data", 1, 1, False, True, True)
|
||||||
If IsNull(res(i, j)) Then
|
|
||||||
str(i, j) = ""
|
|
||||||
Else
|
|
||||||
str(i, j) = res(i, j)
|
|
||||||
End If
|
|
||||||
Next j
|
|
||||||
Next i
|
|
||||||
|
|
||||||
Call x.SHTp_Dump(str, "data", 1, 1, True, False, 28, 29, 30, 31, 32)
|
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
@ -217,7 +217,7 @@ Sub ms_adj()
|
|||||||
Dim i As Integer
|
Dim i As Integer
|
||||||
Call Me.get_sheet
|
Call Me.get_sheet
|
||||||
Dim vp As String
|
Dim vp As String
|
||||||
vp = Sheets("month").Range("R2")
|
vp = Sheets("month").Range("Q2")
|
||||||
|
|
||||||
For i = 1 To 12
|
For i = 1 To 12
|
||||||
If sales(i, 4) = "" Then sales(i, 4) = 0
|
If sales(i, 4) = "" Then sales(i, 4) = 0
|
||||||
|
Loading…
Reference in New Issue
Block a user