Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս գործարկել Macro- ն ՝ կտտացնելով Excel- ի հատուկ բջիջը:

Microsoft Excel- ի հետ աշխատելիս կարող է իմանալ, թե ինչպես գործարկել որոշակի մակրո հրամանի կոճակով: Բայց գիտե՞ք, թե ինչպես գործարկել Macro- ն ՝ պարզապես կտտացնելով աշխատաթերթի որոշակի բջիջի վրա: Այս հոդվածը ցույց կտա ձեզ մակրո գործարկելու մեթոդը ՝ մանրամասներով կտտացնելով որոշակի բջիջի վրա:

Ձգեք կամ գործարկեք մակրո ՝ սեղմելով VBA կոդով հատուկ բջիջ


Ձգեք կամ գործարկեք մակրո ՝ սեղմելով VBA կոդով հատուկ բջիջ

Հետևյալ VBA կոդը կարող է օգնել ձեզ գործարկել մակրո ՝ Excel- ում սեղմելով որոշակի բջիջ: Խնդրում եմ, արեք հետևյալ կերպ.

1. Բջջի հետ աշխատաթերթի վրա հարկավոր է կտտացնել ՝ Մակրո գործարկելու համար, աջ կտտացրեք թերթիկի ներդիրին և այնուհետև կտտացրեք Դիտել կոդը համատեքստի ընտրացանկից:

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք ներքևում նշված VBA գրությունը Code պատուհանում:

VBA կոդ. Ձգեք կամ գործարկեք մակրո ՝ սեղմելով որոշակի բջիջ

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("D4")) Is Nothing Then
            Call MyMacro
        End If
    End If
End Sub

Notes:

1. Կոդում, D4- ը այն բջիջն է, որը կտտացրեք ՝ Macro գործարկելու համար.

2. Խնդրում ենք փոխարինել ծածկագրի անունը MyMacro Macro- ի միջոցով դուք կգործեք աշխատաթերթում: Տեսեք,

3. Սեղմեք ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այսուհետ, ընթացիկ աշխատաթերթում D4 բջիջը սեղմելիս ձեր նշված Macro- ն անմիջապես գործարկվելու է:


Առնչվող հոդվածներ:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (37)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գործարկեք կամ գործարկեք մակրո՝ սեղմելով VBA կոդով հատուկ բջիջ, սա չհաջողվեց գործարկել: Ես փորձեցի այն շատ տարբեր ձևերով, բայց այդպես էլ չհասավ այն, ինչ խոստացված էր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը կաշխատի միայն այն դեպքում, եթե այն տեղադրեք «ThisWorkbook» մոդուլում: Այն չի աշխատում ընդհանուր մոդուլի վրա:
աշխատանքային գրքի անուն > Microsft Excel Objects > ThisWorkbook:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը կաշխատի աշխատանքային թերթիկի կոդի մոդուլի վրա: Դուք պետք է աջ սեղմեք թերթիկի ներդիրի վրա և սեղմեք «Դիտել կոդը»: Սա կբացի կոդի մոդուլը միայն այդ աշխատաթերթի համար: Ապա տեղադրեք նշված կոդը։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​ցանկանում եք ունենալ մի քանի մակրո, նույն էջում տարբեր մակրո գործարկող բջիջներ, դա հնարավո՞ր է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Սիմոն,
Ստորև բերված VBA սկրիպտը կարող է օգնել ձեզ գործարկել տարբեր մակրոներ՝ սեղմելով նույն էջի բջիջների վրա:

Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
Եթե ​​Target.Count = 1 Ապա
Եթե ​​ոչ խաչմերուկ (Թիրախ, միջակայք («D4»)) ոչինչ չէ, ապա զանգահարեք MyMacro1
Եթե ​​ոչ խաչմերուկ (Թիրախ, միջակայք («D8»)) ոչինչ չէ, ապա զանգահարեք MyMacro2
Եթե ​​ոչ խաչմերուկ (Թիրախ, միջակայք («D10»)) ոչինչ չէ, ապա զանգահարեք MyMacro3
Վերջ: Եթե
Վերջ Sub

Խնդրում ենք ավելացնել «If Not Intersect(Target, Range(«D10»)) Nothing, then Call MyMacro» տողը, որպեսզի գործարկվի ավելի շատ մակրո՝ սեղմելով բջիջը: Եվ փոխեք բջիջների և մակրո անունները կոդի մեջ՝ ելնելով ձեր կարիքներից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն չի աշխատում իմ Excel-ում: Կոդը ճիշտ է?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Կամիլա,
Ներողություն անհանգստության համար. Փորձեք ստորև նշված VBA կոդը:

Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
Dim xRgArr Որպես տարբերակ
Dim xFunArr որպես տարբերակ
Dim xFNum-ը որպես ամբողջ թիվ
Dim xStr Որպես տող
Dim xRg որպես տիրույթ
xRgArr = Array ("A1", "D1", "C1") 'Բջիջներ, որոնք օգտագործվում են մակրո գործարկելու համար
xFunArr = Array («Code name1», «Code name2», «Code name3») 'Համապատասխան ծածկանունները
Եթե ​​Selection.Count = 1 Ապա
xFNum-ի համար = 0 To UBound (xRgArr)
Սահմանել xRg = ActiveSheet.Range(xRgArr(xFNum))
If Not Intersect (Target, xRg) ոչինչ է, ապա
xStr = xFunArr (xFNum)
Application.Run xStr
Վերջ: Եթե
հաջորդ
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հիանալի աշխատեց և կխնայի ինձ ժամանակի բեռը. շնորհակալություն ձեր գիտելիքները կիսելու համար. շատ գնահատելի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուրախ եմ, որ կարողացա օգնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի: Լավ է աշխատում... Շնորհակալություն...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն.

Ես սա լավ է աշխատում, բայց կցանկանայի պայման ավելացնել մակրո գործարկելու համար: Ես միայն ուզում եմ գործարկել մակրոն, եթե այն բջիջը, որի վրա ես սեղմում եմ, պարունակում է որոշակի արժեք:
Օրինակ, երբ ես սեղմում եմ F6 բջիջը, ես ուզում եմ, որ մակրոն գործարկվի, եթե E6 բջիջը պարունակում է «x», բայց եթե E6 բջիջը դատարկ է, մակրոն չպետք է աշխատի:
Հուսով եմ, որ դա իմաստ ունի:
Շնորհակալություն

ահա իմ բնօրինակ կոդը՝ առանց պայմանի.


Option Explicit- ը

Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
Եթե ​​Selection.Count = 1 Ապա
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («F6:F18»)) Ոչինչ է, ուրեմն
Զանգահարեք ամսաթիվը
Վերջ: Եթե
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Հետևյալ VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը: Խնդրում ենք փորձել և շնորհակալություն մեկնաբանության համար:

Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
Dim xRg որպես տիրույթ
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («F6:F18»)) Ոչինչ է, ուրեմն
Սահմանել xRg = ActiveSheet.Cells (Target.Row, Target.Column - 1)
Եթե ​​(xRg.Value = "") Կամ (xRg.Value <> "X") Ապա Ելք Sub
Զանգահարեք ամսաթիվը ընտրելու համար
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, բայց ինչ վերաբերում է միաձուլված բջիջներին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ալբեր,
Կոդը չի աշխատում միացված բջիջների համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ես օգտագործում եմ OpenOffice-ը և աջ սեղմել եմ sheet-tab-ի և ընտրված իրադարձությունների վրա, այնուհետև ընտրել եմ այս մակրոն MyMacros-ից: Այնուամենայնիվ, ես սխալ եմ ստանում հետևյալ տողում. Եթե Selection.Count = 1 Ապա >>> փոփոխականը սահմանված չէ...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi James,
Կոդն աշխատում է միայն Microsoft Office Excel-ի համար: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս մակրոյում իմ ամբողջական կոդը հետևյալն է.


Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)

Dim val As String
REM val = Շրջանակ («A2»): Արժեք

Եթե ​​Selection.Count = 1 Ապա
Եթե ​​ոչ խաչմերուկ (Թիրախ, միջակայք («D24»)) Ոչինչ է, ապա
REM Զանգահարեք MyMacro-ին
val = Շրջանակ («D24»). Արժեք
Շրջանակ («B27»). Արժեք = val
Վերջ: Եթե
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս թեման շատ հետաքրքիր է, և ես հետաքրքրված եմ, բայց չգիտեմ որտեղ գտնել, բարեբախտաբար դուք ստեղծել եք այս թեման, հուսով եմ բոլորը կօգնեն ինձ http://run-3.online
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Excel 2002 (XP). Եթե աշխատանքային գիրքը բացվում է՝ ընտրելով «Ֆայլ» և սեղմելով «Shift», այն անջատում է մակրոները այդ թերթում, խնդիրն այն է, որ եթե ընտրեմ «Գործիքներ > Մակրո > Մակրոներ...», ես կարող եմ գործարկել մակրո: այնուամենայնիվ, ինչպե՞ս լուծել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ռոջեր,
Մենք չենք փորձարկել կոդը Excel 2002-ում (XP): Ինչու՞ չօգտագործել Microsoft Office-ի նոր տարբերակը: Ձեր գործն ավելի հեշտ կլինի։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նույն արդյունքը 2010թ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչու պարզապես չօգտագործել ավելի նոր տարբերակ, դա ավելի հեշտ կլինի
https://games.lol/racing/
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, բայց ինչ կասեք մի քանի բջիջների մասին մի քանի մակրո գործարկելու համար սեղմելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Փորձեք ստորև նշված VBA կոդը:

Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
Dim xRgArr Որպես տարբերակ
Dim xFunArr որպես տարբերակ
Dim xFNum-ը որպես ամբողջ թիվ
Dim xStr Որպես տող
Dim xRg որպես տիրույթ
xRgArr = Array ("A1", "D1", "C1") 'Բջիջներ, որոնք օգտագործվում են մակրո գործարկելու համար
xFunArr = Array («Code name1», «Code name2», «Code name3») 'Համապատասխան ծածկանունները
Եթե ​​Selection.Count = 1 Ապա
xFNum-ի համար = 0 To UBound (xRgArr)
Սահմանել xRg = ActiveSheet.Range(xRgArr(xFNum))
If Not Intersect (Target, xRg) ոչինչ է, ապա
xStr = xFunArr (xFNum)
Application.Run xStr
Վերջ: Եթե
հաջորդ
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս կոդի համար: Հնարավո՞ր է դա գործի դնել՝ սեղմելով ուրիշների հետ միացված բջիջի վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև M.Symonds,
Այս հոդվածի կոդը կարող է ձեզ լավություն անել. https://www.extendoffice.com/documents/excel/4354-excel-click-on-cell-to-run-macro.html
Շնորհակալություն մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարև, ես փորձում էի օգտագործել այս կոդը՝ տեղադրելու մակրո գործարկելու համար, բայց կարծես թե չեմ կարողանում հասկանալ, թե ինչպես ճիշտ տեղադրել մակրոն:

ահա իմ բնօրինակ Մարկոն

Sub Paste ()
'
Կպցնել մակրո
'

'
Շրջանակ («B34»): Ընտրեք
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
Սխալ, NoHTMLFormatting:=Ճիշտ է
Վերջ Sub


ցանկացած օգնություն գնահատելի է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, շնորհակալություն հետաքրքիր թեմայի համար: Իսկ եթե օրինակ ես ուզում եմ սեղմել D4-ի վրա Sheet1-ում և տեսնել Macro-ի արդյունքը Sheet2!F3-ում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այլևս չի աշխատում։
Worksheet_SelectionChange-ը լռելյայն գոյություն չունի: Նշանակում է, որ դուք չեք կարող օգտագործել դա մակրո գործարկելու համար:

Միակ ներկառուցված ենթակետերը, որոնք կարող եք օգտագործել, նշված են «Աշխատանքային գրքույկ» բացվող ցանկում, ուստի...

Միակ ամենամոտ բանը, որ կարող եք անել, Workbook_SheetBeforeDoubleClick-ի օգտագործումն է: Բայց այն կմտնի Խմբագրման ռեժիմ (դեռևս մեծ խնդիր չէ):
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև CodeKiller.Worksheet_SelectionChange-ը գոյություն ունի միայն Sheet(Code) խմբագրում: Աջ սեղմեք թերթի ներդիրին և սեղմեք Դիտել կոդը՝ Թերթի (Code) խմբագրիչը ակտիվացնելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարևոր է ընդգծել, որ մակրոն աշխատում է միայն աշխատաթերթում:
Մեզանից նրանք, ովքեր օգտագործում են սովորական տեսողական հիմնական խմբագրիչը, հաճախ մակրոները պահում են այլ վայրերում, քան ընթացիկ աշխատաթերթում:
Այս կոդերից ոչ մեկը չի աշխատի այդ իրավիճակում։
Ես գտնում եմ, որ այս կոդը շատ ավելի պարզ է, և այն շատ լավ է աշխատում ինձ համար. 

Մասնավոր ենթաթերթ_SelectionChange (ByVal Target As Excel.Range)
Եթե ​​ոչ խաչմերուկ (Range ("d1"), Target) ոչինչ է, ապա
Զանգահարեք աա
Վերջ: Եթե
Վերջ Sub
Sub aa() ' դրեք ձեր կոդը այստեղ
Շրջանակ («D1»): Ընտրեք
Ընտրություն.Պատճեն
Տարածք («F1»): Ընտրեք
ActiveSheet.PasteEnd ենթ
Ոն Ուելսը
jnw.wells@gmail.com
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ջոն Ուելս, շնորհակալություն կիսվելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նրանց համար, ովքեր ցանկանում են, որ սա աշխատի միավորված բջիջների համար, ամենաարագ և կեղտոտ ճանապարհը 2-րդ տողն է թարմացնել հետևյալ կերպ.
Բացահայտ տարբերակ

Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
Եթե ​​Selection.Count > 0 Այնուհետեւ
Եթե ​​ոչ խաչմերուկ (Թիրախ, միջակայք («D4»)) Ոչինչ է, ապա
Զանգահարեք MyMacro-ին
Վերջ: Եթե
Վերջ: Եթե
End SubSelection.Count-ն օգտագործվում է որոշելու համար, թե արդյոք ընտրությունը կատարվել է նախքան մնացած մակրոյի գործարկումը: Եթե ​​ձեր ընտրությունը բաղկացած է չորս բջիջներից, որոնք միավորվել են, Selection.Count-ը հավասար կլինի 4-ի, իսկ մնացած կոդը երբեք չի գործարկվի: Դուք կարող եք նաև փոխել տող 2-ը միաձուլված բջիջների ճշգրիտ թվով, բայց դա խնդիրներ կառաջացնի, եթե դուք միաձուլել լրացուցիչ բջիջները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մեծ Grazie, era una vita che sognavo di poterlo fare, se può essere utile a qualcuno avendo necessità di eseguire più codici su più celle per
aumentare il numero di opzioni basta aggiungere le nuove istruzionisempre sotto la stessa տարբերակն բացահայտ altrimente ci viene detto che il riferimento al
աշխատանքային թերթիկ ոչ միանվագ. Mi spiego meglio evidentente su come ho adattato il codice con il mio esempio;

Option Explicit- ը
Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
Եթե ​​Selection.Count = 1 Ապա
Եթե ​​ոչ խաչմերուկ (Թիրախ, միջակայք («Y64»)) Այն ժամանակ ոչինչ չէ
Տարածք («Y65:Y78»): Ընտրեք
Range («Y65»): Ակտիվացնել
Ընտրություն.Մաքուր բովանդակություն
Շրջանակ («Y65»): Ընտրեք
Վերջ: Եթե
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («A33»)) Այն ժամանակ ոչինչ չէ
Շրջանակ («A33»): Ընտրեք
Ընտրություն.Պատճեն
ActiveWindow.WindowState = xlՆվազագույնի հասցնել
Ուղարկեք ստեղներ «^v»
Ուղարկեք բանալիներ «{BACKSPACE}»
Վերջ: Եթե
Վերջ: Եթե
Վերջ Sub

Grazie ancora è Stata un'autentica Meraviglia!

Մասսիմո
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես այդ կոչման հետ կապված ոչ մի ակնկալիք չունեի, բայց ավելի շատ էի զարմանում։ Հեղինակը մեծ աշխատանք է կատարել: Մի քանի րոպե կարդացի և ստուգեցի փաստերը։ Ամեն ինչ շատ պարզ է ու հասկանալի։ Ինձ դուր են գալիս գրառումները, որոնք լրացնում են ձեր գիտելիքների բացերը: Այս մեկը այդպիսին է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hello,

No encuentro la manera de hacer lo que necesito. Espero de veras que me podáis ayudar.
Necesito que se lance una MACRO al hacer clic en una celda, pero no sé en qué celda va a ser, no lo puedo comparar con (si se ha seleccionado la celda A3, por ejemplo, que se lance la acción) porque por funcionalidades del fichero, las celdas se van a mover de sitio (se han podido insertar, mas o menos filas encima): Necesitaría poder saber qué celda es la que se ha seleccionado.
Hay alguna manera de poder hacer eso?
Կանխավ շնորհակալ եմ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Հոլա,
Բջջի հասցեն մշտական ​​է: Այն ամենը, ինչ դուք կարող եք տեղափոխել, բջիջի արժեքն է:
Ձեր նշած բջիջը VBA կոդում դեռևս այն բջիջն է, որը գործարկում է նշված VBA կոդը:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից