VBA.Mania

vbamania.pl

Dziś jest czwartek, 02 maja 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	wyswietlanie kolejnych liczb podzielnych przez wybrany dzielnik w vba otwarty rozpoczął: katarzyna.k9876 postów: 4

napisał: Trebor postów: 1209 umieszczony: 9 kwietnia 2012 07:05
	Jeśli piszesz o poziomie to adres będzie Cells(1,b), co łatwo możesz zmienić w podanym kodzie. Zakładasz sytuację idealną to jest taką gdy użytkownik poda wymagane informacje. W komunikacie używasz słowa Wybierz co po części sugeruje raczej wskazywanie a nie wpisywanie. Czy potrafisz przekształcić funkcję InputBox, aby możliwe było "klikanie" na komórkę?

napisał: katarzyna.k9876 postów: 2 umieszczony: 7 kwietnia 2012 22:50
	działa tylko że przy takim zapisie nie było by sensu pytać o sposób wyświetlania (poziom czy pion) poniewaz podajać komórke poczatkowa w formie np. B3 a drugą B18 to juz wiadomo czy to pion czy poziom. My pytając o numer komorki mamy uzyskac tylko liczbe a druga współrzędna komórki miała być 1 (tak np jeżeli ktoś wybiera poziom to współrzędne komórki poczatkowej to (b,1))

napisał: Trebor postów: 1209 umieszczony: 7 kwietnia 2012 18:49
	Zobacz czy dla poziomu spełnia założenia. Oczywiście zakładamy poprawny sposób podania danych przez użytkownika. Sub Makro4() Dim a As Byte, b As String, c As String, x As Double, i As Integer a = InputBox("wybierz sposób wyświtlania: poziomy-1 , pionowy-2") b = InputBox(" wybierz komórke początkową") 'zakładam zapis typu np. B2 c = InputBox("wybierz komórke końcową") 'zakładam zapis typu np. G2 x = InputBox("wybierz dzielnik") If a = 1 Then For i = 0 To Range(c).Column - Range(b).Column Range(b).Offset(0, i) = (i + 1) * x Next i Else For i = b To c Next i End If End Sub

napisał: katarzyna.k9876 postów: 2 umieszczony: 7 kwietnia 2012 17:31
	mam problem z napisaniem kodu. mam do napisania program który na początku będzie pytał użytkownika o sposób wyświetlania danych(poziomy pionowy) o pierwsza komórkę w której ma zacząć wyświetlać i ostatnią oraz o dzielnik(x) a w komórkach maja się pojawiać kolejne liczby podzielne przez ten właśnie dzielnik (x) . i z tą osatnią cześcią mam własnie problem tzn z wyswietlaniem kolejnych liczb podzielnych przez wybrany dzielnik. pomóżcie tyle udało mi się napisać Option Explicit Sub Makro4() Dim a As Integer Dim b As String Dim c As String Dim x As String Dim i As Integer a = InputBox("wybierz sposób wyświtlania: poziomy-1 , pionowy-2") b = InputBox(" wybierz komórke początkową") c = InputBox("wybierz komórke końcową") x = InputBox("wybierz dzielnik") If a = 1 Then For i = b To c Next i Else For i = b To c Next i End If End Sub

wstecz 1 dalej

wszystkich stron: 1