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

• #14346 Fire/SOUL/CD félisten pitman #14342

  Új Válasz 2012-07-17 00:01:05 #14346

  Ú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 pitman #14342 üzenetére

  Ezt csak makróval lehet.

  Amice

  Function FSCD_Generator() As Variant
  
  Dim NumberOfDigits As Integer, RNDRange As Integer, MyIndex As Integer
  Dim MyDigits As Variant, MyNumber As Variant
  MyDigits = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
  
  'Hány számjegyű legyen a generált szám
  '(10 számjegyűnél nem lehet több, mert akkor biztosan ismétlődik legalább 1 számjegy)
  
  NumberOfDigits = 8
  
  If NumberOfDigits < 1 Or NumberOfDigits > 10 Then
  FSCD_Generator = "A számjegyek száma 1 és 10 közé kell, hogy essen!"
  Exit Function
  End If
  
  RNDRange = UBound(MyDigits)
  MyNumber = ""
  For i = 0 To NumberOfDigits - 1
  MyIndex = WorksheetFunction.RandBetween(0, RNDRange)
  MyNumber = MyNumber + MyDigits(MyIndex)
  If MyIndex <> RNDRange Then
  For j = MyIndex To RNDRange - 1
  MyDigits(j) = MyDigits(j + 1)
  Next j
  End If
  RNDRange = RNDRange - 1
  Next i
  
  FSCD_Generator = MyNumber
  
  End Function

• #11679 pitman őstag pitman #11678

  Új Válasz 2011-10-13 12:06:57 #11679

  Ú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

  

  pitman

  őstag

  válasz pitman #11678 üzenetére

  Tárgytalan, megtaláltam a megoldást.

• #11677 Delila_1 veterán pitman #11676

  Új Válasz 2011-10-13 09:24:02 #11677

  Ú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 pitman #11676 üzenetére

  Ha itt nem kapsz választ, próbáld meg ITT.

• #11393 Fire/SOUL/CD félisten pitman #11392

  Új Válasz 2011-09-19 14:52:09 #11393

  Ú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 pitman #11392 üzenetére

  [link]
  Modulban kell deklarálni, akkor bárhonnan, bármi eléri.

• #11351 m.zmrzlina senior tag pitman #11350

  Új Válasz 2011-09-15 15:57:05 #11351

  Ú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

  

  m.zmrzlina

  senior tag

  válasz pitman #11350 üzenetére

  Nincs mit.
  

• #11310 m.zmrzlina senior tag pitman #11307

  Új Válasz 2011-09-13 13:31:12 #11310

  Ú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

  

  m.zmrzlina

  senior tag

  válasz pitman #11307 üzenetére

  Ha erre gondolsz, akkor az ActiveSheet.Name helyett próbálj meg Sh.Name-t használni.

  Így:
  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  MsgBox "A(z) " & Sh.Name & " munkalapon a " & Target.Row & ". sor és a(z) " & Target.Column & ". oszlop" & Chr(10) & " metszéspontjában lévő cella módosult!"
  End Sub

  Nem használtam még ezt a módszert de az argumentumokból ez következik.

• #11263 m.zmrzlina senior tag pitman #11262

  Új Válasz 2011-09-07 18:14:37 #11263

  Ú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

  

  m.zmrzlina

  senior tag

  válasz pitman #11262 üzenetére

  Vagy most értettem meg a problémát vagy ha ezer évig élek sem fogom megérteni. Összeraktam Legóból, ezt szeretnéd?

  

• #11241 m.zmrzlina senior tag pitman #11240

  Új Válasz 2011-09-06 12:26:42 #11241

  Ú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

  

  m.zmrzlina

  senior tag

  válasz pitman #11240 üzenetére

  Vagy én értek valamit félre vagy te. Nekem a másik feltétel is működik:

  

  Ha üres cellát is el lehet fogadni az 1 vagy 2 helyett akkor módosítani kell a képletet:

  =VAGY(HA(ÉS(B1<>"M";SZÁM(HOL.VAN(B2;H2:I2;0)));VAGY(B5=1;B5=""));HA(ÉS(B1="M";SZÁM(HOL.VAN(B2;J2:K2;0)));VAGY(B5=2;B5="")))

  Az elírást én is észrevettem a képletet is ennek figyelembe vételével csináltam meg.

• #11233 m.zmrzlina senior tag pitman #11231

  Új Válasz 2011-09-05 18:24:21 #11233

  Ú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

  

  m.zmrzlina

  senior tag

  válasz pitman #11231 üzenetére

  Én is ezen gondolkoztam, hogy viszonylag jól körülhatárolt feltételek alapján lehet a bevihető adat 1 vagy 2 akkor minek az érvényesítés de ha ez kell ám legyen.

  Ezt tedd a képletbe:

  =VAGY(HA(ÉS(B1<>"M";SZÁM(HOL.VAN(B2;H2:I2;0)));B5=1);HA(ÉS(B1="M";SZÁM(HOL.VAN(B2;J2:K2;0)));B5=2))

  A kérdés második felére:
  Van a Workbook objektumnak SheetChange eseménye:

  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  MsgBox "A(z) " & ActiveSheet.Name & " munkalapon a " & Target.Row & ". sor és a(z) " & Target.Column & ". oszlop" & Chr(10) & " metszéspontjában lévő cella módosult!"
  End Sub

  Sosem használtam még de kipróbáltam és úgy tűnik működik.
  Jobbklikk a ThisWorkbook-on majd View Code helyre másolni.

• #11232 Delila_1 veterán pitman #11231

  Új Válasz 2011-09-05 18:06:57 #11232

  Ú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 pitman #11231 üzenetére

  Már csak azt nem értem, mi az -nek érvényesítés! Egy szép hosszú, egészséges képlettel be tudod íratni a B5-be az 1-et, vagy 2-t. A felhasználó úgyis csak azt választhatná a két érték közül, ami a B1 és a B2 értéke szerint 1, vagy 2.

  =HA(ÉS(B1<>"M";SZÁM(HOL.VAN(B2;H2:I2;0)));1;HA(ÉS(B1="M";SZÁM(HOL.VAN(B2;J2:K2;0)));2;""))

  Ha egyik feltétel sem igaz, akkor üres string kerül a B5-be.

  A B6-ban az =B5=1 képlet IGAZ eredményt ad, ha valóban egyenlő a B5 1-gyel, minden más esetben HAMIS lesz az értéke. Nem tudom erre van-e szükség.

• #11230 m.zmrzlina senior tag pitman #11229

  Új Válasz 2011-09-05 14:16:22 #11230

  Ú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

  

  m.zmrzlina

  senior tag

  válasz pitman #11229 üzenetére

  A kérdésed első részét légy szíves illusztráld képpel és a kérdéses fv-nyel mert így az az érzésem, hogy nagyon messziről fogunk nekiindulni.

  A változtatott cella sorát a Target.Row-val az oszlopát a Target.Column-nal tudod lekérdezni.
  Pl:

  Private Sub Worksheet_Change(ByVal Target As Range)
  MsgBox "A(z) " & Target.Row & ". sor és a(z) " & Target.Column & ". oszlop" & Chr(10) & " metszéspontjában lévő cella módosult!"
  End Sub

  Arra figyelj, hogy ezt nem új modulba kell másolni, hanem ahhoz a munkalaphoz kell rendelni amin a változást akarod figyelni. Jobbkatt a munkalap fülön majd Kód megjelenítése opció.

  Biztos van más módszer is, én így szoktam csinálni.

• #11218 m.zmrzlina senior tag pitman #11217

  Új Válasz 2011-09-01 12:42:19 #11218

  Ú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

  

  m.zmrzlina

  senior tag

  válasz pitman #11217 üzenetére

  Az E:F oszlopok külső adatbázisból származnak és van egy nem nyomtatható (meg sem jelenített) karakter az elején amit a TISZTÍT() sem távolít el (meg semmiféle számformátumra állítás) csak ha beállok az első számjegy elé és nyomok egy <Backspace>-t

  

• #11210 m.zmrzlina senior tag pitman #11208

  Új Válasz 2011-08-31 16:07:04 #11210

  Ú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

  

  m.zmrzlina

  senior tag

  válasz pitman #11208 üzenetére

  Nincs mit!

  Ezek szerint nincsenek vegyes (számok betűk vegyesen) celláid. Csak mert amit a #11206 végén írtam az nettó baromság.

• #11207 Fehér Mancs tag pitman #11194

  Új Válasz 2011-08-31 08:39:19 #11207

  Ú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

  

  Fehér Mancs

  tag

  válasz pitman #11194 üzenetére

  Makró nélkül szerintem nem lehet megoldani, legpraktikusabb megoldás a reguláris kifejezések használata:

  Ezt először aktiválni kell a VBA-ban (Microsoft VBScript Regular Expressions 5.5 -> aktiválás leírása pl.: http://lispy.wordpress.com/2008/10/17/using-regex-functions-in-excel/ )

  Ezután pedig egyszerű makró közbeiktatásával lehet használni az excelben is függvényként:
  pl.:
  makró:
  Dim reg As New RegExp
  
  Public Function RegExpLike(Source As Range, Pattern As String, Optional IgnoreCase As Boolean = True, Optional MultiLine As Boolean = True) As Boolean
  
  reg.IgnoreCase = IgnoreCase
  reg.MultiLine = MultiLine
  reg.Pattern = Pattern
  
  RegExpLike = reg.Test(Source.Value)
  
  End Function

  Az excel függvény, ami ellenőrzi, hogy az adott cellában alfanumerikus karakter van (ékezetes betűkkel megspékelve):
  =RegExpLike(A1;"^[A-Z0-9ÁÉÍÓÖŐÚÜŰ]*$")

  Szinte bármilyen minta keresésére, cseréjére, számolgatására fel lehet használni, neten jó leírások vannak erről.

• #11200 Delila_1 veterán pitman #11198

  Új Válasz 2011-08-30 17:04:13 #11200

  Ú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 pitman #11198 üzenetére

  Ha az érvényesítési listában felsoroltakon kívül is akarsz bevinni adatot, az Adatok érvényesítése párbeszéd doboz másik két fülén vedd ki a pipát a figyelmeztetés és a hibaüzenet elől.

  A feltételes formázás képlete ilyesmi legyen:

  =és(A'<>"A";A'<>"AB";....)

• #11199 m.zmrzlina senior tag pitman #11198

  Új Válasz 2011-08-30 16:59:31 #11199

  Ú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

  

  m.zmrzlina

  senior tag

  válasz pitman #11198 üzenetére

  Én úgy adnám meg a feltételt adatérvényesítésben, hogy a "Megengedve" opciónál nem a "Lista"-t választanám ki hanem az "Egyéni"-t

  Itt képlettel a következőképpen adhatod meg, hogy mit fogadsz el bevitelként:

  =VAGY(SZÁM(I1);SZÁM(HOL.VAN(I1;$M$6:$M$11;0)))

  A fenti képlet I1-be számot és olyan karaktersorozatot enged ami az M6:M11 tartományban benne van. Ugyanis a HOL.VAN() #HIÁNYZIK-ot (hibát és nem számot) ad vissza ha a keresési érték nem szerepel a táblázatban.

  Ha a SZÁM() és a HOL.VAN()első argumentuma relatív hivatkozással van megadva (pl I1) akkor nyugodtan másolhatod az adatérvényesítést az összes érintett celládba, működni fog.

• #11197 Delila_1 veterán pitman #11196

  Új Válasz 2011-08-30 14:13:06 #11197

  Ú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 pitman #11196 üzenetére

  Úgy látom, titok, melyik Excelt alkalmazod.

  Ha nem akarsz nagy területet feltételesen formázni, lehet egy makrót rendelni a lapodhoz, ami figyeli a bevitt értékeket, és azoknak megfelelően formázza a cellákat.

  A makróhoz szükséges tudni, hova akarod bevinni korlátozottan az adatokat, melyek legyenek a megengedett értékek, melyik értékhez milyen formátumot szeretnél megadni, és hogy a bevitt érték celláját, vagy másikat formázzon-e.

• #11195 Delila_1 veterán pitman #11194

  Új Válasz 2011-08-30 13:26:00 #11195

  Ú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 pitman #11194 üzenetére

  Az érvényesítés, és a feltételes formázás a megoldás.
  Az Excelnek melyik verzióját használod? A különböző verziókban máshol találod meg ezeket a funkciókat.

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