TextBox анги - VBA текст хайрцаг үүсгэх. Excel VBA дээр маягт үүсгэх

Маягт дээр текст хайрцаг байрлуулах боломжийг олгодог VBA TextBox классыг харцгаая. Vba TextBox анги нь олон мөрт болон нэг мөрт текст оруулах талбаруудыг үүсгэх боломжийг олгодог боловч сүүлийн тохиолдолд MsgBox функцийг ашиглах нь илүү тохиромжтой байдаг. Та мөн гүйлгэх мөр нэмж, оруулах тэмдэгтүүдийн хамгийн их уртыг тодорхойлж болно. TextBox-ийг нууц үг оруулах бүрэлдэхүүн хэсэг болгон ашиглаж болно.

Эхлээд TextBox классын үндсэн шинж чанарууд болон түүний үндсэн үйл явдлыг авч үзээд дараа нь жишээ бичье.

TextBox VBA хэлний ангийн үйл явдлууд

үнэ цэнээсвэл Текст- TextBox-д оруулсан текст

харагдахуйц– элементийг нуух (худал) эсвэл дахин харуулах (үнэн) боломжийг танд олгоно.

олон мөр– энэ шинж чанар нь текст талбар нь нэг мөр (худал) эсвэл олон мөр (үнэн) байх эсэхийг тодорхойлох боломжийг танд олгоно.

гэдэг үг ороосон– Хэрэв MultiLine нь үнэн утгыг агуулж байвал уг өмчийг ашиглахад хамааралтай бөгөөд энэ тохиолдолд WordWrap-ийг үнэн гэж тохируулсан бол TextBox текстийн талбарын хил хязгаарт хүрэхэд текст автоматаар шинэ мөрөнд ороогдоно.

гүйлгэх мөрүүд– гүйлгэх мөрүүдийг харуулах эсэхийг тодорхойлох боломжийг танд олгоно. Үл хөдлөх хөрөнгө дараахь утгыг авч болно.

• 0 – fmScrollBasNone(гүйлгэх мөр байхгүй)
• 1– fmScrollBarsХэвтээ(хэвтээ гүйлгэх самбар)
• 2 – fmScrollBarsVertical(босоо гүйлгэх мөр)
• 3 – fmScrollBasBoth(хэвтээ ба босоо гүйлгэх)

Нууц үг Char- оролтын өгөгдлийн оронд харагдах тэмдэгтийг тохируулах боломжийг танд олгоно. Нууц үг оруулах үед үл хөдлөх хөрөнгө хамааралтай болно.

Хамгийн их урт- текст талбарт оруулах тэмдэгтийн дээд хэмжээг зааж өгөх боломжийг танд олгоно. Анхдагч нь 0 бөгөөд энэ нь хязгаарлалт байхгүй гэсэн үг юм.

Бусад удирдлагын нэгэн адил TextBox анги нь үйл явдлуудтай бөгөөд TextBox-ийн гол үйл явдал юм өөрчлөх- энэ нь текст талбарт тэмдэгт оруулах бүрт тохиолддог. Та энэ зургийг харсан байж магадгүй: баталгаажуулах кодыг оруулахдаа түүний урт нь заасан хэмжээнд хүрэх хүртэл (жишээлбэл, 12 тэмдэгт) "Шалгах" товчлуур ажиллахгүй. Үүнийг энд бас хийж болно.

За, одоо бэлтгэл хийх цаг боллоо. Өмнөх нийтлэлүүдийн нэгэн адил би бүх нарийн ширийн зүйлийг дахин судлахгүй тул би шууд хэлэх болно: төсөлд шинэ модуль, шинэ маягт нэмнэ үү. ToolBox цонхноос Caption () удирдлагыг сонгоод, маягтанд нэмж, дээд талд нь байрлуулж, доор нь текст хайрцаг (TextBox) байрлуулж, хамгийн доод хэсэгт товчлуур ("Check" гэсэн шошготой) байх ёстой. ). Өмнөх шигээ модулийн код засварлагч дээр бид процедурыг бичдэг.

Энд бид товчлуур дээр нэг товшилтыг боловсруулж байгаа бөгөөд товчлуурыг дарахад Label1 объектын Caption шинж чанар (Бичээс) -д TextBox1 текст талбарын агуулгыг оноох болно (Text property).

Private Sub TextBox1_Change() Dim LenText As byte LenText = Len(TextBox1.Text) Хэрэв LenText = 12 Дараа нь bCheck.Enabled = True Өөр bCheck.Enabled = Хуурамч төгсгөл бол төгсгөл дэд

Энд Change үйл явдлыг vba TextBox ангийн TextBox1 объектын текст талбарт зориулж боловсруулдаг. LenText хувьсагч нь оруулсан текстийн уртыг хадгалах бөгөөд өгөгдөл оруулах бүрт уртыг шалгаж, 12-той тэнцүү бол товчлуурыг идэвхжүүлнэ, эс бөгөөс 0 товчлуур идэвхгүй болно.

Энэ процедурт анхны утгуудыг тохируулсан бөгөөд тэдгээрийн заримыг Properties цонхонд тохируулж болно, гэхдээ ойлгомжтой болгохын тулд би бүх зүйлийг програмын кодонд бичихээр шийдсэн. Энд санаа зовох зүйл байхгүй, маягтыг санах ойд ачаалмагц "Шалгах" товч идэвхгүй болж, текст талбар болон шошгоны үсгийн хэмжээг 20 болгож тохируулсан бол бид мөн текстийн дээд уртыг тохируулна. TextBox хэлний VBA анги ба түүний нэг мөр.

Сонголт 5
Захиалгат харах маягт үүсгэх:

"Тооцоолол" гэсэн товчийг дарахад нээгдэх маягтын модульд хувийн дэд программын процедурыг үүсгэ. Процедур нь тухайн албан тушаалын аль нэг ажилтны өдөр тутмын ажилд хуримтлагдсан хамгийн дээд хэмжээг тооцоолох ёстой, нэрийг нь талбар1 талбарт долоо хоногийн өдөр, тоо нь 2-т орсон байна. Хуримтлагдсан дүнг уул уурхайн бүтээгдэхүүн, ханшаар тооцдог. Процедур нь тооцооллын үр дүнг 3-р талбарт байрлуулах ёстой.
Хэрэглэгчийн маягт үүсгэхийн тулд Visual Basic Code Editor (Alt+F11) руу орж цэснээс Insert->UserForm командыг сонгоно. Дараа нь та шаардлагатай бүрэлдэхүүн хэсгүүдийг нэмж, хэлбэр, бүрэлдэхүүн хэсгүүдийн бүх параметрүүдийг тохируулах хэрэгтэй - хэмжээ, фонт, гарчиг.
Энэ тохиолдолд TextBox-ийн гурван элемент (TextDolgn - байрлал, TextDen - долоо хоногийн өдөр, TextMaks - хуримтлагдсан дээд хэмжээ), хоёр товчлуур (Тооцоолох ба Гарах) болон 4 шошго хэрэгтэй. Бүх шинж чанаруудыг Properties самбарт тохируулж болно.
Хэрэв та Тооцооллын товчийг давхар товшвол засварлагч процедурын загвар үүсгэх болно. Түүнд текст нэмье:

Хувийн дэд btnCalc_Click()
Dim r As Integer "мөрийн дугаар
Dim c As Integer "баганын дугаар
Dim maxSum As Integer "хамгийн их хуримтлагдсан дүн
Dim rng As Range "захиалгат хүрээ
textMaks.Text = "" "Өмнөх хайлтаас талбарыг цэвэрлэж байна
"Хэрэв албан тушаалын нэрийг оруулаагүй бол мессеж гарч, процедураас гарна уу
Хэрэв textDolgn.Text = Хоосон Дараа нь
MsgBox "Ажлын нэрийг оруулна уу!"
textDolgn.SetFocus "оролтын талбарт анхаарлаа хандуулаарай
гарах дэд
Төгсгөл бол
"Хэрэв өдрийн дугаарыг оруулаагүй бол мессеж илгээж, процедураас гарна уу
Хэрэв textDen.Text = Empty Дараа нь
MsgBox "Долоо хоногийн өдрийн дугаарыг (1-ээс 7 хүртэл) оруулна уу!"
textDen.SetFocus
гарах дэд
Төгсгөл бол
"Тоон бус өдрийн утгыг оруулсан
Хэрэв үгүй ​​бол (IsNumeric(textDen.Text)) Дараа нь
MsgBox "Долоо хоногийн тоо бус өдөр (1-ээс 7 хүртэл шаардлагатай)!"
textDen.SetFocus
гарах дэд
"Ажлын өдрийн дугаар буруу оруулсан байна
ElseIf(CInt(textDen.Text)< 1) Or (CInt(textDen.Text) >7) Дараа нь
MsgBox "Долоо хоногийн буруу өдөр (1-ээс 7 хүртэл шаардлагатай)!"
textDen.SetFocus
textDen.Text = "" "талбарыг цэвэрлэ
гарах дэд
Төгсгөл бол
"3-р мөрөөс эхлээд давталт
r=3
"оролтын талбараас өдрийн дугаар
c = CInt(textDen.Text)
rng = Sheets(1).UsedRange-г тохируулна уу
maxSum = -1
For r = 3 To rng.Rows.Count
"хэрэв заасан ажлын нэр нүднээс олдвол
Хэрэв InStr(1, Cells(r, 2), textDolgn.Text, vbTextCompare) > 0 Дараа нь
"Хэрэв нийлбэр нь дээд хэмжээнээс их байвал дээдийн утгыг шинэ болгон өөрчил
Хэрэв CInt(Cells(r, 3)) * CInt(Cells(r, c + 3)) > maxSum Дараа нь maxSum = CInt(Cells(r, 3)) * CInt(Cells(r, c + 3))
Төгсгөл бол
Дараагийн r
Хэрэв maxSum = -1 байвал
MsgBox "Заасан байрлал олдсонгүй"
textMax.Text = "-"
Өөрөөр
textMaks.Text = CStr(maxSum)
Төгсгөл бол
Тохируулах rng = Юу ч "санах ойг чөлөөлж байна
төгсгөлийн дэд

Энд маш олон шалгалт байдаг. Эхлээд бүх өгөгдөл оруулсан эсэхийг шалгана уу. Хэрэв тийм биш бол бид хэрэглэгчдэд энэ тухай мэдэгдэж, оролтын фокусыг хоосон талбарт тохируулж (хэрэглэгчийн тав тухтай байдлыг хангах үүднээс хулганыг дахин нэг удаа цохихгүйн тулд) процедураас гарна.
Дараа нь бид өдрийн дугаарыг зөв оруулсан эсэхийг шалгана. Нэгдүгээрт, энэ нь тоо байх ёстой, хоёрдугаарт, 1-ээс 7 хүртэлх тоо байх ёстой. Хэрэв ямар нэг зүйл буруу байвал бид оруулах талбарыг арилгаж, анхаарлаа төвлөрүүлж, процедураас гарч, амжилтгүй оролдлогын талаар хэрэглэгчдэд дахин мэдэгдэнэ.
Хэрэв бүх зүйл хэвийн байвал бид хүссэн утгыг хайж эхэлнэ. Мөрийн тооноос хамааралгүй байхаар тохируулсан мужийг тодорхойлъё. Дараа нь та гогцоонд хамгийн их хэмжээг олох хэрэгтэй. Эсийн утгыг ямар нэгэн зүйлтэй харьцуулах шаардлагатай. Энд бид мөр эсвэл баганын эхний нүдийг зүгээр л орлуулах боломжгүй, дараа нь параметрээр юу сонгох шаардлагатай вэ - байрлал. Гэхдээ хуримтлагдсан дүн нь тэгээс бага байж болохгүй гэдгийг бид харж байна - хувь хэмжээ нь сөрөг байж болохгүй, ажлын цагийн тоо ч бас байж болохгүй. За, энэ тохиолдолд бид "улаан урвуу" - өмнөх үеүүдийн залруулга хийх боломжийг авч үзэхгүй. Тиймээс анхны дээд хэмжээг -1 (хасах нэг) -тэй тэнцүү авч үзье.
Бид өдрийн заасан тоогоор баганын нүднүүдийн дундуур давталтыг эхлүүлнэ (энэ нь оролтын талбарын утга дээр нэмэх нь 3).
Нүдэнд заасан ажлын байр байгаа эсэхийг харна уу. Та хоёр мөрийг зүгээр л харьцуулж болно, гэхдээ энэ нь тохиромжгүй, учир нь та байрлалыг бүрэн, зөв ​​оруулах шаардлагатай болно. Тиймээс бид заасан дэд мөр нь мөрт олдвол 0-ээс их утгыг буцаадаг InStr функцийг ашигладаг. Та хоёр мөрийг харьцуулах Like функцийг ашиглаж болно. Энэ нь хөгжүүлэгчээс хамаарна.
Хэрэв нүдэн дэх байрлал олдвол хувь хэмжээг ажилласан цагийн тоогоор үржүүлж, үр дүнг хамгийн их хэмжээтэй харьцуулна. Хэрэв үр дүн нь илүү байвал түүнийг шинэ утга болгон өөрчил.
Шаардлагатай бол мөрийн утгыг тоо болгон хувиргахаа бүү мартаарай. Excel өөрөө хаана юу байгааг ойлгодог байсан ч найдвартай байдлын үүднээс үүнийг хийх нь дээр.
Цикл дамжсаны дараа бид хамгийн их хэмжээ нь -1 (анхны утга) байвал ийм байрлал байхгүй болно. Бид мессежийг харуулж, тодорхой болгохын тулд талбарт зураас тавина.
Хэрэв нийлбэр нь -1-тэй тэнцүү биш бол бид олсон утгыг textMaks талбарт байрлуулна.
Бид програмын төгсгөлд объектын санах ойг чөлөөлдөг.
Гарах товчлуурын текст бас байна:

Хувийн дэд btnExit_Click()
"Маягтыг байршуулах
Намайг буулга
төгсгөлийн дэд

Маягтыг ажиллуулахын тулд мэдээллийн хуудсан дээр товчлуурыг байрлуул ("Хөгжүүлэгч" таб, "Удирдлага" хэсэг, "Оруулах" жагсаалт - маягтын удирдлагаас товчлуурыг сонгоно уу), түүнд Button1_Click макро онооно. Дараа нь засварлагч дээр энэ товчлуурын кодыг бичнэ үү:

Дэд товчлуур1_товших()
UserForm1.Show
төгсгөлийн дэд

Бүх зүйл, та маягтын ажлыг шалгаж болно.
Би энд зөвхөн 5 сонголтыг өгсөн. Хэрэв танд өөр зүйл хэрэгтэй бол VK группээс асууж болно (холбоо барих хуудсыг үзнэ үү). Гэхдээ ерөнхийдөө бүх сонголтууд ижил төстэй байдаг. Ялангуяа та олон текстийн утгууд бүхий стринг гаргах шаардлагатай бол зөвхөн бага зэргийн ялгаа байдаг. Дараа нь та олон мөрийг харуулахын тулд textbox шинж чанар - Multiline, мөн тусгаарлахдаа мөр таслах тэмдэгтүүдийг ашиглаж болно.

Текстийн талбарууд нь текст оруулах, засварлахад зориулагдсан - TextBox элемент. Label элементийн нэгэн адил TextBox элементийн текстийг Text шинж чанарыг ашиглан тохируулж эсвэл татаж авч болно.

Өгөгдмөл байдлаар, багаж самбараас зүйлийг чирснээр нэг мөр бүхий текстийн хайрцаг үүсдэг. Текстийн талбарт их хэмжээний мэдээллийг харуулахын тулд та түүний Multiline болон ScrollBars шинж чанарыг ашиглах хэрэгтэй. Олон мөрийн шинж чанарыг үнэн гэж тохируулах үед захын зайнаас гадуур гарсан нэмэлт тэмдэгтүүд шинэ мөрөнд ороогдоно.

Та мөн ScrollBars шинж чанарыг дараах утгуудын аль нэгэнд тохируулснаар текст хайрцгийг гүйлгэх боломжтой.

Байхгүй: гүйлгэх боломжгүй (өгөгдмөл)

Хэвтээ : Мөрийн урт нь текстийн талбарын өргөнөөс их байх үед хэвтээ гүйлгээ үүсгэдэг.

Босоо : текстийн талбарт мөрүүд тохирохгүй байвал босоо гүйлгэх хэлбэрийг үүсгэдэг

Аль аль нь: босоо болон хэвтээ гүйлгэх үйлдлийг бий болгодог

TextBox элемент нь автоматаар бөглөх талбар үүсгэх хангалттай хүч чадалтай. Үүнийг хийхийн тулд бид эд хөрөнгийг холбох хэрэгтэй AutoComplete CustomSourceталбарыг дүүргэхийн тулд өгөгдлийг авдаг зарим цуглуулга руу TextBox элементийн.

Тиймээс, маягтанд текст талбар нэмж, ачаалах үйл явдлын кодонд дараах мөрүүдийг бичье.

Нийтийн хэсэгчилсэн анги Form1: Маягт ( public Form1() ( InitializeComponent(); AutoCompleteStringCollection эх = new AutoCompleteStringCollection() ( "Кузнецов", "Иванов", "Петров", "Кустов" ); textBox1.AutoCompleteCustomSource = source1.AtoBode; = AutoCompleteMode.SuggestAppend;textBox1.AutoCompleteSource = AutoCompleteSource.CustomSource; ) )

AutoCompleteMode шинж чанараар илэрхийлэгдэх автоматаар гүйцээх горим нь хэд хэдэн боломжит утгатай байна:

Байхгүй: автоматаар бөглөх боломжгүй

Санал болгох : Оролтын зөвлөмжийг санал болгож байгаа боловч дуусгадаггүй

append : оруулсан утгыг жагсаалтаас мөрт хавсаргах боловч сонгох сонголтыг санал болгодоггүй

SuggestAppend : хоёулаа автоматаар бөглөх зөвлөмжийг санал болгож, хэрэглэгчийн оруулсан утгыг гүйцээнэ

Гэдэг үг ороосон

TextBox элемент дэх текст үгсийг ороохын тулд та шинж чанарыг тохируулах хэрэгтэй гэдэг үг ороосонүнэн гэж тохируулсан. Өөрөөр хэлбэл, нэг үг мөрөнд тохирохгүй бол дараагийн үг рүү шилжүүлнэ. Энэ шинж чанар нь зөвхөн олон мөрт текст талбарт ажиллах болно.

Нууц үг оруулах

Мөн энэ элемент нь нууц үг оруулах талбар болгох боломжийг олгодог шинж чанаруудтай. Тиймээс, үүний тулд та PasswordChar болон UseSystemPasswordChar ашиглах хэрэгтэй.

PasswordChar шинж чанар нь анхдагч утгагүй бөгөөд хэрэв бид үүнийг дурын тэмдэгтээр тохируулсан бол текст талбарт ямар нэгэн тэмдэгт оруулах үед энэ тэмдэгт гарч ирнэ.

UseSystemPasswordChar шинж чанар нь ижил төстэй нөлөө үзүүлдэг. Хэрэв бид түүний утгыг үнэн гэж тохируулсан бол оруулсан тэмдэгтүүдийн оронд системд хүлээн зөвшөөрөгдсөн нууц үгийн тэмдэгт, жишээлбэл цэг, текст талбарт гарч ирнэ.

TextBox элементийн бүх үйл явдлуудаас TextChanged үйл явдлыг тэмдэглэх нь зүйтэй бөгөөд энэ нь тухайн элемент дэх текст өөрчлөгдөх үед асдаг. Жишээлбэл, форм дээр текст талбараас гадна шошго байрлуулж, текст талбар дахь текст өөрчлөгдөхөд шошгон дээрх текст ч өөрчлөгддөг болгоё.

Нийтийн хэсэгчилсэн анги Form1: Маягт ( public Form1() ( InitializeComponent(); textBox1.TextChanged += textBox1_TextChanged; ) private void textBox1_TextChanged(объект илгээгч, EventArgs e) ( label1.Text = textBox1.Text; ) )

Энэ жишээг ашигладаг Харилцах цонх- UserForm1 болон хяналтууд Текст талбар- Контекст цэсийг үүсгэсэн TextBox1, TextBox2, TextBox3. Маягтын нэртэй тохирох контекст цэсийн нэр (заавал биш) өвөрмөц байх ёстойг анхаарна уу. Хэрэв ижил нэртэй хэрэгслийн мөр аль хэдийн байгаа бол шинэ хэрэгслийн мөр үүсгэх үед алдаа гарах болно. Самбарыг үүсгэхээс өмнө ийм нэртэй самбар байгаа эсэхийг шалгах эсвэл the.Add аргын нэмэлт Нэрийн аргументыг ашиглахгүй байх замаар энэ алдаанаас зайлсхийх боломжтой (ижил төстэй жишээ 2-ыг үзнэ үү)

Сонголт II.Хэрвээ өмнө нь iemenu.ocx (IE Popup Menu) удирдлагыг татаж аваад, боломжтой холбоосуудын жагсаалтад нэмбэл, энэ удирдлагыг ашиглан контекст цэс үүсгэж болно (3-р жишээг үзнэ үү)

Хариулт:

Сонголт I

Анхаар:

MultiLine болон ScrollBars шинж чанарын утгыг гараар тохируулах боломжтой

Хариулт:
MultiLine шинж чанарыг True гэж тохируулсан текст талбарын өгөгдлөөр нүднүүдийг дүүргэхийн тулд та мөр мөрөөр унших аргыг ашиглаж болно. Хэрэв нүднүүд аль хэдийн дүүрсэн бол хамгаалагдсан эсэхийг шалгасны дараа эдгээр нүдний (багана) агуулга, форматыг устгана уу.

Сонголт I(мөр мөрөөр унших)

Жич:

Тэргүүлэх тэгтэй тоо оруулахын тулд та тохирох чек нэмэх хэрэгтэй.

Текстийн талбарт олон тооны мөр байгаа тул дэлгэцийн шинэчлэлтийг идэвхгүй болгох нь зүйтэй юм [FAQ43]

Сонголт II.(мөр мөр уншихгүй)

Хариулт:

Текстийн талбарт зөвхөн өвөрмөц (өмнө нь давтагддаггүй) тэмдэгтүүдийг оруулах шаардлагатай бол. Өөрөөр хэлбэл, та текстэнд аль хэдийн байгаа тэмдэгтүүдийг оруулахыг хориглох хэрэгтэй бөгөөд дараа нь TextBox1_KeyPress үйл явдал нь давхардсан (давталт) оруулахыг хориглохын тулд TextBox1_KeyDown үйл явдалаар оруулахыг хориглох сонголтыг ашиглана уу. давхардсан (давталт) агуулж болзошгүй хуулбарласан өгөгдлийн тоо

Сонголт I

Хариулт:

Та файлын нэрэнд ашиглах боломжгүй тэмдэгт гэх мэт шаардлагагүй тэмдэгтүүдийг оруулахаас сэргийлэхийн тулд дараах сонголтыг ашиглаж болно. Шаардлагагүй тэмдэгт оруулахаас урьдчилан сэргийлэхийн тулд TextBox1_KeyPress үйл явдлыг ашигладаг бол TextBox1_KeyDown үйл явдал нь хориотой тэмдэгт агуулсан байж болзошгүй хуулсан өгөгдлийг оруулахаас сэргийлдэг.

Хариулт:

TextBox1 нэртэй текст нэртэй ажиллахад SHIFT, CTRL, ALT товчлууруудын аль нь дарагдсаныг тодорхойлохын тулд та дараах сонголтыг ашиглаж болно. Текстийн талбар байрлуулсан хэрэглэгчийн маягтын толгой хэсэгт мэдээллийг харуулах нь зөвхөн тодорхой болгохын тулд ашиглагддаг бөгөөд мэдээжийн хэрэг заавал байх албагүй.

Жич:Үүнтэй адилаар та бусад удирдлагын фонтыг өөрчлөх боломжтой. RefEdit, Label, ComboBox, ListBox ...

Хариулт:

Хэрэв та ажлын явцад шаардлагатай ажлын номыг сонгох, жишээлбэл, стандарт харилцах цонхыг ашиглах, мөн сонгосон ажлын дэвтрийн замыг (эсвэл зүгээр л файлын нэрийг) олж авах боломжтой байх шаардлагатай бөгөөд үүнийг нээхгүйгээр, Дараа нь зүгээр л TextBox1 нэртэй текст хайрцаг үүсгэж, шаардлагатай бол баруун талын товчлуурыг ашиглана уу (товчлуур таны оролцоогүйгээр гарч ирнэ)