Desktop
Website
Multimedia
Database
Security
Enterprise
Pytanie : VB guzik na Wydajność
Cześć,
I mieć kod che wydajność od Dostęp i pre-formats the spreadsheet. i patrzeć niektóre VB guzik w the outputted spreadsheet.
So i polubić the the guzik the użytkownik opcja wysoki liczba niski liczba obok na pewny columns
So na przykład, szpaltowy B.
Is tam kodować i móc w the Dojazdowy Wydajność guzik który tworzyć te guzik na the outputted spreadsheet.
Thanks,
Seamus
Here być mój aktualny kod:
Private Okręt podwodny Command5_Click ()
Dim strFile Jako String
strFile = "F:\MissingDataOutput.xls "
'DoCmd.OutputTo acOutputForm, Me.Missing Dane Prymka, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, "Dane Prymka", acFormatXLS, strFile, False
Dim oXL Jako Object
Dim oWB Jako Object
Dim oWS Jako Object
Dim FormulaRow Jako Long
Set oXL = CreateObject ("Excel.Applic
ation")
Set oWB = oXL.Workbooks.Open (strFile
)
Set oWS = oWB.Sheets (1)
With oWS
FormulaRow =. Komórka (. Rows.Count, "B"). Końcówka (- 4162). Rząd + 2 'xlUp
. Cells.Font.Size = 10
. Rząd (1).Font.Bold = True
.UsedRange.EntireColumn.Au
toFit
.range ("B: h") .NumberFormat
= "0.00%; [Rewolucjonistka] 0.00% "
.range ("B: h") .NumberFormat
= "#, ##0.00; [Rewolucjonistka] #, ##0.00 "
.range ("c: e"). Styl = "Procent "
.range ("B: B") .NumberFormat
= "£#, ##0.00; [Czerwony] £#, ##0.00 "
.range ("f: h") .NumberFormat
= "£#, ##0.00; [Czerwony] £#, ##0.00 "
Końcówka With
oXL.Visible = True
Set oWS = Nothing
Set oWB = Nothing
Set oXL = Nothing
End Sub
Odpowiedź : VB guzik na Wydajność
Tak daleko jak the kod dla the guzik dotyczyć, często ty móc początek macro the zadanie omawiany, wtedy redagować ono potrzebować.
Inne rozwiązania
SUP7203B PFC niekompatybilność
system przywrócić punkt
IE8 Przedkładać Forma z [Wchodzić Do] Klucz, stosownie
zintegrowany wordpress w miejsce. blog pic doczepianie.
Łączyć XenServer wśród iPhone
Porzucony Windows 7 Instalacyjny odpowiedź kartoteka
SSH konsola: iść precyzować falcówka po nazwa użytkownika
Tworzyć Linux przygotowywać CD-R stylowy but dysk…
Dlaczego Sysinternals Wirusowy wyszukiwarka redirect?
MS Dojazdowy SQL Podział Dojazdowy obejście potrzebować