Új hozzászólás Aktív témák

• #14025 Delila_1 veterán buherton #14024

  Új Válasz 2012-06-16 09:57:03 #14025

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz buherton #14024 üzenetére

  Költözés (és T-home) miatt nincs internetem, ezért nem válaszoltam előbb.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" And IsNumeric(Target) Then
  Sheets("Munka2").Cells.Interior.ColorIndex = 3
  End If
  End Sub

• #14015 Delila_1 veterán buherton #14010

  Új Válasz 2012-06-12 17:33:38 #14015

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz buherton #14010 üzenetére

  Az A1:A10 tartomány rövidítését beírja a B1:B10 tartományba, és megvizsgálja a COUNTIF (darabteli) függvénnyel, hogy hány db ilyen van a B oszlopban. Ha 1-nél több, akkor a B oszlopba az A megfelelő cellájának az első és harmadik betűjét írja. Lehetne cifrázni, mert előfordulhat, hogy több azonos alakul ki így is. Ahhoz újabb ciklusok kellenek, egy Do-Loop, és egy For-Next. Ha több időm lesz, és szükséges, megírom.

  Sub rovidites()
  Dim sor%, szo$, betu%
  For sor% = 1 To 10
  szo$ = Cells(sor%, "A")
  If InStr(1, szo$, " ") Then 'ha van benne szóköz
  For betu% = 1 To Len(szo$)
  If Asc(Mid(szo$, betu%, 1)) > 64 And Asc(Mid(szo$, betu%, 1)) < 91 Then 'nagybetű
  Cells(sor%, "B") = Cells(sor%, "B") & Mid(szo$, betu%, 1)
  End If
  Next
  Else
  Cells(sor%, "B") = Left(szo$, 2)
  End If
  If WorksheetFunction.CountIf(Columns(2), Cells(sor%, "B")) > 1 Then _
  Cells(sor%, "B") = Left(szo$, 1) & Mid(szo$, 3, 1)
  Next
  End Sub

• #14009 Delila_1 veterán buherton #14008

  Új Válasz 2012-06-12 10:08:29 #14009

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz buherton #14008 üzenetére

  Ehhez nem kell makró. A =KISBETŰ(A1) függvény megteszi.

  Mire jó egymás után a
  Sheets(1).Activate
  Sheets(2).Activate ?

  Ez annyit csinál, hogy egymás után a két lapot aktívvá teszi. Mivel az első lap aktiválása után nem csinálsz semmit, az első sor kihagyható.

• #14006 cousin333 addikt buherton #14005

  Új Válasz 2012-06-11 20:49:47 #14006

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  cousin333

  addikt

  válasz buherton #14005 üzenetére

  "Az már csak hab a tortán, hogy két gépen dolgozok. Egyiken magyar office 2010 van, a másikon angol office 2003."

  Részvétem...

  "Hogyan lehet olyan function készíteni, hogy ne legyen bemenő változó, és ne térjen vissza semmivel? Egyáltalán lehet ilyen?"

  Tudtommal nem lehet. A function azért function, mert értékkel tér vissza. Cellát formázni meg pláne nem lehet vele, még azt sem, amelyikbe beleírod.

  Szubrutinnal viszont tudsz formázni, nem kell, hogy bemenete vagy kimenete legyen. Csak a hívását kell megoldanod valahogy. Vagy egy másik függvény triggereli (szubrutin, nem function!), vagy mondjuk egy gombra kötöd.

• #14004 cousin333 addikt buherton #13992

  Új Válasz 2012-06-11 19:57:41 #14004

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  cousin333

  addikt

  válasz buherton #13992 üzenetére

  Nem hiszem, hogy korlát lenne. Inkább a 81. sorban (vagy rekordban) van valami, ami nem tetszik neki (pl nem szám van ott, ahol ő azt vár). Nem ír ki valami hibaüzenetet?

  De továbbiakat csak akkor tudunk mondani, ha valami konkrétumot kapunk.

• #13991 cousin333 addikt buherton #13990

  Új Válasz 2012-06-08 20:00:52 #13991

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  cousin333

  addikt

  válasz buherton #13990 üzenetére

  Ha valami konkrétat akarsz, arra ott a makrórögzítés. Felveszel néhány egyszerű lépést, majd megnézed, mit lett belőle.

  Egyébként meg ott a VB Explorer (vagy mi) beépítve, esetleg az MS oldalai.

• #13763 Fire/SOUL/CD félisten buherton #13762

  Új Válasz 2012-05-17 22:07:39 #13763

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz buherton #13762 üzenetére

  Mert a sor és oszlop paraméter Cells() függvényben nem lehet 0.
  A munkalap A1 cellája a Cells(1,1)

Új hozzászólás Aktív témák