Forum Pasja Informatyki - Najnowsze z tagiem visualbasic

VBA - Sumowanie danych w tabeli mających tą samą nazwę

Sat, 06 Nov 2021 14:42:56 +0000

Witam,

od pewnego czasu pracuję nad zestawieniem w programie Excel, w którym zawarte mam dane kontrahentów (nazwę kontrahenta, wartość sprzedaży). Chciałabym przy wykorzystaniu języka Visual Basic móc zsumować wszystkie dane dla kontrahenta, np. "Kowalski" i aby wynik w/w sumowania ukazał się w komórce obok. Próbowałam wykorzystać do tego funkcję SumIf, z tym że uruchomiony program nie robi kompletnie nic. Bardzo proszę o informację co robię źle, że program nie chce zadziałać. Z góry bardzo dziękuję za pomoc.

A B

KOWALSKI	2264
KOWALSKI	344
KOWALSKI	4585
KOWALSKI	1232
NOWAK	23455
STRZELCZYK	4844

Sub zsumujDane()

Dim wynikSumy As Long

wynikSumy = Range("E1").Value

wynikSumy = Application.WorksheetFunction.SumIf(Range("A1:A6"), "KOWALSKI", Range("B1:B6"))

End Sub

Prosty program z haslem czasowym VB Pomozcie

Sat, 23 Nov 2019 13:48:00 +0000

Czesc. Jestem tu nowy.. w programowaniu tez jestem totalnym ''jeszcze'' lajkiem..

a musze zrobic taki program do szkoly z zajec programowania...

Użytkownik wprowadza hasło w polu tekstowym i klika przycisk „TryPassword”. Jeśli hasło jest prawidłowe, pojawi się okno komunikatu z napisem „Witamy w systemie”. Jeśli jest niepoprawny, pojawi się okno komunikatu z napisem „Przepraszamy niepoprawne hasło”. Zawiera także licznik czasu, który daje użytkownikowi 15 sekund na wprowadzenie poprawnego hasła lub pojawia się okno komunikatu z napisem „Przepraszamy, że czas się skończył”.

Ogolnie szukalem juz tego w internecie i na waszym forum ale nie znalazlem zadnych konkretow..

Czy bylby ktos mily i pomogl mi z tym...

Visual basic - Przytrzymywanie przycisku

Sat, 29 Jun 2019 14:15:39 +0000

Witam,

chciałbym aby po wciśnięciu button1 klawisz "a" był naciśnięty przez np 10 sekund. Czy ktoś może wytłumaczyć jak to zrobić?

ListView Visual Basic

Sat, 01 Jun 2019 14:12:44 +0000

Witam, od niedawna zacząłem naukę programowania w Visual Basic, no i napotkałem na pewien problem związany z kontrolką ListView.

Potrafię za pomocą kodu dodać element do tej listy i pod elementy tego elementu, zaznaczyć i określić który elementy został wybrany, ale nie potrafię odczytać konkretnego pod elementu w dodanym elemencie.

Może mi ktoś napisać/wytłumaczyć jak to zrobić?

Oto kod który napisałem:

Public Class Form1
    Dim objektElementListy As ListViewItem

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        objektElementListy = WidokListy.Items.Add("Łukasz")
        objektElementListy.SubItems.Add("Poznań")
        objektElementListy.SubItems.Add("26")

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If WidokListy.SelectedItems.Count > 0 Then
            MsgBox(WidokListy.SelectedItems(0).Text)
        End If

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If WidokListy.SelectedItems.Count > 0 Then
            WidokListy.Items.Remove(WidokListy.SelectedItems(0))
        End If

    End Sub
End Class

Kod ma działać w ten sposób że, po naciśnięciu klawisza "Button1" ma zostać dodany do listy element o nazwie "Łukasz" i jego dwa pod elementy.

Klawisz "Button3" ma za zadanie usunąć zaznaczony element listy, a klawisz "Button2" ma wyświetlić zaznaczony element.

No i tu pojawia się problem, bo jak zaznaczę sobie element i kliknę Button2 to komunikat jaki zwraca mi metoda MsgBox() jest "Łukasz" czyli nazwa całego elementu.

A ja chciałbym sobie odczytać np. pod element o nazwie "Poznań".

W jaki sposób mogę to odczytać?

Bardzo prosze o pomoc Chart vb 2010

Wed, 28 Nov 2018 09:20:06 +0000

visual basic 2010
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        
'to tylko przykład ten Label1.Text = ("12")  dla wizualizaci o co mi chodzi
Label1.Text = ("12") 
        Me.Chart1.Series("1").Points.AddXY("1", Label1.Text)

        Me.Chart1.Series("1").Points.AddXY("2", Label2.Text)

        Me.Chart1.Series("1").Points.AddXY("3", Label3.Text)

        Me.Chart1.Series("1").Points.AddXY("4", Label4.Text)

        Me.Chart1.Series("1").Points.AddXY("5", Label5.Text)

        Me.Chart1.Series("1").Points.AddXY("6", Label5.Text)

        Me.Chart1.Series("1").Points.AddXY("7", Label7.Text)

        Me.Chart1.Series("1").Points.AddXY("8", Label8.Text)

        Me.Chart1.Series("1").Points.AddXY("9", Label9.Text)

        Me.Chart1.Series("1").Points.AddXY("10", Label10.Text)

        Me.Chart1.Series("1").Points.AddXY("11", Label11.Text)

        Me.Chart1.Series("1").Points.AddXY("12", Label12.Text)

BARDZO WAS PROSZE O POMOC CO MAM ZROBIC TYLKO TU MAM PROBLEM

BARDZO DZIEKUJE Z GÓRY

witam mam problem z numerowaniem kolejnosci słupków w wykresie słupkowym Chart

bo wyswietla mi sie 2 4 6 8 10 12

a chciałbym 1 2 3 4 5 6 7 8 9 10 11 12

bardzo bym prosił o pomoc nie moge sobie poradzic

ponizej jest zamieszczone zdjecie mojego wykresu

Jak po wybraniu i kliklnięcie w button i żeby się pojawił telekod po progressbar i msgbox

Mon, 05 Nov 2018 21:51:25 +0000

Proszę mi poprawić kod bo interesuje mnie coś takiego:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Point załadowaniu progress bar tu żeby pojawił się kod 
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    ProgressBar1.Increment(1)
    If ProgressBar1.Value = 100 Then
            MsgBox("WGRANO"po załadowaniu progress bar do końca i żeby pojawił msgbox "WGRANO" i w textboxie kod 

    End If
End Sub

Visual Basic auto klikniecie danego przycisku

Sun, 04 Nov 2018 01:35:50 +0000

Witam.

Ponieważ jestem dosyć nowy w środowisku visual basic mam pytanie, co trzeba zrobic, aby po klikncieu guzika program wciskał bez przerwy guzik „2”, „spację”, „z". Z góry dziękuję

Pytanie do excela ;)

Thu, 28 Jun 2018 11:29:39 +0000

Cześć,

wie ktoś jak do tej formuly : =WYSZUKAJ.PIONOWO("*"&B3&"*";$'Raport Karol'.A4:B3267;2;0)

dodać funkcję aby gdy funkcja wyszukaj najdzie dawa takie same indeksy dodwaała ich wartości ?

Kod Visual Basic z visual studio, na kod VBA do excela

Wed, 06 Jun 2018 15:31:32 +0000

Witam, napisałem sobie taki kodzik (kod poniżej) w visual studio w VB. Algorytm ma za zadanie wczytać macierz o m wierszach i n kolumnach, i zwrocic tablice, która zawierać będzie średnie z kolumn na odpowiednich indeksach(np. indeks 0 - średnia z zerowej kolumny macierzy wejściowej)

Chciałbym zastosować ten algorytm w excelu, tak aby mógł wczytać zaznaczone komórki, i zwrócić średnie kolumn takiej zaznaczonej macierzy. Podpowie mi ktoś jak zczytać w VBA wartości z komórek z zeszytu, a następnie zwrócić?

Załączam kod w VB

Module Module1

    Sub Main()
        Dim m, n As Integer
        m = 3
        n = 3
        Dim licznik As Integer = 0
        Dim Tb2 As Double(,) = New Double(m - 1, n - 1) {}
        Tb2(0, 0) = 1
        Tb2(0, 1) = 3
        Tb2(0, 2) = 5
        Tb2(1, 0) = 2
        Tb2(1, 1) = 4
        Tb2(1, 2) = 6
        Tb2(2, 0) = 3
        Tb2(2, 1) = 3
        Tb2(2, 2) = 4
        Dim TSrednia As Double() = New Double(n - 1) {}

        For i As Integer = 0 To m - 1
            licznik = 0
            For j As Integer = 0 To n - 1
                TSrednia(i) = TSrednia(i) + Tb2(i, j)
                licznik += 1

                If j = n - 1 Then
                    TSrednia(i) = TSrednia(i) / licznik
                End If
            Next
        Next

        For i As Integer = 0 To TSrednia.Length - 1
            Console.WriteLine(TSrednia(i))
        Next

        Console.ReadKey()
    End Sub

End Module

Visual Basic importowanie macierza

Thu, 24 May 2018 23:02:32 +0000

Witam

Mam problem z importem macierza do tablicy. Chce zaimportować dany macierz z pliku txt, lecz tak żeby każda liczba zapisywała się w innym miejscu tablicy dwuwymiarowej. np. (0,0), (0.1) itp. niestety kiedy importuje to do jednego elementu tablicy importuje się cały wiersz

Visual basic - połączone bazy, raportowanie, tworzenie dokumentu pdf

Wed, 28 Mar 2018 16:04:54 +0000

Witam

Próbuje stworzyć program w którym jest kilka baz danych, (magazyn, kontrachent itp) do tego trzeba w nim tworzyć zlecenia (zapis w PDF) do tego tabela ze stworzonymi zleceniami.
Bazy mam już gotowe, pozostaje reszta do stworzenia

Musze dodać ze dopiero poznaje programowanie, i sporo wiedzy mi brakuje.

Domyślam si że nie łatwo będzie opisać cały proces w odp, ale będę wdzięczny za linki w których jest to opisane. przy okazji może znajdzie się osoba która mejlowo bądź telefonicznie może mi pomóc w wolnej chwili będzie najlepszym rozwiązaniem.

Zrozumcie świeżaka.

Z góry dzięki

Problem z Visual Basic 2010 - TextChanged

Thu, 04 Jan 2018 20:23:18 +0000

Hej! Mam problem z programem Visual Basic 2010. Mianowicie, przy pisaniu prostego programu na dodawanie trzech liczb przy formule TextChanged usuwają mi się liczby, tzn. wpiszę liczbę 'a', a przechodząc do liczby 'b' usuwa mi się liczba 'a' i tak w kółko. Problemu nie ma, kiedy napiszę formułę TextChanged tylko dla liczby 'a', wtedy działa wszystko poprawnie; a kiedy napiszę formułę dla 'b' i ''c' następuję wyżej opisany problem.

Tu jest mój kod:

Public Class Form1

Private Sub btn_licz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_licz.Click
Dim a, b, c As Single
a = CSng(Me.txt_a.Text)
b = CSng(Me.txt_b.Text)
c = CSng(Me.txt_c.Text)
Dim wynik As String
wynik = CStr(Me.lbl_wynik.Text)
wynik = a + b + c
Me.lbl_wynik.Text = wynik
End Sub

Private Sub txt_a_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_a.TextChanged
Me.txt_b.Text = ""
Me.txt_c.Text = ""
Me.lbl_wynik.Text = ""

End Sub

Private Sub txt_b_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_b.TextChanged
Me.txt_a.Text = ""
Me.txt_c.Text = ""
Me.lbl_wynik.Text = ""

End Sub

Private Sub txt_c_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_c.TextChanged
Me.txt_a.Text = ""
Me.txt_b.Text = ""
Me.lbl_wynik.Text = ""

End Sub
Private Sub Wyczyść_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Wyczyść.Click
Me.txt_a.Text = "0"
Me.txt_b.Text = "0"
Me.txt_c.Text = "0"
Me.lbl_wynik.Text="0"

End Sub
Private Sub btn_wyjdź_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_wyjdź.Click
Me.Close()

End Sub
End Class

Jestem początkującą użytkowniczką tego programu, dlatego proszę o wyrozumiałość. Z góry dziękuję za odpowiedź. ;>

jak otwierac aplikacje zewnętrzne w Visual Basic

Thu, 30 Nov 2017 15:35:17 +0000

Witam

Chciałem dowiedzieć sie jak np . otworzyć plik zewnętrzny w visual basic tzn . jak zrobic żeby przez klikniecie guzika otwierała sie nam jakaś aplikacja . Jestem w tym bardzo zielony ;D z góry dziękuje

Jaki kod pod takie okno formularza w visual basicu 2010 express?

Sun, 12 Nov 2017 22:16:38 +0000

Jaki kod pod takie okno formularza?Proszę o pomoc

Tablicowanie wartości funkcji

Sat, 14 Jan 2017 00:13:30 +0000

Witam .
Mam do zrobienia program,który tablicuje wartośc funkcji oraz jej rozwiniecie w szereg.
(1+5*x)^1/3=1+1/3*(5*x)-2/(3^2*2!)*(5*x)^2+2*5/(3^3*3!)*(5*x)^3-2*5*8/(3^4*4!)*(5*x)^4+2*5*8*11/(3^5*5!)... itd.
x należy do przedziału (-0.2;0.2).
Moim zadaniem jest:
1. podanie wartosci eps ,n i przedziału jako danych (czytanie z arkusza Excel)
2. obliczenie dla kazdego x z danego przedzialu przy danym n wartosci szeregu oraz funkcji
3. tablicowanie wynikow na arkuszu Excel w formie tabeli:
| Nr | x | f(x) | s(x) | błąd |

Tyle zrobiłem sam - dobrze tablicuje wartosci funkcji , mam problem z szeregiem oraz błedem .

Option Explicit
Dim a As Double, b As Double
Dim n As Integer, i As Integer, j As Integer
Dim eps As Double
Dim x As Double, s As Double, w As Double
Dim f As Double
Dim dx As Double
Dim q As Double
Sub szereg()
a = CDbl(Cells(1, 1).Value)
b = CDbl(Cells(1, 2).Value)
n = CInt(Cells(1, 3).Value)
eps = CDbl(Cells(1, 4).Value)
dx = (b - a) / CDbl(n)
For i = 0 To n Step 1
x = a + CDbl(i) * dx
f = (1 + 5 * x) ^ (1 / 3)
s = 1#
w = 1 / 3 * (5 * x)
j = 2
q = 2

Do
s = s + w
w = (-1) * w * q * x / (3 * j)
j = j + 1
q = 2 + (3 * (j - 2))

Loop While Abs(w) >= eps
Cells(4 + i, 1).Value = i + 1
Cells(4 + i, 2).Value = x
Cells(4 + i, 3).Value = f
Cells(4 + i, 4).Value = s
Cells(4 + i, 5).Value = (f - s) / (f * 100)
Next i
End Sub

Visualbasic, liczby doskonałe

Sat, 02 Jul 2016 22:18:49 +0000

Witam, potrzebuje na zaliczenie z informatyki napisac program w visualbasic w excelu ktory znajdzie wszystkie liczby doskonale ponizej 1000, problem w tym ze jestem zielony z programowania i tutaj powstaje pytanie czy bylby ktos w stanie pomoc mi zrobic ten program?