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

Ինչպե՞ս ավտոմատ կերպով ընտրել տեքստային տուփի տեքստը, երբ այն ընտրված է Excel- ում:

Տեքստային տուփում (ActiveX Control) տեքստերը ջնջելու համար, նախ, անհրաժեշտ է ընտրել տեքստային տուփի ներսում գտնվող բոլոր տեքստերը: Այս հոդվածը խոսում է այն մասին, որ տեքստային տուփի բոլոր տեքստերն ավտոմատ կերպով ընտրվում են Excel- ում տեքստային տուփը կտտացնելիս:

Ավտոմատ ընտրեք տեքստային տուփի տեքստը, երբ այն ընտրվում է VBA կոդով


Ավտոմատ ընտրեք տեքստային տուփի տեքստը, երբ այն ընտրվում է VBA կոդով

Excel- ում տեքստային տուփ ընտրելիս խնդրում ենք կիրառել ստորև նշված VBA կոդը ՝ տեքստային տուփի բոլոր տեքստերն ավտոմատ կերպով ընտրելու համար:

1. Քանի որ աշխատանքային թերթը պարունակում է տեքստային տուփ, որը դուք կկազմեցնեք դրա տեքստերը ավտոմատ կերպով, խնդրում ենք միացնել Դիզայնի ռեժիմը ՝ կտտացնելով Երեվակիչ > Դիզայնի ռեժիմ, Տեսեք,

Կամ դուք կարող եք նաև տեղադրել տեքստային տուփ ՝ կտտացնելով Երեվակիչ > Տեղադրել > Տեքստային տուփ (ActiveX կառավարման), Տեսեք,

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

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

VBA ծածկագիր. Ավտոմատ ընտրեք տեքստային տուփի տեքստերը, կտտացնելով այն

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox1.Object)
End Sub

Sub SelTextBox(xTextBox As Object)
    With xTextBox
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

Notes:

1. Կոդում, TextBox1 տեքստի տուփի անունն է, որից դուք մաքրելու եք բովանդակությունը: Խնդրում եմ փոխեք այն ձեր սեփականով:

2. Բազմաթիվ տեքստային տուփերի տեքստերը դրանց վրա կտտացնելիս ավտոմատ կերպով ընտրելու համար խնդրում ենք վերը նշված կոդի երկու բաժինների միջև ներքևում ավելացնել VBA կոդ: Եվ փոխեք TextBox2- ը ձեր անհրաժեշտ տեքստային տուփի անունով:

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox2.Object)
End Sub

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

5. Անջատեք Նախագծման ռեժիմը:

Այսուհետ, տեքստային տուփը կտտացնելիս, տեքստային տուփի ներսում գտնվող բոլոր տեքստերը կընտրվեն ինքնաբերաբար:


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

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

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

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

kte էջանիշը 201905


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
can change color of the automatically selected text inside textbox?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations