Wypowiedzi
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy EXCEL w praktyce
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy EXCEL w praktyce
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy EXCEL w praktyce
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy EXCEL w praktyce
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy EXCEL w praktyce
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy Excel VBA
-
:D
Public Function PoliczCyfry2(LiczbaOd, LiczbaDo, Cyfra)
Ten post został edytowany przez Autora dnia 20.11.13 o godzinie 11:20
Dim i As Long
Dim y
Dim tbl() As Byte
For i = LiczbaOd To LiczbaDo
tbl = CStr(i)
For Each y In tbl
PoliczCyfry2 = PoliczCyfry2 + ((y = Asc(Cyfra)) * -1)
Next
Next
End Function
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy Excel VBA
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy Excel VBA
-
Sub test2()
Dim i As Integer
Dim CzasPrzeterminowania As Date
'usuń te które przekroczyły czas 3h 10m 15s => dostosuj
CzasPrzeterminowania = CDate("3:10:15")
For i = Cells(Rows.Count, 8).End(xlUp).Row To 2 Step -1
If VarType(Cells(i, 8).Value) = vbDouble Then
If CDbl(Cells(i, 8).Value) > CDbl(CzasPrzeterminowania) Then
Range("A" & i & ":D" & i).ClearContents
End If
End If
Next i
End Sub
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy Excel VBA
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy EXCEL w praktyce
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy EXCEL w praktyce
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy EXCEL w praktyce
-
A co już zrobiłeś i w którym miejscu potrzebujesz pomocy?
Nie odrabiamy tutaj zadań domowych. Więc wyjścia 3
1. Zacznij coś sam i poproś o małą podpowiedź do konkretnego kroku w zadaniu
2. Zapisz się na korepetycje
3. Powtórz rok
Myślę że dla własnego dobra powinieneś wybrać bramkę nr 3Ten post został edytowany przez Autora dnia 28.05.13 o godzinie 18:39 -
ADR.pośr("TABELA!A"&PODAJ.POZYCJĘ($B$1;TABELA!$A$2:$A$397;0)&":$J$398")
-
Sub ZapiszCSV()
Dim plik As String
plik = Left(ActiveWorkbook.FullName, InStr(ActiveWorkbook.FullName, ".")) & _
"_" & ActiveSheet.Name & ".csv"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=plik, FileFormat:=xlCSVMSDOS
ActiveWorkbook.Close False
End Sub -
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy EXCEL w praktyce
-
Maciej P.:
Może powiedz w jakim celu chcesz to zrobić?
No właśnie :)
Bo inaczej to się nie dogadamy. Opisz dokładnie na czym polega problem. Krok po kroku co ma się dziać. -
A jaką macie chłopaki pewność że plik został zapisany z aktywnym arkuszem na którym jest pivot?