- DIGI Mobil
- Android alkalmazások - szoftver kibeszélő topik
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Eleglide C1 - a középérték
- Érintésnélküli fizetési megoldások - PayPass via NFC
- Apple AirPods Pro (2. generáció) - csiszolt almaságok
- Egyre közelebb a Poco F6 startja
- Xiaomi 11 Lite 5G NE (lisa)
- Yettel topik
Hirdetés
-
A legtöbb amerikai szerint a TikTok egy őket befolyásoló eszköz
it Egy felmérés szerint a legtöbb amerikai osztja azon véleményt, hogy a TikTok egy őket befolyásoló eszköz.
-
VR játék lesz az Batman: Arkham Shadow (Meta Quest 3)
gp Egyelőre csak egy teaser trailert kaptunk a teljes leleplezésre a Summer Game Festen kerül sor.
-
Snapdragon 8-as szériával várhatók a Honor 200-ak?
ma A Honor 200 állítólag a 8s Gen 3-at, a 200 Pro változat pedig a 8 Gen 3-at használja majd.
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
matekmatika
tag
válasz kraftxld #1241 üzenetére
''User kattint egy sorra (forrássor) kattint egy gombra ami futtatja a makrót''
Ez idáig ok, de
''kattint egy sorra (célsor) majd átmásolja a makró a forrássor B oszlopában lévő elemet a célsor A oszlopába''
Egy makro futása közben nem hiszem, hogy engedne az bárhová is kattogtatni. Max egy inputablakba be lehetne kérni, hogy melyik sorba akarod beilleszteni.
Vagy kellene még egy parancsgomb amely a beillesztést végző makrot indítaná az aktívvá tett cella alapján.
Viszont mindkettő megoldásnál gyorsabb szerintem a jobb klikk másolás - jobb klikk beillesztés variáció. -
lapa
veterán
válasz kraftxld #1241 üzenetére
egy ilyet csináltam proof-of-concept gyanánt:
sheet1 kódja:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range(Cells(Target.Row, 2), Cells(Target.Row, 3)).Copy
Cancel = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Paste Destination:=Range(Cells(Target.Row, 1), Cells(Target.Row, 2))
Cancel = True
End Sub
ez duplakattra másol, jobbkattra beilleszt. persze így mind a duplakatt, mind a jobbklikk csak erre használható. egyelőre nem tudtam elérni, hogy valami módon ellenőrizze a vágolap tartalmát, így egy eventbe sem tudtam belezsúfolni. ha valaki ki tudja így egészíteni, kíváncsi lennék rá... -
sonar
addikt
válasz kraftxld #3543 üzenetére
Hú vmikor a régiben még én irtam hasonló scriptet, igaz ott az volt, hogy naponta kellett 6 dbf-et egy excelbe belegyűrni és feldolgozni.
Holnap megnézem megvan-e még a melóhelyes gépemen.A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
Delila_1
Topikgazda
válasz kraftxld #3543 üzenetére
Vártam, hogy Sonar hátha megtalálja. Az alábbi makró csv-k megnyitásához készült, írd át dbf-re. Régebben írtam, és nem biztos, hogy ezen a fórumon.
Sub csv()
Const utvonal = "C:\Adatok\"
Dim FN As String, WB As Workbook
ChDir utvonal
FN = Dir(utvonal & "*.csv", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Set WB = Workbooks.Add
Workbooks.Open Filename:=FN
nev = Left(FN, Len(FN) - 3) & "xls"
'Ide írd be, amit az xls-ben el akarsz végeztetni
ActiveWorkbook.SaveAs Filename:=utvonal & nev, FileFormat:=xlNormal
WB.Close False 'Ez azonnal be is zárja a változatlan csv-t.
ActiveWindow.Close 'Ez meg a csv-hez képest módosított xls-t
End If
FN = Dir()
Loop Until FN = ""
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz kraftxld #4794 üzenetére
Hali!
Kösz a választ, én is rengeteget kutakodtam, szerintem sem lehet...
Csak az zavar az egészbe, hogy egy nagy erőforrás-zabáló alkalmazás az Office 2007, ami egyáltalán nem baj, mert van mögötte tartalom is.
De egy ilyen apró dolgon, mint ez a max 31 karakteres munkalapnév, nem igazán kellene spórolni....
Na majd megkérdem MS barátunkat, hogy mi is a helyzet...Mégegyszer kösz a "megerősítést"...
Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz kraftxld #5532 üzenetére
Hali!
Konkrétan beállítási lehetőségről nem tudok, csak egy megoldás, amit én is gyakran használok, nevezetesen, hogy meg kell jeleníteni a vágólapot.
Egyszerűen csak add hozzá a Vágólap/Clipboard parancsikont a gyorselérésű eszköztárhoz, és már látható is lesz a vágólap tartalma, ahonnan akárhányszor beilleszthető egy vagy több adat is. [link]Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Új hozzászólás Aktív témák
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- DIGI Mobil
- Háztartási gépek
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- OLED TV topic
- Android alkalmazások - szoftver kibeszélő topik
- Mibe tegyem a megtakarításaimat?
- Androidos fejegységek
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- További aktív témák...