REKLAMA

Book3.zip

[Excell] Jak ustabilizować format daty w Listbox UserForm?

problemem jest to ze data wyswietlana w listbox jest w amerykanskim formacie Bez obrazy, ale stwierdzam, że "leń patentowany" jesteś ... :-) ... "Rozwiązanie" masz pod nosem i sam się w pewnym sensie nim posługiwałeś. Właściwość "List" ... dlaczego nie sprawdziłeś składni tej właściwości ? "object.List(row, column) " Gdybyś zerknął w pomoc podręczną, od razu byś wiedział co robić ... :-) ... rozwiązanie samo się nasuwa. Option Explicit Private Sub UserForm_Initialize() With UserForm1 .Caption = "Raport tygodniowy" .ListBox1.ColumnCount = 10 .ListBox1.ColumnWidths = "85;55;55;55;65;55;55;55;55;55" .TextBox1.SetFocus End With End Sub 'Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Long Dim ark3 As Worksheet If Me.TextBox1.Value = "" Or Not IsDate(Me.TextBox1.Value) Then Cancel = 1 'Można zablokować lub usunąć, jeśli będzie upierdliwe With Me.TextBox1 .SetFocus .SelStart = 0 .SelLength = .TextLength End With MsgBox "Musisz wprowadzić datę", vbOKOnly, "Uwaga !" Exit Sub End If Set ark3 = ThisWorkbook.Sheets("Raporty") ark3.Cells(14, 2).Value = CDate(Trim(Me.TextBox1.Value)) With Me.ListBox1 If .ListCount > 0 Then .Clear .List = ark3.Range("A13:J83").Value For i = 1 To 8 .List(1, i) = Format(.List(1, i), "dd/mm/yyyy") Next For i = 83 To 1 Step -1 If ark3.Range("A13:J83").Rows(i).EntireRow.Hidden Then .RemoveItem i Next End With Set ark3 = Nothing End Sub Dwuklik tu niepotrzebny, wystarczy zdarzenie przy opuszczaniu pola tekstowego klawiszem tabulacji. 910428


Pobierz plik - link do postu
  • Book3.zip
    • Book3.xls


Book3.zip > Book3.xls

" Raport " ,,,,,,,,,,
,,,,,,,,,, " 03-31-18 "
,,,,,,,,,, " 04-30-18 "
,,,,,,,,,, " raport za poprzedni mc od do "
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
" wartosc magazynu " , " 57197 " ,,,,,,,,,
,,,,,,,,,, " 04-01-18 "
,,,,,,,,,, " 04-30-18 "
,, " Monday " , " Tuesday " , " Wednesday " , " Thursday " , " Friday " , " Saturday " , " Sunday " , " Weekly " , " poprzedni mc " , " 1 " , " 1 "
" data " , " 02-24-18 " , " 05-07-18 " , " 05-08-18 " , " 05-09-18 " , " 05-10-18 " , " 05-11-18 " , " 05-12-18 " , " 05-13-18 " ,,, " 2 " , " 1 "
" sprzedaz razem " , " 5000 " , " 0 " , " 1504 " , " 1606 " , " 5000 " , " 0 " , " 0 " , " 0 " , " 8110 " , " 20728 " , " 3 " , " 1 "
" PS3_Uzywana " , " 1950 " , " 0 " , " 1504 " , " 1606 " , " 1950 " , " 0 " , " 0 " , " 0 " , " 5060 " , " 20621 " , " 4 " , " 1 "
" PS4_Nowa " , " 370 " , " 0 " , " 0 " , " 0 " , " 370 " , " 0 " , " 0 " , " 0 " , " 370 " , " 0 " , " 5 " , " 1 "
" PS4_Uzywana " , " 2480 " , " 0 " , " 0 " , " 0 " , " 2480 " , " 0 " , " 0 " , " 0 " , " 2480 " , " 107 " , " 6 " , " 1 "
" Akcesoria " , " 200 " , " 0 " , " 0 " , " 0 " , " 200 " , " 0 " , " 0 " , " 0 " , " 200 " , " 0 " , " 7 " , " 1 "
" Inne " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 8 " , " 1 "
,,,,,,,,,,,, " 1 "
, " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " ,, " 1 "
, " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " ,, " 1 "
, " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " ,, " 1 "
, " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " ,, " 1 "
, " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " ,, " 1 "
, " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " ,, " 1 "
,,,,,,,,,,,, " 1 "
,,,,,,,,,,,, " 1 "
,,,,,,,,,,,, " 1 "
,,,,,,,,,,,, " 1 "
,,,,,,,,,,,, " 1 "
,,,,,,,,,,,, " 1 "
, " 08/05/2018 " , " Monday " , " Tuesday " , " Wednesday " , " Thursday " , " Friday " , " Saturday " , " Sunday " , " Weekly " , " poprzedni mc " ,, " 1 "
" data " , " 05-10-18 " , " 05-07-18 " , " 05-08-18 " , " 05-09-18 " , " 05-10-18 " , " 05-11-18 " , " 05-12-18 " , " 05-13-18 " ,,,, " 1 "
" zakup razem " , " 2000 " , " 0 " , " 298 " , " 1123 " , " 2000 " , " 0 " , " 0 " , " 0 " , " 3421 " , " 7812 " , " 9 " , " 2 "
" PS3_Uzywana " , " 200 " , " 0 " , " 298 " , " 1123 " , " 200 " , " 0 " , " 0 " , " 0 " , " 1621 " , " 7747 " , " 10 " , " 2 "
" PS4_Nowa " , " 100 " , " 0 " , " 0 " , " 0 " , " 100 " , " 0 " , " 0 " , " 0 " , " 100 " , " 65 " , " 11 " , " 2 "
" PS4_Uzywana " , " 500 " , " 0 " , " 0 " , " 0 " , " 500 " , " 0 " , " 0 " , " 0 " , " 500 " , " 0 " , " 12 " , " 2 "
" Akcesoria " , " 200 " , " 0 " , " 0 " , " 0 " , " 200 " , " 0 " , " 0 " , " 0 " , " 200 " , " 0 " , " 13 " , " 2 "
" Inne " , " 1000 " , " 0 " , " 0 " , " 0 " , " 1000 " , " 0 " , " 0 " , " 0 " , " 1000 " , " 0 " , " 14 " , " 2 "
,,,,,,,,,,
" 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 "
" 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 "
" 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 "
" 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 "
" 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 "
" 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 "
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
, " 08/05/2018 " , " Monday " , " Tuesday " , " Wednesday " , " Thursday " , " Friday " , " Saturday " , " Sunday " , " Weekly " , " poprzedni mc "
" data " , " 05-10-18 " , " 05-07-18 " , " 05-08-18 " , " 05-09-18 " , " 05-10-18 " , " 05-11-18 " , " 05-12-18 " , " 05-13-18 " ,,
" wartosc sprzedanych " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 15 " , " 3 "
" PS3_Uzywana " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 16 " , " 3 "
" PS4_Nowa " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 17 " , " 3 "
" PS4_Uzywana " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 18 " , " 3 "
" Akcesoria " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 19 " , " 3 "
" Inne " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 20 " , " 3 "
,,,,,,,,,,
" 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 "
" 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 "
" 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 "
" 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 "
" 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 "
" 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 "
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
, " 08/05/2018 " , " Monday " , " Tuesday " , " Wednesday " , " Thursday " , " Friday " , " Saturday " , " Sunday " , " Weekly " , " poprzedni mc "
" data " , " 05-10-18 " , " 05-07-18 " , " 05-08-18 " , " 05-09-18 " , " 05-10-18 " , " 05-11-18 " , " 05-12-18 " , " 05-13-18 " ,,
" Zysk brutto (sprzedane - wartosc) " , " 5000 " , " 0 " , " 1504 " , " 1606 " , " 5000 " , " 0 " , " 0 " , " 0 " , " 8110 " , " 20728 " , " 21 " , " 4 "
" PS3_Uzywana " , " 1950 " , " 0 " , " 1504 " , " 1606 " , " 1950 " , " 0 " , " 0 " , " 0 " , " 5060 " , " 20621 " , " 22 " , " 4 "
" PS4_Nowa " , " 370 " , " 0 " , " 0 " , " 0 " , " 370 " , " 0 " , " 0 " , " 0 " , " 370 " , " 0 " , " 23 " , " 4 "
" PS4_Uzywana " , " 2480 " , " 0 " , " 0 " , " 0 " , " 2480 " , " 0 " , " 0 " , " 0 " , " 2480 " , " 107 " , " 24 " , " 4 "
" Akcesoria " , " 200 " , " 0 " , " 0 " , " 0 " , " 200 " , " 0 " , " 0 " , " 0 " , " 200 " , " 0 " , " 25 " , " 4 "
" Inne " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 0 " , " 26 " , " 4 "
,,,,,,,,,,