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

Ինչպե՞ս պատճենել Combo Box- ի արժեքը Excel- ում ակտիվ բջիջում:

Որոշ դեպքերում կարող է անհրաժեշտ լինել ընտրված արժեքը Combo Box- ից պատճենել ակտիվ բջիջ: Սովորաբար, դուք պետք է մուտք գործեք Combo Box, պատճենեք և տեղադրեք այն ակտիվ բջիջում ձեռքով: Այս հոդվածը ներկայացնում է հարմար մեթոդ `ակտիվ բջիջը ավտոմատ կերպով թարմացնելու համար` միաժամանակ ընտրելով արժեքները Combo Box- ում:

Պատճենեք Combo Box- ի արժեքը ակտիվ բջիջում VBA կոդով

VBA 1. Կոմբոյի տուփի արժեքը պատճենեք ակտիվ բջիջին Հրամանի միջոցով
VBA 2. Ավտոմատ պատճենեք համակցված տուփի արժեքը ակտիվ բջիջում


Պատճենեք Combo Box- ի արժեքը ակտիվ բջիջում VBA կոդով

Ստորև ներկայացված VBA կոդերը կարող են օգնել ձեզ ինքնաբերաբար պատճենել combo box արժեքը ակտիվ բջիջում: Խնդրում եմ արեք հետևյալ կերպ.

VBA 1. Կոմպոզիցիայի տուփի արժեքը պատճենեք ակտիվ բջիջին հրամանի կոճակի միջոցով

1. Նախ, անհրաժեշտ է հրամանի կոճակը մտցնել աշխատաթերթի մեջ, ինչպես ցույց է տրված նկարում:

2. Աջ կտտացրեք հրամանի կոճակին, ապա կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից: Տեսեք,

3. Պատուհանման մեջ Microsoft Visual Basic հավելվածների համար պատուհան, փոխարինեք բնօրինակ կոդը Code պատուհանում ստորև նշված VBA կոդով:

VBA կոդ. Պատճեն Combo Box- ի արժեքը ակտիվ բջիջում

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

ՆշումԿոդում CommandButton1- ը տեղադրված հրամանի կոճակի անունն է, իսկ ComboBox1- ը Combo Box- ի անունն է, որից դուք պատճենելու եք արժեքը: Խնդրում ենք փոխել դրանք, ինչպես ձեզ հարկավոր է:

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

Այսուհետ, երբ անհրաժեշտ է պատճենել համակցված տուփի արժեքը ակտիվ բջիջում, խնդրում ենք պարզապես ընտրեք բջիջը, այնուհետև կտտացրեք Հրահանգի կոճակին ՝ դա կատարելու համար:

VBA 2. Ավտոմատ պատճենեք համակցված տուփի արժեքը ակտիվ բջիջում

Ստորև ներկայացված VBA կոդը կարող է օգնել ձեզ ավտոմատ կերպով թարմացնել ակտիվ բջիջը `միաժամանակ ընտրելով արժեքները Combo Box- ում: Կարող եք անել հետևյալ կերպ.

1. Համոզվեք, որ Դիզայնի ռեժիմ միացված է տակ Երեվակիչ էջանիշը.

2. Աջ կտտացրեք Կոմբո տուփին, որտեղից պատճենելու եք արժեքը, ապա կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից: Տեսեք,

3. Պատուհանման մեջ Microsoft Visual Basic հավելվածների համար պատուհանում, փոխարինեք բնօրինակը ծածկագիրը Կոդ ստորև նշված VBA կոդով պատուհան:

VBA կոդ. Պատճեն Combo Box- ի արժեքը ակտիվ բջիջում

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

ՆշումԿոդում, ComboBox1- ը Combo Box- ի անունն է, որտեղից պատճենելու եք արժեքը:

4. Սեղմեք ալտ + Q ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհանը փակելու համար, և Developրագրավորող ներդիրի տակ անջատելու Նախագծման ռեժիմը

Այսուհետ, Combo Box- ից արժեք ընտրելիս այս ընտրված գրառումն ինքնաբերաբար կցուցադրվի ակտիվ բջիջում:


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


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (2)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Kalau sel aktifnya ditentuka, seperti misalnya D7, bagaimana code nya?
Տերիմա Քասիհ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
maksud saya, կոդը vba berikut, untuk cel aktif yang randomKode VBA: Salin nilai Combo Box ke sel aktif
Մասնավոր ենթահամակարգային տուփ1_Change()
ActiveCell.Value = Me.ComboBox1.Value
Վերջ Sub

kalau cel aktifnya ingin di tentukan misalnya text dari combo box tersebut ingin berada di cell D7, bagaimana merubah code vba nyaterima kasih
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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