25 czerwca 2012
Dodałem dziś możliwość komentowania artykułów oraz makr. Wykorzystałem do tego funkcję Facebooka.
Zapraszam do komentowania i dyskusji!
zamieścił: admin
19 czerwca 2012
Nowe makro w dziale Inventor - Material Profiler
zamieścił: Harry
8 maja 2012
Nowy link w dziale linki.
zamieścił: admin
27 kwietnia 2012
Nowe makro w dziale Excel.
zamieścił: admin
5 marca 2012
Problem z wyświetlaniem listy wątków forum dyskusyjnego został rozwiązany.
Był on związany z kwerendą liczącą ilość postów w danym wątku. Serwer MySQL naszego dostawcy nie był w stanie wykonać tej kwerendy, w związku z czym informacja o ilości postów w danym wątku została usunięta.
zamieścił: admin
Porada 10 lutego 2012
Wyrażenia regularne.
Wyrażenia regularne mają znacznie większe możliwości niż operator Like.
Użyć ich można nie tylko do sprawdzania poprawności danych, ale także do wyłuskiwania z tekstu podciągów spełniających określone założenia oraz do zamiany jednego ciągu na drugi.
Poniżej trzy przykłady ilustrujące te możliwości:
Sub Regex_Przyklad_1()
'Sprawdzanie poprawności adresu mailowego
Dim oRegex As Object
Dim strText As String
Set oRegex = CreateObject("VBScript.Regexp")
strText = " admin@vbamania.pl"
'wzorzec e-maila
oRegex.Pattern = "[a-z0-9_.-]+@[a-z0-9_.-]+\.\w{2,4}"
If oRegex.Test(strText) Then MsgBox "Adres prawidłowy - " & strText Else MsgBox "Adres nieprawidłowy - " & strText
Set oRegex = Nothing
End Sub
Sub Regex_Przyklad_2()
'wyłuskiwanie liczb z tekstu
Dim oRegex As Object, oMatches As Object, oM As Object
Dim strText As String, strKom As String, strP As String
Set oRegex = CreateObject("VBScript.Regexp")
strText = "Wyplata: 3500 PLN, ZUS: 1018 PLN, II filar: 190 PLN, III filar: 25 PLN"
'tylko 4-cyfrowe liczby
oRegex.Pattern = "(^|\D)\d{4}(\D|$)"
'liczba cyfr od 2 do 3
'oRegex.Pattern = "(^|\D)\d{2,3}(\D|$)"
'wyszukuje wszystkie ciągi znaków spełniające warunek
oRegex.Global = True
'wyszukuje tylko pierwszy ciąg znaków spełniający warunek
'oRegex.Global = false
Set oMatches = oRegex.Execute(strText)
If oMatches.Count > 0 Then
For Each oM In oMatches
If oM Is oMatches(oMatches.Count - 1) Then strP = "" Else strP = ", "
strKom = strKom & oM.Value & strP
Next oM
strKom = "Dopasowania: " & strKom
Else
strKom = "Brak dopasowań"
End If
MsgBox strKom
Set oRegex = Nothing
Set oMatches = Nothing
End Sub
Sub Regex_Przyklad_3()
'Zamiana jednego ciągu na inny
Dim oRegex As Object
Dim strText As String, strNewText As String
Dim dblWynik As Double
Set oRegex = CreateObject("VBScript.Regexp")
strText = "Wynik wynosi: %d" & vbCrLf & _
"Result is: %d"
'wyszukuje wszystkie ciągi znaków spełniające warunek
oRegex.Global = True
'wyszukuje tylko pierwszy ciąg znaków spełniający warunek
'oRegex.Global = False
'wzorzec
oRegex.Pattern = "%d"
dblWynik = 10.244
strNewText = oRegex.Replace(strText, dblWynik)
MsgBox strNewText
Set oRegex = Nothing
End Sub
zamieścił: admin
Porada 9 lutego 2012
Ikony w kolumnach ListView.
Wprowadziłem dziś nową funkcjonalność serwisu - porady.
Oto pierwsza z nich:
Czy wiecie, że w kontrolce ListView można umieszczać ikony w innych kolumnach, a nie tylko w pierwszej?
Oto, jak to działa:
Załóżmy, że mamy formularz z kontrolką ImageList. W niej umieszczone z kolei dwie ikony z dodanymi kluczami "icon1" oraz "icon2".
Kontrolki tej potrzebujemy jako źródła ikon do ListView, z właściwością View ustaloną na lvwReport.
Oto kod:
Private Sub UserForm_Activate()
Me.ListView1.SmallIcons = Me.ImageList1
Dim oLi As ListItem
Set oLi = Me.ListView1.ListItems.Add(, , "Kolumna nr 1", , "icon1")
oLi.ListSubItems.Add , , "Kolumna nr 2", "icon2"
Set oLi = Nothing
End Sub
zamieścił: admin
1 listopada 2011
Witam ponownie po półtoramiesięcznej przerwie.
Awaria serwisu była spowodowana atakiem wirusa. Mam nadzieję, że udało mi się pozbyć związanych z tym problemów i serwis będzie kontynuował swoją działalność.
zamieścił: admin
13 lutego 2011
W dziale Excel nowa wersja makra BatchXLS.
Ulepszenia w stosunku do poprzedniej wersji dotyczą interfejsu użytkownika.
zamieścił: admin
3 stycznia 2011
W dziale Excel makra do rozpoznawania języka lub kraju instalacji MS Excel.
zamieścił: Harry
wszystkich stron: 12
|