Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս պատճենել 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- ից արժեք ընտրելիս այս ընտրված գրառումն ինքնաբերաբար կցուցադրվի ակտիվ բջիջում:


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

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Kalau sel aktifnya ditentuka, seperti misalnya D7, bagaimana code nya?
Terima Kasih
This comment was minimized by the moderator on the site
maksud saya, code vba berikut, untuk cel aktif yang randomKode VBA: Salin nilai Combo Box ke sel aktif
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub

kalau cel aktifnya ingin di tentukan misalnya text dari combo box tersebut ingin berada di cell D7, bagaimana merubah code vba nyaterima kasih
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations